• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

buton yardımı ile istenen hücleri silmek

D

dbicer83

Katılım
29 Kasım 2007
Mesajlar
332
Excel Vers. ve Dili
Office2003
kullanmış olduğum hesap tablosunda seçilen bazı veri girişlerini hücleri bir button yardımıyla temizlemek istiyorum
 
Aşağıdaki kodlar Seçili alanı siler.
Bir butona atayabilirsiniz.:cool:
Kod: 
Sub secileni_sil()
Selection.ClearContents
End Sub
 
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
 
dbicer83' Alıntı:
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
Genişletmek için tıkla ...
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.:cool:
Kod: 
activesheet.range("A6:A20,A22:A26,B6:B20,C5:C15")..ClearContents
 
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' Alıntı:
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
Genişletmek için tıkla ...

Aşağıdaki kodlar , Sayfa1 ve Sayfa2'yi siler.
Kod: 
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
 
deneyeyim bakalım mahmut kardeşim sanırım işime yarıyacak çok saol teşekkürler
 
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
 
Son düzenleme:
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
 
sanırım olmuyacak kimsedende bu konuda cevap gelmiyor yapacak bişi yok galiba
 
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ı
Kod: 
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.
 
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
 
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.
 
yardımlarınızı bekliyorum arkadaşalr dosya üste şimdiden teşekkürler ilginizden doalyı
 
çokmu zor bişey istedim acaba kimseden yanıt gelmiyor
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst