[Yardım]  Sarı renk yerine gri renk kullanma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sarı renk yerine gri renk kullanma

İleti#1)  sdtssmz » 17 Ekm 2020 14:32

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
Kullanıcı avatarı
sdtssmz
Yeni Başlamış
 
Kayıt: 14 Ekm 2020 21:10
Meslek: Satın alma
Yaş: 49
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep

Cevap: Sarı renk yerine gri renk kullanma

İleti#2)  Miraç CAN » 17 Ekm 2020 15:09

Hucre.Interior.Color = rgbGray şeklinde kullanmalısınız, ve gri tonlarına da dikkat etmelisiniz.
Ya da dediğiniz gibi dolgu rengi olanlara işlem yapmak için: If Not Hucre.Interior.ColorIndex = xlNone Then gibi bir sorgu kullanabilirsiniz.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 744
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Sarı renk yerine gri renk kullanma

İleti#3)  sdtssmz » 18 Ekm 2020 09:08

Yardımlarınız için çok teşekkür ederim.

If Not Hucre.Interior.ColorIndex = xlNone Then bunu çalıştıramadım
Hucre.Interior.Color = rgbGray bu çalıştı bunu açık griler içinde yapabilsek sorun halledilmiş olacak
Kullanıcı avatarı
sdtssmz
Yeni Başlamış
 
Kayıt: 14 Ekm 2020 21:10
Meslek: Satın alma
Yaş: 49
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep

Cevap: Sarı renk yerine gri renk kullanma

İleti#4)  Miraç CAN » 18 Ekm 2020 10:27

Kod: Tümünü seç
For Each Hucre In .Range("a1:z31")
If Not Hucre.Interior.ColorIndex = xlNone Then Hucre.ClearContents = "hücrede herhangi bir dolgu rengi var ise içeriği temizle"
Next

Gray.ColorIndex değerleri %80=56, %50=16, %40=48, %25=15
Ama sizin için en pratik yolu, önce hücreye istediğiniz dolgu rengini uygulayın, sonra .Interior.Color özelliği ile değerini öğrenip, öyle soruguyu oluşturun

Mesela, A1 hücresi için: Cells(1, 1) = Cells(1, 1).Interior.Color A1'e A1'in dolgu rengi color değerini yazar.
Kod: Tümünü seç
For Each Hucre In .Range("a1:z31")
If Hucre.Interior.Color = 8421504 Then Hucre.ClearContents = "dolgu rengi Gray%50/ColorIndex=16 ise içeriği temizle"
Next
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 744
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sarı renk yerine gri renk kullanma

İleti#5)  sdtssmz » 18 Ekm 2020 11:46

If Hucre.Interior.Color = 8421504 Then Hucre.ClearContents = "dolgu rengi Gray%50/ColorIndex=16 ise içeriği temizle"
bu satırı formül de hata verdi bazi hücreler birleştirilmiş hücre ondan mıdır acaba ? bunu çalıştırırsam deneme yoluyla bulabilirim sanırım. yardımlarınız içinde ayrıca çok teşekkür ederim.

Sub temizle()
Dim Hucre As Range
With ActiveSheet
.PrintOut
For Each Hucre In .Range("a1:z31")
If Hucre.Interior.Color = 8421504 Then Hucre.ClearContents = "dolgu rengi Gray%50/ColorIndex=16 ise içeriği temizle"
Next
End With
MsgBox "SİPARİŞ FORMU YAZDIRILDI."
End Sub
Kullanıcı avatarı
sdtssmz
Yeni Başlamış
 
Kayıt: 14 Ekm 2020 21:10
Meslek: Satın alma
Yaş: 49
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep

Cevap: Sarı renk yerine gri renk kullanma

İleti#6)  Ömer BARAN » 18 Ekm 2020 13:24

Merhabalar.

Aşağıdaki kod, aktif sayfada arkaplan rengi olan (herhangi bir renk)
birleştirilmiş/birleştirilmemiş hücre içeriklerini temizler.

Kod: Tümünü seç
Sub RENKLILERI_SIL()
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
End Sub


.
☾✭ İnadına TÜRKÇE ✭☽

Sorularınızı bana https://www.ExcelDestek.Com 'dan da sorabilirsiniz.




.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 16:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 56
İleti: 245
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Sarı renk yerine gri renk kullanma

İleti#7)  sdtssmz » 18 Ekm 2020 13:44

başta size ve diğer yardımcı olan arkadaşlara çok teşekkür ediyorum.tam istediğim olmuş. bir ricam daha olacak eğer mümkün ise bu formüle aktif sayfayı temizlemeden önce yazdırmak için formül nasıl olmalı şimdiden teşekkürler.
Kullanıcı avatarı
sdtssmz
Yeni Başlamış
 
Kayıt: 14 Ekm 2020 21:10
Meslek: Satın alma
Yaş: 49
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep

Cevap: Sarı renk yerine gri renk kullanma

İleti#8)  Ömer BARAN » 18 Ekm 2020 13:56

For each .... satırının hemen üstüne ekleyin;

Kod: Tümünü seç
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintOut Copies:=1
☾✭ İnadına TÜRKÇE ✭☽

Sorularınızı bana https://www.ExcelDestek.Com 'dan da sorabilirsiniz.




.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 16:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 56
İleti: 245
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

Cevap: Cevap: Sarı renk yerine gri renk kullanma

İleti#9)  sdtssmz » 18 Ekm 2020 14:09

Ömer BARAN yazdı:For each .... satırının hemen üstüne ekleyin;

Kod: Tümünü seç
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintOut Copies:=1


Ömer bey sabrınız ve yardımlarınız çok teşekkür ederim.sorunsuz çalıştı.
Kullanıcı avatarı
sdtssmz
Yeni Başlamış
 
Kayıt: 14 Ekm 2020 21:10
Meslek: Satın alma
Yaş: 49
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe