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

• #52409 Delila_1 veterán benjoe1 #52406

  Új Válasz 2024-04-05 16:25:31 #52409

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

  Egy rövid makróval meg lehet oldani. Makróbarátként kell mentened a füzetet.
  Az A10 helyett más cellába is adhatod az eredményt.

  Sub Kigyujtes()
    Dim sor As Integer, szoveg As String
    sor = 2
    Do While Cells(sor, 2) > ""
        If Cells(sor, 3) <> "" Then szoveg = szoveg & Cells(sor, 2) & ","
        sor = sor + 1
    Loop
    Range("A10") = Left(szoveg, Len(szoveg) - 1)
End Sub

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