Find method... not work, suggest me please...

S

sal21

In effect, in column R of sheet H7469 i have a unique index value.
In column R of sheet STORICO_H7469 have a unique index value.

Noew i want recopy all range of cells from H7469 in STORICO_H7469 only
if in this sheet not is already present a unique index from column R of
H7469....

Example:
admiting in H7469 column R & riga INDEX
="5236220-H7469-CON-4500-04/12/2006" and in column R of sheet
STORICO_H7469 not is present this value copy all range of cells in
sheet STORICO_H7469 , insted if this INDEX is present in in column R
of sheet STORICO_H7469 skip the cells copy and return to find next
INDEX... ecc....


Sub FIND()

Dim RIGA As String
RIGA = 3
Dim C As Range

RIGA_S = Sheets("H7469_STORICO").Cells(65536, 1).End(xlUp).Row + 1

While Not Sheets("H7469").Range("A" & RIGA) = ""

INDEX = Sheets("H7469").Range("R" & RIGA)

Set C =
Sheets("H7469_STORICO").Columns("R:R").FIND((INDEX), LookIn:=xlValues)

If Not C Is Nothing Then

firstAddress = C.Address

Do
'COPY IF NOT FOUND IN Sheets("H7469_STORICO")
Sheets("H7469_STORICO").Range("A" & RIGA_S).Value =
Sheets("H7469").Range("A" & RIGA).Value
Sheets("H7469_STORICO").Range("B" & RIGA_S).Value =
Sheets("H7469").Range("B" & RIGA).Value
Sheets("H7469_STORICO").Range("C" & RIGA_S).Value =
Sheets("H7469").Range("C" & RIGA).Value
Sheets("H7469_STORICO").Range("D" & RIGA_S).Value =
Sheets("H7469").Range("D" & RIGA).Value
Sheets("H7469_STORICO").Range("E" & RIGA_S).Value =
Sheets("H7469").Range("E" & RIGA).Value
Sheets("H7469_STORICO").Range("F" & RIGA_S).Value =
Sheets("H7469").Range("F" & RIGA).Value
Sheets("H7469_STORICO").Range("G" & RIGA_S).Value =
Sheets("H7469").Range("G" & RIGA).Value
Sheets("H7469_STORICO").Range("H" & RIGA_S).Value =
Sheets("H7469").Range("H" & RIGA).Value
Sheets("H7469_STORICO").Range("I" & RIGA_S).Value =
Sheets("H7469").Range("I" & RIGA).Value
Sheets("H7469_STORICO").Range("J" & RIGA_S).Value =
Sheets("H7469").Range("J" & RIGA).Value
Sheets("H7469_STORICO").Range("K" & RIGA_S).Value =
Sheets("H7469").Range("K" & RIGA).Value
Sheets("H7469_STORICO").Range("L" & RIGA_S).Value =
Sheets("H7469").Range("L" & RIGA).Value
Sheets("H7469_STORICO").Range("M" & RIGA_S).Value =
Sheets("H7469").Range("M" & RIGA).Value
Sheets("H7469_STORICO").Range("N" & RIGA_S).Value =
Sheets("H7469").Range("N" & RIGA).Value
Sheets("H7469_STORICO").Range("O" & RIGA_S).Value =
Sheets("H7469").Range("O" & RIGA).Value
Sheets("H7469_STORICO").Range("P" & RIGA_S).Value =
Sheets("H7469").Range("P" & RIGA).Value
Sheets("H7469_STORICO").Range("Q" & RIGA_S).Value =
Sheets("H7469").Range("Q" & RIGA).Value
Sheets("H7469_STORICO").Range("R" & RIGA_S).Value =
Sheets("H7469").Range("R" & RIGA).Value
RIGA_S = RIGA_S + 1
'AND COPY IN Sheets("H7469_STORICO")

Set C =
Sheets("H7469_STORICO").Columns("R:R").FindNext(C)

Loop While Not C Is Nothing And C.Address <>
firstAddress

End If

RIGA = RIGA + 1

Wend

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

find value and copy in TEMPLATE... 0
MPORT DATA FROM MDB VERY VERY SLOW... 1
Filtre value from date and filter advanced... 3
Loop returns only one value, does not loop & an assignment to columnhow-to problem. 26
Find the correct sheet then find a value on that sheet 8
Tried and true copy code lines fail me here 7
Inaccurate count with code 6
Array with many cells from a row but not in order or together 11

Top