• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

A

asilme

Katılım
18 Ekim 2012
Mesajlar
323
Excel Vers. ve Dili
2003 tr
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.
 
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.
 
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.
.
 
Tekrar merhaba.

Verdiğiniz bağlantı adresini kontrol edin.
Bağlantıya tıklandığında sonuç BOŞ.
.
 
Arkadaşlar konuyu inceleyen varmı bilgisi olan olup olamayacağı hakkında görüş bildirebilir mi
 
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.

Kod: 
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
 
Korhan Ayhan' Alıntı:
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.

Kod: 
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
Genişletmek için tıkla ...

KORAY Hocam elinize sağlık çok güzel olmuş hakkınızı helal edin teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst