Sarı renk yerine gri renk kullanımı

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Kullandığım böyle bir formülüm var sarı (yellow) hücreleri temizle yerine gri yapmak istiyorum ama grey yazmama rağmen dolgu renklerindeki bütün grileri denedim ama silmiyor bunun yerine renkli hücreleri temizle gibi bir şey yapabilir miyim şimdiden teşekkür ederim. formülü nasıl düzenlemem gerekir.

Sub temizle()
Dim Hucre As Range
With ActiveSheet
.PrintOut
For Each Hucre In .Range("a1:z31")
If Hucre.Interior.Color = vbYellow Then Hucre = ""
Next
End With
MsgBox "SİPARİŞ FORMU YAZDIRILDI."
End Sub
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
    For Each hucre In .Range("a1:z31")
        If hucre.Interior.ColorIndex <> xlNone Then hucre.ClearContents
    Next
 
Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Kod:
    For Each hucre In .Range("a1:z31")
        If hucre.Interior.ColorIndex <> xlNone Then hucre.ClearContents
    Next
Malesef çalışmadı

Sub temizle()
Dim Hucre As Range
With ActiveSheet
.PrintOut
For Each Hucre In .Range("a1:z31")
If Hucre.Interior.ColorIndex <> xlNone Then Hucre.ClearContents
Next
End With
MsgBox "SİPARİŞ FORMU YAZDIRILDI."
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Kod:
Sub Boya_Sil()
    Range("a1:z31").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
dener misiniz?
İyi çalışmalar
 
Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Merhaba,
Kod:
Sub Boya_Sil()
    Range("a1:z31").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
dener misiniz?
İyi çalışmalar
teşekkür ederim ama amaç renkleri silmek değil renkli alandaki verileri silecek renkler kalacak
 
Katılım
6 Temmuz 2015
Mesajlar
925
Excel Vers. ve Dili
2003
Merhabalar, Ne istediğinizi anlayamadım. Veysel Hocamın yazdığı kod, işinizi görmesi lazım. Yine de aşağıdaki şekilde kendinize göre bir değişiklik yapabilirsiniz belki. Gri rengi bulmak için kullabiliirsiniz.

Sub temizle()
Dim Hucre As Range
With ActiveSheet
.PrintOut
For Each Hucre In .Range("a1:z31")
If Hucre.Interior.ColorIndex = 6 Then Hucre = ""
Next
End With
MsgBox "SİPARİŞ FORMU YAZDIRILDI."
End Sub

Sub RenkleriGöster()
For a = 1 To 56
Cells(a, 1).Interior.ColorIndex = a
Next
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,580
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Kod:
Sub Boya_Sil()
    For Each hucre In .Range("a1:z31")
'        If hucre.Interior.ColorIndex <> xlNone Then hucre.ClearContents
        If hucre.Interior.ColorIndex = xlNone Then hucre.ClearContents
    Next
End Sub
O halde Veysel hocanın kodunu tek yönlü denemişsiniz.
iyi çalışmalar
 
Son düzenleme:
Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Yardımcı olmaya çalışan bütün arkadaşlara teşekkür ediyorum . Aşağıdaki formülle zaten sarı renk olan hücrelerdeki verileri siliyorum renkler kalıyor veriyi siliyor. ben sarı renk değil de örneğin açık gri bir hücre de aynı işi yapmasını istiyorum. Yukarıdaki formülleri maalesef çalıştıramadım belki de hücrelerin bazıları birleştirilmiş olduğundandır. Umarım anlatabilmişimdir.

