serial print merge numerator labels etiquettes VB macro excel coreldraw 3
' copy this code in the Visual Basic Editor , Execute FillFistCellWithTextFormat()
'first next execute FillCopyFistCellWithTextFormat().
Sub FillFistCellWithTextFormat()
Set SourceRange = Range(Cells(2, 1), Cells(2, 1))
SourceRange.Select
Set ModifiedRange = Range(Cells(2, 2), Cells(2, 2))
ModifiedRange.Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""00"")" ' change the number of "0" for ZEROPAD
End Sub
Sub FillCopyFistCellWithTextFormat()
Set SourceRange = Range(Cells(2, 2), Cells(2, 2))
SourceRange.Select
Lastcell = 1001 ' chage this value by looking to sheet last column number, press Ctrl+END
Set fillRange = Range(Cells(2, 2), Cells(Lastcell, 2))
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
End Sub