Notifications

Clear all

Localizar, copiar e colar

2024 - VBA & Macros

Post Recente por Celri_33 7 anos atrás

9 Posts

4 Usuários

0 Reactions

1,373 Visualizações

RSS

Celri_33

(@celri_33)

Posts: 0

Estimable Member

Topic starter

Boa tarde Pessoal,

Tenho uma planilha onde na coluna E tenho os dados, nesta coluna preciso achar a ultima célula preenchida, depois disso copio as formulas contida na célula B2 e colo no restante da coluna B até a ultima célula preenchida da coluna E.

É possível?

Na planilha anexo esta as informações, e o único passo que consegui foi achar a ultima célula preenchida, alguém pode me ajudar?

Pasta2 TESTE 1.rar

Postado : 12/04/2018 2:20 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Boa tarde,

Veja se é isso que voce precisa.

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 12/04/2018 2:46 pm

Celri_33

(@celri_33)

Posts: 0

Estimable Member

Topic starter

Ainda não é isso amigo, vou melhorar o meu exemplo.

Segue anexo com explicação.

Pasta2 TESTE 1.rar

Postado : 12/04/2018 2:57 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sub teste()
    
    
    
    Dim lin As Long
    Dim lin2 As Long
    
    
    
    For lin = 2 To Plan1.UsedRange.Rows.Count
        
        If Plan1.Range("B" & lin).Value = "" Then
            If Plan1.Range("E" & lin).Value <> "" Then
                Plan1.Range("B" & lin).Value = Plan1.Range("B" & lin - 1).Value
                
            End If
            
        End If
        
        
    Next lin
    
    
End Sub

Postado : 12/04/2018 9:41 pm

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Entendi

Era ainda mais fácil então.
Segue anexo a resolução!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 13/04/2018 5:23 am

Celri_33

(@celri_33)

Posts: 0

Estimable Member

Topic starter

Amigo, agradeço a resposta mas não era isso ainda.

Mesmo assim, foi muito útil seu código pois já reutilizei.

Postado : 13/04/2018 6:54 am

Celri_33

(@celri_33)

Posts: 0

Estimable Member

Topic starter

klarc28

Quase la amigo, mas ao invés dele colar valor, queria que ele trouxe-se a fórmula que estiver na B2.
Pois ali esta preenchido com fórmula e o código só trouxe o valor, é possível?

Postado : 13/04/2018 6:55 am

teleguiado

(@teleguiado)

Posts: 142

Estimable Member

Veja se é isso.

Sub executa()
Dim wsheet As Worksheet
Dim countlin As Long

Set wsheet = Sheets("Plan1")

wsheet.Select
countlin = wsheet.Range("e1048576").End(xlUp).Row

wsheet.Range("B2").Copy
wsheet.Range("b3:b" & countlin).PasteSpecial xlPasteFormulas

Application.CutCopyMode = False

MsgBox "Dados copiados!"

End Sub

Obrigado.

Teleguiado.
E-mail: [email protected]

Postado : 13/04/2018 7:52 am