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

• #23164 Fferi50 Topikgazda botond187 #23162

  Új Válasz 2014-09-08 22:46:49 #23164

  Ú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

  

  Fferi50

  Topikgazda

  válasz botond187 #23162 üzenetére

  Szia!

  Itt az egész makró, hátha elírtál valamit:

  Sub kieg()
  Dim sor As Long, usor As Long, sorS, sorK As Long, szamol As Integer
  Dim ehhez As String, tol$, ig$
  
  Columns(2) = ""
  usor = Range("A" & Rows.Count).End(xlUp).Row: sor = 1
  For sor = 2 To usor
  ehhez = Cells(sor, "A")
  If ehhez <> "" Then
  sorS = Application.Match(ehhez, Range("D:D"), 1)
  szamol = 0
  For sorK = 1 To usor
  tol$ = Cells(sorS, "E"): ig$ = Cells(sorS, "F")
  If Cells(sorK, "A") >= tol$ And Cells(sorK, "A") <= ig$ Then
  If szamol = 6 Then Exit For
  If Cells(sor, "B") = "" Then
  Cells(sor, "B") = Cells(sorK, "A")
  Else
  Cells(sor, "B") = Cells(sor, "B") & "|" & Cells(sorK, "A")
  End If
  szamol = szamol + 1
  End If
  Next
  End If
  Next
  End Sub

  Üdv.

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