Új hozzászólás Aktív témák

• #28356 szatocs1981 aktív tag cekkk #28353

  Új Válasz 2015-09-02 12:04:35 #28356

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  szatocs1981

  aktív tag

  válasz cekkk #28353 üzenetére

  Jelöld ki a cellákat, amiket, módosítani szeretnél, majd futtasd le a következö makrót:

  Sub Makro1()
  
  Dim Zelle As Range
  
  For Each Zelle In Selection.Cells
  
  Zelle.Value = Left(Zelle.Value, 1) & Right("000" & Right(Zelle.Value, Len(Zelle.Value) - 1), 4)
  
  Next Zelle
  
  End Sub

  A kijelölt cellákat az alábbiak szerint módositja:
  Az elsö karakter változatlan marad, majd hozzátol 3db 0-t, végül levágja 4 jegyüre!

  Elötte készíts mindenképpen biztonsági másolatot!

Új hozzászólás Aktív témák