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

• #5701 Pulsar veterán Pulsar #5700

  Új Válasz 2009-11-23 10:37:20 #5701

  Ú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 Pulsar #5700 üzenetére

  így gondolotam
  Sub visua11()
  
  Sheets("IDE_MASOLD").Select
  filteregy = Range("Data!C23").Text
  Dim sor, sor1, sor2, sor3, sor4, q, w, x, y, z
  q = 0
  w = 0
  x = 0
  y = 0
  z = 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 q = q + 1
  Next
  
  For sor1 = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor1, 4) = filteregy And Cells(sor1, 13) = "11-20" And _
  Cells(sor1, 17) = "Visual Inspection - OOW" Then w = w + 1
  Next
  
  For sor2 = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor2, 4) = filteregy And Cells(sor2, 13) = "21-30" And _
  Cells(sor2, 17) = "Visual Inspection - OOW" Then x = x + 1
  Next
  
  For sor3 = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor3, 4) = filteregy And Cells(sor3, 13) = "31-60" And _
  Cells(sor3, 17) = "Visual Inspection - OOW" Then y = y + 1
  Next
  
  For sor4 = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor4, 4) = filteregy And Cells(sor4, 13) = "61- " And _
  Cells(sor4, 17) = "Visual Inspection - OOW" Then z = z + 1
  Next
  
  
  Sheets("Data").Select
  Cells(25, 2) = q
  Cells(26, 2) = w
  Cells(27, 2) = x
  Cells(28, 2) = y
  Cells(29, 2) = z
  End Sub

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