Kapalı dosyadan cari bilgilerini almak

[tahsinanarat]

Açık olan dolap takip dosyasının G sütununa cari kodu girdiğimde, kapalı olan cariler dosyasının cariler sayfasındaki satır bilgilerinin örnekte görüldüğü gibi ilgili sütunlara gelmesini istiyorum. H sütununa Cari unvan, I sütununa adresi .... gibi. İlgilenecek arkadaşlarıma şimdiden teşekkür ederim.

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne ekleyin ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KTP As Workbook, S1 As Worksheet, S2 As Worksheet
Dim YOL As String, STR As Long
Application.ScreenUpdating = False
Set S1 = ActiveSheet
YOL = ThisWorkbook.Path & "\"
With WorksheetFunction
If Intersect(Target, Range("G:G")) Is Nothing Then _
Application.ScreenUpdating = True: Exit Sub
Set KTP = Workbooks.Open(YOL & "cariler.xlsx")
Set S2 = KTP.Sheets("Cariler")
If .CountIf(S2.Range("A:A"), Target) = 0 Then
MsgBox "Hatalı Cari Kod": Application.ScreenUpdating = True
Exit Sub
Else
STR = .Match(Target, S2.Range("A:A"), 0)
S1.Cells(Target.Row, "H") = S2.Cells(STR, "C") & " " & S2.Cells(STR, "D")
S1.Cells(Target.Row, "I") = S2.Cells(STR, "F") & " " & S2.Cells(STR, "G")
S1.Cells(Target.Row, "J") = S2.Cells(STR, "J")
S1.Cells(Target.Row, "K") = S2.Cells(STR, "K")
S1.Cells(Target.Row, "L") = S2.Cells(STR, "M")
End If
KTP.Close 0
End With
Application.ScreenUpdating = True
End Sub

 

[tahsinanarat]

Sn. asi_kral, uygulamalı olarak gerçek dosyamda denedim, kodlar mükemmel çalışıyor. cevabınız için çok teşekkür ediyorum, ellerine sağlık.

 

[asi_kral]

Sn. asi_kral, uygulamalı olarak gerçek dosyamda denedim, kodlar mükemmel çalışıyor. cevabınız için çok teşekkür ediyorum, ellerine sağlık.

Kolay Gelsin.