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

• #5715 Delila_1 veterán Pulsar #5712

  Új Válasz 2009-11-23 13:16:48 #5715

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

  AA1 és AA19 közé berakod a 19 különböző filter értéket. Az első 5 eredményt a C25-től lefelé írja ki (ahogy eddig), a következőket D25-től, és így tovább 19 oszlopba.
  Adatok nélkül hasraütősen írom a makrót, majd jajgatsz, ha nem jó.

  Sub visual_filter()
  Sheets("IDE_MASOLD").Select
  Dim sor, q, w, x, y, z, adat, fil
  q = 0: w = 0: x = 0: y = 0: z = 0
  
  For fil = 1 To 19
  filteregy = Range("Data!AA" & fil).Text
  
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  adat = Cells(sor, 13)
  If Cells(sor, 4) = filteregy And _
  Cells(sor, 17) = "Visual Inspection - OOW" Then
  
  If adat = " 1-10" Then q = q + 1
  If adat = "11-20" Then w = w + 1
  If adat = "21-30" Then x = x + 1
  If adat = "31-60" Then y = y + 1
  If adat = "61- " Then z = z + 1
  End If
  Next
  Sheets("Data").Cells(25, 1 + fil) = q
  Sheets("Data").Cells(26, 1 + fil) = w
  Sheets("Data").Cells(27, 1 + fil) = x
  Sheets("Data").Cells(28, 1 + fil) = y
  Sheets("Data").Cells(29, 1 + fil) = z
  Next
  End Sub

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