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

• #5700 Pulsar veterán Delila_1 #5699

  Új Válasz 2009-11-23 09:56:10 #5700

  Ú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

  

  Pulsar

  veterán

  válasz Delila_1 #5699 üzenetére

  Szia!

  az Application.ScreenUpdating ismerem köszi
  hát itt tartok, hátha így érthetőbb.

  Sub visual()
  
  Sheets("IDE_MASOLD").Select
  filteregy = Range("Data!C23").Text
  Dim sor, x
  Dim sor1, y
  x = 0
  y = 0
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = filteregy And Cells(sor, 13) = " 1-10" And _
  Cells(sor, 17) = "Visual Inspection - OOW" Then x = x + 1
  Next
  
  For sor1 = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor1, 4) = filteregy And Cells(sor1, 13) = "21-30" And _
  Cells(sor1, 17) = "Visual Inspection - OOW" Then y = y + 1
  Next
  Sheets("Data").Select
  Cells(25, 2) = x
  Cells(26, 2) = y
  End Sub

  Szóval a filteregy egy olyan érték, ami két féle lehet (most, majd a végén 5 lesz ) és egy cellából olvasom ki
  a (sor,4) 5 + 1 különöböző állapotot vehet fel, és a (sor, 17) pedig 19 féle lehet
  így jön ki a 114

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