Farklı Dosya Yerine Aynı dosyanın 2.Sayfasından veri almak

[tugkan]

Merhaba,

Aşağıdaki makroda aynı klasördeki YEDEK PARÇA adındaki dosyadan verileri kontrol ediyor. Bunun yerine aynı dosyanın 2. sayfasından kontrol nasıl ettireceğiz?

Sub kontrol()
    Dim Rky As Workbook, Evn As Range, i%
    Application.ScreenUpdating = False
    Set Rky = Workbooks.Open(ThisWorkbook.Path & "\YEDEK PARÇA.xls")
    With ThisWorkbook.Sheets(1)
        For i = 2 To .Range("A65536").End(3).Row
            Set Evn = Columns(1).Find(.Cells(i, 1).Value, , , 1)
            If Not Evn Is Nothing Then
                If Cells(Evn.Row, "E").Value = .Cells(i, "E").Value Then
                    .Cells(i, "D").Value = "DOĞRU"
                        Else
                    .Cells(i, "D").Value = "DÜZELT"
                End If
                .Cells(i, "D").Value = "VAR"
                    Else
                .Cells(i, "D").Value = "YOK"
            End If
        Next i
    End With
    Rky.Close False
    Application.ScreenUpdating = True
    i = Empty: Set Evn = Nothing: Set Rky = Nothing
End Sub

Sanırım

Şu satırda değişiklik yapmamız gerek ama nasıl??

Set Rky = Workbooks.Open(ThisWorkbook.Path & "\YEDEK PARÇA.xls")

Teşekkürler

 

[Ömer BARAN]

Merhaba.

Arama yapılan belgenin sayfasını, aşağıdaki kırmızı renklendirdiğim kısımı ekleyerek belirtebilirsiniz.

Set Evn = Sheets(2).Cells.Find(.Cells(i, 1).Value, , , 1)

 

[tugkan]

Ömer Hocam,
Ekledim ama çalıştıramadım. ( Dosyayı yüklüyorum. Bakabilir misiniz? Hala diğer dosyayı açmaya çalışıyor.

 

[Ömer BARAN]

Şu an bilgisayar başında değilim.
Başka bir üye cevaplamazsa, uygun olduğumda bakarım.

 

[tugkan]

Tamam Teşekkürler...

 

[Orion1]

Dosyanız eklidir.

Sub aravesay59()
Dim sh As Worksheet, sonsat1 As Long, sonsat2 As Long, i As Long
Dim say As Long
Sheets("YEDEK PARÇA").Select
Set sh = Sheets("REÇETE")
sonsat1 = Cells(Rows.Count, "A").End(xlUp).Row
sonsat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
Range("C2:D" & Rows.Count).ClearContents
For i = 2 To sonsat1
    say = WorksheetFunction.CountIfs(sh.Range("A2:A" & sonsat2), Range("A" & i) _
            , sh.Range("B2:B" & sonsat2), Range("B" & i))
    Cells(i, "C").Value = say
    If say > 0 Then
        Cells(i, "D").Value = "VAR"
    Else
        Cells(i, "D").Value = "YOK"
    End If
    say = 0
Next i
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
        
    
End Sub

 

[tugkan]

Çok teşekkür ederim...

 

[Orion1]

Çok teşekkür ederim...

Rica ederim.
İyi çalışmalar.

 

[Ömer BARAN]

Sayın GİZLEN sağ olsun, meseleyi halletmiş.
Kolay gelsin.