1 resposta(s) nesse tópico

[pauloage]

olá senhores... expert em VBA


Sou iniciante ainda em VBA (na verdade engatinhado ainda..) estou preparando um formulario e me deparei com um certa condição que ainda não vir coisa igual.. e sempre que preciso sempre encontro companheiros pra me ajuda aqui no forum...bem! a Planilha que estou "encucado" tem três (03) filtros.. dai preciso carregar o combobox no formulario so com o resultado desses filtros! me perdir todo não sei nem pro onde começa.. outra condição é quer no os dados carregados preciso alterar a data "aumentando o Prazo"...... meu codigos são fraquinhos não tenho ainda conhecimento suficiente pra resolver isso. Bem Obrigado pela atenção espero um ajudinha dos companheiros .. Vou anexa o arquivo

Arquivos Anexados

•  Carregar_Combox_Apos_Filtro.zip   31.97K   91 downloads

[pauloage]

Programação existe varias maneiras de se fazer a mesma coisa!!
realmento fazendo o filtro na planilha o combobox com carregar so o resultado do filtro.. carregar todos os dados então depois de muita pesquisa encontrei uma solução viavel que esta funcionando. vai o Anexo!! obrigado

CARREGAR_CBOX.zip

Upload cancelado (Erro407)
NÃO CONSEGUIR ANEXAR: SOLUÇÃO

1 PASSO: CRIAR UM MODULO

COPIAR CODIGO:


Sub lsFiltro_VENDAS()

Sheets("FILTRO").Select
'filtro Mês Selecionado..DO CLIENTE
Range("'FILTRO'!A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I2:I3"), CopyToRange:=Range("K1:P1"), Unique:=False

'VAI VARER O INTERVALO A:F e filtracom codição I2(digita Cliente) I3(cliente a ser filtrado) 'codição
'COPIAR.. no intervalo k1:p1 o resultado.
'''colunaA(CLIENTE)

'''colunaB(CÓD)

'''colunaC(PRODUTO)

'''colunaD(VALOR)

'''colunaE(QTDE.)

'''colunaF(DATA)
O intervalor de coluna K até P tem que está com o mesmo formato

End Sub

2 PASSO: NA Worksheet FILTRO na pasta de trabalho:
COPIAR:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then
lsFiltro_VENDAS
End If
'inicia a Rotina quando for digitado alguma coisa no I3
End Sub



pronto !!! so corregar o combobox.. com o intervalo K2:k...