arama makrosu

[acar6783]

=IFERROR(VLOOKUP(D2;Sayfa2!$E$1:$F$6;2;0);"")

bu şekilde bir forumulim var ve ben bu formulü
a sütununa her bir değer girdiğimde e sütununda bu formulu karsı gelen hücreye uygulamak istiyorum buna uygun ya da amacıma uıygun bir kod yazılabilirmi..
saygılar..

 

[Orion1]

=IFERROR(VLOOKUP(D2;Sayfa2!$E$1:$F$6;2;0);"")

bu şekilde bir forumulim var ve ben bu formulü
a sütununa her bir değer girdiğimde e sütununda bu formulu karsı gelen hücreye uygulamak istiyorum buna uygun ya da amacıma uıygun bir kod yazılabilirmi..
saygılar..

Yazılabilir.

 

[acar6783]

yazabilirmisiniz peki ?

 

[Orion1]

yazabilirmisiniz peki ?

Örnek dosya ekleyiniz.

 

[acar6783]

bir de yazılan kodun mümkünse adım adım açıklamasını yazmanız mümkünmüdür..farklı hücrelerde de aynı kodu düzenleyebileyim..

 

[acar6783]

ek

ekledim şimdi

 

[Orion1]

yolladığınız dosyada sayfa2 yoktur.E sütununda formülde yok,aktif sayfada.
Nerden ne olacağıda belli değildir.
Siz formülü yapın.Ben oradan bir şeyler çıkarırım.
Bunları yaptıktan sonra tekrardan örnek dosyayı yollayınız.

 

[acar6783]

EK

Asıl formülüm
=eğerhata(düşeyara(d2;ürünlistesi!$e$2:$f$6;2;0);"")
şeklinde fakat hata var gibi
hem formül konusunda hem de kod konusunda yardımcı olabilirmsiniz..

 

[Orion1]

Dosyanız ektedir.
Sayım1 sayfasında d sütununa veri girince e sütununa diğer sayfadan fiyatı bulup getiriyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sat As Long
sat = Cells(Rows.Count, "D").End(xlUp).Row
If Intersect(Target, Range("D2:D" & sat)) Is Nothing Then Exit Sub
Range("E" & Target.Row).Clear
Set k = Sheets("ÜRÜNLİSTESİ").Range("E2:E" & Sheets("ÜRÜNLİSTESİ") _
    .Range("E" & Rows.Count).End(3).Row).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("E" & Target.Row).Value = k.Offset(0, 1).Value
End If
End Sub

 

[acar6783]

Hhocam cok teşekkür ederim ellerinize sağlık ..
anlatmam zor da olsa birşey cıkardınız ortaya..
adım adım acıklama sansınız olur mu müsait bir zamanda farklı işlerimde de kullanmak için ...