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

• #5688 Delila_1 veterán

  Új Válasz 2009-11-22 11:21:45 #5688

  Ú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

  Mivel 25 lap van, kicsit hozzáírtam az előző makróhoz. Ez akkor jó, ha csak az a 25 lap van a füzetben, amelyikeknél össze kell számolni az x-eket.

  Sub Xek()
  Dim sor, x, lap
  x = 0
  For lap = 1 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 x = x + 1
  Next
  MsgBox "Az x-ek száma a megadott feltételek esetén: " & x
  x = 0
  Next lap
  End Sub

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