[ÇÖZÜLDÜ] Depo kayıtlarımın takibi ve günlük çıktı almak için...

[enteresan]

Sevgili excel meraklısı arkadaşlarım. Ek'te gönderdiğim dosyada userform üzerinde bir tuşa birden fazla özellik eklemek istedim ama yapamadım. Bu konuda bana yardımcı olabilecek arkadaşlara minnettar olurum. Saygılarımla....
(Ayrıntılı açıklama dosyada mevcuttur..)

 

[Skorpiyon]

Sayın enteresan,

Hem Giriş Sayfanızda hemde Çıkış sayfanızda Yıllık ve Günlük No'ları mevcut ve bu numaralar birbirinden farklı. Siz form aktif olduğunda hangisinin forma gelmesini istiyorsunuz ?

Önce bunu bi halledelim.

Saygılarımla...

 

[enteresan]

Sayın enteresan,

Hem Giriş Sayfanızda hemde Çıkış sayfanızda Yıllık ve Günlük No'ları mevcut ve bu numaralar birbirinden farklı. Siz form aktif olduğunda hangisinin forma gelmesini istiyorsunuz ?

Önce bunu bi halledelim.

Saygılarımla...

Sevgili Sertkaya kardeşim, ilgilendiğin için teşekkür ederim.
Gönderdiğim form sadece küçük bir örnekti. Yani siz hangi sayfayı dikkate alırsanız alın farketmez. Ben oradaki makroyu kullanacağım. Yani ne yazılırsa sıradaki en son numara gelir onu öğrenmek isterim.
İlginize tekrar teşekkür eder saygılar sunarım...

 

[Skorpiyon]

Sayın enteresan,

Private Sub UserForm_Initialize() 'Buraya diğer kodlarınızın üstüne aşağıdaki kodları ekleyin.
Sheets("GİRİŞ").Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
TextBox4.Value = ActiveCell.Offset(-1, 0).Value
TextBox5.Value = ActiveCell.Offset(-1, 1).Value
Sheets("VERİ").Select

- "YAZDIR butonuna ise biraz fazla özellik eklemek istiyorum" demişsiniz. Ne gibi acaba ?

Saygılarımla...

 

[Skorpiyon]

Sayın enteresan,

Bazı şeyleri kendi kendinize yapabilmeniz açısından, daha önce belirtilen bir konuyu tekrar dile getirmek isterim.

Öncelikle Excel çalışma kitabınız üzerinde yapmak istediğiniz olayları tam olarak belilrleyin. Ardından,

Araçlar - Makro - Yeni Makro Kaydet 'deyin. Ve belirlediğiniz işlemleri sırasıyla yapın ve işiniz bittiğinde Araçlar - Makro - Makroyu durdur diyerek işinizi bitirin.

Kod bölümüne geçtiğinizde Excel'in sizin için kodları otomatik olarak yazdığını göreceksiniz.

Saygılarımla...

 

[enteresan]

Sayın enteresan,

Bazı şeyleri kendi kendinize yapabilmeniz açısından, daha önce belirtilen bir konuyu tekrar dile getirmek isterim.

Öncelikle Excel çalışma kitabınız üzerinde yapmak istediğiniz olayları tam olarak belilrleyin. Ardından,

Araçlar - Makro - Yeni Makro Kaydet 'deyin. Ve belirlediğiniz işlemleri sırasıyla yapın ve işiniz bittiğinde Araçlar - Makro - Makroyu durdur diyerek işinizi bitirin.

Kod bölümüne geçtiğinizde Excel'in sizin için kodları otomatik olarak yazdığını göreceksiniz.

Saygılarımla...

Sayın Sertkaya,
ilginiz için teşekkür ederim. Kodu denemedim.Ekinim çalışıyordur. Yukarıdaki tarifinizi ben de kullanmaktayım ama bu şekilde yaparak bir önceki yazdığınız makroyu otomatik olarak nasıl elde edeceğimi anlayamadım.
Saygılar....

 

[Skorpiyon]

Sayın enteresan,

Aslında 4 nolu mesajdaki makro için kastetmemiştim. Ama en azından
Sheets("GİRİŞ").Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
bu kodları elde edebilirdiniz. Farklı bir şekilde tabii ki.

Örneğin Makro kaydet dedikten sonra, A1 hücresine tıklar, ve klavyeden Ctrl + Aşağı Ok' tuşlarına bastığınızda en alt dolu hücreye giderdiniz. Ve Activecell.offset ile 1 alt satırı seçtirebilirdiniz.

Yine Activecell.offset ile de bir üstteki dolu hücrenin değerine 1 ekle diyerek sıra numarasını otomatik verdirebilirdiniz.

Saygılarımla...

 

[enteresan]

Sayın enteresan,

Aslında 4 nolu mesajdaki makro için kastetmemiştim. Ama en azından
Sheets("GİRİŞ").Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
bu kodları elde edebilirdiniz. Farklı bir şekilde tabii ki.

Örneğin Makro kaydet dedikten sonra, A1 hücresine tıklar, ve klavyeden Ctrl + Aşağı Ok' tuşlarına bastığınızda en alt dolu hücreye giderdiniz. Ve Activecell.offset ile 1 alt satırı seçtirebilirdiniz.

Yine Activecell.offset ile de bir üstteki dolu hücrenin değerine 1 ekle diyerek sıra numarasını otomatik verdirebilirdiniz.

Saygılarımla...

ilginize teşekkür eder, iyi geceler dilerim...