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

• #42436 Mutt senior tag Nagyzoli27 #42432

  Új Válasz 2019-12-10 13:33:00 #42436

  Ú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

  

  Mutt

  senior tag

  válasz Nagyzoli27 #42432 üzenetére

  Szia,

  Makró nélkül az Excel 2010-től elérhető Power Query-t tudom javasolni.
  Ebben a hozzászólásban látod a lépéseket (a 7-10-es lépések neked nem kellenek).

  üdv

• #42435 Delila_1 veterán Nagyzoli27 #42432

  Új Válasz 2019-12-10 13:13:15 #42435

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

  Egy rövid makróval megoldható.

  Sub Kapcsolodo()
Dim sor1 As Integer, sor2 As Integer, usor1 As Integer, usor2 As Integer

usor1 = Range("A" & Rows.Count).End(xlUp).Row
usor2 = Range("D" & Rows.Count).End(xlUp).Row

For sor2 = 2 To usor2
For sor1 = 2 To usor1
If Cells(sor2, "D") = Cells(sor1, 1) Then
If Cells(sor2, 5) = "" Then
Cells(sor2, 5) = Cells(sor1, 2)
Else
Cells(sor2, 5) = Cells(sor2, 5) & " | " & Cells(sor1, 2)
End If
End If
Next
Next
End Sub

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