< návrat zpět

MS Excel


Téma: Makro-vytvoř. nového listu s odstraněním vzorců rss

Zaslal/a 30.8.2019 8:42

Zdravím,
bohužel na to nemůžu přijít a tak bych Vás rád poprosil o radu.
Potřeboval bych makro na zkopírování listu AAA, který by se otevřel v novém okně a zároveň se ve sloupcích F a H vymazali veškeré vzorce. List bych rád v novém okně, abych jej rovnou mohl uložit pod jiným názvem.

Předem děkuji za pomoc a přeji hezký den.
Tom

Zaslat odpověď >

Strana:  « předchozí  1 2
#044186
elninoslov
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!
Příloha: zip44186_44120_test1.zip (47kB, staženo 3x)
citovat
#044215
avatar
Děkuji Vám za celé makro a za Vaši trpělivost :)citovat
#044228
avatar
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ě?
Příloha: png44228_ooo.png (72kB, staženo 6x)
44228_ooo.png
citovat
#044231
elninoslov
Ja keď si tu na skúšobných dátach urobím aj prehľady, tak či tak mi to kopíruje správne aj s prehľadmi s označenými bunkami, všetko. Musí byť zádrhel v tých Vašich súboroch, môžete mi jeden poslať neverejne na mail?

Ak ide len o to označenie či nascrolovanie, dá sa pridať jeden riadok
Application.Goto .Cells(1, 1), True
za riadkom
If Not rngMazat Is Nothing Then rngMazat.ClearContents 'Vymazanie hodnôt stĺpcov

Ak ide o zlé kopírovanie (rozmiestnenie a pod) musím vidieť reálny súbor.citovat
#044238
avatar
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 1citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

nahodne cisla

mepexg • 18.9. 12:09

nahodne cisla

pavol14pavol • 17.9. 21:46

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:21

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:15

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:13

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 11:00

nová registrace

kabaka • 17.9. 10:50