Excel de Fatura Sıra No Vermek Hk

skaan

Altın Üye
Katılım
11 Mart 2005
Mesajlar
257
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
30-10-2024
Merhaba;
Excelde fatura Sablonu hazırladım.. Sablonda A1 hucresıne fatura sıra numarası vermek istiyorum. Bu numara " 00001" baslayacak ve her dosyayı kayıt ettiğimde numara birer birer atacak.. Örneğin ; 00001 numara ile faturayı hazırladıktan sonra dosyayı kaydettiğimde numara 00002 ve bu her kayıttan sonrada numara birer birer yukarı dogru atmalı... Bunu yapmamız mümkün mü acaba? Yardımcı olursanız çok sevinirim..
Hayırlı günler dilerim..
 

Mahir64

Destek Ekibi
Destek Ekibi
Katılım
19 Nisan 2006
Mesajlar
6,677
Excel Vers. ve Dili
Excel 2013-Türkçe
Excel 2016-Türkçe
Merhaba;
Excelde fatura Sablonu hazırladım.. Sablonda A1 hucresıne fatura sıra numarası vermek istiyorum. Bu numara " 00001" baslayacak ve her dosyayı kayıt ettiğimde numara birer birer atacak.. Örneğin ; 00001 numara ile faturayı hazırladıktan sonra dosyayı kaydettiğimde numara 00002 ve bu her kayıttan sonrada numara birer birer yukarı dogru atmalı... Bunu yapmamız mümkün mü acaba? Yardımcı olursanız çok sevinirim..
Hayırlı günler dilerim..
Merhaba
ThisWorbook kod bölümüne yapıştırın ve deneyin
Kod:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sayfa1").Select
[a1] = [a1] + 1
End Sub
 

skaan

Altın Üye
Katılım
11 Mart 2005
Mesajlar
257
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
30-10-2024
Yardımlarınız için teşekkürler..
Hayırlı günler dilerim..
Saygılar.
SKaan
 

mcetinkaya65

Altın Üye
Katılım
1 Mart 2011
Mesajlar
487
Excel Vers. ve Dili
2021 türkçe
Altın Üyelik Bitiş Tarihi
24-12-2030
Bu faturayı kaydetle değilde, yazdır butonuna yazdırmak için tıkladığımızda sıra numarasını ve yazdırma işini bir seferde yapmamız mümkün mü?
 

mcetinkaya65

Altın Üye
Katılım
1 Mart 2011
Mesajlar
487
Excel Vers. ve Dili
2021 türkçe
Altın Üyelik Bitiş Tarihi
24-12-2030
Bende bulunan yazdır butonu makrosu ile burada yayınlanan makroyu birleştirip işi hallettim.Teşekkürler.
Sub Yazdır()
Sheets("Sayfa1").Select
[A1] = [A1] + 1
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End Sub
 
Katılım
10 Aralık 2013
Mesajlar
4
Excel Vers. ve Dili
2003-TR
Arkadaşlar Excell de otomatik fatura no su vermek istiyorum nasıl yapabilirim.
 
Katılım
27 Mart 2016
Mesajlar
1
Excel Vers. ve Dili
2007 Türkçe
Merhaba Arkadaşlar;
Excel'de Fatura şablonu var, Amatör bir paket proğramı yapmak istiyorum, Fatura butonu yapıp butona tıkladığımda ekrana yeni fatura gelecek ( yeni fatura numarasıda gelecek) kısaca muhasebe yazılımındaki paket proğram gibi. bana yardımcı olursanız çok sevinirim. Şimdiden herkese teşekkürler.
 
Üst