kopieren

[poom]

Goede middag,

In een bestand waar in kolom "J" een aantal namen staan wil ik uit een extern bestand een aantal
namen kopieren onder de namen in kolom "J".
Ik heb hiervoor de onderstaande code gemaakt, maar deze werkt niet.
Mijn vraag is nu wat doe ik fout?
Wie helpt mij?
Bij voorbaat dank. gr. poom.

Sub Macro1()

        Application.ScreenUpdating = False
        
    Dim Mijnblad As Worksheet
        For Each Mijnblad In Worksheets
        Mijnblad.Select
        Mijnblad.Unprotect "zacharias"
    Next Mijnblad
    
    Dim LastRow As Long
    
        Range("J1").Select
        ChDir "C:\Spelers"
        Workbooks.Open Filename:="C:\Spelers\spelers.xls"
        Range("D812:D832").Select
        Selection.Copy
        ActiveWindow.Close
        
   With ActiveSheet
        LastRow = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
   End With
   
        ActiveSheet.Paste
        Range("A1").Select
    
    
    For Each Mijnblad In Worksheets
        Mijnblad.Select
        Mijnblad.Protect "zacharias"
    Next Mijnblad
    
        Application.ScreenUpdating = True
    
End Sub

 

[edmoor]

Je verteld niet wat er dan niet werkt, maar deze doet het bij mij prima:

Sub Macro1()
    Dim Mijnblad As Worksheet
    Dim LastRow As Long

    Application.ScreenUpdating = False
        
    For Each Mijnblad In Worksheets
        Mijnblad.Select
        Mijnblad.Unprotect "zacharias"
    Next Mijnblad

    Workbooks.Open Filename:="C:\Spelers\spelers.xls"
    Range("D812:D832").Copy
    ActiveWindow.Close
        
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
    End With

    Range("J1").Select
    ActiveSheet.Paste
    Range("A1").Select

    For Each Mijnblad In Worksheets
        Mijnblad.Select
        Mijnblad.Protect "zacharias"
    Next Mijnblad
    
    Application.ScreenUpdating = True
End Sub

Het je wel leesrechten op "C:\Spelers\spelers.xls"? Kun je dat document wel direct met Excel openen en lezen?
Wat is de bedoeling van LastRow? Die gebruik je verder niet.

Verder heb ik een regel verwijderd, een regel aangepast en de structuur netter gemaakt.

 

[poom]

edmoor,

Ik heb je code ingepast in mijn programma'tje en het werkt uitstekend!
Bedankt voor je hulp en nog een goed jaar toegewenst!

gr. poom.

 

[edmoor]

Ok dan. En hetzelfde gewenst