none
Como selecionar intervalos não continuos com células variaveis? RRS feed

  • Pergunta

  • 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!!

    quarta-feira, 21 de agosto de 2019 19:22