vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest środa, 28 lipca 2021 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

VBA makro dopisujące nazwę arkusza


otwartyotwarty rozpoczął: darko2000 postów: 2



napisał: admin
postów: 604


umieszczony:
9 lipca 2021
09:53

  
nazwa pliku rozmiar
przyk.xlsm 23.45 kB

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.
Reklama
napisał: darko2000
postów: 1


umieszczony:
8 lipca 2021
19:53

  
nazwa pliku rozmiar
przyk.xlsx 12.32 kB

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.


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z