Makroları düzenleme ile ilgili

[abbasonline]

Ekteki dosyada makro ile arama yaptırıp diğer sayfaya aranan kriterdeki verilerin yazılması.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Bul_Getir()
 
    Dim i   As Long, _
        j   As Long, _
        c   As Range, _
        Adr As String, _
        sv  As Worksheet, _
        sa  As Worksheet
    Set sv = Sheets("VERİ")
    Set sa = Sheets("ARAMA")
    sa.Select
    
    i = sv.Cells(Rows.Count, "A").End(3).Row
    If i < 7 Then i = 7
    j = sa.Cells(Rows.Count, "E").End(3).Row
    If j < 8 Then j = 8
    sa.Range("E8:G" & j).ClearContents
    j = 7
    
    With sv.Range("E7:E" & i)
        Set c = .Find(sa.Range("E7"), LookIn:=xlValues)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                j = j + 1
                sa.Cells(j, "E") = sv.Range("A" & c.Row)
                sa.Cells(j, "F") = sv.Range("E" & c.Row)
                sa.Cells(j, "G") = sv.Range("G" & c.Row)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
        
End Sub

 

[abbasonline]

teşekkürler ellerinize sağlık.