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

• #27946 #20368384 törölt tag

  Új Válasz 2015-07-28 12:34:49 #27946

  Ú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

  

  #20368384

  törölt tag

  Sziasztok!
  Egy viszonylag bonyolult táblázattal való ismétlődő műveletek ültettem át makróra és elakadtam a VBA-an és már mindenhol szétnéztem a válasz után:

  Van egy oszlopom, amiben vannak értékek, szeretném a második cellától az utolsóig amiben még vannak adatok kijelölni és művelet csinálni velük.

  Range("A2").End(xlDown).Select

  Ámde vannak olyan sorok melyek üresek, még mielőtt tényleg véget érne az adott tábla és ott megáll a szkript, illetve csak azt az egy cellát jelöli ki.

  1. a végéig kellene, hogy menjen
  2. az összeset ki kellene egyben jelölnie

  Előre is köszönöm

  A többi már megvan, utána egy szöveget számmá alakító szkript jön, azt csak extraként másolom ide:
  Selection.Replace What:="Ft", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  Dim rng As Range
  Dim arr As Variant
  Dim i As Long
  Set rng = Selection
  'removes character 160
  'non-breaking space
  'from selected cells
  If rng.Cells.Count = 1 Then
  ReDim arr(1 To 1, 1 To 1)
  arr(1, 1) = rng.Value
  Else
  arr = rng.Value
  End If

  For i = 1 To UBound(arr, 1)
  arr(i, 1) = Replace(arr(i, 1), Chr(160), "")
  Next i

  rng.Value = arr

  For Each xCell In Selection
  xCell.Value = xCell.Value
  Next xCell

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