Temizle Butonu Hk.

[Elantra]

Merhabalar 6 adet açılabilir listede bulunan verilerin (D5-D10) Temizle butonu ile ilk sırada yer alan SEÇİNİZ yazısına dönmesini istiyorum. Butonu yaptım ama nedense D5 te bulunan seçeneği temizlemiyor diğerlerini temizliyor.


Örnek dosya ektedir.

Zaman ayıran herkese teşekkür ederim.

 

[veysikulte1]

Aşağıdaki makro kodunu atayın işinizi görecektir.

Sub TemizleButonu()
    Dim cell As Range
    
    ' D5'ten D10'a kadar hücrelerdeki açılabilir listeyi "SEÇİNİZ" olarak ayarlayacağız
    For Each cell In Range("D5:D10")
        If cell.Validation.Type = xlValidateList Then
            cell.Value = "SEÇİNİZ" ' Hücreyi SEÇİNİZ ile değiştir
        End If
    Next cell
End Sub

 

[Elantra]

Teşekkür ederim fakat bu sefer makrolarla ilgili hata alıyorum.

 

[veysikulte1]

Bu şekilde satış sayfasının içine ekleyin daha sonra butona sağ tıkayıp makro atayıp Sayfa4.TemizleButonu diye makro çıkacak seçip onaylayın düzelir.

 

[Elantra]

Zahmet verdim, emeğinize sağlık. Çok teşekkür ederim.

 

[veysikulte1]

Zahmet verdim, emeğinize sağlık. Çok teşekkür ederim.

düzeldi mi ?

 

[Elantra]

Evet düzeldi. Teşekkürler Veysi Bey.

 

[veysikulte1]

Evet düzeldi. Teşekkürler Veysi Bey.

rica ederim kolay gelsin.