MS Excel

A) To preto, že ste si nevšimol, že používam kódové meno listu. Je nezávislé na názve listu na jeho ušku. Ale môžete používať aj to namiesto wsSeznam dáte Worksheets("Seznam")

B) Neviem, či rozumiem. Vy chcete mať tlačítka v niekoľkých stĺpcoch a kopírovať list, ktorého meno je uvedené vedľa tlačítka vľavo ? V tom prípade iba upravíte začiatok hlavného makra. Viď príloha.

No a samozrejme, keď ste si vybral nejnevhodnejší variant, s potrebou úprav volacích makier, tak si pridaním tlačítok musíte ako som minule popísal urobiť zmeny (vytvoriť kópiu makra, priradiť správne makro správnemu tlačítku, pomenovať ...)

Možno by pre Vás bolo vhodnejšie, ak by ste mal názov listu rovno na tlačítku, a vo volacích procedúrach jednotlivých tlačítok by bolo napevno namiesto Application.Caller zadané meno listu. Potom samozrejme aj maličká úprava jednej premennej v hlavnom makre.
Začiatok makra by potom vyzeral
Sub ExportList(JmenoListu As String, Vzorce As String, Mazat As String)
Dim NewWB As Workbook, Radku As Long, Posun As Long, SloupceVzorcu() As String, SloupceMazat() As String, i As Integer, rngMazat As Range

If ListExist(JmenoListu) Then 'Kontrola existencie listu, pre prípad nesprávneho zápisu v stĺpci A
...
a volacie makrá
Sub Export1() 'Tlačítko 1
ExportList "AAA", "E,G", "L,M"
End Sub
a obdobne

PS: Zošit obsahoval 3308 nefunkčných Definovaných názvov!citovat

Měl bych ještě jeden kosmetický dotaz. S makrem nemám žádný problém, tak jak jste mi to připravil tak to funguje bezvadně.
Ted mám spíš kosmetický problém viz příloha. Zkoušel jsem to na X různých listech a souborů a pokaždé se nový soubor vygeneruje jinak. Přílohou zasílám, že jsou označené položky a ještě na konci excelu. Na jiném to bylotřeba uprostřed excelu a občas to je i na začátku tak jak to má být a nebo i s jiným zoomem. Zkoušel jsem nastavit plochu tisku, srovnat výkazy, ale nepodařilo se mi to najít to, aby se nový excel pokaždé vygeneroval na prvním řádku.

Máte prosím radu, podle čeho bych listy mohl nastavit tak aby se generovali stejně?citovat

Včera jsem v excelu pracoval a dělal úpravy a na konci dne opět zkusil. Výsledek exportu byl zase na jiném místě, tak tomu sám moc nerozumím.

Application.Goto .Cells(1, 1), True, vypadá že funguje, vyzkoušel jsem to na všech co mám zatím k dipozici a krásně do odkazuje na A1.

Děkuji Vám moc a přeji hezký den citovat