>> mozem nieco zosmolit za par minut :-) > Bud tak laskav. Diky. Je to vtakovina, spichnuta fakt za par minut :-) Alex sa mozno bude rehotat :-) Ale funguje to, skusal som... Dufam ze vies co s tym, alebo sa este ozvi. Milan K. milan@kev.sk --cut-- Sub Tried_cennik() ' 21.8.2003, autor Milan Kevély Dim P Range("A1").Select ZNOVA: ActiveCell.Offset(1, 0).Range("A1").Select Selection.Cut ActiveCell.Offset(-1, 1).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(2, -1).Range("A1").Select Selection.Cut ActiveCell.Offset(-2, 2).Range("A1").Select ActiveSheet.Paste ActiveCell.Offset(3, -2).Range("A1").Select If ActiveCell <> "" Then GoTo ZNOVA Range("A1").Select DOLE: P = 0 ActiveCell.Offset(1, 0).Range("A1").Select MAZ: If ActiveCell = "" Then Selection.EntireRow.Delete P = P + 1 If ActiveCell <> "" Then GoTo DOLE If P < 4 Then GoTo MAZ Range("A1").Select End Sub --/cut--
This archive was generated by hypermail 2.1.3 : 21. 08. 2003, 09:07 CEST