Na, taip lyg ir veikia:
....
Data = Range("A1")
Sheets("Archyvas").Select
Data1 = Range("A1") 'Nenaudojamas?
For skaicius = 1 To 10000
  If Range("A" & skaicius).Value = Data Then
    Sheets("Kortelė").Select
    Range("A1").ClearContents
    Range("B4").Select
    MsgBox "Tokia data Archyve jau yra"
    Sheets("Archyvas").Protect DrawingObjects:=True, Contents:=True, 
Scenarios:=True
    Sheets("Kortelė").Protect DrawingObjects:=True, Contents:=True, 
Scenarios:=True
    Exit Sub
  End If
  If IsEmpty(Cells(skaicius, 2).Value) = True Then Exit For
Next
....

Labai jau netvarkingas pas tave kodas, ypač nemėgstu "oneliner'ių" - privelt 
klaidų lengva, surasti - sunku...


"Audrius" <xkalvisx@gmail.com> wrote in message 
news:q2hi31$nmb$1@trimpas.omnitel.net...
Prikabinu patį failą, nes gal dar kas nors tame kode negerai.

Dėkui
____________________________


"Audrius" <xkalvisx@gmail.com> wrote in message 
news:q2g62g$qt6$1@trimpas.omnitel.net...
Norėčiau dar papildyti kodą. Kaip bebandžau pačiam nesigauna. Tigi turimame 
kodo gabaliukyje, vienuoliktoje eilutėje, prieš „Exit Sub“ reikėtu 
korektiškai įterpti du veiksmus, tai:

Sheets("Archyvas").Protect DrawingObjects:=True, Contents:=True, 
Scenarios:=True
Sheets("Kortelė").Protect DrawingObjects:=True, Contents:=True, 
Scenarios:=True

Štai šiame gabaliuke:

Sub paspausti()
Sheets("Kortelė").Unprotect
Sheets("Archyvas").Unprotect
    Dim stulpelis, eilute As Integer
        Sheets("Kortelė").Range("B4:G4").Copy
        Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks:=False, Transpose:=False
        Data = Range("A1")
        Sheets("Archyvas").Select
        Data1 = Range("A1")
    For skaicius = 1 To 10000
If Range("A" & skaicius).Value = Data Then Sheets("Kortelė").Select: 
Range("A1").ClearContents: Range("B4").Select: MsgBox "Tokia data Archyve 
jau yra": Exit Sub
If IsEmpty(Cells(skaicius, 2).Value) = True Then Exit For
Next

Dėkui labai.


_