excell otomatik numara

[piyers]

İyi günler arkadaşlar
Ben bir excell de bir şablon hazırladım ama her açtığımda şablonu otomatik fatura numarası vermek istiyorum.
Bunu yapabilmem için yardımcı olursanız sevinirim.

 

[selections]

Bu şablonu bir yere kaydediyorsanız tabiki yapabilirsiniz.

 

[piyers]

otomatik numara

Þablonda olmuyor yapamadım.
Benim istediğim şablonu her açtığımda fatura numarası bir snraki olsun.
mesala h15 hüçresine 12345 fatura nosu verdim.
bunu farklı kaytettim yeni açtığım şablonda numaranın 12346 olmasını istiyorum. Bu konuda yardımlarınızı bekliyorum.
Biraz ayrıltılı bilgi verirseniz sevinirim.
Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki makro dosyayı her açtığınızda H15 hücresindeki noyu bir arttırır.
[vb:1:7b0f40ee3a]sub auto_open()
[h15]=[h15]+1
end sub[/vb:1:7b0f40ee3a]

 

[piyers]

Ben herhalde işlemimi anlatamadım arkadaşım
ben şablonu açtığımda farklı olarak kaydediyorum.
onun için şablonu her açtığımda aynı numarayı veriyor.
Ben şablonu her açtığımda farklı versin istiyorum .şablonu her açtığımda farklı olarak kaydediyorum.Þablona hiç dokunmuyorum.
saygılarımla

 

[piyers]

SORUNUMA YARDIMCI OLACAK ARKADAS YOKMU.

 

[veyselemre]

son fatura numarasını c:\fatno.txt dosyasına kaydedin
aşağıdaki komutları bir modülün içine yazın

Sub auto_open()
On Error Resume Next

Open "c:\fatno.TXT" For Input As #1
Input #1, x
[a1] = x + 1
Close #1

Open "c:\fatno.TXT" For Output As #1
Print #1, [a1]
Close #1

End Sub

 

[nolcun]

Sayın piyers leventm hocamın verdiği kod istediğiniz işlemi yapmaktadır. Dikkat etmeniz gereken: Çalışma kitabını açarken her defasında ilk Çalışma kitabını değil en son Farklı kaydettiğiniz Çalışma kitabını açmalısınız. Kolay gelsin...

 

[piyers]

Ben herhalde işlemimi anlatamadım arkadaşım
ben şablonu açtığımda farklı olarak kaydediyorum.
onun için şablonu her açtığımda aynı numarayı veriyor.
Ben şablonu her açtığımda farklı versin istiyorum .şablonu her açtığımda farklı olarak kaydediyorum.Þablona hiç dokunmuyorum.
ben istiyorumki sablonu her actigimda sayfa1 g10 hüçresine yeni numara versin.
ornek bir çalisma varsa sevinirim.
saygilarimla

 

[nolcun]

Sayın piyers Makro kaydetmesini biliyorsanız leventm hocamın verdiği kod istediğiniz işlemi yapmaktadır. Dikkat etmeniz gereken: Çalışma kitabını açarken her defasında ilk Çalışma kitabını değil en son Farklı kaydet :kafa: tiğiniz Çalışma kitabını açmalısınız. Kolay gelsin...

 

[danersin]

[vb:1:24fcf9cfdc]Sub auto_open()
[h15] = [h15] + 1
ActiveWorkbook.Save
End Sub[/vb:1:24fcf9cfdc]

 

[piyers]

SAYIN NOLCUN SOYLED0G0N0Z0 ANLIYORUM YAN0 DEMEK ISTEDIGINIZ SABLONU DEGILDE NORMAL EXCELL ÇALISMA SAYFASI OLARAK KAYDET BOYLE YAPTIGIM ZAMAN BIR SORUN YOK OLUYOR.AMA SABLON OLARAK KAYT ETTIGIM ZAMAN BEN ISTIYORUMKI SABLONU HER ACTIGIMDA YENI BIR NUMARA VERSIN.ZANNEDERSEN HER HALDE OLMUYOR. GINEDE VERDIGINIZ BILGILER IÇIN TESEKKUR EDERIM.
KILAVYEDE BIR SORUN OLDUGU IÇIN BAZI HARFLERI DUZGUN YAZAMADIM OZUR DILERIM.
ÇALISMALARINIZDA BASARILAR DILERIM
SAYGILARIMLA
PIYER

 

[danersin]

@piyers

Sanırım sorunuzu şöyle ifade etmek gerekiyor. Hep Þablon olarak kullandığınız dosyayı açmak istiyor ancak Farklı kaydet yaptığı için Þablon dosya hiç kaydedilmemiş oluyor ve hep aynı rakam çıkıyor karşısına. Þablon Dosyayı açar açmaz bir arttırıp şablonu kaydedersek sorun hallolur. Bkn. yukarıdaki kod.

 

[piyers]

EVET SAYIN DENERSIN ARKADASIM AYNEN DEDIGINIZ GIBI DENEDIM AMA YAPAMADIM HATA VERIYOR BELGELERIME AYNI DOSYADAN ATIYOR YOKSA BEN YANLIS BIRSEYMI YAPIYORUM
VERDIGINIZ BILGI ICIN TESEKKUR EDERIM EN AZINDAN USTUNDE BIRAZ CALISMA YAPARIM

 

[yazbana]

Evet, aşağıdaki şekilde en garantisi olacak.
Þablon dosyanızın yolunu ve ismini kendinize göre değiştirin.

[vb:1:a88550017f]Sub auto_open()
[h15] = [h15] + 1
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\yazbana\Application Data\Microsoft\Templates\Sablon1.xlt" _
, FileFormat:=xlTemplate, ReadOnlyRecommended:=False

End Sub[/vb:1:a88550017f]

 

[piyers]

SAYIN YAZBANA ARKADASIM
VERDIGIN BILGI ICIN TESEKKUR EDERIM
PROPLEMIM COZULDU

TESEKKURLER


KILAVYEMDE SORUN OLDUGU ICIN BAZI HARFLERI YANLIS YAZIYORUM
OZUR DILERIM

SAYGILARIMLA