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

• #3540 Delila_1 veterán picsu #3539

  Új Válasz 2008-05-16 14:17:56 #3540

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

  Háát, ez több volt 1 percnél, oda a nyakad!

  Sub Válogatás()
  Sheets("Munka2").Select
  sor_2 = Range("A65536").End(xlUp).Row
  Sheets("Munka1").Select
  sor_1 = Range("A65536").End(xlUp).Row
  sor_3 = 1: f = 0
  For mu1 = 1 To sor_1
  sz = Cells(mu1, 1)
  For mu2 = 1 To sor_2
  If Sheets("Munka2").Cells(mu2, 1) = sz Then f = 1
  Next
  If f = 0 Then
  Sheets("Munka3").Cells(sor_3, 1) = sz
  sor_3 = sor_3 + 1
  
  End If
  f = 0
  Next
  Sheets("Munka2").Select
  For mu2 = 1 To sor_2
  sz = Cells(mu2, 1)
  For mu1 = 1 To sor_1
  If Sheets("Munka1").Cells(mu1, 1) = sz Then f = 1
  Next
  If f = 0 Then
  Sheets("Munka3").Cells(sor_3, 1) = sz
  sor_3 = sor_3 + 1
  End If
  f = 0
  Next
  End Sub

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