Macro moving cells

[alvbnp]

Sample data:

1234567-123
abcde | fghijk

to

1234567-123 | abcde | fghijk


If A1 = 1234567-123 Then
move A2 and B2 to B1 and C1

For the whole column A

A1 will always be numeric format as shown.

Thanks.

 

[jindon]

Hi
something like

Sub test()
Dim r As Range
For Each r In Range("a1",Range("a" & Rows.Count).End(xlUp))
   If r.Text = "1234567-123" Then r.Offset(,1).Value = r.Offset(1).Value
Next
End Sub

 

[alvbnp]

Sorry, maybe I didn't make it clear enough. The numeric "1234567-123" can be any other number throughout column A.

eg:
0123456-456
7894561-789
9876543-987

 

[jindon]

Sorry, maybe I didn't make it clear enough. The numeric "1234567-123" can be any other number throughout column A.

eg:
0123456-456
7894561-789
9876543-987

Are the cells formated as "0000000-000" ?

 

[alvbnp]

Sorry, maybe I didn't make it clear enough. The numeric "1234567-123" can be any other number throughout column A.

eg:
0123456-456
7894561-789
9876543-987

Are the cells formated as "0000000-000" ?

Yes.

 

[jindon]

try

Sub sample()
Dim r As Range
With CreateObject("VBScript.RegExp")
    .Pattern = "^\d{7}-\d{3}$"
    For Each r In Range("a1",Range(2a" & Rows.Count).End(xlUp))
         If .test(r.Text) Then r.Offset(,1).Value = r.Offset(1).Value
    Next
End With
End Sub

 

[alvbnp]

try

Sub sample()
Dim r As Range
With CreateObject("VBScript.RegExp")
    .Pattern = "^\d{7}-\d{3}$"
    For Each r In Range("a1",Range("a" & Rows.Count).End(xlUp))
         If .test(r.Text) Then r.Offset(,1).Value = r.Offset(1).Value
    Next
End With
End Sub

result:

1234567-123
abcde | fghijk

to

1234567-123 | abcde

'fghijk' is not moved.

 

[jindon]

Ah...

Sub sample()
Dim r As Range
With CreateObject("VBScript.RegExp")
    .Pattern = "^\d{7}-\d{3}$"
    For Each r In Range("a1",Range(2a" & Rows.Count).End(xlUp))
         If .test(r.Text) Then r.Offset(,1).Resize(,2).Value = r.Offset(1).Resize(,2).Value
    Next
End With
End Sub

 

[alvbnp]

Perfect. Thanks a lot, Jindon. You have helped me a lot.