MS Excel

Zdravím, potřeboval bych poradit s makrem. Mám složku na ploše, ve které mám 8 xlsx sešitů (názvy třeba sesit-1, sesit-2 atd.) a já potřebuji vytvořit makro, aby mi ve všech odstranil určitý sloupec (v tomto případě sloupec FM) a vše opět uložil (přepsal). Moc děkuji za čas a ochotu.

Zaslat odpověď >

elninoslov(24.1.2023 14:13)#054282

Viete, že je to dosť riskantné?

Skúšať VÝHRADNE NA KÓPII CELÉHO ADRESÁRA !!!

Ak je tých súborov viac, je výhodné použiť novú inštanciu Excelu. Približne takto. Je tam nejaká kontrola zle zadaného stĺpca, neexistujúceho listu. A to som tam ešte nedal kontrolu, či je súbor už otvorený, a či pri ukladaní nedošlo k chybe. Počet vecí, na ktoré treba myslieť je veľa...

Příloha: zip

54282_upravovane-zosity.zip (39kB, staženo 13x)

citovat

PavelJanec(25.1.2023 11:19)#054288

Elnino, vy jste to ještě dovedl k dokonalosti s výběrem sloupce. Moc děkuji!citovat

PavelJanec(31.5.2023 6:01)#054968

Zdravím po delší době.
Elnino, od té doby, co jste mi poradil s makrem na odstranění určitých sloupců ze sešitů v určité složce toto makro hodně používám a velmi mi to usnadnilo práci (Ještě jednou moc děkuji!). Jen bych se ještě zeptal. Lze do té buňky, kde se vkládá který sloupec se má odstranit vložit hodnotu, aby se odstranily sloupce třeba na přeskáčku? Když například vložím FM, odstraní se sloupec FM, když vložím FM:FN, odstraní se tyto dva za sebou jdoucí sloupce, ale co mám zadat, když chci například odstranit sloupce, které nejdou za sebou? Například A, C, FM? Moc děkuji za ochotu!citovat

elninoslov(31.5.2023 10:29)#054972

Do deklarácií pridajte
Dim S() As String, i As Integer
A potom toto
Stlp = wsOdstranovanie.Range("B1").Value
Stlp = Stlp & ":" & Stlp
nahraďte týmto
S = Split(wsOdstranovanie.Range("B1").Value, ",")
For i = 0 To UBound(S)
S(i) = S(i) & IIf(InStr(1, S(i), ":") > 0, "", ":" & S(i))
Next i
Stlp = Join(S, ",")
a ešte pred
Set appExcel = New Excel.Application
pridajte
Stlp = Replace(rng.Address(0, 0), ",", ";")
Zaujímavé je, že v obslužnom Exceli sa oblasti stĺpcov v Range odkazujú pomocou čiarky A:A,C:C,FM:FN no v skrytej druhej inštancii Excelu sa odkazujú pomocou bodkočiarky A:A;C:C;FM:FN. Inak to vedie k chybe. Každopádne Vy po úprave zadávate nasledovný formát do bunky B1
Napr.:
A
A,C
A,C,FN
A,C,FM:FN
A:A,C:C,FM:FN
A:B,G,FM:FO
...
a obdobné kombá

citovat

PavelJanec(31.5.2023 10:39)#054974

Elnino, Vy jste snad z jiné planety....

Moc děkuji, funguje to perfektně!citovat

Téma: Makro na editaci externích sešitů.

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje