Telefonszámunk: 1-472-0679

[Resolved] Feltételes formázás makróval

Kezdőlap Fórumok Excel programozás [Resolved] Feltételes formázás makróval

Topic Resolution: Resolved

Ennek a témakörnek tartalma 2 hozzászólás, 2 résztvevő. Utolsó frissítés:  ipcxfu 2 hónapja, 1 hét telt el a bejegyzés óta.

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #4503

    ipcxfu
    Résztvevő

    Kedves Imre!

    Excel automatizáló tanfolyamon jártam nálad a minap, próbálkozom is, de egy problémán nem tudok átlendülni.
    Feltételes formázást szeretnék másolni. Az alábbi kód született, hogy soronként legalább másoljon, de a formula részen nem tudok segíteni, nincs ötletem ☹

    Egy 13 cellából álló tartomány leszürkülne, ha a 14. cella 1-es. De azt az 1-est mindig az aktuális sorból kéne kivennie, eddig csak oda jutottam, hogy a tartományt szépen görgeti a for paranccsal, de a feltétel nem mozdul.
    Ha ebben tudnál ötletet adni, azt nagyon megköszönném. Mellékelve zippelve a teszt file


    Sub Szürke()

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:=”=$N$3=1″

    End Sub

    Üdvözlettel
    Kozma Krisztián

    Attachments:
    You must be logged in to view attached files.
    #4509

    horvimi
    Kulcsmester

    Szia!

    Egy kicsit trükközni kell. Egy változóba kiolvasom az aktuális sor N oszlopából a cella címét, és azt varázsolom be a felt. formázás képletébe.

    Sub Szürke()
    '
    ' Szürke Makró
    
        Dim a As Integer
        Dim b As String
    
        For a = 3 To 14
    
        Range(Cells(a, 1), Cells(a, 13)).Select
        b = Cells(a, 14).Address
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & b & "=1"
        ....

    A plusz sorokat tedd be és cseréld ki, és jó lesz!

    Imre

    #4518

    ipcxfu
    Résztvevő

    Kedves Imre!

    Nagyon szépen köszönöm a segítséged. Sikerrel jártam.
    Mondanám, hogy hasonló irányban próbálkoztam, de így az életben nem tudtam volna összepakolni.
    Már keresek is egy makrótanfolyamot a honlapon! 😉

    Üdvözlettel
    Kozma Krisztián

3 bejegyzés megtekintése - 1-3 / 3

Be kell jelentkezni a hozzászóláshoz.