| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
if cell is text move left one column
ColB is a long list with sections names followed by category codes
I need to move the text into colA leaving colB with codes only (all numbers) ColB. Doors 940590 555998 447006 447008 810697 810705 810706 810707 Windows 619435 525691 525692 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
if cell is text move left one column
Try
Sub Macro1() Dim lngRow As Long For lngRow = 1 To Cells(Rows.Count, "B").End(xlUp).Row If Not IsNumeric(Range("B" & lngRow)) Then Range("A" & lngRow).Value = Range("B" & lngRow).Text Range("B" & lngRow).Value = "" End If Next End Sub -- Jacob "Saintsman" wrote: ColB is a long list with sections names followed by category codes I need to move the text into colA leaving colB with codes only (all numbers) ColB. Doors 940590 555998 447006 447008 810697 810705 810706 810707 Windows 619435 525691 525692 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
if cell is text move left one column
Hi,
Try this Sub Merge() Set sht = Sheets("Sheet1") ' Change to suit lastrow = sht.Cells(Cells.Rows.Count, "B").End(xlUp).Row Set MyRange = sht.Range("B1:B" & lastrow) For Each c In MyRange If Not IsNumeric(c.Value) Then c.Offset(, -1).Value = c.Value c.ClearContents End If Next End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Saintsman" wrote: ColB is a long list with sections names followed by category codes I need to move the text into colA leaving colB with codes only (all numbers) ColB. Doors 940590 555998 447006 447008 810697 810705 810706 810707 Windows 619435 525691 525692 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Move curser left one cell | Excel Programming | |||
| if cell text repeats, move the adjacent column to the same row | Excel Programming | |||
| How do I Move column A, B, etc. to left side. | New Users to Excel | |||
| Getting Range to move 1 column left and resize by 1 | Excel Programming | |||
| move y-axis labels on column chart from left to right side | Charts and Charting in Excel | |||
Hybrid Mode
