Help with conditional move macro please !

[eddy]

I am looking for help with a macro which will do the following:-

Look down Col C (From C12 TO C39).
Look for instances of TRAxxxxxx (9 characters xxxxxx are wild cards).
If present then I want to move the contents of that row (Cols B,C,D,E,F)
to Row 44.

e.g Search C12 to C39
Find TRANEW999 IN CELL C20
So move contents of B20,C20,D20,E20,F2O to B44,C44,D44,E44,F44

All help appreciated.

Thanks Ted

 

[Von Pookie]

Are you *sure* that's what you want to do?

If there are multiple instances, the values being moved to row 44 will just be written over with the next set of values. Basically you'll just end up with the values from the last instance found.

 

[eddy]

Hi Kirsty.

I think that would be OK in this instance, there should never be more that one instance of TRAxxxxxx in the search area C12 to C39.


Ted

 

[eddy]

Sorry Kristy

 

[Von Pookie]

One way:

Sub test()
Dim i As Long

For i = 12 To 39
   If Left(Cells(i, "C"), 3) = "TRA" Then
      Range(Cells(i, "B"), Cells(i, "F")).Cut Destination:=Range("B44")
   End If
Next i

End Sub

 

[eddy]

Hi Kristy

That does exactly what I wanted it to do. Thank you so much, another little
snippit for the "macro archive".
Kind Regards Ted