İNDİS ve DÜŞAYARA formülünün MAKRO karşılığı

[yesilyurtlu]

Evren abi;
Makro bilgim pek yok biliyorsunuz.
indis ve düşeyara formülünü en kısa ve kesin çözümlü ve basit olarak makroda nasıl kullanabiliriz?
Her aceminin işini rahatlıkla görebileceği cinsten.
Bu konuda yardımcı olabilir misin abi.

[Orion1]

Evren abi;
Makro bilgim pek yok biliyorsunuz.
indis ve düşeyara formülünü en kısa ve kesin çözümlü ve basit olarak makroda nasıl kullanabiliriz?
Her aceminin işini rahatlıkla görebileceği cinsten.
Bu konuda yardımcı olabilir misin abi.

Biz bunun için find komutunu kullanıyoruz.

[yesilyurtlu]

Üstadım;
bir örnek sunmanız mümkün mü?

[Orion1]

Kodlar çalışma sayfasının modülünde.
Ekli dosyayı inceleyiniz.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [F3]) Is Nothing Then Exit Sub
On Error Resume Next
Range("F4:F5").ClearContents
If Target.Value = "" Then Exit Sub
Set k = Range("A1:A20").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Target.Offset(1, 0).Value = k.Offset(0, 1).Value
    Target.Offset(2, 0).Value = k.Offset(0, 2).Value
End If
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Evren Abi;
Teşekkür Ederim. Sağolasın

[Orion1]

Evren Abi;
Teşekkür Ederim. Sağolasın

Rica ederim.
iyi çalışmalar.

[assenucler]

Sayın Evren Gizlen;

Paylaşımınız için teşekkürler ve hayırlı bayramlar...