Cel kopieren

[Jan1978]

Hallo helpers,

Bij de volgende code loopt die steeds vast bij Range(Cells(n, "A")).Copy.
Ik ben al aardig aan het zoeken en proberen gewees maar ik kom er niet uit.
De bedoeling is de de code gaat kijken waar in kolom G een 1 staat staat er in een van de cellen een 1 dan moet die van dezelfde cel maar dan in kolom a een kopie naar het volgende blad zetten en verder zoeken in kolom G naar een 1.

sub()
    Dim rij As Long
    Dim n As Long
    Dim src As Worksheet
    Dim trg As Worksheet
    Set src = Sheets("bc")
    Set trg = Sheets("fout")
    
    Application.ScreenUpdating = False
    rij = trg.[A65536].End(xlUp).Row
    For n = 1 To Blad1.[A65536].End(xlUp).Row
        If Cells(n, "G").Value = "1" Then
            Range(Cells(n, "A")).Copy
            trg.Cells(rij, "1").PasteSpecial
            rij = rij + 1
        End If
    Next
End Sub

Groet jan

 

[MDN111]

De verwijzing Cells(n, "G") lijkt mij niet OK. Als de letter "G" een kolom voorstelt dan gebeurt de verwijzing als Cells(n,7).
Zelfde opmerking voor de verwijzing Cells(rij, "1").
De verwijzing Range(Cells(n, "A")) wordt dan Cells(n, 1) (Range object is hier niet nodig).

Grtz,
MDN111.