Verileri otomatik bulma ve başka sayfaya aktarma

[aykut26]

mrb şimdiden yardımlarınız için şimdiden teşekkür ederim
Benim sorunum bir çalışma kitabında sayfa1 de verilerim var sayfa 2 deki bazı işlemler sonucunda da sayfa1 deki verilere karşılık gelen buldugum başka veriler var.sayfa2 deki bulduğum herhangi bir veriyi sayfa 1 de bulucak ve buna karşılık gelicek değeri otomatik olarak sayfa 2 ye aktarıcak.
örnekle anlatıcak olursam sayfa1 deki E değerlerim (0.1;0.2;0.3) olsun ve bunlara karşılık gelicek değerlerim sıraysıyla F ve bunlarda (6;7;8) olsun.bunlar benim sabit verilerim.Daha sonra sayfa2 bazı işlemler sonucu 0.2 değerini bulmuş olayım.Bulmuş oldugum 0.2 değeri için sayfa 1 deki 0.2 için 7 olan değeri otomatik bulucak ve gerekli olan 7 değerini sayfa2 deki hücreye atıcak.Umarım anlatabilmişimdir

 

[ersoyalan]

Sorunuzu örnek dosya ile destekleyin.

E.ALAN

 

[aykut26]

yardımcı olabilecek kimse var mı?

 

[Ömer]

yardımcı olabilecek kimse var mı?

Merhaba,

=DÜŞEYARA(B1;Sayfa1!B:D;3;0)

Denermisiniz..

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz....

Private Sub CommandButton1_Click()
Dim hcr As Range
Set hcr = Sheets("Sayfa1").Range("B:B").Find(Sheets("Sayfa2").Range("B1").Value, lookat:=xlWhole)
If Not hcr Is Nothing Then
    Sheets("Sayfa2").Range("D1").Value = hcr.Offset(0, 2)
Else
    MsgBox "Aranan değer bulunamamıştır..!", vbInformation, "UYARI"
End If
End Sub

 

[aykut26]

çok teşekkür ederim nasıl bi yükten kurtuldum anlatamam