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

• #17745 lapa veterán Kobe #17742

  Új Válasz 2013-04-15 19:50:12 #17745

  Ú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

  

  lapa

  veterán

  válasz Kobe #17742 üzenetére

  ez micsoda?

  LineNum2 = LineNum2 + 1

  amúgy ettől függetlenül elég csúnya a sok select meg activecell meg ilyenek. valami ilyesmi is működne szerintem:

  Dim lngLastRow
  lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Columns("X").Insert Shift:=xlToRight
  range("X1").value = "common_id"
  Range("X2").Select
  End Sub

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