Início / coding / Perguntas / 78286041
Accepted
Shiela
Asked: 2024-04-07 06:05:54 +0800 CST

Como copiar uma linha de valores de uma planilha para outra com um clique na célula?

  • 772

Tenho uma pergunta de acompanhamento para esta pergunta anterior que tive. Não incluí essa pergunta lá para evitar confusão.

Portanto, já tenho uma função Enviar completa e funcional que salva tudo, desde a Página1 (Planilha1) até a Página2 (Planilha2).

Agora, sempre que clicar em um número de ticket aleatório na Página2, gostaria que ele fosse copiado para a Página3 (Planilha3) com seus detalhes preenchidos automaticamente - Data, Hora, Ticket, Pontuação e respostas Sim/Não/NA.

Página 2 insira a descrição da imagem aqui

Usando a imagem da Página2 acima, se qualquer célula com número de ticket no intervalo C for clicada, toda a sua linha de valores será copiada para a Página3.

Por exemplo, quando clico no Ticket 7789 2024,

Values of Date, Time, Ticket will go to cells E3:E5 of Page 3
Value of Score will go to J3 of Page3
Values of Yes/No/NA answers from Range E:BC of Page2 will go to cells E7:57 of Page3

Será exibido assim quando eu clicar no número do ticket 7789 2024 da imagem Page2 acima:

Página3 insira a descrição da imagem aqui

O que comecei é este código colocado no módulo da planilha Page2 (para ser sincero, não sei como continuar):

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    
    Dim sh, sh2 As Worksheet
    Set sh = ThisWorkbook.Sheets("Page2")
    Set sh2 = ThisWorkbook.Sheets("Page3")
    
    
    If Selection.Count = 1 Then
        If Not Intersect(Target, sh.Range("C:C")) Is Nothing Then
            'Values of Date, Time, Ticket from Page2 will go to cells E3:E5 of Page 3
            'Value of Score from Page2 will go to J3 of Page3
            'Values of Yes/No/NA answers from Range E:BC of Page2 will go to cells E7:57 of Page3
        End If
    End If
End Sub

Sua ajuda é muito apreciada.

excel

1 respostas

  1. Best Answer
    • Adicionar Worksheet_SelectionChange()ao Page2módulo no VBE
    • Meé uma referência ao Page2objeto de pasta

    Documentação da Microsoft:

    Propriedade Range.CountLarge (Excel)

    Propriedade Range.Offset (Excel)

    Propriedade Range.Resize (Excel)

    Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .CountLarge = 1 Then
            If .Row > 2 And .Column = 3 And Len(.Value) > 0 Then
                Application.EnableEvents = False
                Dim oSht As Worksheet
                Set oSht = Sheets("Page3") ' modify as needed
                oSht.Range("E3").Resize(3, 1).Value = Application.Transpose(.Offset(, -2).Resize(1, 3).Value)
                ' you may need to apply date and time formatting
'                oSht.Range("E3").NumberFormatLocal = "m/d/yyyy;@"
'                oSht.Range("E4").NumberFormatLocal = "[$-en-US]h:mm:ss AM/PM;@"
                oSht.Range("J3").Value = .Offset(, 1).Value
                oSht.Range("E7").Resize(51, 1).Value = Application.Transpose(.Offset(, 2).Resize(1, 51).Value)
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

    insira a descrição da imagem aqui

    • 1

relate perguntas