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

• #12622 Delila_1 veterán archen #12621

  Új Válasz 2012-01-12 12:31:32 #12622

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

  Sub Tartalom()
  Dim sor As Integer, oszlop As Integer, uoszlop As Integer, Tartalom As String
  uoszlop = Selection.Column - 1
  sor = Selection.Row
  For oszlop = 1 To uoszlop
  Tartalom = Tartalom & Cells(sor, oszlop) & ","
  Next
  Selection = Left(Tartalom, Len(Tartalom) - 1)
  End Sub

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