Bom dia! Resolvido. Obrigado a todos. Abraços.

Boa tarde amigos, Eu resolvi este mesmo tipo de problema assim: ThisWorkbook.Worksheets(NomePlan).Cells(intLinha, 1) = CDate(Data.Va...

Olá Wagner, tudo bem? Vendo o código acima, tive o mesmo problema reportado. Porém consegui fazer com que o outlook salvasse todos os anexos em uma p...

Agora deu certo Reinaldo, obrigado. Usei no evento Change do Textbox que estava apresentando defeito Veja: Private Sub Vlr_Recolh_Change() Vlr_Recol...

Boa tarde Reinaldo, Usei as dicas desta tópico que vc me mandou: Private Sub Txtvalor1_AfterUpdate() If txtvalor2 = "" Then txtvalor2 = 0 ...

Bom dia Wagner, deu certo colocando a "MSGBOX" após o último End If antes do End Sub. Muito obrigado pela ajuda. Abraços.

Olá Wagner Morel, muito obrigado pela sua ajuda. Deu certinho. Eu apenas declarei uma variável (no caso mês) para que selecione no combobox qual plani...

Fernando, eu estou usando o filtro avançado do Excel....... Dados > Filtrar > Filtro Avançado...e lá coloco os parâmetros para copiar para outr...

Boa tarde amigos, Basole, Sua ajuda deu certo, adaptei ao meu código e funcionou. Agradeço a você também Mauro Coutinho pela ajuda. Obrigado a to...

Bom dia! Tente este código, mas não está dando certo: numero = 1 Dim i, soma, a As Double For i = 5 To 10000 If Plan3.Cells(i, 1) = Txtnumn...