Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help - This macro converts my text numbers.
What would I have to do, to change the code so the numbers that ge
copied keep their original text format? This is a great macr (something given to me on this Forum) however it converts my number from a text to a general format... and I lost my leading zeros... Sub TidyUp() Dim cLastRow As Long Dim rng As Range Dim i As Long cLastRow = Cells(Rows.Count, "C").End(xlUp).Row For i = 2 To cLastRow If Cells(i, "A").Value = "" Then Cells(i, "A").Value = Cells(i - 1, "A").Value Cells(i, "B").Value = Cells(i - 1, "B").Value End If Next i End Su -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help - This macro converts my text numbers.
Try this:
Sub Fillblanks1() Dim rng As Range, rng1 As Range Set rng = Intersect(ActiveSheet.UsedRange, _ ActiveSheet.Columns(1).Resize(, 2)) Set rng1 = rng.SpecialCells(xlBlanks) For Each ar In rng1.Areas ar.Offset(-1, 0).Resize(ar.Rows.Count + 1).FillDown Next End Sub -- Regards, Tom Ogilvy "jer101 " wrote in message ... What would I have to do, to change the code so the numbers that get copied keep their original text format? This is a great macro (something given to me on this Forum) however it converts my numbers from a text to a general format... and I lost my leading zeros... Sub TidyUp() Dim cLastRow As Long Dim rng As Range Dim i As Long cLastRow = Cells(Rows.Count, "C").End(xlUp).Row For i = 2 To cLastRow If Cells(i, "A").Value = "" Then Cells(i, "A").Value = Cells(i - 1, "A").Value Cells(i, "B").Value = Cells(i - 1, "B").Value End If Next i End Sub --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
opening text file converts numbers to scientific notation | Excel Discussion (Misc queries) | |||
Create a key that converts numbers to words? | Excel Discussion (Misc queries) | |||
Macro that converts xls to csv | Excel Worksheet Functions | |||
transposing an array converts dates into numbers | Excel Worksheet Functions | |||
converts numbers to dates | Excel Discussion (Misc queries) |