bul ve aktar

[limanC34]

Selam Arkadaşlar
Siteden aldığım dosya üzerinde değişiklik yaptım ancak K sütununa klasör nolarını yazmak yerine #YOK uyarısı çıkıyor.Yardım ederseniz sevinirim.
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub BUL_AKTAR()
    Set S1 = Sheets("SONUÇ")
    Set S2 = Sheets("KAYIT")
    S1.[B2:K65536].ClearContents
    If S2.[A1] = "" Then
    MsgBox "Lütfen aramak istediğiniz veriyi giriniz !", vbExclamation, "Dikkat !"
    Exit Sub
    End If
    SATIR = 2
    Set BUL = S2.[C:C].Find(S2.[A1], LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    S1.Range("B" & SATIR & ":K" & SATIR).Value = S2.Range("B" & BUL.Row & ":K" & BUL.Row).Value
    SATIR = SATIR + 1
    Set BUL = S2.[C:C].FindNext(BUL)
    Loop While ADRES <> BUL.Address And Not BUL Is Nothing
    End If
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[limanC34]

Sayın Korhan Ayhan
Çözümünüz için teşekkür ederim.
Saygılarımla.