tigerbácsi 2015. máj. 19. 20:36 | válasz | #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!