Otomatİk Kayit

[yavuz_tekeli_]

ArŞİvden Buna Benzer Bİr Dosya Bulamadim Yardimci Olrsaniz Sevİnİrİm.
Kayit Kisminda YazdiĞim Bİlgİlerİn Lİste Kisminda Kaydedİlmesİnİ İstİyorum.
Ayrica Kayit YapildiĞinda O GÜnkÜ Tarİhİn İlgİlİ Satira İŞlenmesİnİ SaĞlayabİlİrmİyİz

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım incelermisiniz. D8 hücresine bilgi girişi yaptığınızda kayıt işlemi gerçekleşecektir.

 

[Merhum İdris SERDAR]

Pratik bir çözüm ekte.

 

[yavuz_tekeli_]

balık tutmak

bunu nasıl yaptığını anlatırmısın

 

[Merhum İdris SERDAR]

bunu nasıl yaptığını anlatırmısın

Benim yanıt için soruyorsunuz. Herhalde.

Excel bize otomatik olarak form düzenleme imkanı sağlar.

Data / Form'u tıklarsanız bu form kendiliğinden oluşur.

Bu yaptığınız işlemi Macro Kaydet ile kaydederseniz. makrosu da olmuş olur.

Bu macroyu da bir düğmeye (View/Toolbars/Forms'tan düğmeyi seçin.) bağlarsanız. Benim örnek dosyadaki çözümü elde edersiniz.

 

[kurtkurt25]

Arkadaslar Oncelİkle Bu Form Gercekten Cok GuzelmİŞ
Benİm Sorum Su Bİ Exel Tabanli Stok Kayit Defterİ Yaptim
Benİm İstedİgİm SİparİŞ FİŞİ Sayfasina Yazdiklarimi Otomatİk Olarak Malzeme Sayfalarindan Dusmesİ Yanİ Her Malzeme Ayri Sayfa Toplam 167 Malzeme Var Bİr Sayfa Da Stoklarin Lİstesİ Gİren Cikan Falan Dİger Bİ Sayfa İse SİparİŞ Sayfasi Dİyorumkİ Yanİ Bu SprİŞ Sayfasinin Malzeme Cİnİs Ve Mİktari Yazan Hanelerİ Doldurdugumda Otomatik Dussun
Cooook Saolun

 

[mehmett]

Sn kurtkurt25 öncelikle foruma hoşgeldiniz.

Sorularınızı ayrı bir başlık açarak ve mümkünse örnek dosya ekleyerek sorunuz.

 

[yavuz_tekeli_]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım incelermisiniz. D8 hücresine bilgi girişi yaptığınızda kayıt işlemi gerçekleşecektir.

şimdi buna ilave olarak liste ve kayıt sayfaları oluşturmnuşsun sayfa ismini değiştirdiğim zaman çalışmıyor bu bir .ikincisi benim bu kodları başka bir sayfaya uyarlamam için ne yapmam gerek

 

[Korhan Ayhan]

Selamlar,

İlk olarak Alt+F8 tuşlarına basarak makrolar bölümünü açın. Ekranınıza makroları listeleyen pencere gelecektir. Bu pencerede iken BİLGİLERİ_KAYDET isimli makronun ismini seçip DÜZENLE butonuna tıklayın. Kodları yazılı olduğu sayfaya ulaşacaksınız. Yani aşağıdaki kodlara ulaşacaksınız. Burada düzeltmeniz gereken kısımlar değişiklik yaptığınız sayfa isimleri (koyu renkle belirgin olan kısımlar) olacaktır. Sanırım yapabilirsiniz.

Sub BİLGİLERİ_KAYDET()
    Set S1 = [b]Sheets("KAYIT")[/b]
    Set S2 = [b]Sheets("LİSTE")[/b]
    Set WF = WorksheetFunction
    If S1.[D3] = "" Or S1.[D4] = "" Or S1.[D5] = "" Or S1.[D6] = "" Or S1.[D7] = "" Or S1.[D8] = "" Then
    S1.[D3].Select
    MsgBox "EKSİK BİLGİ GİRİŞİ TESBİT EDİLMİŞTİR." & Chr(13) & "LÜTFEN GİRDİĞİNİZ BİLGİLERİ KONTROL EDİNİZ.", vbExclamation, "DİKKAT !"
    Exit Sub
    End If
    SON_SATIR = S2.[A65536].End(3).Row + 1
    SIRA_NO = WF.Max(S2.[A2:A65536])
    S2.Cells(SON_SATIR, 1) = SIRA_NO + 1
    S2.Cells(SON_SATIR, 2) = Now
    S2.Cells(SON_SATIR, 3) = S1.[D3]
    S2.Cells(SON_SATIR, 4) = S1.[D4]
    S2.Cells(SON_SATIR, 5) = S1.[D5]
    S2.Cells(SON_SATIR, 6) = S1.[D6]
    S2.Cells(SON_SATIR, 7) = S1.[D7]
    S2.Cells(SON_SATIR, 8) = S1.[D8]
    S1.[D3:D8] = ""
    S1.[D3].Select
    Set S1 = Nothing
    Set S2 = Nothing
    Set WF = Nothing
    MsgBox "BİLGİLERİNİZ BAŞARIYLA KAYDEDİLMİŞTİR.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Ayrıca başka bir sayfaya uyarlamak için KAYIT isimli sayfanın ismi üzerinde iken sağ klik yapıp kod görüntüle derseniz sayfaya ait kodlara ulaşabilirsiniz. Bu bölümdeki kodları bu işlemi yapmak istediğiniz sayfanın kod bölümüne uygularsanız çalışacaktır. Biraz uğraşırsanız yapacağınıza inanıyorum.

 

[yavuz_tekeli_]

satır eklediğimiz zaman yine d8 kayıt yapıyor?

sayfa ismini değiştirdiğim zaman kodları çalıştırmayı başardım .satır eklemek istediğim zaman gerek d8 den sonra gerekse d3-d8 arasına kodlar surekli d8 de bilgileriniz başarıyla kaydedilmiştir uyarısı veriyor.
bunu satır ekledikten sonra oluşan d10 hücresinde nasıl kayıt yaptıracağız