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

• #43148 Delila_1 veterán kat0na #43145

  Új Válasz 2020-02-29 06:51:41 #43148

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

  Ahhoz a laphoz kell rendelned a makrót, amelyikre az 1-eseket akarod beíratni.
  Ahányszor rálépsz a kérdéses lapra, "letapogatja" a Munka1 lap celláit, és beírja a feltétel szerint az 1-et, ahova kell. A feltételnél a Munka1 helyére írd be a lapot igazi nevét.

  Private Sub Worksheet_Activate()
Dim CV As Range

For Each CV In Range("H9:AF100")
If Sheets("Munka1").Range(CV.Address).Font.ColorIndex = 3 Then Range(CV.Address) = 1
Next
End Sub

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