Makbuz Numarası Atama

[baydeniro]

Merhaba arkadaşlar. Alfanümerik yapıda makbuz numaralarını tarih girildiğinde otomatikman 1 artacak şekilde makro kodu ile atanması mümkün müdür ? Örnek dosya ekte.

 

[Husgvarna]

Merhaba arkadaşlar. Alfanümerik yapıda makbuz numaralarını tarih girildiğinde otomatikman 1 artacak şekilde makro kodu ile atanması mümkün müdür ? Örnek dosya ekte.

Merhaba.
Aşağıdaki gibi olabilir.
("C8" hücresini boşaltıp yeniden tarih girerek deneyin)

 Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c7:c65000")) Is Nothing Then Exit Sub
If IsDate(Target) Then
Target.Offset(-1, 1).AutoFill Destination:=Range(Target.Offset(-1, 1), Target.Offset(0, 1)), Type:=xlFillDefault
Target.Offset(-1, 2).AutoFill Destination:=Range(Target.Offset(-1, 2), Target.Offset(0, 2)), Type:=xlFillDefault
End If
End Sub

 

[baydeniro]

Sayın Husqvarna çok çok teşekkür ederim. Elinize, kolunuza sağlık, sağolun gerçekten çok işime yarayacak.