Makro pro smazání Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Martin Švach
nováček
Příspěvky: 12
Registrován: březen 16
Pohlaví: Nespecifikováno
Stav:
Offline

Makro pro smazání

Příspěvekod Martin Švach » 11 bře 2016 09:17

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.


Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

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

Příspěvekod cmuch » 11 bře 2016 12:59

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

Martin Švach
nováček
Příspěvky: 12
Registrován: březen 16
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro pro smazání

Příspěvekod Martin Švach » 11 bře 2016 13:26

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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů