zmrzlina 2010. jún. 16. 22:12 | válasz | #1025
Szia Delila! Ez lett a vége. A makró szépen beilleszti a vágólapra tett adatot, ha nem teljes a kijelölés akkor figyelmeztet. Ráadásul bolondbiztos is egy kicsit mert ha nem a Munka1-en áll a munkafüzet akkor sem rombolja szét az aktív lapot. Köszi! Sub beilleszt_vr() Sheets("Munka1").Select Range("A1:O1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.ClearContents ActiveSheet.Paste sz = "This message has been sent by System Guard, please do not reply." Columns("A:A").Select On Error GoTo hiba Selection.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Select MsgBox "Sikeres beillesztés. Összesen " & Selection.Row - 24 & " sor." Exit Sub hiba: Range("A1:O1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.ClearContents MsgBox "Hibás beillesztés, ismételd meg új kijelöléssel!" End Sub