Kolom A filldown in alle sheets

[wiki]

Wat doe ik fout?

Sub TEST()
 
 
 Dim WS As Worksheet
For Each WS In Worksheets
myLastRow = Range("b65536").End(xlUp).Row
Range("a1").Value = WS.Name
With Range("a1:a" & myLastRow)
   .FillDown
   .Copy
   .PasteSpecial Paste:=xlValues
End With
   
   
Next WS


End Sub

Ik wil in iedere worksheet in het workbook in kolom A de werkbladnaam, maar de code loopt maar in 1 worksheet en geeft wel alle werkblad namen weer.

gr wim

 

[erik1235]

Is het dit wat je zoekt?

 Sub TEST()
 
 
 Dim WS As Worksheet
 Dim myLastRow As Integer
 
For Each WS In Worksheets
    myLastRow = 4 'Range("B4").End(xlUp).Row
    WS.Range("a1").Value = WS.Name
    With WS.Range("a1:a" & myLastRow)
        .FillDown
        .Copy
        .PasteSpecial Paste:=xlValues
    End With
   
   
Next WS


End Sub

Ik heb myLastRow op 4 gezet omdat die bij mij altijd 1 was. Daardoor miste je het effect van de filldown.

Verder heb ik voor de range WS toegevoegd zodat je ook effectief naar een andere worksheet gaat om te schrijven.

 

[wiki]

Bedankt:thumb:
Heb het aangepast naar:

Sub TEST()
 
 
 Dim WS As Worksheet
 Dim myLastRow As Integer
 
For Each WS In Worksheets
    myLastRow = WS.Range("b65536").End(xlUp).Row
    WS.Range("a1").Value = WS.Name
    With WS.Range("a1:a" & myLastRow)
        .FillDown
        .Copy
        .PasteSpecial Paste:=xlValues
    End With
   
   
Next WS


End Sub

en dat werkt prima.

gr wim

 

[erik1235]

Ik heb ook 2 vraahjes voor jou:

1) geeft myLastRow = WS.Range("b65536").End(xlUp).Row ook altijd 1 bij jou?

2) een tijd geleden stelde jij een vraag over lijsten in excel (data>lijst>lijst maken) en beveiliging werkblad. Hoe heb je uiteindelijk dat probleem opgelost. Ik wardt namelijk met hetzelfde probleem geconfronteerd op dit moment. Ik heb dan ook mijn vraag verbonden aan jouw bericht van destijds.