Nader
02-20-2008, 06:55 AM
This code is to copy the values from sheet1 to sheet(bills) values after values and left between each values one row.
But when I change the format ( the font or the size of font or bold?) of sheet("bills") it doesn?t work well .it copy the first values and left between them about 900 rows.
Dim j As Integer
j = Worksheets(lblagent.Caption).UsedRange.Rows.Count + 1 + Worksheets(lblagent.Caption).UsedRange.Row
Sheets(1).Range("A24:A1000").Copy Worksheets(lblagent.Caption).Range("a" & j)
How to fix this problem ?
But when I change the format ( the font or the size of font or bold?) of sheet("bills") it doesn?t work well .it copy the first values and left between them about 900 rows.
Dim j As Integer
j = Worksheets(lblagent.Caption).UsedRange.Rows.Count + 1 + Worksheets(lblagent.Caption).UsedRange.Row
Sheets(1).Range("A24:A1000").Copy Worksheets(lblagent.Caption).Range("a" & j)
How to fix this problem ?