Diğer sayfadaki numaraya göre veri aktarma

[Galus]

Sayfa3 de belirtilen B3 hücresindeki veriyi Sayfa1 deki A sütununda aratarak ait olduğu satırın D hücresine Sayfa3 B4 deki fire miktarının da Sayfa2 H2 hücresine aktarmak istiyorum.

Değerli yardımlarınız için şimdiden teşekkürler...

 

[Orion1]

Formül sayfasından buldurulacak
Formul sayfasında bulunan LOT numarasının D sütunundaki hücresine yazdırılcak
B2 deki veri Uretim sayfasında H2 ye yazdırılacak

Yolladığınız dosyada yukarıda ismini bahsettiğiniz sayfalar yok.

 

[Galus]

Hocam, bir karışıklık olmuş, özür dilerim.
"Sayfa1 A sütunundaki LOT numaralarından buldurulacak
Sayfa1 sayfasında bulunan LOT numarasının D sütunundaki hücresine yazdırılcak
B2 deki veri Sayfa2 sayfasında H2 ye yazdırılacak" olarak düzelttim.

Saygılar..

 

[Galus]

Sayfa1 sütun A daki lot numarasına göre ait olduğu satıra veri girişi yapmak istiyorum.

Saygılarımla...

 

[Ferhat Pazarçevirdi]

B2 deki veri Sayfa2 sayfasında H2 ye yazdırılacak" olarak düzelttim.

Bunu tam olarak anlayamama rağmen, aşağıdaki kodu deneyebilirsiniz.

Sub Aktar()
Dim Bul As Range
Dim Satir%
Set Bul = Sheets("Sayfa1").Range("A:A").Find(Sheets("Sayfa3").Range("B2"))
If Bul Is Nothing Then: MsgBox "Lot No : " & Sheets("Sayfa3").Range("B2") _
                      & Chr(13) & "Listede bulunamadı", vbCritical, "UYARI": _
                        Exit Sub
Satir = Bul.Row
Sheets("Sayfa1").Range("D" & Satir) = Sheets("Sayfa3").Range("B3")
Sheets("Sayfa2").Range("H2") = Sheets("Sayfa3").Range("B4")
Set Bul = Nothing
End Sub

 

[Galus]

Hocam Allah ne muradınız varsa versin. Çok çok teşekkürler..

"B2 deki veri Sayfa2 sayfasında H2 ye " tamamen başka bir veriyi aynı buton ile Sayfa2'ye aktarmak için düşünmüştüm. Onu da inşaallah sizlerden aldığım eğitim ile kendim eklerim. Benim için koda göre arayıp yazma bölümü önemliydi.

Çok çok teşekkürler...