birleştirilmiş hücrede makro uygulama

Katılım
21 Kasım 2005
Mesajlar
355
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
21 Kasım 2005
Mesajlar
355
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Ekli dosyayı inceleyiniz.
 
Üst