Soru Sayfalar Arası Koşullu Biçimlendirme

[gicimi]

Merhaba,

Çalışma kitabında Sayfa1 A sütunda yazılı bilgiler Sayfa2 A sütununda var ise Sayfa2 deki bulunan değerinin tüm satırını Yeşil ile renklendirmeli, Nasıl yapılmalıdır.

Yada

Sayfa1 A sütununda yazılı bilgiler Sayfa2 B sütununda var ise Makro yardımı ile Yeni bir sayfa açarak bilgileri o sayfaya aktarmalı.

A sütunundaki veriler "Sayı" formatındadır.
Yardımcı olabilir misiniz.

 

[gicimi]

Konu güncel yardımcı olabilir misiniz.

 

[çıtır]

Sayfa2 deki biçimlendirileçek alanı seçiniz.Koşullu biçimlendirme formülü olarak aşağıdaki formülü kopyalayınız ve dolgu rengini yeşil yapınız.

=EĞERSAY(Sayfa1!$A$1:$A$100;$A1)>=1

 

[gicimi]

SN. @çıtır teşekkür ederim.

 

[gicimi]

@çıtır Makro konusundada yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Deneyiniz.

Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
    Dim X As Long, Son As Long, Satir As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Rapor").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    Sheets.Add , Sheets(Sheets.Count)
    Set S3 = ActiveSheet
    S3.Name = "Rapor"
    
    Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    Satir = 1
    
    For X = 1 To Son
        If WorksheetFunction.CountIf(S2.Range("B:B"), S1.Cells(X, 1)) > 0 Then
            S3.Cells(Satir, 1) = S1.Cells(X, 1)
            Satir = Satir + 1
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gicimi]

Sn. @Korhan Ayhan Bey teşekkür ederim. Kolaylıklar.