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

• #40234 Delila_1 veterán lcdtv #40232

  Új Válasz 2019-02-14 13:57:40 #40234

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

  Makróval:

  Sub Vesszo()
Dim sor As Long

sor = 1
Do While Cells(sor, 1) > ""
If Cells(sor, "A") = Range("E1") Then
If Cells(1, "F") = "" Then
Cells(1, "F") = Cells(sor, "B")
Else: Cells(1, "F") = Cells(1, "F") & ", " & Cells(sor, "B")
End If
End If

If Cells(sor, "A") = Range("E2") Then
If Cells(2, "F") = "" Then
Cells(2, "F") = Cells(sor, "B")
Else: Cells(2, "F") = Cells(2, "F") & ", " & Cells(sor, "B")
End If
End If
sor = sor + 1
Loop
End Sub

  A csatolt képen nem látszanak a sorszámok.
  Ha az adatok nem az első sorban kezdődnek, a sor=1 sorban az 1 helyett a kezdő sorszámot add meg.
  A két feltételnél is a Cells(1,"F") és a Cells(2,"F") hivatkozásokat, no meg a Range("E1") és Range("E2")-t kell átírnod.

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