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

• #2779 Delila_1 veterán RaZroX #2778

  Új Válasz 2017-12-14 17:34:12 #2779

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

  Az x-eket a darabteli függvénnyel meg tudnád számoltatni, de a kék színhez már makró kell.

  Ha már úgyis szükséges a makró, belevettem az x-ek megszámlálását is.

  Sub Valami()
Dim sor As Integer, kek As Integer, x As Integer, oszlop As Integer

For sor = 3 To 7
kek = 0: x = 0
For oszlop = 3 To 11
If Cells(sor, oszlop) = "x" Then x = x + 1
If Cells(sor, oszlop).Interior.ColorIndex = 33 Then kek = kek + 1
Next
Cells(sor, "L") = x
If kek = 0 Then Cells(sor, "M") = "HIBA" Else Cells(sor, "M") = "RENDBEN"
Next
End Sub

  Ez a makró a mostani területre érvényes. A sorokat 3-tól 7-ig figyeli, az oszlopokat pedig 3-tól (C) 11-ig (K).
  Az x-ek számát soronként az L oszlopba írja, a kékekre vonatkozó megállapítást az M-be.

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