• DİKKAT

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

Personel Bilgileri

B

bysercii

Katılım
27 Şubat 2011
Mesajlar
15
Excel Vers. ve Dili
Personellerle ilgili
K.geLsin
Personellerimiz le ilgili bilgileri bir excell sayfasında
toplamak istiorum
örnegin :
adı : Ben
soyadı
yaşı
tlf. no
adresi
falan filan işte

mesela adı Ben e bastıgı zaman benim sayfam acılcak
sen e bastıgı zaman sen acılcak
öle bişi lazım :( yardımcı olabilecek war mı ?
 
Merhaba,

Peki açılan sayfalarda ne tür bilgi olacak?
Sorunuzu örnek dosya ile destekleyiniz ki çabuk ve hızlı çözüme ulaşabilesiniz.
 
şimdi şöyle birşey
excell sayfamı açtıgım zaman
önüme PERSONEL LİSTESİ diye Kocaman bi yazı cıkcak :)
ona tıkladıgımda
Personellerimin isimlerini görmek istiorum Örneqin :
NEcdet Yeşertener
buna tıkladıgım zaman
Necdet Yeşertener le ilgili tüm bilgileri görmek istiorum :)
böyle bişi yani..
 
bysercii' Alıntı:
şimdi şöyle birşey
excell sayfamı açtıgım zaman
önüme PERSONEL LİSTESİ diye Kocaman bi yazı cıkcak :)
ona tıkladıgımda
Personellerimin isimlerini görmek istiorum Örneqin :
NEcdet Yeşertener
buna tıkladıgım zaman
Necdet Yeşertener le ilgili tüm bilgileri görmek istiorum :)
böyle bişi yani..
Genişletmek için tıkla ...
Merhaba
Tıkladığınızda sizi sayfayamı yölendirecek. Tam olarak nasıl olacak?
 
eve geçtigimde size ekran çekip anLatayım ?
beLki o zaman yardımcı oLablirisiniz :):)
 
Son düzenleme:
bysercii' Alıntı:
ewe geçtigimde size ekran çekip anLatayım ?
beLki o zaman yardımcı oLablirisiniz :):)
Genişletmek için tıkla ...
Merhaba
Türkçemizin kullanımına biraz daha özen.
Ekran resmi yerine küçük bir örnek ekleyiniz.
 
ufak bir anlatımda anlattım
umarım yarımdcı olabilirsiniz..
 

Ekli dosyalar

Merhaba,

ThisWorkbook'un Kod Sayfasında :

Kod: 
Private Sub Workbook_Open()
    Sheets("Personel").Select
End Sub

Module 1

Kod: 
Public SatirNo
Function SayfaVar(Sayfa As String) As Boolean
    On Error Resume Next
    SayfaVar = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function

Personel Sayfası Kodları (Çift Tıklama İle Çalışır):

Kod: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Syf As String, _
    EH  As String
If Target.Row < 2 Then Exit Sub
If Range("A" & Target.Row) = "" Then Exit Sub
SatirNo = Target.Row
Syf = Range("A" & Target.Row)
If SayfaVar(Syf) = True Then
    Sheets(Syf).Select
Else
    EH = MsgBox(Cells(SatirNo, "B") & " " & Cells(SatirNo, "C") & " Personeline Ait " & Cells(SatirNo, "A") & _
        " Sayfası Bulunmadı, Açılmasını İstiyor Musunuz?", vbYesNo, "NECDET YEŞERTENER -- [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]")
    If EH = vbYes Then
        Sheets("Sablon").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Syf
        Sheets(Syf).[B1] = Sheets("Personel").Cells(SatirNo, "A")
        Sheets(Syf).[B2] = Sheets("Personel").Cells(SatirNo, "B")
        Sheets(Syf).[B3] = Sheets("Personel").Cells(SatirNo, "C")
    End If
End If
End Sub

Personel hakkında tutacağınız bilgileri Sablon sayfasında belirtiniz, kendinize göre uyarlayınız.
 

Ekli dosyalar

