Seri içerisinde bulunanların belirlenmesi

[irfancantr]

İyi günler;

Sayfanın sağında bulunan seri numaralı koçanların renginin, a sütununda bulunanlara göre renk değiştirmesini istiyorum.

Örnek dosyada nasıl olmasını tarif etmeye çalıştım, ilgilenen arkadaşlara şimdiden çok teşekkür ederim,

Not: Mevcut olanlar yeşil diğerleri kırmızı gibi renkler olabilir,
Koşullu biçimlendirmede olabilir hiç farketmez

 

[Korhan Ayhan]

Selamlar,

Sanıyorum 2007 versiyonu kullanıyorsunuz.

D3:M169 aralığını seçin.
GİRİŞ sekmesinden Koşullu Biçimlendirme menüsünü tıklayın.
Açılan menüden "Yeni Kural" seçeneğini tıklayın.
"Kural Türü" bölümünden en alttaki seçeneği seçin.
Formül yazacağınız bir kutucuk açılacaktır. Bu kutuya aşağıdaki formülü yazın.

=EĞERSAY($A:$A;D3)>0

Hemen altındaki "Biçimlendir" butonuna tıklayarak istediğiniz dolgu rengini seçip işleminizi tamamlayın.

 

[irfancantr]

Hocam eline sağlık, çok teşekkür ederim

 

[irfancantr]

Makrolu çözüm

Merhaba;

Herkese kolay gelsin,

Geçen gün seri numaralarını kontrol için bir dosya düzenlemiştik fakat sayılar arttıkça dosya boyutu yükseliyor ve işlemler çok yavaşlatıyor bunun için makrolu bir çözüm yolu bulabilir miyiz?


Takip sayfasının A sütununda bulunan verilerin sonu 1 olanları bulmasını ve bununla birlikte artan 9 sıralama daha eklemek istiyorum;

Örn: 601 bulundu ise sağa doğru 602,603,604......610 olması gibi

Daha sonra bu örenkete ki yazılan değerlerin (koşullu biçimlendirme çok yavaşlatıyor) A sütununda bulunanlar içerisinde aranması ve farklı bir renk ile renklendirilmesini istiyorum.

Mantık olarak teslim aldığımız koçanlar 10'lu guruplar halinde ve hepsi 1 serisi ile başlıyor. Biz satış aşamasından sonra geri gelipte bu 10'lu gurupların arasından teslim almadıklarımızı kontrol etmeye çalışıyoruz.

Örnek dosyada biraz anlatmaya çalıştım, yardımlarınız için şimdiden çok teşekkür edeiyorum kolay gelsin iyi çalışmalar.

Not: Orjinal dosyada Kırmızı alanda farklı veriler olduğu için k sütunundan sonra işlem yapılmasını rica ediyorum .

Ek: Affınıza sığınarak denemek için kodlarla oynama yaptım sayın evren hocam kusura bakmayınız...

 

[irfancantr]

Konu güncelleme

Konu güncelleme...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KOÇAN_NO_TAKİP()
    Dim S1 As Worksheet, X As Long, SATIR As Long, BUL As Range
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Takip")
    S1.Select
    Range("B3:B65536").Interior.ColorIndex = xlNone
    Range("K3:T65536").Clear
    SATIR = 3
    
    For X = 3 To Range("A65536").End(3).Row
        If Right(Cells(X, 1), 1) = "1" Then
            Cells(SATIR, "K") = Cells(X, 1)
            Cells(SATIR, "K").AutoFill Destination:=Range("K" & SATIR & ":T" & SATIR), Type:=xlFillSeries
            SATIR = SATIR + 1
        End If
        
        Set BUL = Range("K:T").Find(Cells(X, 1), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
            If Cells(X, 2) < 100 Then
                BUL.Interior.ColorIndex = 3
            Else
                BUL.Interior.ColorIndex = 6
            End If
        End If
    Next
    
    Set BUL = Nothing
    Set S1 = Nothing
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[irfancantr]

Sayın Korhan Ayhan hocam;

Emeğiniz için çok teşekkür ederim.

Peki buna ilave olarak b sütununda bulunan verilerden 100 değerinden düşük olanlarıda farklı bir renk ile belirtebilir miyiz?

Hangi koçanın yarım olduğunu anlayabilmek için?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[irfancantr]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

Hocam sonuç pek farklı olmadı ama yoksa gözden kaçırdığım bir durum mu var?

 

[Korhan Ayhan]

Selamlar,

Sn. irfancantr,

Kod K-T sütun aralığına A sütununda sonu 1 ile biten serileri oluşturuyor ve A sütununda olan değerler dolgu rengi sarı renk oluyor. Aynı zamanda B sütunundaki değer 100 değerinden küçükse hücrenin rengi kırmızı renk oluyor. Amacınız bu değil miydi?

 

[irfancantr]

Özür dilerim hocam eksik dile getirmişim,100 değerinin altında olan K:T sütunları aralığında ki koçan numaralarının rengini farklı yapabilir miyiz demek istedim...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[irfancantr]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

Biraz yorucu oldum ama bu seferde sarı renkten hepsi kırmızıya döndüler hocam

Neyse bunada çok şükür ilginiz ve emeğiniz için çok teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Siz örnek dosyanıza nasıl olması gerektiğini renklendirerek açıklarsanız kodu ona göre revize edebilirim.

 

[irfancantr]

Buyrun hocam.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[irfancantr]

Gecenin bu saatinde uğraştırdım hakkınızı helal edin,
çok teşekkür ederim iyi geceler.