Otomatik düşeyara

[melphisto]

Merhabalar,

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = [B2]

End Sub

Yukarıdaki formül ile A sütununa bir sayı yazdığımda B2 hücresindeki düşeyara formülünde ne yazıyorsa onu girdiğim sayının yanına yazıyor. Fakat benim istediğim yazdığım değeri düşeyara ile bulup yanına yazan bir kod. Böyle bir kod yazılabilirmi acaba?

 

[Recep İpek]

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = WorksheetFunction.VLookup(Target, [e3:f20], 2, False)
End Sub

 

[melphisto]

Sayın Ripek, tam istediğim gibi olmuş teşekkürler,
Formülü değilde sadece değeri yazdığı için dosyada büyük bir yükten kurtulmuş oldu, bugün ikinci sorumu cevapladınız, çook teşekkürler, elinize sağlık

 

[Recep İpek]

İşinize yaradığına sevindim. :keyif:

 

[melphisto]

Kusura bakma, bir soru daha soracağım.
formülde başka bir sayfada düşeyara yapmak için ne yapmalı,
Formüle;
VLookup(Target, sayfa2![e3:f20], 2, False) ekledim ama çalışmıyor nedense

 

[Recep İpek]

WorksheetFunction.VLookup(Target, Sheets("aaaa").[e3:f20], 2, False)

olarak deneyin.

 

[melphisto]

Denedim ve oldu, süpersiniz, ne diyeyim; Allah sizden razı olsun:hey:

 

[mrt]

dosya ve sayfaları nasıl tanımlamalı ?

Ekli kodda bir problemim var.

Aktif olan çalışma sayfasında B sutunu dolu ise; C sütunununa; Düşeyara Mtyf_çalışmalar.xls / Musteriler sayfası A sütunun 2. sutunu değerini yazacak.

Ben siteden aldığım kodlarda düzeltme yapmaya çalıştım. Başaramadım.


Sub musteri_no_yaz()

Application.ScreenUpdating = False
Dim X As Integer
ALAN = ActiveSheet.UsedRange.Rows.Count
For X = ALAN To 1 Step -1
If Cells(X, 2) <> "" Then
Cells(X, 3) = WorksheetFunction.VLookup([x,2],[MTYF_MAKROLAR.xls]musteriler!.Columns("A: D"), 2, False)
End If
Next
Application.ScreenUpdating = True
End Sub