Executando várias macros em planilhas diferentes com um botão

Question

Eu tenho um com 2 macros:

• O primeiro exclui todos os dados da planilha2 coluna1
• O segundo classifica duas colunas na planilha1 e coloca os dados na planilha2 coluna1.

Eu gostaria de executar os dois com um clique. Como eu faço isso?

Answer 1

Com base na captura de tela anexada, descobri que você tem duas macros VBA e está tentando comparar duas colunas e copiar valores incompatíveis em outra planilha.

Para isso você precisa do método combinar duas macros em uma.

Eu gostaria de sugerir um método, compararei duas colunas na planilha de origem para valores incompatíveis e copiarei os dados para outra planilha.

A macro aplicará o formato de cores nas linhas e após copiar, reverterá o formato de ambas as colunas.

Sub HighlightColumnDifferences()

    Dim bothcolumns As Range, i As Integer

    Set bothcolumns = Selection

    With bothcolumns

        For i = 1 To .Rows.Count

            If Not StrComp(.Cells(i, 1), .Cells(i, 2), vbBinaryCompare) = 0 Then

                Range(.Cells(i, 1), .Cells(i, 2)).Interior.ColorIndex = 6

            End If

        Next i

    End With

Call Copy
Application.CutCopyMode = False


End Sub

---

Sub Copy()

    Dim i As Long

    For i = 1 To 10
        If Sheets("Sheet1").Range("A" & i).Interior.ColorIndex = xlNone Then
            Range("A" & i).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
        End If
        If Sheets("Sheet1").Range("B" & i).Interior.ColorIndex = xlNone Then
            Range("B" & i).Copy Destination:=Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1)
        End If
    Next i

    Worksheets("Sheet1").Activate
    Range("A1:B10").ClearFormats
    Application.CutCopyMode = False

End Sub

Como funciona:

• cópia de&Colarambos Código como Módulo Padrão.
• Selecione Dados de ambas as colunas que Sheet 1você deseja comparar.
• CORRER HighlightColumnDifferencesMacro.

Observação

• Você pode selecionar quaisquer duas colunas para comparar, em vez de apenas A e B.
• Você pode ajustar os valores para For i = 1 To 10e Sheet NameIntervalo de dados A1:B10na segunda macro.