birden fazla sayfada tanımlı tarama yapma

[osmanbudak]

Q sutunundaki bir değerin, bu çalışma sayfası ve var olan 15 farklı çalışma sayfasının AC sütununda aranmasını, bulunursa aradığın Q sutunu değerinin Z sutununa eş elen kısmında "satıldı" yazılsın, eğer bulamazsa "depoda" yazılsın istiyorum.. Nasıl yapabilirim. ne yaptıysam olmadı. Lütfen yardım eder misiniz.

 

[Ömer]

Merhaba,

Q sütunundaki veriler 2.satırdan başladığı düşünüldü.
Q sütunundaki verilerin olduğu sayfa adı "Ana_Sayfa" olarak düşünüldü.

Eğer bu veriler farklı ise kodlardaki ilgili bölümleri değiştirin.

Sub Ara_Yaz()

    Dim i As Long, s As Byte, j As Byte, c As Range
    
    Application.ScreenUpdating = False
    Sheets("[COLOR="Red"]Ana_Sayfa[/COLOR]").Select 'Q sütunundaki verilerin olduğu sayfa
    Range("Z[COLOR="blue"]2[/COLOR]:Z" & Rows.Count).ClearContents 'veriler 2.satırdan başlıyor
    
    For i =[COLOR="blue"][COLOR="blue"] 2[/COLOR][/COLOR] To Cells(Rows.Count, "Q").End(xlUp).Row '2.satır
        s = 0
        For j = 1 To Worksheets.Count
            With Sheets(j)
                If .Name <> "Ana_Sayfa" Then
                    Set c = .[AC:AC].Cells.Find(Cells(i, "Q"), _
                        , xlValues, xlWhole)
                    If Not c Is Nothing Then
                        s = 1
                        Exit For
                    End If
                End If
            End With
        Next j
        If s = 1 Then
            Cells(i, "Z") = "satıldı"
        Else
            Cells(i, "Z") = "depoda"
        End If
    Next i

    Application.ScreenUpdating = True
    
End Sub

.

 

[osmanbudak]

Yardımın için teşekkür ederim. Ancak uyguladım ama bir türlü "satıldı" aktif hale gelmedi... veriler 10. satırdan başlıyor. Hepsine depoda yazıyor..

 

[Ömer]

Örnek dosyanızı eklermisiniz.

www.dosya.tc

.

 

[osmanbudak]

http://s3.dosya.tc/server12/l4qgdi/Adsiz.jpg.html

Q Sütunundaki herhangi bir veri, AC sütununda herhangi bir yerde ve diğer çalışma sayfalarının AC sütunundaki herhangi bir satırla eşleşmesi durumunda, Q sütununda seçilen veri ile aynı satır sırasında, Z sütununda "satıldı" yazacak, eğer eşleşme olmazsa "depoda" yazacak..
Önemli olan bu eşleştirme işlemini sadece tek çalışma sayfasında değil diğer sayfalarda da yapabilmesi..
Bu arada ilk veriler, 10. satırdan itibaren giriliyor.

 

[YUSUF44]

Ekteki gibi deneyiniz:

https://drive.google.com/file/d/0B43WMUs21VpfMUFtZmw5VC0teTA/view?usp=sharing