hücre temizleme

[dbicer83]

ekteki dosyada beyaz hücreler korumasız rapor sayfasında buton yardımıyla beyaz renkteki korumasız hücrelerdeki veriler silinecek

 

[Orion1]

Beyaz renkli hücreleri siler .Ekli dosyayı inceleyiniz.
Butona tıklayınız.

Sub sil()
Dim hucre As Range
For Each hucre In Range("A1:Y137")
    If hucre.Interior.ColorIndex = 2 Then hucre.ClearContents
Next
MsgBox "Silme İşlemi Tamamlandı..!!"
End Sub

 

[dbicer83]

ben mi çalıştıramadım çalışmıyormu silme işlemi yapıyor ama sadece butonun bulunduğu sayfada değişiklik yapıyor diğer sayfaları silmiyor birde şifre ekletmek istiyorum
ayrıca sayfaya koruma konulduğu zaman hata veriyor sayfa korumalı çalışıyor zaten mecburen

teşekkürler

 

[Orion1]

ben mi çalıştıramadım çalışmıyormu silme işlemi yapmadı ama yani çalışıyor ama sadece butonun bulunduğu sayfada değişiklik yapıyor diğer sayfaları silmiyor birde şifre ekletmek istiyorum teşekkürler

Önceki mesajımdan dosyayı indirip butona tıklayınız.Benim girmiş olduğum veriler siliniyor.

 

[dbicer83]

silme işlemi yapıyor ama sadece butonun bulunduğu sayfada değişiklik yapıyor diğer sayfaları silmiyor birde şifre ekletmek istiyorum
ayrıca sayfaya koruma konulduğu zaman hata veriyor sayfa korumalı çalışması gerekiyor sayfanın

teşekkürler

 

[isfa5878]

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="12345" 'Kendi şifreniz

Dim Parola As Variant
Parola = InputBox("Parola Giriniz.")
If Parola = "123" Then 'Kendi şifreniz
For Each sil In Range("a1:z1000")
If sil.Interior.ColorIndex = 2 Then


sil.Value = ""
End If

Next
End If
kaldır.
ActiveSheet.protect Password:="12345" 'Kendi şifreniz
End Sub

hücrelerin renksiz değil beyaz renkli olması gerek.

 

[dbicer83]

şimdi istenilen şekilde olmuyormu arkadaşlar program sadece butonun olduğu sayfayı siliyor kitap 1111.rar dosyasındaki bakabilecek varmı acaba? ilginizden teşekkürler

 

[Orion1]

Aşağıdaki kodu deneyiniz.
Ancak kodların çalışması biraz zaman alıyor.
Çalışma sayfasının şifresi 123

Sub sil()
Dim hucre As Range, syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "RAPOR" Then
        syf.Unprotect "123" '&#351;ifre
        For Each hucre In Range("A1:Z138")
            If hucre.Interior.ColorIndex = 2 Then hucre.ClearContents
        Next
        syf.Protect "123" '&#350;ifre
    End If
Next
MsgBox "Silme &#304;&#351;lemi Tamamland&#305;..!!"
End Sub

 

[dbicer83]

işlem tamam fakat rapor sayfasındaki kısmı siliyor diğer sayfaları temizleme yapmıyor ayrıca şifreyi sil butonuna basınca o zaman soracak şifreyi sayfa korumasını kaldır denildiği zaman şifreyi soruyor yani sil denildiği zaman şifre sorulacak şifre doğru olması dorumunda kilitli olmayan beyaz hücreler silinecek.

 

[hsayar]

...........................

hücrelerin renksiz değil beyaz renkli olması gerek.

renksiz hücreler ile çalışacaksanız
-4142 kodunu kullanmalısınız.

Otomatik font rengi de lazım olursa
-4105 tir.

 

[Orion1]

işlem tamam fakat rapor sayfasındaki kısmı siliyor diğer sayfaları temizleme yapmıyor ayrıca şifreyi sil butonuna basınca o zaman soracak şifreyi sayfa korumasını kaldır denildiği zaman şifreyi soruyor yani sil denildiği zaman şifre sorulacak şifre doğru olması dorumunda kilitli olmayan beyaz hücreler silinecek.

Renk scalasından beyaz'ı seçip dolgu rengini beyaz yapınız.Otomatik değil.

 

[dbicer83]

Renk scalasından beyaz'ı seçip dolgu rengini beyaz yapınız.Otomatik değil.

rapor kısmını siliyor fakat ptesi salı vs silmiyor ayrıca sil butonuna basıldığında şifre sormasını istiyorum çalışmıyor

 

[hsayar]

siz tam olarak ne istiyorsunuz?
Anladığım;
rapor sayfası haricindeki sayfalarda bulunan beyaz dolguya sahip hücrelerdeki verilerin tamamını şifre onayı ile silmek mi?

 

[hsayar]

Sub sil()
Dim hucre As Range
Dim sh As Worksheet
Dim sifre As String
sifre = InputBox("şifrenizi yazınız", "şifre")
For Each sh In ActiveWorkbook.Sheets
    If sh.Name <> Sheets("RAPOR").Name Then
    sh.Unprotect sifre
        sh.Select
        For Each hucre In Range("A1:Y137")
            If hucre.Interior.ColorIndex = 2 Then hucre.ClearContents
        Next
    sh.Protect sifre
    End If
Next
MsgBox "Silme &#304;&#351;lemi Tamamland&#305;..!!"
End Sub

yanlış kod vermişi gördü iseniz düzeltildi...
bir de Rapor sayfasında silinecekleri sil butonuna sağ tıklayarak sil komutunu atayın p.tesidekine değil.
bunu deneyin önce işleme başlamadan önce bütün sayfalara koruma verin sadece Tx lere değil sadece Txlerde şifre olacaksa ona göre düşünürüz tekrar

 

[dbicer83]

siz tam olarak ne istiyorsunuz?
Anladığım;
rapor sayfası haricindeki sayfalarda bulunan beyaz dolguya sahip hücrelerdeki verilerin tamamını şifre onayı ile silmek mi?

evet doğrudur fakat silinmeyecek 2 sayfa daha var onun dışındakiler silinecek o dosyada yer alanlar rapor harici silinecek fakat silinmeyecek raporla beraber 3 dosya var

 

[hsayar]

onlar niye örnek dosyanızda yok.... neyse
If sh.Name <> Sheets("RAPOR").Name Then
Sat&#305;r&#305;n&#305;
If sh.Name <> Sheets("RAPOR").Name Or sh.Name <> Sheets("di&#287;er1").Name Or sh.Name <> Sheets("di&#287;er2").Name Then
olarak de&#287;i&#351;tirin
tabi di&#287;er1,2 yerlerine sayfan&#305;n kendi ad&#305;n&#305; yaz&#305;n

 

[dbicer83]

onlar niye örnek dosyanızda yok.... neyse
If sh.Name <> Sheets("RAPOR").Name Then
Satırını
If sh.Name <> Sheets("RAPOR").Name Or sh.Name <> Sheets("diğer1").Name Or sh.Name <> Sheets("diğer2").Name Then
olarak değiştirin
tabi diğer1,2 yerlerine sayfanın kendi adını yazın

HATA KODU 424 verdi

 

[hsayar]

tam dosya ekleyin

 

[dbicer83]

dosya ektedir

 

[dbicer83]

dosyay&#305; ekledim hsayar karde&#351;im bakarsan bir sevinirim ilginden dolay&#305; te&#351;ekk&#252;rler