Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Public Sub ProcessData()
Public Sub ProcessData()
Dim i As Long, j As Long Dim LastRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row For i = 2 To LastRow If .Cells(i, "E").Value < "" Then If Len(.Cells(i, "E").Text) < 6 Then .Cells(i, "E").Value = "'" & Left("00000", 6 - _ Len(.Cells(i, "E").Value)) & _ .Cells(i, "E").Value End If End If Next i End With End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Public is not Public | Excel Programming | |||
Public? | Excel Programming | |||
Use of PUBLIC | Excel Programming | |||
public sub | Excel Programming | |||
Public Sub Help | Excel Programming |