Ú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

• #20075 Delila_1 veterán Latis #20071

  Új Válasz 2014-01-14 10:17:02 #20075

  Ú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

  

  Delila_1

  veterán

  válasz Latis #20071 üzenetére

  adat=left(cells(j,1),search(":",cells(j,1))-1)

  Nem próbáltam ki!

• #20031 Mutt senior tag Latis #19997

  Új Válasz 2014-01-10 20:29:59 #20031

  Ú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 #19997 üzenetére

  Hali,

  Azt szeretném hogy egy változóba olvassa ki a : előtti információt.

  Egy makrós válasz már jött erre m.zmrzlina-tól. Itt egy másik:

  Sub Kettopont2()
  Dim vEredmeny
  Dim vTomb
  
  vTomb = Split(ActiveCell, ":")
  vEredmeny = vTomb(0)
  
  End Sub

  üdv

• #20000 m.zmrzlina senior tag Latis #19997

  Új Válasz 2014-01-09 13:10:27 #20000

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Latis #19997 üzenetére

  Próbáld ezt:

  strSzöveg = Left(ActiveCell.Value, Application.WorksheetFunction.Find(":", ActiveCell.Value) - 1)

  Természetesen a tartományt (Activecell) át kell írnod ha nem a kijelölt cella tartalmából akarsz olvasni.

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