BULK SIGNATURE SCANNING FOR ACCOUNTS WHERE SS NOT AVAILABLE

Macro code is as follows:

Private Sub Worksheet_Activate() Dim ssource, ddest, SS As StringFor I = 1 To 2000
ssource = "D:\ZR.BMP"
SS = Trim(Worksheets("SS").Cells(I, 1).Value)
ddest = "D:\SS\" & "ZR" & SS & ".bmp"
FileCopy ssource, ddest
Next I
End Sub

Video Tutorial for Auto SS Scanner 

Download 

Shared by G Gurusivam, System Administrator, 09500665218 thanks to Rajesh CR

Share on Google Plus

About SPOs Karimnagar

J. PANDARI, SUPDT OF POST OFFICES, KARIMNAGAR DIVISION, KARIMNAGAR - 505 001 JOINED ON 23-05-2016.