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

• #28753 the radish senior tag

  Új Válasz 2015-09-23 18:04:50 #28753

  Ú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

  

  the radish

  senior tag

  Adott egy elég hosszú makró, aminek a közepén, ha munka1 A1 = 1 le kéne futnia Szatocs1981 által közzétett makrónak:

  Dim Zelle As Range
  
  For Each Zelle In Selection.Cells
  Zelle.NumberFormat = "@"
  Zelle.Value = Replace(Zelle.Value, ",", ".")
  Next Zelle

  Ezzel semmi probléma nem is lenne, "THEN" kóddal meg is oldanám, de nem ilyen egyszerű.
  A makrónak folytatódnia kell, akár így, akár úgy de ugye ez középen van, tehát nem kéne kilépnie ha a feltétel nem teljesül, viszont a fenti kódnak csak a feltétel teljesülése esetén kéne lefutnia.
  A "Case" kapcsoló megint nem lenne jó, mert akkor két makrót kéne fenntartani, ráadásul - amint írtam - a makró közepén lenne az elágazás.

  Lehet, hogy nagyon egyszerű, de nem jövök rá.

  Előre is köszönöm.

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