Soru combobox değeri değişirse temizle

[sirkülasyon]

Worksheets("A").Range("A3:T39").ClearContents

Hocam
formu açtım a kişisine ait formda bulunan tüm nesneleri doldurdum combobox da 1 değerini seçtim aktardım. Formu kapattım.
Tekrar formu açtım b kişisine ait formda bulunan tüm nesneleri doldurdum combobox da 1 değerini seçtim aktardım.
Kayıt esnasında böyle tekrar eden bir döngü var.
Ne zaman combobox da 1 değilde 2 seçilirse A sayfasında belirlenen aralık temizlensin

yardımcı olabilir misiniz

 

[Ömer]

Merhaba,

Dener misiniz.

Private Sub ComboBox1_Change()
    If ComboBox1.Value = 2 Then
        Worksheets("A").Range("A3:T39").ClearContents
    End If
End Sub

 

[sirkülasyon]

Ömer Abi teşekkür ederim. Allah razı olsun.
Combobox değeri değişmezse temizlemeyecek
değişince "Worksheets("A").Range("A3:T39").ClearContents" işlemine de bir örnek verebilir misin?

 

[Ömer]

Önemli değil. Allah hepimizden razı olsun.
Yalnız sorunuzu anlamadım, daha detaylı açıklar mısınız.

 

[sirkülasyon]

hocam
kayıt esnasında combobox değeri 1 ise A sayfasında ki verileri temizlemesin
ta ki kayıt yaparken combobox değeri değişince yani 1 değil de 2,3,4,A,B ..... gibi farklı değerler alınca aktarılan sayfayı temizlesin.

 

[Ömer]

Kodlarıdaki;

If ComboBox1.Value = 2 Then

yerine;

If ComboBox1.Value <> 1 Then

olarak değiştirerek deneyin.

 

[sirkülasyon]

Teşekkür ederim.