veri çağırma ile ilgili soru?

[vknyalcin]

merhabalar örnek dosayada data sayfasında kayıtlı olan koların karşısındaki isimleri makro ile çağarabilirmiyiz?

 

[İhsan Tank]

merhabalar örnek dosayada data sayfasında kayıtlı olan koların karşısındaki isimleri makro ile çağarabilirmiyiz?

formül işinizi görmez mi_?
görür derseniz c4 hücresine

=EĞER(B4="";"";DÜŞEYARA(B4;data!$A$2:$B$65536;2))

bu formülü yazınız

 

[vknyalcin]

Eyvallah saolun formullü olarak halletim fakat makros varmı diye merak ettim

 

[leumruk]

Eyvallah saolun formullü olarak halletim fakat makros varmı diye merak ettim

Merhaba,
İki farklı alternatif kod ekliyorum. 1. eklediğim daha kullanışlıdır. Bu kodlardan herhangi birini ilgili sayfanın kod bölümüne ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b4]) Is Nothing Then Exit Sub
Set Bul = Sheets("data").Range("A2:A6").Find(Target, lookat:=xlWhole, LookIn:=xlValues)
If Not Bul Is Nothing Then
Target.Offset(0, 1) = Sheets("data").Cells(Bul.Row, 2)
Else:
MsgBox "Aradığınız veri bulunamadı.", vbCritical, "UYARI"
Target.Offset(0, 1) = ""
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b4]) Is Nothing Then Exit Sub
On Error GoTo son
Bul = WorksheetFunction.VLookup(Range("b4"), Sheets("data").Range("A2:b6"), 2, 0)
Target.Offset(0, 1) = Bul: Exit Sub
son:
MsgBox "Aradığınız veri bulunamadı.", vbCritical, "UYARI"
Target.Offset(0, 1) = ""
End Sub

 

[vknyalcin]

bişi daha sorabilirmiyim peki bunu o bölüme nasıl eklicez

 

[vknyalcin]

nasıl eklicez dediğim makroyu kaydettim fakat o bölüme nasıl uygulicaz

 

[leumruk]

bişi daha sorabilirmiyim peki bunu o bölüme nasıl eklicez

Merhaba,
İlgili sayfanın üzerinde sağ tıklayın ve verdiğim kodlardan sadece birini çıkan beyaz ekrana kopyalayın.