Início / computer / Perguntas / 1876250
Accepted
uncleuhls
Asked: 2025-02-03 06:45:55 +0800 CST

VBA Copiar células e colar em outra planilha na 1ª célula disponível em uma coluna específica

  • 772

Estou trabalhando em uma planilha de pontuação on-line para uma liga de sinuca. Estou tentando criar uma macro que quando um marcador clica em um botão (planilha1) todas as estatísticas da partida são armazenadas em um banco de dados (planilha3) e a planilha 1 é limpa e pronta para a próxima partida. Meu código é como abaixo, funciona bem, exceto que ele substitui os dados na planilha 3 para a 2ª partida e assim por diante. Acredito que preciso usar o nextrow e alterar o intervalo de uma célula específica para a coluna, mas não consigo fazer nada funcionar. Sou muito novo no VBA e sou um novato no Google Copy and Paste lol.

Sub EnterStatsandClear()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet3")
    wsTarget.Range("A2").Value = wsSource.Range("B5").Value
    wsTarget.Range("a3").Value = wsSource.Range("e5").Value
    wsTarget.Range("b2").Value = wsSource.Range("i17").Value
    wsTarget.Range("b3").Value = wsSource.Range("i17").Value
    wsTarget.Range("c2").Value = wsSource.Range("i8").Value
    wsTarget.Range("c3").Value = wsSource.Range("i9").Value
    wsTarget.Range("d2").Value = wsSource.Range("p21").Value
    wsTarget.Range("d3").Value = wsSource.Range("s21").Value
    wsTarget.Range("e2").Value = wsSource.Range("q21").Value
    wsTarget.Range("e3").Value = wsSource.Range("t21").Value
    wsTarget.Range("f2").Value = wsSource.Range("r21").Value
    wsTarget.Range("f3").Value = wsSource.Range("u21").Value
    wsTarget.Range("g2").Value = wsSource.Range("j13").Value
    wsTarget.Range("g3").Value = wsSource.Range("j14").Value
Worksheets("Sheet1").Range("b5:c5,e5:f5,a8:b8,i8:i9,b10:f22").ClearContents

End Sub
microsoft-excel

1 respostas

  1. Best Answer

    Uma única célula, como A2pode ser referenciada usando o número da linha e da coluna: Cells(2,1)(segunda linha, primeira coluna).

    Com isso em mente, você precisa encontrar a última linha contendo dados usando Cells(Rows.Count, 1).End(xlUp).
    Isso é o mesmo que ir para a última linha e pressionar Ctrl+Up.

    Observação : também atualizamos a ClearContentslinha para usar a wsSourcevariável.

    Sub EnterStatsandClear()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet3")
    
    'Find the last row in Sheet3 based on column A (column 1
    Dim LastRow As Long
    LastRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    wsTarget.Cells(LastRow, 1).Value = wsSource.Range("B5").Value
    wsTarget.Cells(LastRow + 1, 1).Value = wsSource.Range("e5").Value
    'wsTarget.Range("A2").Value = wsSource.Range("B5").Value
    'wsTarget.Range("a3").Value = wsSource.Range("e5").Value
    
    wsTarget.Cells(LastRow, 2).Value = wsSource.Range("i17").Value
    wsTarget.Cells(LastRow + 1, 2).Value = wsSource.Range("i17").Value
    'wsTarget.Range("b2").Value = wsSource.Range("i17").Value
    'wsTarget.Range("b3").Value = wsSource.Range("i17").Value
    
    wsTarget.Cells(LastRow, 3).Value = wsSource.Range("i8").Value
    wsTarget.Cells(LastRow + 1, 3).Value = wsSource.Range("i9").Value
    'wsTarget.Range("c2").Value = wsSource.Range("i8").Value
    'wsTarget.Range("c3").Value = wsSource.Range("i9").Value
    
    wsTarget.Cells(LastRow, 4).Value = wsSource.Range("p21").Value
    wsTarget.Cells(LastRow + 1, 4).Value = wsSource.Range("s21").Value
    'wsTarget.Range("d2").Value = wsSource.Range("p21").Value
    'wsTarget.Range("d3").Value = wsSource.Range("s21").Value
    
    wsTarget.Cells(LastRow, 5).Value = wsSource.Range("q21").Value
    wsTarget.Cells(LastRow + 1, 5).Value = wsSource.Range("t21").Value
    'wsTarget.Range("e2").Value = wsSource.Range("q21").Value
    'wsTarget.Range("e3").Value = wsSource.Range("t21").Value
    
    wsTarget.Cells(LastRow, 6).Value = wsSource.Range("r21").Value
    wsTarget.Cells(LastRow + 1, 6).Value = wsSource.Range("u21").Value
    'wsTarget.Range("f2").Value = wsSource.Range("r21").Value
    'wsTarget.Range("f3").Value = wsSource.Range("u21").Value
    
    wsTarget.Cells(LastRow, 7).Value = wsSource.Range("j13").Value
    wsTarget.Cells(LastRow + 1, 7).Value = wsSource.Range("j14").Value
    'wsTarget.Range("g2").Value = wsSource.Range("j13").Value
    'wsTarget.Range("g3").Value = wsSource.Range("j14").Value
    
    wsSource.Range("b5:c5,e5:f5,a8:b8,i8:i9,b10:f22").ClearContents

End Sub
    • 0

relate perguntas