logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[Rozwiązano] Excel VBA Jeśli komórka niepusta wpisz pod nią dzisiejszą datę

Hipotrochoid 24 Lis 2020 14:11 747 3
REKLAMA
  • #1 19065675
    Hipotrochoid
    Poziom 4  
    Posty: 14
    Ocena: 2
    Potrzebuję pomocy w napisaniu zdarzenia działającego następująco:
    Użytkownik wybiera z listy wartość w kolumnach od I do FK, w wierszach NIEPARZYSTYCH (lista już zdefiniowana). I teraz: jeśli wartość zostanie wybrana, to pod nią automatycznie pojawi się dzisiejsza data.

    Czyli np. jeśli pojawi się wartość z listy w komórce I3, to zdarzenia ma działać tak, że w komórce I4 pojawi się dzisiejsza data, jeśli wartość pojawi się w komórce S7, to automatycznie dzisiejsza data pojawi się w komórce S8 itd.

    Niestety jestem początkująca z VBA i zatrzymałam się na tym, że powinnam użyć:

    Private Sub Worksheet_Change(ByVal Target As Range)
    ...
    End Sub

    oraz po drodze =Date. Mam problem z napisaniem tego dla całego zakresu, który potrzebuję.

    P.S. Nie mogę tego zrobić funkcją "= jeżeli(...;DZIŚ();...)" bo potrzebuję aby wpisana data już się nie zmieniła, np. po zamknięciu arkusza.
  • REKLAMA
  • REKLAMA
  • #4 19067188
    Hipotrochoid
    Poziom 4  
    Posty: 14
    Ocena: 2
    Powyższy kod od Prot działa dokładnie tak jak potrzebuję i nawet szerokość komórki się dopasowuje. Wielkie dzięki!
REKLAMA