Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel - Zamiana wartości na 0 w zależności od wartości w innych komórkach

dj_rey 14 Mar 2016 10:20 780 5
  • #1 14 Mar 2016 10:20
    dj_rey
    Poziom 4  

    Mam dwie prośby i byłbym wdzieczny za pomoc :)
    1. W kolumnie L oraz X wpisywane są ręcznie wartości i np. jeśli w komórce L6 mamy wpisaną jakąś wartość (2) a w komórkach J6 i K6 (komórki przynależne do L6) są zera, to aby zamieniało automatycznie wartość z komórki L6 na 0
    Jeśli w komórkach np. J5 i K5 są wartości inne niż 0, to w komórce L5 wpisana wartosć zostaje bez zmian

    2. Jeśli ktoś omyłkowo wpisze literę zamiast cyfry do kolumny, to aby wyskakiwał komunikat, aby poprawić, że w komórce jest błąd i podawało w której kontretnie.

    0 5
  • Pomocny post
    #3 14 Mar 2016 13:27
    cbrman
    Poziom 27  

    ad 1. Można wykorzystać następujący kod dla zdarzenia Worksheet_Change arkusza:

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    ad 2. Wystarczy poprawność danych na danej kolumnie: Dane / Poprawność danych
    - Dozwolone: Niestandardowe
    - Formuła: =Czy.Liczba(L4)
    - Ewentualnie ustawić sobie w zakładce "Alert o błędzie" treść komunikatu

    0
  • #4 14 Mar 2016 15:01
    dj_rey
    Poziom 4  

    Makro działa, ale jest mały problem, gdyż mam jeszcze makro usuwające dane z kilku kolumn w tym kolumny L i jeśli na nie kliknę, to wyskakuje mi błąd i przenosi do tej linii:
    Excel - Zamiana wartości na 0 w zależności od wartości w innych komórkach


    Excel - Zamiana wartości na 0 w zależności od wartości w innych komórkach

    0
  • Pomocny post
    #5 15 Mar 2016 08:03
    cbrman
    Poziom 27  

    Spróbuj na początku Twojego makra do usuwania danych wyłączyć zdarzenia arkusza

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    a na końcu makra ponownie je włączyć
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0
  • #6 15 Mar 2016 14:11
    dj_rey
    Poziom 4  

    Dzieki wielkie, pomogło :)

    0