Makro na smazani radku se znakem - nefunguje Vyřešeno

[Mirdad69]

Zdravím,
upravil jsem trochu to makro. Číslo v buňce C1 označuje pozici znaku "," v části textu po mezeře po očištění od ".".
Takže pro formát #.###.###,## se jedná o 8. pozici v řetězci #######,##.
Chce si to pohrát s tou podmínkou:

Kód: Vybrat vše

If (Left(txt, 1) = "," And Len(strng) = Pos) Then GoTo lbl2

[Reklama]

[jiri255]

tak jsem odzkoušel ten upraveny excel "mazani" a teď už to v něm maže vše, tak jak má, ale potom jsem to pustil
na tom s daty a všiml jsem si ještě jedné drobnosti..... nevím proč , ty data jsem do toho vzoru nedával,
protože neobsahují žádný formát, který by se rovnal tomuto "##.###.###,##" obsahují lomítka, dvojtečku,
hvězdičku atd. a nemyslel sem si, že by to bylo důležité, ale včetně čárky obsahují 9 znaků a odstraní je to taky...
přitom by je to tam mělo nechat
přidal jsem je do toho excelu viz příloha

[Mirdad69]

Makro jsem předělal, že když se narazí na jiný znak než cifra nebo ",", tak se strng vyčistí.

[jiri255]

bezvadné teď to funguje naprosto perfektně.... děkuji mnohokrát za pomoc

Mám ještě jednu věc na, které jsem se zasekl, ale přijde mi zbytečné zakládat další téma...
Pomocí záznamu maker jsem si vytvořil několik dalších maker, která jsem k úpravě potřeboval,
ale teď se nemůžu hnout potřeboval jsem, aby mi excel udělal výstup do .txt, což mi udělá i ho
uloží na C: jenže ten otevřený excel zároveň přejmenuje na ten uložený .txt např: "mazani.txt"
a makra co se spouští dál se na tom zaseknou a nepokračují, protože nenašli "mazani.xls"
Nevíte jestli není nějaké makro, které by ten export do .txt provedlo nějak na pozadí?

[Mirdad69]

Nevím, zda je to pro tento případ vhodné a zda jsem to pochopil správně, ale jde to třeba takto:
Ten požadovaný list se zkopíruje do nového sešitu a teprve ten se uloží.

Kód: Vybrat vše

Sub Makro2()
    ActiveSheet.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Excel\PC-help\Mazani.txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close
End Sub



[jiri255]

tak jsem otestoval a to makro vytvoří mazani.txt, ale potom to hned vyhodí hlášku zdali to chci uložit a dokud ji nepotvrdím,
tak další makra nepokračují
Šlo by tam ještě definovat, že by to makro ten .txt ukládalo jako text oddělený tabulátory?

[Mirdad69]

Upraven kód v předešlém příspěvku.

[jiri255]

tak teď už to nic nehlásí, akorát to v tom .txt na začátek a konec řádku přidává uvozovky,
ale když jsem to zkoušel uložit ručně, tak to tam uvozovky nepřidává lze i toto nějak v tom
makru ošetřit?

[Mirdad69]

Tak snad pomůže toto :

Kód: Vybrat vše

Sub Makro10()
Application.DisplayAlerts = False
    Columns("A:A").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "D:\PC-Help\Mazani.txt", FileFormat:= _
        xlTextPrinter, CreateBackup:=False
    ActiveWindow.Close
End Sub


[jiri255]

děkuji za pomoc to je přesně ono.... super vše je tím vyřešeno