22-08-2012, 08:05
|
|
|
חבר מתאריך: 14.11.10
הודעות: 66
|
|
קוד:
Dim x As String
On Error GoTo Handler_Err
x = ActiveCell.Text
ActiveCell.Copy
Sheets("ëîåú îùåå÷ú").Select
Range("A1").Select
Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
ActiveCell.Copy
Sheets("òöé àøéæä").Select
ActiveSheet.Paste
Range("A2").Select
Handler_Exit:
Exit Sub
Handler_Err:
MsgBox err.Description ,vbOKOnly + vbInformation ,"Error on page"
Err.Clear
Resume Handler_Exit
End Sub
בהצלחה
|