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

• #12644 Delila_1 veterán archen #12643

  Új Válasz 2012-01-14 07:40:59 #12644

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

  Szívesen.

• #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

• #12445 bugizozi őstag archen #12443

  Új Válasz 2012-01-05 13:52:02 #12445

  Ú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

  

  bugizozi

  őstag

  válasz archen #12443 üzenetére

  Szia!

  Jó irányban próbálkoztál, csak kell egy kis módosítás
  Mindkét megoldás jó lehet, úgy hogy

  (" & Cells(4, 8).Value & ",

  vagy

  (" & Range("H4").Value & ",

  Ha esetleg így nem működik, akkor próbáld az aposztrófok számát növelni valahogy így:

  ("" & Range("H4").Value & "",

  Remélem tudtam segíteni!

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