bilgi gösterme

[furens]

Arkadaşlar kolay gelsin ekte gönderdiğim excell sayfasında sorgu sayfasındaki TC kimlik numarası girildiği zaman yanda bulunan bilgi sayfasında tc kimlikleri ve durumu yazılan şahıslardan birisinin tc si girilirse durumu bölümü mesaj olarak sorgu sayfasında gösterilebilirmi? tşk.
Ekcell sayfası ekleme yok nasıl ekleniyor?

 

[Ömer BARAN]

Merhaba.
ALTIN ÜYELİK olmadığına göre; örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip,
oradan alacağınız erişim bağlantısını burada paylaşırsanız daha çabuk ve net cevap alacağınızı düşünüyorum.

 

[furens]

http://s6.dosya.tc/server2/fejbig/Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsx.html

 

[furens]

http://s6.dosya.tc/server2/fejbig/Yeni_Microsoft_Excel_Calisma_Sayfasi.xlsx.html

 

[Necdet]

Merhaba,

Bilgi sayfası D2 hücresine aşağıdaki formülü yazın ve aşağıya doğru kopyalayın.

=DÜŞEYARA(C2;BİLGİ!A:B;2;0)

 

[furens]

İlgin için tşk. Ancak benim yapmak istediğim visual Basic de kod bölümünde formül yazılıp, o tc yoksa normal sorguya devam edecek bilgi sayfasındaki birisine rastlarsa Mesaj olarak Durmu ile ilgili uyarı verecek.

 

[Ömer BARAN]

Merhaba.
Yanlış anlamadıysam, aşağıdaki kod'u SORGU sayfasının kod bölümüne yapıştırın ve C sütununa BİLGİ sayfasında olan veya olmayan bir TC Kimlik numarası yazarak sonucu gözlemleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Call DURUM
End Sub

Sub DURUM()
son = Sheets("SORGU").[C65536].End(3).Row
If WorksheetFunction.CountIf(Sheets("BİLGİ").Range("A:A"), Sheets("SORGU").Cells(son, 3).Value) = 0 Then Exit Sub
    a = WorksheetFunction.Match(Sheets("SORGU").Cells(son, 3).Value, Sheets("BİLGİ").Range("A:A"), 0)
MsgBox (Cells(son, 3).Value & vbCr & "TC KİMLİK NUMARALI ŞAHSIN KAYDI VAR." & vbCr & vbCr & "DURUMU:  " & Sheets("BİLGİ").Cells(a, 2).Value)
End Sub

Kod, C sütununa veri eklendiğinde eklenen son TC kimlik numarasıyla ilgili sorgulama sonucunu verir.

 

[furens]

TMM TŞK. Yalnız sadece son satır için çalışıyor . aradaki bir hücrenin içine f2 ile girip enter yapınca bir faaliyet olmuyor genele nasıl yayabiliriz.
Ayrıca sorgu sayfasındaki son kayıttaki, bilgi sayfasından birisi ise ; bir hücre içeriği silerken veya enter yapınca hep son satırdaki kişinin bilgileri geliyor.

 

[Ömer BARAN]

Tekrar merhaba.
Kod'daki

son = Sheets("SORGU").[C65536].End(3).Row

satırını

son = ActiveCell.Row - 1

olarak değiştiriniz.

 

[furens]

süper tşk. bilgin artsın

 

[Ömer BARAN]

Bir hatırlatma yapmalıyım.
F2 ile veya fareyle seçim yaparak hücre içerisine girmeniz önemli değil önemli olan veri değişikliği veya yeni veri yazma işleminin ENTER tuşu ile tamamlanması.
ENTER ile veri girişi yapılıyorsa mesele yok.

Veri yazma veya değiştirme sonrasında ENTER dışında OK işaretiyle veya fareyle başka hücre seçerek işlem tamamlanırsa, işlem sonucu sizi yanıltabilir.