• DİKKAT

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

Birden çok sayfadaki verileri tek tuşla silme

  • Konbuyu başlatan Konbuyu başlatan cayaso
  • Başlangıç tarihi Başlangıç tarihi
C

cayaso

Katılım
10 Haziran 2011
Mesajlar
176
Excel Vers. ve Dili
2003 Türkçe
Elimde sayfa isimleri 1,2,3,4....100 diye başlayan ve içinde tablo bulunan 100 adet sayfam var. Bu sayfaların A1:A32 ve K2:K33 olan hücre aralıklarında bulunan verileri makro ile tek seferde silmek istiyorum. Çeşitli denemeler yapmama rağmen malesef yapamadım. Teşekkür ederim.
 
silme değilde sanırım temizleme istediniz.
Buyurun.:cool:
Kod: 
Sub temizle59()
For i = 1 To Worksheets.Count
    Sheets(CStr(i)).Range("A1:A32,K2:K33").Clear
Next i
MsgBox "Sayfalar silindi!!" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Malesef kodun üçüncü satırı hata verdi. Ayrıca dosyada bazıları korumalı VERİ, PROJE gibi metinsel olarak adlandırılmış birçok sayfalarda da mevcut. Verileri silinecek sayfalar isimleri (1-2-3-4-5...100) birden yüze kadar rakamla ifade edilmiş sayfalardaki belirlenen alaralıklar silinecek.
 
cayaso' Alıntı:
Malesef kodun üçüncü satırı hata verdi. Ayrıca dosyada bazıları korumalı VERİ, PROJE gibi metinsel olarak adlandırılmış birçok sayfalarda da mevcut. Verileri silinecek sayfalar isimleri (1-2-3-4-5...100) birden yüze kadar rakamla ifade edilmiş sayfalardaki belirlenen alaralıklar silinecek.
Genişletmek için tıkla ...
buyurun.:cool:
Kod: 
Sub temizle59()
For i = 1 To 100
    Sheets(CStr(i)).Range("A1:A32,K2:K33").Clear
Next i
MsgBox "Sayfalar silindi!!" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub
 
Sayın Orion1 Bu kodlar çalıştı. Teşekkür ederim. İlave olarak eğer 100 sayfadaki bilgileri değilde 25 ile 80 arasındaki sayfalarda bulunan bilgileri silmek istediğimizde kodlarda nasıl bir değişiklik yapmamız gerekiyor.
 
cayaso' Alıntı:
Sayın Orion1 Bu kodlar çalıştı. Teşekkür ederim. İlave olarak eğer 100 sayfadaki bilgileri değilde 25 ile 80 arasındaki sayfalarda bulunan bilgileri silmek istediğimizde kodlarda nasıl bir değişiklik yapmamız gerekiyor.
Genişletmek için tıkla ...
Buyurun.:cool:
Kod: 
For i = 25 To 80
 
bu formul işime yaradı benimde. Yanlız şu aralık değilde. belli hücreleri silmek istediğimizde ne yapmamız gerekiyor. Subscript out of range uyarısı veriyor. (Ben parantez içine hücreleri yazdım tek tek aralarına virgül koyarak)

Misal
C16;C17;C21;C23;C26;C28;C31;C33;C36;C38;C41;C43;C46;C48;C51;C53;C56;C58;C61;C63;C66;C68;C71;C73;C76;C78;C81;C83;C86;C88;C91;C93;C96;C98;C101;C103;C106;C108;C111;C113;C116;C118;C121;C123;C126;C128;C131;C133;C136;C138;C141;C143

Bu hücreleri silmek istiyorum. aralardaki değerler kalmalı çünkü.

şimdiden teşekkürler.
 
Alttaki mesajda cevabı verdim.
 
Aşağıdaki gibi deneyin.:cool:
1- ";" işareti yuerine virgül koyun.
2- Bu hücrelerde birleştirilmiş hücre olmamalıdır.
Kod: 
range("C16;C17;C21;C23;C26;C28;C31;C33;C36;C38;C41;C43;C4 6;C48;C51;C53;C56;C58;C61;C63;C66;C68;C71;C73;C76; C78;C81;C83;C86;C88;C91;C93;C96;C98;C101;C103;C106 ;C108;C111;C113;C116;C118;C121;C123;C126;C128;C131 ;C133;C136;C138;C141;C143").clear
 
oldu teşekkür ederim. bu arada 2 mevzu var.

birşey denedim. 400 hatası verdi.

ve ek olarak. temizlediği hücrelerin kenar çizgilerini felan hep siliyor :D bunun bir yolu yokmu :) mühimde sayılmaz. :)
 
uniquniq' Alıntı:
oldu teşekkür ederim. bu arada 2 mevzu var.

birşey denedim. 400 hatası verdi.

ve ek olarak. temizlediği hücrelerin kenar çizgilerini felan hep siliyor :D bunun bir yolu yokmu :) mühimde sayılmaz. :)
Genişletmek için tıkla ...
hata verdiğiş satırda ne vardı.Yani sarıya boyalı satırda ne yazıyordu kodda?
2nci ise
.clear yerine
.ClearContents yazınız.
 
Ya ben birde onlara ek aralık vereyim dedim. ne şekilde yazdıysam 400 diye bi hata çıkardı butona basınca. bende sildim önemli değildi. Kod bölümünde hata felan işaretlemedi bende baktımda göremedim.... sağolasın yinede çok işime yaradı bu. çok işimi gördü.
 
ek aralık için aşağıdaki gibi yapın.:cool:
Kod: 
range("[B][COLOR="Red"]A2:B17,[/COLOR][/B]C16,C17;C21;C23;C26;C28;C31;C33;C36;C38;C41;C43;C4 6;C48;C51;C53;C56;C58;C61;C63;C66;C68;C71;C73;C76; C78;C81;C83;C86;C88;C91;C93;C96;C98;C101;C103;C106 ;C108;C111;C113;C116;C118;C121;C123;C126;C128;C131 ;C133;C136;C138;C141;C143").clearcontents
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst