PC-HELP.CZ

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Š

Dobrý den,
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

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.

PC-HELP.CZ

Makro pro smazání

Makro pro smazání

Re: Makro pro smazání Vyřešeno

Re: Makro pro smazání