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

• #20145 Mutt senior tag Latis #20071

  Új Válasz 2014-01-18 19:30:51 #20145

  Ú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

  

  Mutt

  senior tag

  válasz Latis #20071 üzenetére

  Hali,

  ..menjen végig az oszlop minden elemén a kiolvasás de csak a ":"-ig tartalmazó részt olvassa be és írja egy másik cellába...

  Igazából makró nélkül függvénnyel is meg lehet oldalni, de itt makrós megoldás, amely a kijeltölt oszlopon megy végig és teszi tőle 2-vel jobbra az értékeket (ha nincs kettőspont a szövegben, akkor az eredeti szöveget másolja):

  Sub KettosPont()
  Dim rngAdatsor As Range
  Dim cella As Range
  Dim Szetvalaszt 'ebben a tömben tároljuk a tagolt eredményt
  Const eltolas As Long = 2 'ennyivel jobbra lesz az eredmény
  
  'a kijelölés és a használt cellák metszetén fogunk végig menni
  Set rngAdatsor = Intersect(Selection, Selection.Parent.UsedRange)
  
  For Each cella In rngAdatsor
  'csak ha van adat a cellában, akkor célszerű feldolgozni
  If Len(cella) > 0 Then
  Szetvalaszt = Split(cella, ":")
  cella.Offset(, eltolas).Value = Szetvalaszt(0)
  End If
  Next cella
  
  End Sub

  üdv

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