Sub FillNum() Dim myRange As Range Set myRange = Cells.Find(What:="*", after:=[Q2], SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set myRange = Range(Cells(3, 1), Cells(myRange.Row, 1)) With myRange .NumberFormat = "General" .FormulaR1C1 = "=""0000""&ROW()-2" .NumberFormat = "@" .Value = .Value End With End Sub
|User Form VBA Data + Print Sections||39||114|
|Delete all words in cell more than 5 words||7||48|
|Help with Excel formula||6||38|
|Excel - Creating a Visual Basic Macro to change the active cell color||9||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!