Welcome to the forum. Try this ...
Code:Sub MoveUpRight() For Each cl In [a1:e20] 'Change to meet your needs If InStr(cl.Text, "Memo:") > 0 Then cl.Offset(-1, 1) = cl.Text cl.Value = "" End If Next End Sub
Sub MoveUpRight()
For Each cl In ActiveSheet.UsedRange '<< Across all used cells.
If InStr(cl.Text, "Memo:") > 0 Then
cl.Offset(-1, 1) = cl.Text
cl.Value = ""
End If
Next
End Sub
Welcome to the MrExcel board!
As a matter of interest ..
1. About how many rows and how many columns are used on your worksheet?
2. Can the "Memo:" cells be anywhere on the sheet or only in certain column(s)?
- If certain columns(s), which one(s)?
3. Can you say about how many "Memo:" cells are likely to be encountered?
Well. that answered about 1.5 of my 4 questionsMemo: is in 1 designated column and 250 rows, I am geting data from a bank acct format and changing it to fit my BankBalancing excel spreadsheet
For Each cl In Intersect(ActiveSheet.UsedRange, Columns("G"))
For Each cl In Range("G1", Range("G" & Rows.Count).End(xlUp))