| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Number format won't copy
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Number format won't copy
See response in the other group
-- Gary''s Student - gsnu200749 "tbmarlie" wrote: 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Number format won't copy
On Oct 12, 6:56 pm, tbmarlie wrote:
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)" |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Number format won't copy
On Oct 12, 4:40 pm, JW wrote:
On Oct 12, 6:56 pm, tbmarlie wrote: 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. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Lock Cell Format - Allow copy and paste of data without format change | Excel Worksheet Functions | |||
| Number Format Changes During VBA Copy/Paste | Excel Discussion (Misc queries) | |||
| Replace million-billion number format to lakhs-crores format | Excel Discussion (Misc queries) | |||
| Number format based on number format of another cell in another workbook | Excel Programming | |||
| How copy format, font, color and border without copy/paste? | Excel Programming | |||
Linear Mode
