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

• #5725 Pulsar veterán Delila_1 #5723

  Új Válasz 2009-11-23 18:39:43 #5725

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

  ja, bocs, elgépeltem
  megcsináltam ahogy mondod, de nem jó

  Sub visual()
  
  Sheets("IDE_MASOLD").Select
  Dim sor, q, w, x, y, z, adat, ossz, fil
  q = 0: w = 0: x = 0: y = 0: z = 0: ossz = 0
  filteregy = Range("Data!C23").Text
  For fil = 1 To 19
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  filterketto = Range("Data!AA & fil").Text
  adat = Cells(sor, 13)
  If Cells(sor, 4) = filteregy And Cells(sor, 17) = filterketto 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
  ossz = q + w + x + y + z
  Next
  Sheets("Data").Cells(2, 2 + fil) = ossz
  Sheets("Data").Cells(5, 2 + fil) = q
  Sheets("Data").Cells(8, 2 + fil) = w
  Sheets("Data").Cells(11, 2 + fil) = x
  Sheets("Data").Cells(14, 2 + fil) = y
  Sheets("Data").Cells(17, 2 + fil) = z
  
  End Sub

  a hiba az hogy "For without Next"
  hát ha jól értem akkor minden for ciklushoz kellene tartozni egy next-nek.
  csak nem tudom hova kéne írni

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