Belge numarası verme

[raden]

Hocam yardımcı olursanız sevinirim...otomatik belge no almak istiyorum..örnek dosya ekte.gerekli açıklamayı belge üzrinde yaptım...şimdiden teşekkürler....

 

[raden]

Yaw ne zormuş benim istediğimde...

 

[Mahir64]

Merhaba,

İstediğiniz zor veya değil ama zaman meselesi.

Belge numarası neye göre atacak. Belge no yazan tıklandığı zaman vermesi yeterli olacak mı?

 

[Mahir64]

Merhaba,

Buna yakın bir konu işlenmişti. Ufak bir değişiklik işinizi görecektir.

http://www.excel.web.tr/f50/toplama-ekleme-t100544/sayfa3.html

Sayfanın kod bölümüne ekleyerek deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then Cells(Target.Row, "C") = Cells(Target.Row, "C") + 1
End Sub