buton yardımı ile istenen hücleri silmek

[dbicer83]

kullanmış olduğum hesap tablosunda seçilen bazı veri girişlerini hücleri bir button yardımıyla temizlemek istiyorum

 

[Orion1]

Aşağıdaki kodlar Seçili alanı siler.
Bir butona atayabilirsiniz.

Sub secileni_sil()
Selection.ClearContents
End Sub

 

[dbicer83]

Orion2
öncelikle ilginden dolayı teşekkür ederim şimdi benim sıkıntımı tam olarak anlatayım isterseniz yapılacak çalışma sayfasını göndermeme gerek varmı bilmiyorum ama benim 7 gün yani 7 syafadan oluşan dosya var bunlar bir hafta sonunda istenen günü sayfayı buyon yardımıyla istenen hücreleri
örneğin silinecek hücreler a6dan a20 ye a22den a26 b6dan b20 c5 den c15 gibi bayağı uzun ben bunu hücre kilitleme özelliği ile de kapattım kilitli olmayan hücreleri silebilmek istiyorum yardımcı butonlar yardımıyla bilmem anladınızmı çok karışık ama yardımınızı bekliyorum

 

[Orion1]

Orion2
öncelikle ilginden dolayı teşekkür ederim şimdi benim sıkıntımı tam olarak anlatayım isterseniz yapılacak çalışma sayfasını göndermeme gerek varmı bilmiyorum ama benim 7 gün yani 7 syafadan oluşan dosya var bunlar bir hafta sonunda istenen günü sayfayı buyon yardımıyla istenen hücreleri
örneğin silinecek hücreler a6dan a20 ye a22den a26 b6dan b20 c5 den c15 gibi bayağı uzun ben bunu hücre kilitleme özelliği ile de kapattım kilitli olmayan hücreleri silebilmek istiyorum yardımcı butonlar yardımıyla bilmem anladınızmı çok karışık ama yardımınızı bekliyorum

aşağıdaki kod aktif sayfada belirtiiğiniz arlıklardaki hücreleri siler.Dağa fazla silinecek aralık varsa ayni formatta silinecek aralıkları yazıp ekleyebilirsiniz.

activesheet.range("A6:A20,A22:A26,B6:B20,C5:C15")..ClearContents

 

[dbicer83]

sayfa1 ve sayfa2 bunlar için ayrı ayrı silme işlemi yapacağım uyarı mesajı vererk nasıl yaparız uyarı mesajı verecek evet hayır gibi

 

[dbicer83]

yardımcı olacak kimse yok sanırım

 

[Mahmut Bayram]

Ekteki dosyayı inceleyiniz.

 

[Orion1]

sayfa1 ve sayfa2 bunlar için ayrı ayrı silme işlemi yapacağım uyarı mesajı vererk nasıl yaparız uyarı mesajı verecek evet hayır gibi

Aşağıdaki kodlar , Sayfa1 ve Sayfa2'yi siler.

Sub sil()
Dim i As Byte
For i = 1 To 2
    If MsgBox("Sayfa" & i & " deki hücreleri silmek istiyomusunuz?", vbYesNo) = vbYes Then
        Sheets("Sayfa" & i).Range("A6:A20,A22:A26,B6:B20,C5:C15").ClearContents
    End If
Next i
End Sub

 

[dbicer83]

deneyeyim bakalım mahmut kardeşim sanırım işime yarıyacak çok saol teşekkürler

 

[dbicer83]

peki bu her sayfayı ayrı ayrı temizledikten sonra her sayfayı açtığımda secili hücrenin a1 hücresinde secili kalmasını istiyorum onu nasıl yaparız birde bu düğme sayfa 5 te olacak 5ten sayfa1 2-3-4 silecebilecem onu örenklerseniz sevinirim katkılarınızdna dolayı teşekkürler ayrıca bunları silerken şifre soracak şifre doğru girilmesi durmunda silinmesini de istiyorum ayrıca sayfa isimleri farklı olduğu iöçin ptesi salı çarş perş gibi isimlerdn oluştuğu için hata veriyor mahmut

 

[dbicer83]

anlaşılan çok şey istedim

 

[dbicer83]

Sub Sil()

Dim sor
sor = MsgBox("Silmek istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
Select Case sor
Case vbYes
ActiveSheet.Range("A6:A20,A22:A45,A47:A76,b6:b20,b22:b45,b47:b76,b79:b86,b95,c6:c20,c22:c45,c47:c76,c79:c84 ,g5,g7,g9,g11,g13g,g15,g17,g19,g21,g23,g25,g27,g29,g31,g33,g38,g40,g42,g44,g46,g48,g50,g52,g54,g56,g61,g63,g65,g67,g69,g71,g73,g78,g80,e6:e26").ClearContents ""
End Select
End Sub silinecek hücreleri yazdım fakat hata verdi

 

[dbicer83]

sanırım olmuyacak kimsedende bu konuda cevap gelmiyor yapacak bişi yok galiba

 

[Mahmut Bayram]

O kadar çok sabırsızsınız ki en son okuduğumdan bu yana dosyanız üzerinde çalışıyordum bir de baktım ki 3 mesaj yazmışsınız.

en son okudugum mesaja göre yanıtı ve dosyası

Dim i As Byte
Dim sor1, sor2
sor1 = InputBox("ŞİFREYİ GİRİNİZ", "Şifreyi yazınız")
If sor1 = "şifre" Then 'buraya şifrenizi yazınız
    sor2 = MsgBox("Silmek istediğinizden emin misiniz?", vbQuestion + vbYesNo, "Silme İşlemi")
    Select Case sor2
            Case vbYes
For i = 1 To 4
    Sheets(("Sayfa" & i)).Range("A6:A20,A22:A26,B6:B20,C5:C15").ClearContents
    Next
    End Select
Else
MsgBox "HATALI ŞİFRE"
    End If

Bu şekilde devam edemezsiniz. Sabır sabır sabır diyorum.

 

[dbicer83]

silinecek hücrelerin bir kısmı bunlar A6:A20,A22:A45,A47:A76,b6:b20,b 22:b45,b47:b76,b79:b86,b95,c6:c20,c22:c45,c47:c76, c79:c84 ,g5,g7,g9,g11,g13g,g15,g17,g19,g21,g23,g25,g27,g29 ,g31,g33,g38,g40,g42,g44,g46,g48,g50,g52,g54,g56,g 61,g63,g65,g67,g69,g71,g73,g78,g80,e6:e26 görüldüğü gibi tek hücrelerde var bir kaç hücre birleşikte var bu konuda yardımcı olurmuusn silinecek hücreler korumalı değil ama silinmeyecekler zaten korumalı şekilde şifre olayı ve diğer olayda tamam
diğer işlemlerde yardımıcı olursan ha söyleyim sayfa isimleri sayfa1 sayfa2 şeklinde adlandırlmamış ptesi salı çarş perş cuma tt1 tt2 tt3 vs. şekilinde 15-20 sayfadan oluşuyor

 

[dbicer83]

bilgisi ve önerisii olan varmı bu konuda

 

[Seyit Tiken]

Verilen cevaplar ihtiyacınızı karşılamamış anlaşılan. Yapmanız gereken, örnek bir dosya eklemenizdir. Bir dereyi görelim, ona göre çözümler bulunur/geliştirilir.

 

[dbicer83]

yardımlarınız için şimdiden teşekkür ederim dosaya ektedir

 

[dbicer83]

yardımlarınızı bekliyorum arkadaşalr dosya üste şimdiden teşekkürler ilginizden doalyı

 

[dbicer83]

çokmu zor bişey istedim acaba kimseden yanıt gelmiyor