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.


_