🚀 go-pugleaf

Napisałam sobie makro, które przesuwa mi wiersze, to znaczy gdy mam w Excelu 
jakiś link z adresem bezwzględnym, to klikając na makro zostanie ten adres 
linku przesunięty o tyle wierszy ile mu podam. I coś niestety nie działa:(
Proszę o zerknięcie i pomoc. I z góry dziękuję.

Sub PrzesunWiersze()

Dim Liczba As String
Dim Cyfra As Integer
Dim Znak As Integer
Dim Nliczba As Integer
Dim NowaFormula As String
Dim Zakres As Range
Dim Zmiana


Zmiana = InputBox("Podaj przesunięcie wierszy")
If Zmiana = "" Then Exit Sub
' ustala zakres do zmian
Set Zakres = Selection

For Each Cell In Zakres
Cell.Activate

' zamiana cyfer w jednej komórce
For Znak = 1 To Len(ActiveCell.Formula)

' dodaje znak jeśli nie numeryczny
If IsNumeric(Right(Left(ActiveCell.Formula, Znak), 1)) = False Then
NowaFormula = NowaFormula & Right(Left(ActiveCell.Formula, Znak), 1)

'modyfikuje i dodaje znaki jeśli liczbowe
     If IsNumeric(Right(Left(ActiveCell.Formula, Znak), 1)) = True Then
       If Right(Left(ActiveCell.Formula, Znak - 1), 1) = "$" Then

           Cyfra = 0
           Do Until IsNumeric(Right(Left(ActiveCell.Formula, Znak + 
Cyfra),1)) = False Or Znak + Cyfra - 1 = Len(ActiveCell.Formula)
               Liczba = Liczba & Right(Left(ActiveCell.Formula, Znak +Cyfra), 
1)
               Cyfra = Cyfra + 1
           Loop
           Nliczba = CInt(Liczba) + Zmiana
           NowaFormula = NowaFormula & Nliczba
           Liczba = ""
           Znak = Znak + Cyfra - 1

       Else
           NowaFormula = NowaFormula & Right(Left(ActiveCell.Formula,
Znak), 1)
       End If
    End If

Next Znak


ActiveCell.Formula = NowaFormula
NowaFormula = ""
Next Cell
End Sub


-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/