Vba ile düşeyara formülü

[Özgür DALDABAN]

Değerli hocalarım merhaba.
A sütunundaki hücrelere her veri girdiğimde Parametre sayfasındaki tablodan değer alıp ilgili hücreye yazmasını istiyorum. Örneğin A2 hücresine kişinin adını soyadını yazdığımda parametre sayfasındaki tablodan değeri alıp mesela b2 hücresine daire numarasını c2 hücresine daire sahibinin adını kendi yazsın istiyorum.

Yardımlarınız için teşekkür ederim.

 

[Tevfik_Kursun]

Merhaba,
Örnek dosya yükleseniz kolaylıkla sonuçlanır
İyi çalışmalar

 

[Özgür DALDABAN]

Merhaba,
Örnek dosya yükleseniz kolaylıkla sonuçlanır
İyi çalışmalar

Merhaba,
Örnek dosya yükleseniz kolaylıkla sonuçlanır
İyi çalışmalar

Hocam altın üyeliğim olmadığından yükleme yapamıyorum

 

[RBozkurt]

Hocam altın üyeliğim olmadığından yükleme yapamıyorum

Buraya yükleyiniz

Dosya.tc - Ücretsiz, Hızlı ve Kolay Dosya Paylaşımı - Dosya Upload

Dosya.tc, dosya yükleme ve paylaşım platformudur. Her türlü veriyi (dosya, resim, müzik, video vb.) saklayabilir ve paylaşabilirsiniz. Tamamen ücretsiz, üyeliğe gerek yok. Hiçbir limit yok. Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Korhan Ayhan]

Anladığım kadarıyla aşağıdaki kodu kullanabilirsiniz.

Kodu işlemi yapmak istediğiniz sayfanızın ismi üzerine sağ tıkladıktan sonra açılan menüden KOD GÖRÜNTÜLE dediğinizde açılan beyaz bölüme uygulayınız.

Kod A sütununa yazdığınız ADI SOYADI bilgisini PARAMETRE sayfasında A sütununda arar. Bulduğunda B ve C sütunundaki bilgileri yine B ve C sütunundaki ilgili alanlara yazar. OFFSET değerleri ile oynayarak farklı sonuçlar alabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, Find_Data As Range
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    For Each Rng In Target
        Set Find_Data = Sheets("Parametre").Range("A:A").Find(Rng.Value, , , xlWhole)
        If Not Find_Data Is Nothing Then
            Rng.Offset(, 1) = Find_Data.Offset(, 1)
            Rng.Offset(, 2) = Find_Data.Offset(, 2)
        End If
    Next
End Sub