Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - Název listu v buňce pomocí VBA
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| Název listu v buňce pomocí VBA - diskuze na toto téma |
| Ahoj, zpracovávám data pomocí makra.
Data importuji z CSV. Tím mi vznikne list s pokaždé jiným názvem (podle názvu importovaného CSV) Potřebuji zkopírovat název aktivního listu do buňky na jiném listu (např. List1)
Postup:
import CSV
zkopírovat název aktivního listu
Vložit do buňky A1 na listu List1
Pokud nahrávám makro, tak při kopírování se mi do makra zapíše textový název listu, ale ne proměnná. Poradí někdo, co s tím? Děkuji. Za predpokladu, že List1 má CodeName "List1" tak : List1.Range("A1").Value=ActiveSheet.Name. Najlepšiu radu dostanete vždy po priložení prílohy s príkladom. Odpověď Nakonec jsem problém vyřešil takto:
Sheets(1).Select
NazevListu = ActiveSheet.Name
Sheets("Data").Select
Range("B34").Value = NazevListu
Sheets(1).Select
Range("A1").Select
P.S. když založím nové téma, tak mi fórum neumožní vložit přílohu ... Odpověď (Len z hlavy, bez skúšania) - tie Select používajte čo najmenej:
Worksheets("Data").Range("B34").Value = Worksheets(1).Name, ak potrebujete následne prepnúť na list Worksheets(1) a tam na bunku A1, použite napr. Application.Goto Worksheets(1).Range("A1"), True Odpověď |
