Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
KAPALI EXCEL DOSYASINDAN MAKRO İLE VERİ ALMA
Sayın
berna işlerimin yoğunluğu nedeniyle hemen cevap veremedim. Yanlış anlamadı isem
Örnek.xls (Ben bu dosyanın adını
Kapalı.xls olarak değiştirdim) isimli dosyada çalışırken (B) sütununa girdiğiniz Kütük numarasına göre, o kütük numarası ile Kapalı bulunan Data.xls dosyasında Sayfa1 de kayıtlı olan bilgilerin çalıştığınız sayfadaki (C) ve (D) sütunlarına makro ile yazdırılmasını istiyorsunuz.
Herkes için anlaşılır olması için Kapalı.xls ve Data.xls dosyalarının resmini çekip ekliyorum. Ben biraz daha görsellik açısından düzenlemeler yaptım ama aslını değiştirmeden.
1-Kapalı Veri Dosyası (Data.xls)
Çalışılan Excel Sayfası (Kapalı.xls)
Şimdi yapmanız gereken aşağıdakı kodları
Kapalı.xls dosyasında Sayfa1'in kod sayfasına kopyalamak
- Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A2:D65536]) Is Nothing Then Exit Sub
If Target.Column = 2 And Target <> "" Then
Son = Application.ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path _
& "\[Data.xls]Sayfa1'!C2)")
For X = 2 To Son
If Target.Text = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path _
& "\[Data.xls]Sayfa1'!R" & X & "C2") Then
Cells(Target.Row, "C") = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path _
& "\[Data.xls]Sayfa1'!R" & X & "C3")
Cells(Target.Row, "D") = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path _
& "\[Data.xls]Sayfa1'!R" & X & "C4")
Say = Say + 1
Exit For
End If
Next
End If
End Sub
Kolay gelsin
Hazırladığım dosyaları indirip inceleyebilirsiniz.
Kapali.xls
Data.xls
Not : Dosyaları Aynı Klasöre indirmelisiniz ya da kopyalamalısınız.
Sayfa başı
