Excel tablo ile otomatik numaralandırma proğramı

[MURATSrh]

Selamun aleyküm. Hayırlı günler.

Burdan istediğim proğramın hangi sınıfa girdiğini bilmediğim için buraya açtım. Umarım yanlış bölüm değildir.

Geleyim konuya;

İşyerinde resim numarası vermek için excell ile yapılmış bir proğram var. Zaman içinde düzeni bozulmuş oldukça karışık bir hale geldi. Proğram şöyle başlıyor.

Burdaki butona tıklayınca aşağıdaki pencere açılıyor.

yukardaki beyaz kutucuklara kapasite bilgisi , yanındakine yapım kodu ve en sağda tarih bilgileri elle giriliyor.

aşağıdaki numaralar ise o anki duruma göre seçilen numaralar tik ile işaretlenip ;

önce NUMARA EKLE
sonra NUMARA GÖSTER

butonlarına tıklayınca aşağıdaki gibi oluyor.

Buraya atılan numaralar belli bir numaradan başlayacak ve sıra ile artarak her defasında kendi sayfasına eklenecek. Karışık durum şöyle.

bu bir kutucuğa ait bilgiler.

Burdaki ama binlerce resim arasında bir numarayı başka bir resme vermemek. sıradan numaralandırmaya devam edecek.

D-10
D-11

...

gibi seçenek çok olduğundan bunların hepsini bir tek sayfaya yanyana ekleyince içinden çıkılmaz hale geliyor. Hergün sürekli resim numarası ekleniyor.

Böyle bir proğramı ve her numarayı ayrı sayfada gösterip kaydedecek şekilde yapacak bir arkadaşım var mı ?

Bu konuda yardımcı olacak arkadaşa minnettar kalırız. Gerekirse daha iyi anlatabilmek için bilgisayarıma bağlanıp birebir şekil üzerinde de tarif edebilirim. Acilen cevabınızı ve yardımınızı bekliyorum.

Teşekkürler.

 

[MURATSrh]

Arkadaşlar konuyu inceleyen var mı acaba? İlgilenen arkadaşlar varsa bekleyeyim. Konu çok acil. Bu tabloyla verilecek numaralar iş akışını etkiliyor.

Yapabilecek arkadaşların cevabını bekliyorum.

 

[alicimri]

1- Numaraların A sütununda olduğunu varsaydım.
2- Numaralarının sırasının herhangi bir şekilde bozulmadığını varsaydım
3- Sayfa adlarını User formunda nerede ve nasıl belirlediğinize göre kodlara eklemeniz gerekiyor.

Sub Makro1()
SAY = Range("A65536").End(3).Row
    Range("A" & SAY).AutoFill Destination:=Range("A" & SAY & ":A" & SAY + 1), Type:=xlFillDefault
    MsgBox "Yeni Numara " & Range("A" & SAY + 1)
End Sub

 

[MURATSrh]

Öncelikel teşekkür ederim. Yalnız excell bilgim yok. Bu kodları nereye ve nasıl ekleyeceğimi bilmiyorum. Bana tarif ettiğim proğramın kendisi lazım. Daha net ve düzenlenmiş hali ile. Bu kodlar şu an nasıl bir etki verecek bilemiyorum.

Proğramın kendisini yapma imkanınız varsa sevinirim. Tekrar teşekkür ederim.

 

[alicimri]

Şu anda kullandığınız dosyayı fikir verecek kadar kısaltıp eklerseniz yardımcı olmaya çalışayım.

 

[MURATSrh]

Eklenti yetkisi yok. Buraya ekledim. Bu linkten indirip inceleyebilirsiniz.
Yalnız , daha önce verilen numaralar var. Her bölüm yani
D-10
D-11
...

gibi bölümler her biri farklı numaralardan devam etmeli. Kaldığımız yerden devm etmek için. Burda tek sayfada , eğer her numarayı ayrı sayfalarda yapabilirsek çok çok güzel olacak.

Estetik ve görünüm olarak ta sizin zevkinize kalmış. Renk tonları ve tasarımı daha güzel yapacağınıza inanıyorum.

