Copiar e colar em outra aba MACRO
Enviado: 18 Set 2019 às 15:12
por Diego100ges
Boa tarde pessoal!
Estou com uma planilha aqui, que fazem alguns cálculos e no final geram 3 resultados, onde preciso apenas de 2, como é uma análise feita para várias lojas, gostaria de uma macro, para copiar o nome da loja, o resultado da demanda contratada, e o resultado da demanda simulada, e gravasse esses 3 valores em uma outra aba.
Poderiam dar uma força?
Muito obrigado.
Segue anexo.
Re: Copiar e colar em outra aba MACRO
Enviado: 18 Set 2019 às 16:01
por Diego100ges
Pessoal, acabei conseguindo fazer aqui, mas acredito que o código não tenha a melhor performance então caso alguém acredite que é possível melhorar ele, estou utilizando assim:
Código: Selecionar todosSub teste()
Application.ScreenUpdating = False
Sheets("Estudo demanda").Select
Range("M33").Select
Selection.Copy
Sheets("TESTE").Select
Range("A2").Select
Do
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Estudo demanda").Select
Range("e60").Select
Selection.Copy
Sheets("TESTE").Select
Range("B2").Select
Do
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Estudo demanda").Select
Range("k60").Select
Selection.Copy
Sheets("TESTE").Select
Range("C2").Select
Do
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Re: Copiar e colar em outra aba MACRO
Enviado: 18 Set 2019 às 17:14
por osvaldomp
Código: Selecionar todosSub ReplicaDados()
Dim rng As Range, i As Long
For Each rng In Sheets("Estudo demanda").Range("M33,E60,K60")
Sheets("TESTE").Cells(Rows.Count, i + 1).End(3)(2) = rng.Value: i = i + 1
Next rng
End Sub