Sub temizle()
Dim Hucre As Range
With ActiveSheet
.PrintOut
For Each Hucre In .Range("a1:z31")
If Hucre.Interior.Color = vbYellow Then Hucre = ""
Next
End With
MsgBox "SİPARİŞ FORMU YAZDIRILDI."
End Sub
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Bir örnek dosya paylaşsaydınız, kaç tane yere yazıp çözüm aramazdınız.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
çözüm bulsaydım başka yerlere yazıp çözüm aramızdım. Ayrıca en son mesajımda yeterince anlattığımı düşünüyorum.
Doğru söylüyorsunuz hata bizde daha müneccim seviyesine gelemedik. Sizin gri den hangi rengi kasdettiğinizi bilmemiz gerekir. Dosya yapınızı bilmemiz gerekir. Yeterince anlattığınızı anlayamadık kusura bakmayın.
 
Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Doğru söylüyorsunuz hata bizde daha müneccim seviyesine gelemedik. Sizin gri den hangi rengi kasdettiğinizi bilmemiz gerekir. Dosya yapınızı bilmemiz gerekir. Yeterince anlattığınızı anlayamadık kusura bakmayın.
kimseyi müneccim olarak görmüyorum ama gönüllü olarak yardım ettiğiniz insanları küçümsemek doğru değil eğer ben yanlış anlamışsam kusura bakmayın. altın üye olmadığım için dosyayı buradan yüklüyorum. yapmak istediğim ise yalnızca renkli alanlardaki hücre içeriğini silmek diğer hücrelerde formüller olduğu için kalacak renklerde kalacak bir sonraki girişler için. bazı renklendirilmiş hücreler birleştirilmiş hücrelerden oluşmaktadır.

 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Bir örnek dosya paylaşsaydınız, kaç tane yere yazıp çözüm aramazdınız.
Helal olsun, bu cümleden küçümsemeyi nasıl çıkarttınız. Olsa olsa en fazla sitemkar bir tavsiye olur. Bu kadar deneyimli insanın bulunduğu bir ortamda anlattığınıza göre çok basit düzeyde, dosyanıza göre orta düzeyde bir soru, 100 görüntülenme yapılmış, cevap alamıyorsanız bir yerlerde bir hata var demektir. Bazı şeyler anlatmakla olmaz, görmek lazım, incelemek lazım, denemek lazım.

Kod:
        For Each hucre In .Range("a1:z31")
            'If hucre.Interior.ColorIndex <> -4142 Then
            If hucre.Interior.ColorIndex = 2 And hucre.Value <> "" Then
                If hucre.MergeCells Then
                    hucre.MergeArea.ClearContents
                Else
                    hucre.ClearContents
                End If
            End If
        Next
 
Son düzenleme:
Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Helal olsun, bu cümleden küçümsemeyi nasıl çıkarttınız. Olsa olsa en fazla sitemkar bir tavsiye olur. Bu kadar deneyimli insanın bulunduğu bir ortamda anlattığınıza göre çok basit düzeyde, dosyanıza göre orta düzeyde bir soru, 100 görüntülenme yapılmış, cevap alamıyorsanız bir yerlerde bir hata var demektir. Bazı şeyler anlatmakla olmaz, görmek lazım, incelemek lazım, denemek lazım.

Kod:
        For Each hucre In .Range("a1:z31")
            'If hucre.Interior.ColorIndex <> -4142 Then
            If hucre.Interior.ColorIndex = 2 And hucre.Value <> "" Then
                If hucre.MergeCells Then
                    hucre.MergeArea.ClearContents
                Else
                    hucre.ClearContents
                End If
            End If
        Next
Maalesef çalıştıramadım belki anlattığıma göre çok basit düzeyde, dosyama göre orta düzeyde bir soru olduğu içindir. Belki de benim beceriksizliğimdir. Başka yerlere yazmam ve dosya eklemeden sitemkar davranışlar olmadan bazı arkadaşlar sayesinde aşağıdaki formülle sorunumu çözdüm belki başka arkadaşlara sitemkar davranışlara maruz kalmadan yardımcı olur. Size ve diğer arkadaşlara emekleri için teşekkür ederim.

Sub RENKLILERI_SIL()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintOut Copies:=1
For Each hcr In ActiveSheet.UsedRange
If hcr.Interior.ColorIndex <> xlNone Then
say = say + 1
If say = 1 Then: Set adres = hcr
If say > 1 Then: Set adres = Union(adres, hcr)
End If
Next: adres.ClearContents
MsgBox "SİPARİŞ FORMU YAZDIRILDI."
End Sub
 
Üst