thanks ;) but i still have another problem in copying and pasting a
group of cells in a particular row, the row must start with a cell
containing the string "extra" , the code should cut a group of cell
and paste it into another group of cell.
here's the code :
Dim extra As Range
word = "EXTRA"
Do
Set extra = ActiveSheet.UsedRange.Find(word)
If extra Is Nothing Then
Exit Do
Else
'here the program displays an error
Range("C:G").Select
Selection.Cut
Range("G:J").Select
ActiveSheet.Paste
End If
Loop
End Sub
thanks in advance !
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
