Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Colar dados de Caul...
 
Notifications
Clear all

Colar dados de Caular em Função

 
2024 - VBA & Macros
Post Recente por tfcastro 9 anos atrás
3 Posts
2 Usuários
0 Reactions
802 Visualizações
RSS
tfcastro
 tfcastro
(@tfcastro)
Posts: 131
Estimable Member
Topic starter
 

Boa Tarde Pessoal !!

Tenho o macro abaixo e gostaria de Copiar o texto da celula M2 colar substituir do CopyToRange:=Range("B5:J5"), assim ficaria CopyToRange:=Range("texto da céula m2")

Sub Teste()
'
' Teste Macro
'

'
    Sheets("Filtro").Range("Filtro1[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("PR003!Criteria"), CopyToRange:=Range("B5:J5"), _
        Unique:=False
    Range("B5:J5").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range("$B$5:$J$279").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _
        7, 8, 9), Header:=xlYes
End Sub

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 26/06/2015 12:36 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 
CopyToRange:=Range("M2").Value

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 26/06/2015 1:11 pm
tfcastro
 tfcastro
(@tfcastro)
Posts: 131
Estimable Member
Topic starter
 

Deu erro "esta referência não é valida" !!

Na verdade precisava na ultima linha sem valor depois desse CopyToRange:=Range("B5:J5").
Tendei colocar:

CopyToRange:=Range("B5:J5").End(xlUp).Row

Mas tb não deu certo !!

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 26/06/2015 1:17 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico