In a cell find words, copy and paste in another cell

  • Thread starter Thread starter sebastico
  • Start date Start date
S

sebastico

Hello

I apologize. In my previous question I did not include the code form Ron
that I'm testing.

Excel 2003
I have a sheet with six columns with 700 rows each with text. I have to red
all rows to find a word and copy and paste in the same cell of column b. This
is really heavy task and the risk of error is a problem. I 'm looking for a
code to do this task.

I have been trying the code from Ron de Bruin I found in this forum but when
I run the code this message is displayed:
Run-time error :1004:
Application defined or object defined error
I am learning VBA, I don't know hot to fix the error.

First I have been trying the search with in one column

I have a Sheet with 6 columns (F,G,H,I) with 700 rows.
I need a code to do this:
1. Read F:1 if find the word Apple, Then copy and paste the word in cell B:1
2. Go to F:2 if find the word Apple, Then copy and paste the word in cell B:2
3. Same until F700

If possible do the same application in Columns G, H, I

This is the code form ROn de Bruin

Sub Find_First()
Dim FindString As String
Dim rng As Range
FindString = "Apple"
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("A:A")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
rng.Offset(0, 1).Copy rng.Parent.Range("D2")
Else
MsgBox "Nothing found"

End If
End With
End If
End Sub

Your help is welcome
 
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.
 
Help I need help...also...
How to find string like "Node:" in column A5-(all in column A) and copy the definition in column B5 ... to column C4
Search all the column in A and paste in C from column B


Help
 
Back
Top