[Yardım]  Makro ile Çok Şartlı Koşullu Biçimlendirme

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

Makro ile Çok Şartlı Koşullu Biçimlendirme

İleti#1)  acakilli » 12 Oca 2022 11:56

Merhabalar;

Ekte paylaşmış olduğum dosyada 8 başlıktan oluşan bir tablom var. Yapmak istediğim kısaca, tarihi ve sefer numarası aynı olan kayıtların satırını (B:I arası) işaretlemek. Bu işlemi koşullu biçimlendirme ile yapıyorum ancak çok fazla kayıt olduğu için kasıyor. Makro ile yapıldığında kasma sorunu olmayacağını düşünüyorum.
Makro her çalıştırıldığında tüm renklendirmeleri temizleyip yeniden çift kayıtları renklendirmesi gerekiyor. Aksi durumda kayıtlarda güncelleme yaptığım halde makronun daha önce çalıştırıldığında renklendirdiği satırlarda çift kayıtmış gibi görünebilir.

Şimdiden teşekkür eder, sağlıklı günler dilerim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
acakilli
Siteye Alışmış
 
Kayıt: 23 Ekm 2014 12:34
Meslek: Memur
Yaş: 28
İleti: 252
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Makro ile Çok Şartlı Koşullu Biçimlendirme

İleti#2)  okutkan » 12 Oca 2022 18:38

Dosyanızda kasma olur mu bilmiyorum ama bir deneyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Makro ile Çok Şartlı Koşullu Biçimlendirme

İleti#3)  acakilli » 12 Oca 2022 21:00

Merhaba;

Listenin en altında sefer numarası 24 ve 1041 olan kayıtlar var. Yukarıda aynı seferlere renklendirme yapılmasına rağmen bu kayıtlar yapılmıyor.
Kullanıcı avatarı
acakilli
Siteye Alışmış
 
Kayıt: 23 Ekm 2014 12:34
Meslek: Memur
Yaş: 28
İleti: 252
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bahçelievler

Cevap: Makro ile Çok Şartlı Koşullu Biçimlendirme

İleti#4)  okutkan » 12 Oca 2022 21:15

Onları da elinizle siz boyayın :) yarın müsait olduğumda tekrar kontrol ederim.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

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

Cevap: Makro ile Çok Şartlı Koşullu Biçimlendirme

İleti#5)  okutkan » 13 Oca 2022 19:06

Aşağıdaki kodu kullanın.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim sf As Worksheet: Set sf = Sheets("mesaj_kontrol")
son = sf.Cells(Rows.Count, "B").End(3).Row
Application.ScreenUpdating = False
sf.Range("B3:I" & son).Interior.Color = xlNone


For i = 3 To son
birlesim1 = sf.Cells(i, "B") & sf.Cells(i, "D")

    For k = i + 1 To son
    birlesim2 = sf.Cells(k, "B") & sf.Cells(k, "D")
        If birlesim1 = birlesim2 Then
       
        sf.Range(Cells(i, "B"), Cells(i, "I")).Interior.ColorIndex = 8
        sf.Range(Cells(k, "B"), Cells(k, "I")).Interior.ColorIndex = 8
        Exit For
        End If
   
    Next k


Next i

Application.ScreenUpdating = True
End Sub
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe