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

• #27194 Delila_1 veterán umek7 #27189

  Új Válasz 2015-05-31 13:56:24 #27194

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

  "...Delila_1 topikgazdának"

  Múltkor említettem, hogy a választ a Válasz gomb segítségével kellene megadnod, úgy sokkal könnyebben megtaláltam volna most az eredeti kérdésedet.

  Módosítottam a makrót.

  Sub HolTalalhato()
  Dim sorB As Long, sorC As Long, usor As Integer, uoszlop As Integer
  
  usor = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
  sorB = 2
  For sorB = 2 To usor
  For sorC = 2 To usor
  If Cells(sorC, 3) = Cells(sorB, 2) Then
  If Cells(sorB, 4) = "" Then
  Cells(sorB, 4) = Cells(sorC, 1)
  Else
  Cells(sorB, 4) = Cells(sorB, 4) & "–" & Cells(sorC, 1)
  End If
  End If
  Next
  Next
  End Sub

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