Sub Makro1()
For i = 5 To Sheets.Count
If Sheets(i).Range("C3") <> "" Then
Sheets(i).Name = Sheets(i).Range("C3")
Else: Sheets(i).Name = "Training " & Sheets(i - 1).Range("C3")
End If
Next i
End Subcitovat
Zaslal/a Ontik 16.10.2022 13:42
Ahoj všem, prosím o radu. Jde nějakým způsobem automaticky pojmenovat listy podle konkrétní buňky? Mám sešit, kde bude cca 100 listů. První čtyři listy mají své jméno, od páteho listu bych potřeboval pojmenovávat. Jméno listu5=buňkaC3 z listu5. Jméno listu6=slovo Training+buňkaC3 z předešlého listu5.Jméno listu7=buňkaC3 z listu7. Jméno listu8=slovo Training+buňkaC3 z předešlého listu7. Přílohou zasílám vzor.
Předemmoc děkuji
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.