Belirli hücreleri temizleme

[vuranoğlu]

Merhaba

Özel Alt KomutDüğmesi1_Click ()
Menzil Olarak Dim Hucre
T = 1 için
Tablolar (t) .Select

Her Bir Hucre İçin [F3: g112]

Eğer Hucre.Interior.Color = RGB (235, 248, 224) ise
Hucre.MergeCells Öyleyse
Hucre.MergeArea.ClearContents
Başka
Hucre.ClearContents
Bittiğinde
Bittiğinde
Sonraki
Sonraki
Son Alt



Yukarıdaki makro ile 235, 248, 224 kodlu Hücreler temizleniyor.Ancak k3: K58 hücerini de temizlemek istiyorum.
Her Bir Hucre İçin [F3: g112; k3: k58] kod ile çalıştıramadım.
Nasıl değişiklik yapmalıyız?

 

[vuranoğlu]

Merhaba

Özel Alt KomutDüğmesi1_Click ()
Menzil Olarak Dim Hucre
T = 1 için
Tablolar (t) .Select

Her Bir Hucre İçin [F3: g112]

Eğer Hucre.Interior.Color = RGB (235, 248, 224) ise
Hucre.MergeCells Öyleyse
Hucre.MergeArea.ClearContents
Başka
Hucre.ClearContents
Bittiğinde
Bittiğinde
Sonraki
Sonraki
Son Alt



Yukarıdaki makro ile 235, 248, 224 (renk kodu) kodlu Hücreler temizleniyor.Ancak k3: K58 hücerini de temizlemek istiyorum.
Her Bir Hucre İçin [F3: g112; k3: k58] kod ile çalıştıramadım.
Nasıl değişiklik yapmalıyız?

 

[Korhan Ayhan]

Sayfalarınızda koruma var.

 

[vuranoğlu]

Özel Alt Çalışma Sayfası_Değiştir (Aralık Olarak Yerel Hedef)
Selection.Count> 1 ise Sub'dan çıkın.
Eğer kesişiyorsa (Hedef, Menzil ("A: B"))
satir = Target.Row
sutun = Target.Column

sonsatira = Hücreler (Rows.Count, "A"). End (3) .Row
sonsatirb = Hücreler (Rows.Count, "B"). End (3) .Row
Eğer sonsatira> sonsatirb Sonra sonsatir = sonsatira Else sonsatir = sonsatirb
say = 0
İ = 1 için sonsatir'e
veria = Hücreler (i, "A") Değer
verib = Hücreler (i, "B") Değer
Eğer veria = Hücreler (satir, "A"). Değer Ve verib = Hücreler (satir, "B"). Değer Sonra say = 1 + say
Sıradaki ben
> 1 ise
MsgBox (veria & "ve" & verib & "Mükerrer girildi.")

Application.EnableEvents = Yanlış
Hücreler (satir, "A"). Değer = ""
Hücreler (satir, "B"). Değer = ""
Application.EnableEvents = Doğru

Bittiğinde

Son Alt

 

[vuranoğlu]

İlk mesajda verilen makro ile haki renkleri [F3: g112] bu aralıktaki veriler silinebiliyor. [F3: g112] bu aralıktaki tüm hücreler korumalı şifre 1.Yapmak istediğim k3: k:58 aralığında da temizleme işlemi yapmak istiyorum.[F3: k58] şekilde olmadı.