Sarı renk yerine gri renk kullanımı

[sdtssmz]

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]

    For Each hucre In .Range("a1:z31")
        If hucre.Interior.ColorIndex <> xlNone Then hucre.ClearContents
    Next

 

[sdtssmz]

    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]

Merhaba,

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

 

[sdtssmz]

Merhaba,

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

 

[Saban Sertkaya]

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]

Merhaba,

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

 

[sdtssmz]

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]

Bir örnek dosya paylaşsaydınız, kaç tane yere yazıp çözüm aramazdınız.

 

[sdtssmz]

Bir örnek dosya paylaşsaydınız, kaç tane yere yazıp çözüm aramazdınız.

çö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.

 

[veyselemre]

çö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.

 

[sdtssmz]

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.

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

 

[veyselemre]

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.

        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

 

[sdtssmz]

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.

        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