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

• #5685 Delila_1 veterán Pulsar #5683

  Új Válasz 2009-11-22 10:50:10 #5685

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

  Makróval:

  Sub Xek()
  Dim sor, x
  x = 0
  
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" And _
  Cells(sor, 17) = "x" Then x = x + 1
  Next
  MsgBox "Az x-ek száma a megadott feltételek esetén: " & x
  End Sub

  Hova lett a szerkesztésből a kód? Van helyette a Programkód, de nem olyan jó.

• #5684 Delila_1 veterán Pulsar #5683

  Új Válasz 2009-11-22 10:41:16 #5684

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

  Makró nélkül, képletekkel:

  R1-be (ha szabad ez az oszlop): =HA(ÉS(D1="y";M1="o";Q1="x");1;0)
  R2-be: =HA(ÉS(D2="y";M2="o";Q2="x");MAX(R$11)+1;0)
  Ez utóbbit másold végig az oszlopban.
  Utoljára valahova: =MAX(R)

  Ezt akár meg is írhatod makróba.

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