Boa noite!! Considerando literalmente seu pedido, na guia "BASE1" =SE(E(ESQUERDA(B2;10)="25/03/2015";C2="APOIO OPERACIONAL&q...

Boa tarde! Obs:NaoTestado!!! Sub AleVBA_14197() Dim ws As Worksheet Application.ScreenUpdating = False Worksheets("...

No Achômetro, achando que a planilha que tem os dados seja nomeada como "Plan1", que a coluna A tenha a descrição do mês, e a coluna C os va...

Boa tarde!! Seria melhor postar seu arquivo modelo aqui no fórum, mostrar manualmente o resultado (Antes e Depois do objetivo desejado). Att

Boa tarde Saulo Você baixou a planilha que o amigo Reinaldo anexou? Pelo que eu entendi da tua dúvida, a planilha dele faz exatamente o que vc dese...

Ronaldo, regras do forum, favor sempre compactar seu anexo. Leia. Na minha assinatura tem o link.

Boa tarde!! Tem como postar seu arquivo modelo? At

Talvez assim?? Sub CopiarColar() Dim FinalRow As Integer, Linha As Integer Dim i As Integer, j As Integer Dim wBook As Workbook Set wBook = ThisWork...

Bom dia!! Perdoe me eu esqueci do formula. Veja esse novo modelo! Att

Boa noite!! Se repara a linha lr = Cells(Rows.Count, "A").End(xlUp).Row o lr, seleciona a ultima linha povoada, caso tenha 4...

Boa noite!! Seria isso?

Boa tarde! Sua dúvida é vaga (esse controle é ActiveX, Form ou Userform), e você não postou um arquivo modelo. Private Sub CommandButton1_Click() Ra...

Bom dia!! Na sua primeira postagem você não relatou isso, pediu para salvar os dados, assim eu respondi, por favor click na mãozinha!!

Boa noite!! Tente isso Private Sub CommandButton1_Click() Dim irow As Long Dim ws As Worksheet Dim cControl As Control Set ws = Worksheets("Re...