Gegevens uit regel naar 2e blad in bepaalde cellen kopieren met macro

[wjgvanooijen]

Hallo,

Ik ben op zoek naar een manier om doormiddel van de bestaande regelnummers in excel gegevens op dat regelnummer te kunnen kopiëren naar het tweede blad.

Wie weet er een macro code die dit kan bewerkstelligen? (Zie bijlage).

Alvast mijn dank voor jullie hulp.

Bekijk bijlage Regelnummer inhoud cellen.xlsm

 

[VenA]

bv

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$1" Then Exit Sub
    If Target > 0 And IsNumeric(Target) Then Range("B3:B5") = Application.Transpose(Sheets("Data").Cells(Target, 1).Resize(, 3))
End Sub

 

[wjgvanooijen]

Dit script gaat inderdaad in de richting die ik bedoel. Ik zoek echter nog naar een mogelijkheid dat ik in het voorbeeldblad nog regels kan overslaan en dat niet alle gegevens(cellen) in de betreffende regel uit het tabblad data mee gaan komen. Zie bijlage.

Bekijk bijlage Regelnummer inhoud cellen v2.xlsb

 

[VenA]

Zo beter?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$1" Then Exit Sub
    If Target > 0 And IsNumeric(Target) Then
      With Sheets("Data")
        ar = Array(.Cells(Target, 1), .Cells(Target, 2), .Cells(Target, 3), "", .Cells(Target, 4), "", .Cells(Target, 5))
      End With
     Range("B3:B9") = Application.Transpose(ar)
    End If
End Sub

 

[wjgvanooijen]

Dit is stukken beter. Ik heb de code als volgt ingericht:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$4" Then Exit Sub
If Target > 0 And IsNumeric(Target) Then
With Sheets("Retouren Leveranciers")
ar = Array(.Cells(Target, 7), .Cells(Target, 8), .Cells(Target, 11), .Cells(Target, 10), .Cells(Target, 12), "", .Cells(Target, 9))
End With
Range("B6:B12") = Application.Transpose(ar)
End If
End Sub

Ik loop er alleen nog tegenaan dat wanneer een cel in het datagedeelte niet ingevuld is, ik dan een foutmelding krijg. Wat natuurlijk kan gebeuren omdat bepaalde gegevens niet voor handen zijn. Het voorbeeldblad zou dan ook gedeeltelijk ingevuld moeten kunnen worden door de macro.

 

[VenA]

Zet overal .value achter dus

.Cells(Target, 7).value, .Cells(Target, 8).value etc

 

[wjgvanooijen]

Bedankt voor de tip. Werkt uitstekend :thumb: