VBA EXCEL - PROCURANDO VALORES E PREENCHENDO CAMPOS

ADEIR SOUZA SANTOS · 10 de maio de 2015

Olá pessoal, Help!!!

Tô apanhando nessa programação mas estou evoluindo. O que está me ajudando bastante é pegar algumas planilhas que encontro na net e tento reportar a programação para minha realidade.

porém tem algumas situações em que não encontro na net dai preciso da sua ajuda!

Vou mandar uma situação onde preciso que a macro procure 3 condições, e logo que encontre copie valores em três células diferentes..sendo que uma está em linha e duas em colunas... já fiz tudo que vocês possam imaginar pra colocá-la dentro de minha realidade que é procurar as três condição e não dá nem a porrete! dai preciso da ajuda de vocês... essa planilha me servirá como material de estudo!

Coloquei a planilha no sendspace para ajudar o entendimento, vai ai o link:

https://www.sendspace.com/file/tlb6w0

Adeir Santos

11 de maio de 2015

Experimente

Private Sub inserirbl_Click() Dim k As Long, m As Long, c As Range, t As Long, y As Long, x As Date k = (mes.ListIndex + 1) * 6 - 5: m = dia.Text x = DateSerial(Year(Date), (mes.ListIndex + 1), m)   Set c = Columns(k).Find(x, Lookat:=xlWhole)   If Not c Is Nothing Then    t = c.Row + 1: y = hora.ListIndex + 1    Cells(y + t, k + 2) = zona_5.Value: Cells(y + t, k + 3) = zona_6.Value    Cells(y + t, k + 4) = zona_10.Value: Cells(y + t, k + 5) = obs.Value   Else: MsgBox "DATA NÃO ENCONTRADA": Exit Sub   End IfEnd Sub

ADEIR SOUZA SANTOS · 12 de maio de 2015

experimentar!!!!! você programou tudo!!! cara se eu tivesse condições te pagava pelo que fez!!! ficou perfeito, e me servirá como material de estudo..agradecido eternamente... você é fera!!!