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

• #9452 Delila_1 veterán eeeasy #9447

  Új Válasz 2011-02-14 09:59:22 #9452

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

  Képletek:
  H3 -> =D3
  I3 -> =E3
  J3 -> =F3

  Makró:

  Sub mm()
  Dim talál As Integer, sor As Integer
  Dim usor As Integer, usor_1 As Integer
  
  usor = Range("A1000").End(xlUp).Row
  usor_1 = Range("H1000").End(xlUp).Row
  
  For sor = 3 To usor_1
  talál = 1
  On Error Resume Next
  talál = Range("A:A").Find(Cells(sor, 8)).Row
  Cells(sor, 11) = Cells(talál, 2)
  Next
  
  For sor = 3 To usor
  talál = 1
  On Error Resume Next
  talál = Range("H:H").Find(Cells(sor, 1)).Row
  If Cells(sor, 11) = "" Then Cells(sor, 11) = Cells(talál, 2)
  Next
  End Sub

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