Início / user-2601393

uncleuhls's questions

Martin Hope
uncleuhls
Asked: 2025-02-03 06:45:55 +0800 CST
  • 5

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