düşey ara fonsiyonun macro içinde çalıştırma

[barisf1]

sayfaya koyabileceğimiz bir buton yardımıyla a sütuna girilen değerleri g sütuna göre tarayıp g sütununun karşısındaki hücreleri b sütuna doldurmak için

düşeyara fonsiyonu ile yapabiliyoruz fakat benim bunu macroda yapmam lazım.

yardımınız için teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
sat = [g1:g65536].Find(Target).Row
Target.Next = Cells(sat, "h")
End Sub

 

[Recep İpek]

Alternatif olarak aynı yere aşağıdakileri kopyalayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
If Target = Null Then Exit Sub
Target.Offset(0, 1).Value = WorksheetFunction.VLookup(Target, [g2:h50], 2, False)
End Sub

 

[unreal_avci]

bu macroyu tek sayfada degilde baska sayfadan veri almasini nasil saglarim?
asagida ekledim fakat calismadi

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(worksheets("sayfa1").Target, [a1:a100]) Is Nothing Then Exit Sub
If Target = Null Then Exit Sub
Target.Offset(0, 1).Value = WorksheetFunction.VLookup(worksheets("sayfa2").Target, [g2:h50], 2, False)
End Sub