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

• #16503 peterszky őstag Delila_1 #16496

  Új Válasz 2013-01-28 14:37:52 #16503

  Ú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

  

  peterszky

  őstag

  válasz Delila_1 #16496 üzenetére

  Kiegészítettem a kódot azzal, ami még hiányzott belőle, így remekül segíti a dolgomat ez a kis makró

  Sub search(p_sorszam As Integer, p_sheet As Worksheet, ByVal p_field As String)
  Dim row%, WS As Worksheet
  Set WS = Sheets("IG2KH")
  row% = 3
  p_sheet.Cells(p_sorszam, "B") = "T" & p_field
  Do While WS.Cells(row%, "A") <> ""
  If Cells(row%, "A") = p_field Then
  p_sheet.Cells(p_sorszam, "C") = "P: " & WS.Cells(row%, "D") & ", H: " & WS.Cells(row%, "E")
  Exit Do
  End If
  row% = row% + 1
  Loop
  End Sub
  
  Sub mm()
  Dim sor%, usor%, WS As Worksheet
  Set WS = Sheets("Sheet1")
  sor% = 3
  usor% = WS.Cells(Rows.Count, "A").End(xlUp).row + 1
  Sheets("IG2KH").Select
  Do While Cells(sor%, "A") <> ""
  If UCase(Left(Cells(sor%, "Q"), 3)) = "E (" Then
  Call search(usor%, WS, Mid(Cells(sor%, "Q"), 5, Len(Cells(sor%, "Q")) - 5))
  WS.Cells(usor%, "A") = "P: " & Cells(sor%, "D") & ", H: " & Cells(sor%, "E")
  usor% = usor% + 1
  End If
  sor% = sor% + 1
  Loop
  End Sub

  Pastebin [link]

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