Makroya İlave (ara)

[igultekin2000]

iyi günler;
kullanmakta olduğum makoya ilave yapmak istiyorum. Aranan ana verinin sağındakileri ara ile geliyor, ancak ana verinin solundaki bilginin de ilave olması mümkün olabilir mi? ayrıca veri ile işlem yapılan çalışma sayfası farklı olursa ne gibi ilave yapmamız gerekir. Teşekkürler.

Option Explicit


Sub Ara()

    Dim i   As Integer, _
        c   As Range, _
        Syf As Worksheet, _
        Deg As String, _
        Adr As String
    
    Set Syf = Sheets("Sayfa1")
    
    Range("I2:L100").ClearContents
    
    Deg = Range("H2")
    i = 1
    
    With Syf.Range("B:B")
        Set c = .Find(Deg, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                i = i + 1
                Syf.Cells(i, "I") = c.Value
                Syf.Cells(i, "J") = c.Offset(0, 1)
                Syf.Cells(i, "K") = c.Offset(0, 2)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
    
End Sub

 

[Orion1]

Buyurun.

i = i + 1
                Syf.Cells(i, "I") = c.Value
                Syf.Cells(i, "J") = c.Offset(0, 1)
                Syf.Cells(i, "K") = c.Offset(0, 2)
                Syf.Cells(i, "L") = c.Offset(0, -1)
                Set c = .FindNext(c)

 

[igultekin2000]

Buyurun.

i = i + 1
                Syf.Cells(i, "I") = c.Value
                Syf.Cells(i, "J") = c.Offset(0, 1)
                Syf.Cells(i, "K") = c.Offset(0, 2)
                Syf.Cells(i, "L") = c.Offset(0, -1)
                Set c = .FindNext(c)

Teşekkürler, sorunsuz çalıştı. İyi çalışmalar.