birleştirilmiş hücrede makro uygulama

[siyar0044]

arkadaşlar ek olarak gönderdiğim dosyada sarı renkli olan hücreler temizle butonuna basılınca içeriği temizleniyor ancak 5 nci satırda bulunan birleştirilmiş hücre bulunduğu için hata veriyor bu hatanın bir çözüm yolu varmı varsa yardımcı olurmusunuz şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:13ac5ed1d5]Private Sub CommandButton1_Click()
For Each hucre In [a1:e20]
If hucre.Interior.Color = vbYellow Then
If hucre.MergeCells = True Then
hucre.Select
Selection.ClearContents
Else
hucre.ClearContents
End If
End If
Next
End Sub
[/vb:1:13ac5ed1d5]

 

[siyar0044]

eline sağlık leventm çalışıyor ben bir şey daha sormak istiyorum ben bu uygulamayı diğer sayfalarda da uygulamak istiyorum gerçi vermiş olduğum örnekte sayfa2 sayfa3..... boş ama benzeer tabloların olması durumunda sarı renklerin tüm sayfalarda silinmesini istesem onu nasıl yapabilirim acaba bunada cevap verebilirseniz çok sevinirim

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:e00b3aca84]Private Sub CommandButton1_Click()
for a=1 to sheets.count
For Each hucre In sheets(a).[a1:e20]
If hucre.Interior.Color = vbYellow Then
If hucre.MergeCells = True Then
sheets(a).select
hucre.Select
Selection.ClearContents
Else
hucre.ClearContents
End If
End If
Next
next
End Sub
[/vb:1:e00b3aca84]

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.