Tekrar teşekkürler. Link burda .. Buyrun..

http://s7.dosya.tc/server5/d9ivvv/Dagitim_Resim_Numaralandirma1.rar.html

 

[MURATSrh]

Dosyayı ekledim. Burdan inceleyebilşrsiniz.

 

[alicimri]

Dosyayı deneyin işinize yararsa sevinirim.
http://s7.dosya.tc/server5/4otwaa/Sayfasi.zip.html

 

[alicimri]

Verilerin ayrı sayfada olması isteğinizi sonradan gördüm. Yeni hali aşağıdaki linkte
http://s7.dosya.tc/server5/olytlq/Sayfasi1.zip.html
1- Seri listesinden seçimlerinizi yapın
2- Seri listesinden çıkışınızda Numaralar listesine seçtiğiniz serilere ait yeni verilecek numaralar gelecek.
3- Diğer bilgileri girip KAYDET tuşuna basınca kayıtlar yapılıp imleç seri listesine gelip yeni kayıt için hazır olacak.
4- Eğer Yeni seri sayfası oluşturursanız, (Mesela D-74) bu sayfanın formatı ve başlıkları aynı şekilde olsun. form açıldığında bu seri sayfasını da seri listesine dahil edecektir.

 

[MURATSrh]

Alicimri Hocam,
Öncelikle Ellerine sağlık. Emek verdiniz , zaman harcadınız.

Yalnız ; örnek verdiğim dosya fikir amaçlıydı. Resim numaraları direk sayfalara kaydetmeden önce benim görebilmem lazım. Toplu olarak. Numara göster butonuna basınca bütün numaraları aynı ekranda görüp , sonra kaydediyorum. Bu şelkikde kaydettikten sonra sayfalara tek tek girip bakmak lazım ki, benim verdiğim örnekteki numaralar kadar yani 99 dahil olmalıydı. Müsaadenizle bu sisteminizi biraz geliştirmeye çalışalım. Araştırma yaparak sizin mantığınızla ilerlemek belki daha güzel olacak.

Sonsuz teşekkürler. Ellerinize sağlık. Eyvallah.

Bir sorun olur ilerleyemezsek sizi tekrar rahatsız ederim müsaadenizle.

 

[alicimri]

Zaten dediklerinizi yapıyor. Dosyayı ve Yukarıda #9 nolu mesajda yazdıklarımı iyi inceleyin

 

[alicimri]

http://s7.dosya.tc/server5/7npmhq/Sayfasi2.zip.html
Form üzerinden Sayfayı ekleyin. Yeni halinin linki üsttte

 

[MURATSrh]

http://s7.dosya.tc/server5/7npmhq/Sayfasi2.zip.html
Form üzerinden Sayfayı ekleyin. Yeni halinin linki üsttte

Selamun Aleyküm.

Alicimri hocam , maalesef olmadı. Ana pencere yok bu dosyada. Ve sayfalar eksik.

Bu proğramdaki amaç sayfalara girmeden ana sayfa da açılan pencereden numaraları verip kaydetmek. alt sayfalara kendisi kaydedip arşiv yapacak .

Burdan tam olarak ifade edilmiyor. Burdaysanız , yada hafta sonu pc ye bağlanabilir misiniz teamla. Direk proğram üzerinden tarif edeyim. Daha çabuk halledersiniz o zaman.

 

[alicimri]

Son halini deneyin.
http://s7.dosya.tc/server5/vgac8m/Sayfas_3i.zip.html

 

[MURATSrh]

Son halini deneyin.
http://s7.dosya.tc/server5/vgac8m/Sayfas_3i.zip.html

Mantık olarak güzel ama arşiv sayfalarına eklemiyor. Açılır pencereden direkt numaraları görüp proğramı kaydet - kapatınca alt sayfalara otomatik olarak eklemesi lazım.

Bendeki dosyayı eklesem , eksiğini yazsam düzenleme yapar mısınız acaba? bir hata var ve pencere üzerinde de biraz düzenleme gerekiyor.

 

[alicimri]

Ekliyor................