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

• #5699 Delila_1 veterán Pulsar #5697

  Új Válasz 2009-11-23 08:44:53 #5699

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

  Egy kicsit átalakítottam arra az esetre, ha nincs szükséged a laponkénti összegzésre, és a Data lapon egy összegben akarod látni az A14 cellában az összes lap megfelelő sorainak számát.

  Sub Xek_1()
  Application.ScreenUpdating = False
  
  Dim sor, darab, lap, sor_data
  darab = 0
  For lap = 2 To Worksheets.Count
  Sheets(lap).Select
  For sor = 1 To ActiveSheet.UsedRange.Rows.Count
  If Cells(sor, 4) = "y" And Cells(sor, 13) = "o" _
  And Cells(sor, 17) = "x" Then darab = darab + 1
  Next
  Next lap
  Sheets("Data").Cells(14, 1) = darab
  
  Application.ScreenUpdating = True
  End Sub

  Az Application.ScreenUpdating = False sor leállítja a képernyő frissítését, az Application.ScreenUpdating = True pedig visszaállítja azt. Ezt azért tettem be, hogy ne zavarjon, hogy a program egyik lapról a másikra "ugrál".

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