Re: Formatovani udaju v Excelu

From: MilanK (milan@kev.sk)
Date: 21. 08. 2003, 09:06 CEST


>> 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