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

• #26865 Delila_1 veterán umek7 #26864

  Új Válasz 2015-05-10 16:06:41 #26865

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

  Próbáld meg ezzel, ahol az első címsor.

  Sub HolTalalhato()
  Dim sorB As Long, sorC As Long, usor As Integer, uoszlop As Integer
  
  usor = Sheets(1).Range("C" & Rows.Count).End(xlUp).Row
  sorB = 2
  Do While Cells(sorB, 2) > ""
  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
  sorB = sorB + 1
  Loop
  End Sub

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