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

• #21458 bteebi veterán Salex1 #21457

  Új Válasz 2014-05-06 13:25:38 #21458

  Ú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

  

  bteebi

  veterán

  válasz Salex1 #21457 üzenetére

  Sub osszefuz()
  Dim i As Integer, lastrow As Integer
  lastrow = Range("B" & Rows.Count).End(xlUp).Row
  Range("K1") = ""
  For i = 1 To lastrow
  If Cells(i, 13).Value = True Then
  Range("K1") = Range("K1") & Cells(i, 2).Value & ", "
  End If
  Next i
  Range("K1") = Left(Range("K1"), Len(Range("K1")) - 2)
  End Sub

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