Code needs editing to get all voucher numbers

[RAJESH SHAH]

Hello Experts,
I have this data in sheet Original received from a client. I want it to convert into a format which will be helpful for me to import it to the server. The problem is the original data doesn’t have voucher number in a few cells and hence when I run the code, I am getting the data without voucher numbers of the same rows. I need help to add an additional code in the existing code to get numbers to all entries. The numbers in the original sheet are not important as I am giving them a new number. Please note: The sheet Original is merged and should stay merged after running the code. In the sheet Bank, the yellow marked cells are the cells I am not getting the numbers. To test the code press clear button before running the Step1 code.
https://drive.google.com/file/d/10-q...ew?usp=sharing

[MikeVol]

Hi! There is no file under your link.

[TMS]

Many people won’t follow external links.


Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[RAJESH SHAH]

Thanks for the update. I uploaded twice but it ain't showing here. Please note that I have shared this file on other forums too but I haven't got it solved.

[WideBoyDixon]

Quickest solution would appear to be to add a few extra characters as shown in red:

Please Login or Register  to view this content.

WBD

[RAJESH SHAH]

I am not good at editing codes. I record macros where ever required. Thankfully some codes are shared by experts as per my requirement which are too complicated for me to understand. Can you please guide me to insert the code and which line to insert.?

[RAJESH SHAH]

I have added this code and it is running perfectly.
Dim bc As Long

Set ws = Worksheets("Bank")
'fill blank cells with 0

'how to change this Range in code from G10000 to the end of the data

Only this instead of For Each rng In ws.Range("G1:G500"), can you change it a common range because some data have 500 and some have more than 10,000 rows of data . If you can help me to correct this line then I need not alter the code for every other data.

[WideBoyDixon]

There was already a line of code like this:

Please Login or Register  to view this content.

Just change it to this:

Please Login or Register  to view this content.

WBD

[RAJESH SHAH]

Got it WideBoyDixon. Thank you.