Birden fazla sayfada düşeyara

[Redial]

Merhaba

Ekte 2 örnek tablom var. Ana Tablomun A sütununda yer alan değerlerin "Değerler" çalışma kitabındaki tüm sayfalarda aranmasını ve bulunması durumunda 2. sütunda yer alan "Tutar" bilgisinin Ana Tablodaki Tutar sütununa yazılmasını istiyorum.

Konuyu açmadan düşeyara ile ilgili soru ve yanıtları inceledim ancak aradığımı bulamadım veya buldum ama anlayamadım.

Teşekkürler

 

[Ömer]

Merhaba,

Linki inceleyiniz.

http://www.excel.web.tr/f60/vlookup-d-eyara-uygulamasi-t17226.html
.

 

[Redial]

Merhaba. Linkteki örnekleri inceledim ancak tablo dizisi farklı bir çalışma kitabında yer alan sayfalar olunca formüle ne yazmam gerektiğini bulamadım :yardim:

 

[Redial]

:yardim::yardim::yardim::yardim::yardim::yardim:

 

[emrehan26]

=DÜŞEYARA(A5;'[Değerler.xlsx]22.06.2012_1'!$A$2:$B$10;2;0)

 

[emrehan26]

pardon yanlış anlamışım

 

[asi_kral]

Merhaba

Ekte 2 örnek tablom var. Ana Tablomun A sütununda yer alan değerlerin "Değerler" çalışma kitabındaki tüm sayfalarda aranmasını ve bulunması durumunda 2. sütunda yer alan "Tutar" bilgisinin Ana Tablodaki Tutar sütununa yazılmasını istiyorum.

Konuyu açmadan düşeyara ile ilgili soru ve yanıtları inceledim ancak aradığımı bulamadım veya buldum ama anlayamadım.

Teşekkürler

Merhaba
Ben kod ile çözüm buldum umarım işinize yarar.
Ana Tablo sayfasında boş bir module kopyalayın ve deneyin.

Option Explicit
Sub veri_çek_1967()
'Konu       :   Başka Dosyadan Veri Çek
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim EX As Excel.Application, K1 As Workbook
Dim S1 As Worksheet, S2 As Worksheet, S2SAT As Long
Dim SAY As Long, SAT As Long, YOL As String
Set EX = CreateObject("Excel.Application")
EX.Visible = False
Application.ScreenUpdating = False
Set S1 = ActiveWorkbook.Sheets("Deneme")
S1.Range("B2:B" & Rows.Count).ClearContents
YOL = ThisWorkbook.Path & "\Değerler.xlsx"
Set K1 = EX.Workbooks.Open(YOL)
For SAT = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
For SAY = 1 To K1.Sheets.Count
Set S2 = K1.Sheets(SAY)
S2.Range("D1") = "=COUNTIF(A:A," & S1.Cells(SAT, "A") & ")"
If S2.Range("D1") > 0 Then
S2.Range("D2") = "=MATCH(" & S1.Cells(SAT, "A") & ",A:A,0)"
S2SAT = S2.Range("D2")
S1.Cells(SAT, "B") = S2.Cells(S2SAT, "B")
End If: Next: Next
K1.Close 0: EX.Quit
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[Redial]

Asi Kral teşekkür ederim. Yazdığınız kod bu dosyalarda çalıştı, ancak benim benzer çalışmayı farklı çalışma kitapları arasında sürekli yapmam gerekiyor. Makro bilgim iyi olmadığı için bu kodları her dosyaya uygulama konusunda sıkıntı yaşayabilirim. Formülle bunu çözmek mümkün müdür? Çünkü her dosya için tek tek düşey ara yapmak bana çok vakit kaybettiriyor

 

[Redial]

:yardim::yardim::yardim::yardim:

 

[Korhan Ayhan]

Merhaba,

Sizin istediğiniz işlemler formüllerle olmaz. Makro gereklidir. Bunuda arkadaşımız örnekle göstermiş.

 

[Redial]

Teşekkür ederim

 

[Arash34]

siz dosyaları paylaşmıssınız güzelde ziyaretcilere neden kapattınız paylaşımları
Bu sayfayı veya bu işlemi gerçekleştirecek izniniz yok.Altın Üye Olmanız halinde Görebilirsiniz.