Czesc.
prosta sprawa:
Sub WstawNazwyArkuszy()
Dim oWK As Worksheet
Dim lStop As Long, i As Long
Const lStart As Long = 2
For Each oWK In ThisWorkbook.Worksheets
lStop = oWK.Range("A" & oWK.Rows.Count).End(xlUp).Row
If lStart <= lStop Then
For i = lStart To lStop
oWK.Range("W" & i).Value = oWK.Name
Next i
End If
Next oWK
End Sub
pozdrawiam
admin
Cytat:Witam,
Mam taki problem. Mam plik gdzie jest kilka arkuszy. Chciałem żeby makro pewnie jakaś pętla pobierało nazwę arkusza i wklejała tą nazwę w odpowiednie komórki. Załączam plik. Czyli wynik miał by być taki: W arkuszu "Tab1" nazwa Tab1 pojawi się w komórkach W2,W3 i W4 (czyli tylko w rekordach gdzie są dane). W arkuszu "Tab2" nazwa Tab2 pojawi się w W2,W3,W4,W5. W arkuszu "Tab3" nazwa Tab3 pojawi się tylko W2. Oczywiście jak by było więcej arkuszy to makro powinno przejść przez wszystkie. |