Aynı anda iki sayfadan veri aktarma

[mars2]

İyi Günler;

excel çalışma kitabımda "Bilgi formu" sayfası mevcuttur.

Bilgi formu çalışma sayfasının D6 hücresine Hesap Nosu yazınca banka dönüşüm sayfasından D9 hücresine dosya nosu aşağıdaki kodla gelmekte. Ancak, D9 hücresindeki dosya nosuna göre D11, D12, D13 hücrelerie aynı anda liste sayfasında bilgi aktarmaktak istiyorum.


On Error Resume Next
If Target.Address <> "$D$6" Then Exit Sub

If Intersect(Target, [D6]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub

Set s1 = Sheets("bilgi formu")
Set s2 = Sheets("banka dönüşüm")
Set s3 = Sheets("Liste")

For Each bul In s2.Range("P55000")
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "ARADIĞINIZ HESAP NOSU BULUNAMADI.", vbInformation, "BİLGİ"

Exit Sub
End If

s1.Cells(9, "D").Value = s2.Cells(sat, "B").Value

s1.Cells(11, "D").Value = s3.Cells(sat, "D").Value
s1.Cells(12, "D").Value = s3.Cells(sat, "E").Value
s1.Cells(13, "D").Value = s3.Cells(sat, "G").Value
s1.Cells(14, "D").Value = s3.Cells(sat, "H").Value
s1.Cells(15, "D").Value = s3.Cells(sat, "I").Valu

Yardımlarınız için teşekkürler.

 

[Ömer BARAN]

Merhaba.

Bu tür sorular için cevap yazılması ve yazılan bu cevabın da ihtiyacınızı tam olarak karşılaması biraz zor görünüyor.

Sorunuzu,
-- belirttiğiniz kod,
-- varsa konuyla ilgili veri alınacak/aranacak hücrelerdeki/alanlardaki formüller,
-- gerçek verileri temsil edebilecek özelliklerde temsili veriler
içerecek şekilde bir örnek belge üzerinden sormanızı öneriyorum.

Bu özelliklerde bir örnek belge yüklerseniz, bir üye mutlaka cevap yazacaktır.
.

 

[mars2]

Çalışma kitabımında "banka dönüşüm", bilgi formu" ve "Liste" sayfaları bulunmaktadır.

bilgi formu sayfadaki tabloya, banka dönüşüm ve Liste sayfasından bilgi aktarmak istiyorum

Örnek ektedir.

 

[mars2]

Konu hakkında yardımlarınızı beklemekyteyim.

 

[antonio]

Merhaba,
Dosyanız ektedir

 

[relaxim]

Sn Antonio merhaba,

Çözümünüzü inceledim, çok güzel olmuş. Ben de kendi çalışmamda kullanacağım. Yalnız verileri bir satır aşağıdan alıyor. A$2 ve B$2 başlangıçlarını A$1 ve B$1 olarak değiştirince doğru sonuç verdi.
Teşekkürler.

 

[relaxim]

Sn Antonio merhaba,

Çözümünüzü inceledim, çok güzel olmuş. Ben de kendi çalışmamda kullanacağım. Yalnız verileri bir satır aşağıdan alıyor. A$2 ve B$2 başlangıçlarını A$1 ve B$1 olarak değiştirince doğru sonuç verdi.
Teşekkürler.

 

[antonio]

Rica ederim. Kolay gelsin.

 

[mars2]

Formül ve İlginiz için teşekkürler, Ancak formülü kendi tabloma uyguladığımda hücrede #Yok hatası vermektedir. neden olabilir. Nerede yanlışlık yapmış olabilirim.