Selectieve kollommen kopieren na selectie lijst

[Rhugien]

Hallo Vba'ers

Ik heb in een Excel een VBA code staan waabij door selectie in een lijst de gehele regel wordt gekopieert naar een ander blad. Ik heb overigens deze code niet zelf geschreven dus begrijp deze deels.

Nu wil ik graag zo'n zelfde soort mogelijkheid erbij bij een zelfde soort lijst in hetzelfde blad, alleen dan wil ik een aantal kolommen benoemen die gekopieert moeten worden naar een ander blad.

Kan iemand mij opweg helpen?

Alvast bedankt,

Wellicht interresant, de vba code;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRij As Long
     On Error Resume Next
    lRij = Worksheets(Range("Q" & Target.Row).Value).Range("p65536").End(xlUp).Row
    If lRij < 10 Then lRij = 10
    If Chr(64 + Target.Column) = "R" Then
        If Worksheets(Range("R" & Target.Row).Value).Range("R" & lRij).Value <> "" Then lRij = lRij + 1
        If Chr(64 + Target.Column) = "R" Then
            For ikol = 2 To 20
                Worksheets(Range("Q" & Target.Row).Value).Cells(lRij, ikol).Value = Worksheets("Nieuwe Update's").Cells(Target.Row, ikol).Value
            Next

        End If
        If Target.Value = "-- Afgehandeld --" Then
        Target.EntireRow.Hidden = True
        End If
        If Target.Value = "" Then
        Target.EntireRow.Hidden = False
        End If
        If Target.Value = "- Ja -" Then Worksheets("Ja").Activate
        End If
        
        End Sub

 

[Roncancio]

Hoe wil je de kolommen bepalen die gekopieerd moeten worden?

Met vriendelijke groet,


Roncancio

 

[Rhugien]

Bij de huidige code ben ik erachter gekomen dat ik deze kan toewijzen door het stukje

For ikol = 2 To 20

aan te passen, deze geven de locatie weer. 2 = B, 3 = C etc.

Alleen kan hier niet bv. kolom 2, 4 en 6 selecteren.

Gr. Rens

 

[Roncancio]

Bij de huidige code ben ik erachter gekomen dat ik deze kan toewijzen door het stukje

For ikol = 2 To 20

aan te passen, deze geven de locatie weer. 2 = B, 3 = C etc.

Alleen kan hier niet bv. kolom 2, 4 en 6 selecteren.

Gr. Rens

For ikol = 2 To 20 [COLOR="Red"][B]STEP 2[/B][/COLOR]

Met vriendelijke groet,


Roncancio

 

[Rhugien]

Herstel;

Ik heb de code nu als volgt ingevuld, en werkt * hoera * ;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRij As Long
     On Error Resume Next
    lRij = Worksheets(Range("Q" & Target.Row).Value).Range("p65536").End(xlUp).Row
    If lRij < 10 Then lRij = 10
    If Chr(64 + Target.Column) = "R" Then
        If Worksheets(Range("R" & Target.Row).Value).Range("R" & lRij).Value <> "" Then lRij = lRij + 1
        If Chr(64 + Target.Column) = "R" Then
            For ikol = 2 To 20
                Worksheets(Range("Q" & Target.Row).Value).Cells(lRij, ikol).Value = Worksheets("Nieuwe Update's").Cells(Target.Row, ikol).Value
            Next
            End If
            End If
[COLOR="Red"][B]    lRij = Worksheets(Range("P").Value).Range("p65536").End(xlUp).Row
    If lRij < 10 Then lRij = 10
    If Chr(64 + Target.Column) = "P" Then
        If Worksheets(Range("P").Value).Range("P").Value = "- Ja -" Then lRij = lRij + 1
        If Chr(64 + Target.Column) = "P" Then
            For ikol = 2 To 20
                Worksheets(Range("P" & Target.Row).Value).Cells(lRij, ikol).Value = Worksheets("Nieuwe Update's").Cells(Target.Row, ikol).Value
            Next
            End If
            End If[/B][/COLOR]        If Target.Value = "-- Afgehandeld --" Then
        Target.EntireRow.Hidden = True
        End If
        If Target.Value = "" Then
        Target.EntireRow.Hidden = False
        End If
              
        End Sub

Hij staat nu zo dat bij selectie - Ja - de regel wordt gekopieert naar het gelijknamige blad.
Wat moet ik nu wijzigen als ik een willekeurig blad wil toewijzen via de naam daarvan?
Thanks,

 

[Roncancio]

Wat bedoel je precies met toewijzen?

Met vriendelijke groet,


Roncancio

 

[Rhugien]

Wanneer ik in de lijst - Ja - selecteer de tekst laat kopieren naar blad1, 2 of drie.
Zodat ik 1 van deze bladen in de formule kan verwerken.

 

[Roncancio]

Wanneer ik in de lijst - Ja - selecteer de tekst laat kopieren naar blad1, 2 of drie.
Zodat ik 1 van deze bladen in de formule kan verwerken.

De gegevens worden nu al gekopieerd naar de cel die in dezelfde rij in de O-kolom is gegeven.

Met vriendelijke groet,


Roncancio