Dobrý den,
chtěl bych se zeptat, zda-li je možné vytvořit makro, aby pracovalo tak, jak uvedu níže.
Z databáze dostávám tento výstup:
33 56 668 3 514-5|ložený|4|Falls|24,45|55|79,45|42||13,5|černé uhlí - Gdansk/Szczecin Port C. - Ostrava hl.n. - 352000123|Chałupki|Ostrava hl.n.|Chałupki|Ostrava hl.n. - USL||879502||||29|brzda na podvozku|36601215|52477
33 54 668 7 063-1|ložený|4|Falls|26,59|52,51|79,1|52||13,52|černé uhlí - Gdansk/Szczecin Port C. - Ostrava hl.n. - 352000123|Chałupki|Ostrava hl.n.|Chałupki|Ostrava hl.n. - USL||879502||||20|brzda na podvozku|36601204|2805
Potřeboval bych, aby makro automaticky vymazalo vše, co je za 12-místným číslem. Takže z prvního řádku by mělo zůstat jen 33 56 668 3 514-5.
Moc by mi to ulehčilo práci, ale bohužel jsem zatím sám nepřišel na způsob, jak to udělat.
Předem díky za pomoc.
MŠ
Makro pro smazání Vyřešeno
-
- nováček
- Příspěvky: 12
- Registrován: březen 16
- Pohlaví:
- Stav:
Offline
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Makro pro smazání Vyřešeno
Dobrý den,
nestačil by vzorec do vedlejšího sloupce?
Jinak makro by mohlo vypadat takto
nestačil by vzorec do vedlejšího sloupce?
Kód: Vybrat vše
=ZLEVA(A1;17)
Jinak makro by mohlo vypadat takto
Kód: Vybrat vše
Sub SmazZnaky()
Dim radek As Long
Application.ScreenUpdating = False
radek = Cells(Rows.Count, "A").End(xlUp).Row
For radek = radek To 1 Step -1
Cells(radek, 1) = Mid(Cells(radek, 1), 1, 17)
Next
Application.ScreenUpdating = True
End Sub
-
- nováček
- Příspěvky: 12
- Registrován: březen 16
- Pohlaví:
- Stav:
Offline
Re: Makro pro smazání
Moc děkuju za rychlou pomoc. :) Vzorec úplně stačí...
Ani nevíte jak jste mi pomohl, kolik práce ušetřil. Pro Vás banalita, pro mě to byl hlavolam.
Ani nevíte jak jste mi pomohl, kolik práce ušetřil. Pro Vás banalita, pro mě to byl hlavolam.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1142
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 40 hostů