hücre değerine göre veri otomatik gelsin

[asilme]

arkadaşlar kolay gelsin konuyu nerede soracağımı bilemediğimden buraya mesaj yazdım
Benim elimde 50 kişilik bir isim soyisim ayrı ayrı yazılı veri var.ben bu isimleri yaptıkları işe göre alt alta yazıyorum benim istediğim a sütununa isim yazdığımda b sütununa otomatik olarak şahsın soy isminin gelmesi.düşey ara ile denedim ancak onu tek satır için yapabiliyorum ben hergün veri girişi yapıyorum ve satır sayısı oldukça fazla.örn.satır 201 a sütununa Ali yazdığımda verideki soy ismi olan Kaya b sutunu 201.satıra otomatik gelebilirmi. bu satırlar alt alta gittiğinden ben yapamadım acaba a sütununda herhangi bir satıra isim girince b sutununda aynı satıra soy isim düşermi yardımcı olursanız sevinirim.şimdiden hakkınızı helal edin.

 

[adigeturklim]

_____________________

 

[cems]

Merhaba ,

Daha önce de bu tür ikazları üyeliğiniz süresince görmüş olabilirsiniz...

Sorununuzun çözümünde ilk adım ; gerçek olmasa da birebir ve az sayıda data içeren örnek bir dosyanın hazırlanması ...

Sizin dışınızda kim hazırlarsa hazırlasın , sizin istediğiniz şekil veya yerde çözüm olmayacak ve " ben böyle değil şöyle istemiştim " tarzı o dosyayı hazırlayanı da üzecek cevaplar olacaktır.

Bu nedenle , ilk aşama olan " 50 değil ama 10 kişilik bir dosya yapmak" adımını sizin buraya sayfa altına ya da www.dosya.tc gibi bir dış depoya yükleyip linkini vererek halletmeniz ; ikinci adım olarak dosyayı inceleyen arkadaşların zamanının sadece çözüme odaklanmasında ve sizin de örneği geliştirip asıl dosyanıza adapte etmekte büyük önem taşıyabilir ve cevabınız hızla gelebilir.

Aksi durumda , dosya hazırlama meselesi ne kadar iyi açıklarsanız açıklayın ; çözümcü için zaman gerektiren ek sorundur, olasılıkla yapmayıp sorunuzu atlayacaktır.

 

[Ömer BARAN]

Merhaba.

Sorunuzu gerçek belgenizle aynı yapıda bir örnek belge üzerinden sorarsanız daha hızlı ve net sonuca ulaşabilirsiniz.

Ayrıca; adı aynı, soyadı farklı kişilerin de olabileceğini düşünerek adı yerine,
SİCİL/TC KİMLİK gibi benzersiz başka bir kriter düşünmenizin yerinde olacağını belirtmeliyim.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[asilme]

arkadaşlar dosya yükledim yardımcı olurmusunuz.

http://s6.dosya.tc/server9/3l5pia/asilme_hucre_degeri.rar&89282920

teşekkürler

 

[Ömer BARAN]

Tekrar merhaba.

Verdiğiniz bağlantı adresini kontrol edin.
Bağlantıya tıklandığında sonuç BOŞ.
.

 

[asilme]

özür dilerim hocam tekrar yükledim

http://s3.dosya.tc/server12/76wh6f/asilme_hucre_degeri.rar.html

duyarlılığınız için sağolun

 

[asilme]

Arkadaşlar konuyu inceleyen varmı bilgisi olan olup olamayacağı hakkında görüş bildirebilir mi

 

[zulfuernek]

düşey arada arama kriterini az girmişsiniz.

 

[zulfuernek]

http://dosya.co/l79mf2nj5tdh/asilme_hücre_değeri.xlsx.html
KIRMISI SOY İSİM YAZAN YERE SOYADLARI YAZARAK DENEYİN LÜTFEN

 

[Korhan Ayhan]

Alternatif olarak makro kullanabilirsiniz.

VERİ
KAYIT isminde iki sayfa oluşturun.

KAYIT isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

"B" sütununa isim yazdığınızda, varsa VERİ sayfasından soyadını getirir. Yoksa uyarı verir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, BUL As Range
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    Set S1 = Sheets("VERİ")
    Set BUL = S1.Range("B:B").Find(Target, , , xlWhole)
    If Not BUL Is Nothing Then
        Target.Offset(0, 1) = BUL.Offset(0, 1)
    Else
        MsgBox "İsim bulunamadı!", vbCritical
    End If
End Sub

 

[asilme]

Alternatif olarak makro kullanabilirsiniz.

VERİ
KAYIT isminde iki sayfa oluşturun.

KAYIT isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

"B" sütununa isim yazdığınızda, varsa VERİ sayfasından soyadını getirir. Yoksa uyarı verir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, BUL As Range
    If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
    Set S1 = Sheets("VERİ")
    Set BUL = S1.Range("B:B").Find(Target, , , xlWhole)
    If Not BUL Is Nothing Then
        Target.Offset(0, 1) = BUL.Offset(0, 1)
    Else
        MsgBox "İsim bulunamadı!", vbCritical
    End If
End Sub

KORAY Hocam elinize sağlık çok güzel olmuş hakkınızı helal edin teşekkürler