otomatik fatura no'su

[nuklay2003]

merhaba degerli excel.web.tr arkadaslar
ekte gönderdigim fatura'da "fatura no'su sec" dügmesini basinca, belirtigim klasörde bulunan dosya adina bir sayiyi ekleyerek otomatik fatura no'su ekleme söz konusu olabilir mi, ve kaydet dügmesini basinda yine ayni belirtigim klasör icine hücre adiyla kaydetme söz konusu olabilir mi? bu konuda üstadlardan yardim istiyorum.

 

[Orion1]

Ekteki dosya gibimi istiyorsunuz.

Sub AutoOpen()
Dim fatno As Double, dosya As String
dosya = ThisWorkbook.Path & Application.PathSeparator & "09.2009" & Application.PathSeparator & "*.xls"
dosya = Dir(dosya)
dosya = Left(dosya, Len(dosya) - 4)
Sheets("Temlate").Range("K2").Value = dosya
End Sub
Sub fatura_no()
Sheets("Template").Range("L2").Value = Sheets("Template").Range("L2").Value + 1
End Sub

 

[nuklay2003]

Ekteki dosya gibimi istiyorsunuz.

Sub AutoOpen()
Dim fatno As Double, dosya As String
dosya = ThisWorkbook.Path & Application.PathSeparator & "09.2009" & Application.PathSeparator & "*.xls"
dosya = Dir(dosya)
dosya = Left(dosya, Len(dosya) - 4)
Sheets("Temlate").Range("K2").Value = dosya
End Sub
Sub fatura_no()
Sheets("Template").Range("L2").Value = Sheets("Template").Range("L2").Value + 1
End Sub

cok sagol üstad, isime yaradi. emegine saglik

 

[ceydasima]

eki açtım fakat kaydet dediğimde direk yazıcıya veriyor.