HÜCRE DEĞERİNE GÖRE HÜCRE BİÇİMLENDİRME

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

HÜCRE DEĞERİNE GÖRE HÜCRE BİÇİMLENDİRME

İleti#1)  bilisim11 » 01 Nis 2020 11:59

ÜZERİNDE ÇALIŞTIĞIM BİR EXCELDE BUGÜNÜ GEÇEN TARİHLERİN OLDUĞU SATIRIN YANIP SÖNMESİNİ İSTİYORUM. AMA LOKAL OLARAK YAPABİLDİM SADECE BELLİ Bİ SATIR YANIP SÖNÜYOR, DİĞERLERİ ÇALIŞMIYOR. YARDIMCI OLABİLİRSENİZ ÇOK MEMNUN OLURUM

BİRAZ DAHA AÇIKLAYACAK OLURSAK:

B SÜTÜNUNDAKİ TARİH DEĞERİ BUGÜNDEN KUÇÜK OLAN SATIRLAR YANIP SÖNSÜN İSTİYORUM

ŞİMDİDEN TEŞEKKÜR EDERİM KOLAY GELSİN
Kullanıcı avatarı
bilisim11
 
Kayıt: 10 Arl 2016 15:27
Meslek: öğretmen
Yaş: 28
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: HÜCRE DEĞERİNE GÖRE HÜCRE BİÇİMLENDİRME

İleti#2)  hasan14 » 01 Nis 2020 15:26

Sanırım kod işiniz görür.Alan ve diğer isteklerinizi ayarlarsınız.Sayfayı açtığınızda çalışmaya başlar.
Kod: Tümünü seç
Dim Alan As Range: Dim s1 As Worksheet
Sub Auto_Open()
Set s1 = Sheets("Sayfa1")
    s1.Select
    s1.Range("A2:G200").Interior.Color = xlNone
    DoEvents
     For i = 2 To 200
        If s1.Range("B" & i) < Date And s1.Range("B" & i) <> "" Then
           s1.Range("A" & i & ":H" & i).Interior.ColorIndex = 3
            s1.Range("A" & i & ":H" & i).Font.ColorIndex = 2
       Else
        s1.Range("A" & i & ":H" & i).Interior.ColorIndex = xlNone
      End If
      Next i
       Set Alan = Nothing
      Application.OnTime Now + TimeValue("00:00:01"), "Renk"
        'Application.OnTime Now + TimeValue("00:00:01")
   End Sub

Sub Renk()
Set s1 = Sheets("Sayfa1")
DoEvents
     Set Alan = s1.Range("A2:H200")
            If Not Alan Is Nothing Then
        Alan.Interior.Color = xlNone
        Set Alan = Nothing
        Application.OnTime Now + TimeValue("00:00:01"), "Auto_Open"
    End If
End Sub
Kullanıcı avatarı
hasan14
Siteye Alışmış
 
Kayıt: 28 Ağu 2016 15:26
Meslek: eğitim
Yaş: 59
İleti: 486
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: zonguldak

Teşekkür: HÜCRE DEĞERİNE GÖRE HÜCRE BİÇİMLENDİRME

İleti#3)  bilisim11 » 02 Nis 2020 19:47

Çok teşekkür ederim Hasan Bey.

şkşk --)(
Kullanıcı avatarı
bilisim11
 
Kayıt: 10 Arl 2016 15:27
Meslek: öğretmen
Yaş: 28
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Teşekkür: HÜCRE DEĞERİNE GÖRE HÜCRE BİÇİMLENDİRME

İleti#4)  hasan14 » 02 Nis 2020 19:54

bilisim11 yazdı:Çok teşekkür ederim Hasan Bey.

şkşk --)(

Rica ederim.Dönüş yaptığınız için [TESEKKÜR]
Kullanıcı avatarı
hasan14
Siteye Alışmış
 
Kayıt: 28 Ağu 2016 15:26
Meslek: eğitim
Yaş: 59
İleti: 486
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: zonguldak

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

Forum Genel Makro Soruları

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe