Number format won't copy

[tbmarlie]

I'm trying to format 2 columns of data into numeric format using the
code shown below, but its not working. There are blank cells in the
data; otherwise, I would do a select-down-format. The columns are J
and K. Thanks.

Dim LastRow As Long
LastRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("J2" & LastRow).NumberFormat = "#,##0.00_);[Red](#,##0.00)"
Range("K2" & LastRow).NumberFormat = "#,##0.00_);[Red](#,##0.00)"

Sample data:

Column J Column K
Adjustment YTD Changes
6,550.63
6,550.63
1,984.62
1,984.62
-10,408.46
-10,408.46
13,350.04
13,350.04
4,118.37
4,118.37
-3,213.00
31.5
-6

 

[Gary''s Student]

See response in the other group

 

[JW]

I'm trying to format 2 columns of data into numeric format using the
code shown below, but its not working. There are blank cells in the
data; otherwise, I would do a select-down-format. The columns are J
and K. Thanks.

Dim LastRow As Long
LastRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("J2" & LastRow).NumberFormat = "#,##0.00_);[Red](#,##0.00)"
Range("K2" & LastRow).NumberFormat = "#,##0.00_);[Red](#,##0.00)"

Sample data:

Column J Column K
Adjustment YTD Changes
6,550.63
6,550.63
1,984.62
1,984.62
-10,408.46
-10,408.46
13,350.04
13,350.04
4,118.37
4,118.37
-3,213.00
31.5
-6

Dim LastRow As Long
LastRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("J2:K" & LastRow).NumberFormat = _
"#,##0.00_);[Red](#,##0.00)"

 

[tbmarlie]

I'm trying to format 2 columns of data into numeric format using the
code shown below, but its not working. There are blank cells in the
data; otherwise, I would do a select-down-format. The columns are J
and K. Thanks.

Dim LastRow As Long
LastRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("J2" & LastRow).NumberFormat = "#,##0.00_);[Red](#,##0.00)"
Range("K2" & LastRow).NumberFormat = "#,##0.00_);[Red](#,##0.00)"

Sample data:

Column J Column K
Adjustment YTD Changes
6,550.63
6,550.63
1,984.62
1,984.62
-10,408.46
-10,408.46
13,350.04
13,350.04
4,118.37
4,118.37
-3,213.00
31.5
-6

Dim LastRow As Long
LastRow = Cells(Rows.Count, "G").End(xlUp).Row
Range("J2:K" & LastRow).NumberFormat = _
"#,##0.00_);[Red](#,##0.00)"- Hide quoted text -

- Show quoted text -

Thanks for both your help. That worked.