Informatika és tudomány

megoldást keresek erre a problémára
  • tigerbácsi
    #2085
    Sziasztok!

    van egy összetett makrom melynek egy részét szeretném egy ejszakas nevű checkBoxtól függővé tenni.

    'Raktár táblázatba adatbeírás

    sor = 10
    While Sheets("Raktar").Cells(sor, 1) <> ""
    sor = sor + 1
    Wend

    'idő
    Sheets("Raktar").Cells(sor, 1) = Sheets("seged").Range("N17")

    'Műszak
    If Sheets("seged").Range("Z28") = "yes" = True Then Sheets("Raktar").Cells(sor, 2) = Sheets("seged").Range("O17")
    If Sheets("seged").Range("X28") = "yes" = True Then Sheets("Raktar").Cells(sor, 10) = Sheets("seged").Range("O17")
    If Sheets("seged").Range("R11") = "yes" = True Then Sheets("Raktar").Cells(sor, 17) = Sheets("seged").Range("O17")

    'Névkiírás
    If Sheets("seged").Range("Z28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 3) = Sheets("seged").Range("K17")
    If Sheets("seged").Range("Z28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 4) = Sheets("seged").Range("L17")
    If Sheets("seged").Range("Z28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 5) = Sheets("seged").Range("M17")

    If Sheets("seged").Range("X28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 11) = Sheets("seged").Range("K17")
    If Sheets("seged").Range("X28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 12) = Sheets("seged").Range("L17")
    If Sheets("seged").Range("X28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 13) = Sheets("seged").Range("M17")

    If Sheets("seged").Range("R11") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 18) = Sheets("seged").Range("K17")
    If Sheets("seged").Range("R11") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 19) = Sheets("seged").Range("L17")
    If Sheets("seged").Range("R11") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 20) = Sheets("seged").Range("M17")


    'adatkiírás szűrőcserénél

    If Sheets("seged").Range("Z28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 6) = -Sheets("seged").Range("Y24")
    If Sheets("seged").Range("Z28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 7) = -Sheets("seged").Range("Z24")

    If Sheets("seged").Range("R11") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 21) = -Sheets("seged").Range("Q11")

    If Sheets("seged").Range("X28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 14) = -Sheets("seged").Range("W24")
    If Sheets("seged").Range("X28") = "yes" = True Then _
    Sheets("Raktar").Cells(sor, 15) = -Sheets("seged").Range("X24")

    End Sub

    azt szeretném ha ez csak akkor futna le, ha a seged fülön a Q4 cella értéke "no" és ha ez az érték "yes" akkor ne fusson le. (ezt az értéket változtatja meg az ejszakas checkboxom)

    köszönöm szépen a segítséget!
    Az Élet nem más mint egy hosszú Halál!
    \"Belül én már rég meg haltam csak a maszkom él.\" - Junkies
    Nyúljon meg a nyaka bogyokának, s legyen kék a nyelve!