nected hocam
şimdi ALLAH razı oLsun yapmıssınız ama :)
benim düşündügümden biraz farklı olmus
tamam sayfa 1 olmuş
ama sablon kısmıına gelince
üstteki
Sicil No ' ya 2
Adı aLi
Soyadı Veli
Yazdıgımda 1 inci sayfaya
2 işte ali veli
yazıcak
ali veli yazan isme de tıkladıgımda karşıma sablon gibi bi sayfa da
kimlik bilgileri vs. vs cıkmasını istiyorum.. :(
 
bysercii' Alıntı:
K.geLsin
Personellerimiz le ilgili bilgileri bir excell sayfasında
toplamak istiorum
örnegin :
adı : Ben
soyadı
yaşı
tlf. no
adresi
falan filan işte

mesela adı Ben e bastıgı zaman benim sayfam acılcak
sen e bastıgı zaman sen acılcak
öle bişi lazım :( yardımcı olabilecek war mı ?
Genişletmek için tıkla ...

bende böyle birşey yapmaya çalıştım :)
 
walla hocam bende hiç biri olmadıgı için rahatsız ettim :(
giriyorum
sicil noya adı soyadına 1 inci sayfaya atmıyor
 
bysercii' Alıntı:
walla hocam bende hiç biri olmadıgı için rahatsız ettim :(
giriyorum
sicil noya adı soyadına 1 inci sayfaya atmıyor
Genişletmek için tıkla ...

Personel sayfasına personelin sadece Sicil No, Adı ve Soyadını gireceksiniz.
Personelleri işledikten sonra ilgili personelin bulunduğu herhangi bir satıra çift tıkladığınızda o personelle ilgili sayfa varsa o sayfaya gider, yoksa o personelin sicil numarası ile sayfa açar.

İlgili personelin sayfası açıldıktan sonra (ki bu şablon sayfasındaki gibi bir sayfadır) personel bilgi ayrıntılarını bu sayfalara yazacaksınız.

Durum anlaşıldı mı?

Ha bu işin bir çok yöntemi var ama siz böyle istediniz diye böyle yaptım.

Not : Bu arada dosyayı açtığınızda makroları etkinleştiriyor musunuz?
 
Necdet Yeşertener' Alıntı:
Personel sayfasına personelin sadece Sicil No, Adı ve Soyadını gireceksiniz.
Personelleri işledikten sonra ilgili personelin bulunduğu herhangi bir satıra çift tıkladığınızda o personelle ilgili sayfa varsa o sayfaya gider, yoksa o personelin sicil numarası ile sayfa açar.

İlgili personelin sayfası açıldıktan sonra (ki bu şablon sayfasındaki gibi bir sayfadır) personel bilgi ayrıntılarını bu sayfalara yazacaksınız.

Durum anlaşıldı mı?

Ha bu işin bir çok yöntemi var ama siz böyle istediniz diye böyle yaptım.

Not : Bu arada dosyayı açtığınızda makroları etkinleştiriyor musunuz?
Genişletmek için tıkla ...
hocam şimdi dediginiz gibi yapıyorum ama olmuyor işte :S atmıyor
şimdi tekrar girdim ama olmuyo :S
Personel_listesi excel sayfamı actıgımda soruyor bana
makrolara napılsın diye bende etkinleştir diyorum... :)
 
hhocam buyrun printledim bakarsanız sevinirim..
 

Ekli dosyalar

Merhaba,

Anlamadığınızı anlamıştım.

Personel sayfası bir anlamda özet sayfa gibi, yani personelin sicili, adı ve soyadı var hepsi o kadar.

Şablon sayfası ise sadece başlıkların olduğu adı üzerinde şablon.

Siz personel sayfasında sicil, adı ve soyadını yazdığınız satıra çift tıklarsanız o personelin sicil numarasına eşit bir sayfa oluşturulur. Siz personelin detaylarını bu sayfalara yazacaksınız.

Sizin sorunuzdan anladığım buydu benim, oysa siz tüm bilgiyi şablon sayfasına yazmak istiyorsunuz ve oradan Personel sayfasını oluşturmak istiyorsunuz.

Durum yukarıda açıkladığım gibi. Çift tıklasanız olayı anlayacaksınız ama bir türlü tıklayamadınız :) Personel sayfasında 3. satırda herhangi bir hücreye ÇİFT TIKLAYIN ve yeni sayfa açıldığını görün.

Birde sanırım foruma sık gelmiyorsunuz bu durumda olayı anlamayı uzatıyor.
 
Şablon sayfasından personel sayfasına dönmek için ayrıca bir düğme yapılabilirmi
 
Sayın Necdet Yeşertener ;

Güzel bir çalışma ellerinize sağlık.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst