Olá Pessoal!
Primeiramente quero avisar que sou inexperiente com vba rsrs
Estou fazendo uma planilha para anotar cotacões de produtos
em uma das etapas eu preciso copiar intervalos separados para colar em outra planilha
Este é o código que consegui fazer:
If empresa = Range("Q8").Value Then
ult_linha = Range("Q1048576").End(xlUp).Row
Range(Cells(9, 17), Cells(ult_linha, 17)).Copy
Sheets("agendamento").Select
prox_linha = Range("A1048576").End(xlUp).Row + 1
Cells(prox_linha, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Sheets("cotaco").Select
ult_linha = Range("D1048576").End(xlUp).Row
Range(Cells(9, 2), Cells(ult_linha, 4)).Copy
Sheets("agendamento").Select
prox_linha = Range("A1048576").End(xlUp).Row + 1
Cells(prox_linha, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Vejam que este código só serve para uma planilha específica pois eu preciso voltar nela e copiar a segunda parte das informações que eu quero, se eu conseguir selecionar todos os intervalos que são copiados de primeira, posso usar o mesmo codigo pra varias
abas e a minha planilha não ficará tão pesada como está.
Se alguém puder me ajudar, desde já agradeço demais!!
