Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64694 Skopiuj do schowka zmiana danych w komórce
Autor Wiadomość
marcin85ss 
ExcelGaduła 500+


Pomógł: 32 razy
Posty: 712
Wysłany: 09-04-2019, 14:04   zmiana danych w komórce

Cześć

Mam makro

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L1")) Is Nothing Then
If Target = Range("L1") Then Range("L2").ClearContents
End If
End Sub


Chciałbym aby komórka L2 kasowała dane gdy w L1 jest określona liczba np 5
Da się to przerobić idąć tym tropem?
_________________
Pozdrawiam
ID posta: 365716 Skopiuj do schowka
 
 
keri85 
Fan Excela


Pomógł: 35 razy
Posty: 86
Wysłany: 09-04-2019, 14:25   

Dobry trop

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("L1")) Is Nothing Then
        If Target = 5 Then Range("L2").ClearContents
    End If
End Sub
ID posta: 365718 Skopiuj do schowka
 
 
marcin85ss 
ExcelGaduła 500+


Pomógł: 32 razy
Posty: 712
Wysłany: 09-04-2019, 14:34   

kurcze nie pomogło bo komórkę L1 zmieniam przy pomocy " przycysku opcji" z kontrolek formularza na karcie developer. Gdybym wpisywał ręcznie do L1 to ok, a tak nie chce zadziałać
_________________
Pozdrawiam
ID posta: 365721 Skopiuj do schowka
 
 
keri85 
Fan Excela


Pomógł: 35 razy
Posty: 86
Wysłany: 09-04-2019, 14:54   

Zdarzenie
Kod:
Sub Worksheet_Change(ByVal Target As Range)
działa na zmianę zainicjowaną przez użytkownika. Tak samo to zdarzenie nie zadziała jeżeli wartość zmieni się w wyniku obliczenia formuły.

A jeżeli Ty
Cytat:
komórkę L1 zmieniam przy pomocy " przycysku opcji"
to dopisz pod ten przycisk coś w rodzaju
Kod:
If twoja_zmienna_którą_wrzucasz_do_L1 = 5 Then Sheets("nazwa_arkusza").Range("L2").ClearContents
ID posta: 365722 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1510 razy
Posty: 4819
Wysłany: 10-04-2019, 07:40   

Spróbuj tak:
Kod:
Private Sub Worksheet_Calculate()
If Range("L1") = 5 Then Range("L2").ClearContents
 End Sub
ID posta: 365771 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe