Format syntax problem

[VBAProIWish]

Hello All,

I have been trying many different ways to get this format to work but can't seem to get it right. Here's a couple I tried but didn't work...

.Range("A2:A" & .Range("B" & Rows.Count).End(xlUp).Row).Selection.NumberFormat = "yyyy-mm, mmm"

Selection.Range("A2:A" & .Range("B" & Rows.Count).End(xlUp).Row).Selection.NumberFormat = "yyyy-mm, mmm"

I'm trying to copy cell A1 using a custom format in column A, equal to the bottom-most row with data in column B.

Thanks much

 

[VoG]

Try

.Range("A2:A" & .Range("B" & Rows.Count).End(xlUp).Row).NumberFormat = "yyyy-mm, mmm"

 

[VBAProIWish]

VoG,

Oops, My fault for not wording this correctly.

Yes, that changed the format, but the cells are all blank. That is because I FORGOT to mention that I want to copy the cell in A2 (which already has the correct date and format) and paste the SAME DATE AND FORMAT in cell A2 equal to the bottom-most row of data in column B.

So, in laymens terms...

1. Copy A2
2. Paste A2 to all cells in Column A but stop at bottom-most row of data in column B.


Sorry for the confusion

 

[VoG]

Try

.Range("A2:A" & .Range("B" & Rows.Count).End(xlUp).Row).NumberFormat = "yyyy-mm, mmm"
.Range("A3:A" & .Range("B" & Rows.Count).End(xlUp).Row).Value = .Range("A2").Value

 

[VBAProIWish]

Freakin Amazing, I wish I could get this stuff on the first try like you guys. I can only dream it will be soon.


SINCE YOU'RE GOING STRONG, ONE MORE ADDITION?...


How about also copying the borders from A2 down as well?

I would imagine it would be another short line of code similiar to the first two?


Thank you for this VoG, it's a big help

 

[VoG]

Instead of the above try

.Range("A2").Copy Destination:=.Range("A2:A" & .Range("B" & Rows.Count).End(xlUp).Row)

 

[VBAProIWish]

Alright, now you're just showing off! ​

WwoowW​

Are you kidding me, one line of code!​

That is just A W E S O M E!​

Thank you Thank you, this one's going in my "Code Hall of Fame"!​

​