Thread: cut and paste a text from column (B:G)to A column
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
pikus pikus is offline
external usenet poster
  
Posts: 1
Default cut and paste a text from column (B:G)to A column
ymax = ActiveSheet.UsedRange.Column - 1 + _
ActiveSheet.UsedRange.Columns.Count

xmax = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count

For x = 1 To xmax
For y = 1 To ymax
If ActiveSheet.Cells(x, y).Value = "John" Then
Cells(x, y).Cut
ActiveSheet.Paste Destination:=Cells(x, 1)
End If
Next y
Next

--
Message posted from http://www.ExcelForum.com

Reply With QuoteReply With Quote