Onaya Bağlı Hücreleri silme

[Yesilyurtlu]

Üstadlarım

Bir excel sayfasından sadece 6. excel sayfasına geçişte D11:X17 aralığında ki verileri onaya bağlı ("EVET" - "HAYIR" şeklinde ) silebilmem için makro konusunda yardımcı olabilir misiniz?

Teşekkür Ederim

 

[Orion1]

6ncı sıradaki sayfayı siliyor.

Dim hcr As Range
For Each hcr In Sheets(6).Range("D11:X17")
    If MsgBox(hcr.Value & " Silmek istiyormusunuz?", vbYesNo, "SİL") = vbYes Then
        hcr.ClearContents
    End If
Next

 

[Yesilyurtlu]

Evren Uzmanım;
run timr error hatası verdi daha doğrusu verdirdim.
ne yapayım

 

[Orion1]

Evren Uzmanım;
run timr error hatası verdi daha doğrusu verdirdim.
ne yapayım

Birleştitrilmiş hücre varsa clear comutunda,find komutunda,başkada vardır.Hata veriyor.
Onun için mümkün olduğunca birleştirilmiş hücrelerden uzak durun,yapmayın.VBA'ya ters geliyor.
Şöyle yapın.

Dim hcr As Range
For Each hcr In Sheets(6).Range("D11:X17")
    If MsgBox(hcr.Value & " Silmek istiyormusunuz?", vbYesNo, "SİL") = vbYes Then
        hcr.Value = ""
    End If
Next

 

[Yesilyurtlu]

Evren Uzmanım;
D11:X17 arasında ki hücreler de birleştirme yok ama aşağıda ki kod da yine bir yanlışım var.
D11:X17 arasında ki verileri sileceğine nasıl becerdiysem B11 hücresini siliyor. ve ardarda sürekli uyarı veriyor. Kod aşağıda abi eğer kızmazsan bana bir örnek dosya ile yol gösterip yardımcı ol abi

Private Sub Worksheet_Activate()
Dim hcr As Range
For Each hcr In Sheets(6).Range("D11:X17")
If MsgBox(hcr.Value & " Silmek istiyormusunuz?", vbYesNo, "SİL") = vbYes Then
hcr.ClearContents
End If
Next
End Sub

 

[Orion1]

Evren Uzmanım;
D11:X17 arasında ki hücreler de birleştirme yok ama aşağıda ki kod da yine bir yanlışım var.
D11:X17 arasında ki verileri sileceğine nasıl becerdiysem B11 hücresini siliyor. ve ardarda sürekli uyarı veriyor. Kod aşağıda abi eğer kızmazsan bana bir örnek dosya ile yol gösterip yardımcı ol abi

Private Sub Worksheet_Activate()
Dim hcr As Range
For Each hcr In Sheets(6).Range("D11:X17")
If MsgBox(hcr.Value & " Silmek istiyormusunuz?", vbYesNo, "SİL") = vbYes Then
hcr.ClearContents
End If
Next
End Sub

Dosyanız ektedir.
Yanlız onaylı silme istemiştiniz.Onun için hücreyi silmezden önce sizden onay istiyor.Kodu öyle yazdım.Siz öyle istemiştiniz.Yoksa caydınızmı?.

 

[Yesilyurtlu]

Evren Abi ;
Caymaya caymadım da ben becerememiştim.
Onaylı silme işlemi örnel dosya da mükemmel olmuş tam istediğim gibi .
Eğer kızmazsanız bir değişiklik talep ediyorum. Tek tek onay sormaktansa bir kere sorup hepsini silerse zamandan kazanmış oluruz.
Tek onay vereceğiz hepsini aynı anda silecek

 

[Orion1]

Evren Abi ;
Caymaya caymadım da ben becerememiştim.
Onaylı silme işlemi örnel dosya da mükemmel olmuş tam istediğim gibi .
Eğer kızmazsanız bir değişiklik talep ediyorum. Tek tek onay sormaktansa bir kere sorup hepsini silerse zamandan kazanmış oluruz.
Tek onay vereceğiz hepsini aynı anda silecek

Aslında bu gibi durumları baştan söylemeniz gerekir.
Dosyanız ektedir.

Private Sub Worksheet_Activate()
Dim hcr As Range
If MsgBox("D11:X17 aralığını silmek Silmek istiyormusunuz?", vbYesNo, "SİL") = vbYes Then
    Range("D11:X17").ClearContents
    MsgBox "Silme yapıldı." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End If
End Sub

 

[Yesilyurtlu]

Evren Uzmanım;
Birkaç kere geri dönüş yaptım, başınızı ağrıttım zamanınızı aldım.Hakkınızı helal edin.
Elinize sağlık TEŞEKKÜR EDERİM. "ÇÖZÜLDÜ"

 

[Orion1]

Evren Uzmanım;
Birkaç kere geri dönüş yaptım, başınızı ağrıttım zamanınızı aldım.Hakkınızı helal edin.
Elinize sağlık TEŞEKKÜR EDERİM. "ÇÖZÜLDÜ"

Rica ederim.
İyi çalışmalar.