🚀 go-pugleaf

Użytkownik <nothing.at.all@NOSPAM.gazeta.pl> napisał w wiadomości 
news:hmj5a6$s9m$1@inews.gazeta.pl...
> Hm, to chyba się nie rozumiemy. Chce móc szybko zmieniać wiersz do którego
> mam odwołanie w pliku. Np. w całej jednej zakładce mam odwołania do innego
> pliku, po kolei np. 1 wiersz w pliku X, odwołuje się do wiersza 120 w 
> pliku
> Y, wiersz 2 w pliku X odwołuje się do wiersza 121 w pliku Y, itd. I teraz
> chce przesunąć odwołania, np. o 5 wierszy, czyli chce aby wiersz 1 
> odwoływał
> się do wiersza 125, wiersz 2 do 126, itd. Oczywiście chce to robić tylko w
> adresach bezwgędnych i szybko od razu wszystkie razem.
> Przepraszam, że tak łopatologicznie, ale wkurzam się, że coś co miało mi
> ułatwić pracę tak nie działa:(.

Ok, chyba zaczynam rozumiec :)
Moze ja sprecyzuje po swojemu, a ty potwierdzisz, ze o to chodzi:
twoje makro nie ma przesuwac wierszy, a jedynie WYSZUKIWAC I ZMIENIAC 
definicje odwolan bezwzglednych w formulach, we wskazanym zakresie komorek, 
tak?
Zmiana definicji tych odwolan bezwzglednych ma polegac na zwiekszeniu 
wartosci w tym odwolaniu o zadana wielkosc.


Ok - pierwszy podstawowy blad - jesli w formule, ktora przerabiasz pojawia 
sie nazwa z cyfra, np. "Arkusz2", to numerek 2 z nazwy jest zjadany.
drugi - brakuje "end if" - wewnatrz petli for - "otwierasz" 3 razy "if", a 
zamykasz tylko 2 razy.

zmienilem troche twoj kod, daj znac, czy to jest to, co chcialas. Nie 
testowalem zbyt dokladnie, wiec pewnie pojawi sie jakis blad...
Tylko od razu mowie, ze kod ma spora wade - mianowicie - jesli teksty typu 
$23 znajda sie nie w formule, ale normalnie w wartosci komorki, to tez 
zostana zmienione...
takze zadziala rowniez dla komorek z tekstem typu: "Te buty kosztuja $200"


Sub PrzesunWiersze2()

Dim Cyfra As Integer
Dim NrZnaku As Integer 'nr biezacego znaku, ktory analizujemy
Dim Znak As String 'biezacy znak
Dim Liczba As String 'liczba za znakiem $ w postaci tekstowej
Dim Nliczba As Integer 'liczba za znakiem $ w postaci INT
Dim NowaFormula As String 'formula po zmianie
Dim Zmiana As Variant 'zmienna okreslajaca przesuniecie w formule
Dim komorka As Range ' pojedyncza komorka z zadanego zakresu

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

For Each komorka In Selection

    NowaFormula = ""

    ' zamiana cyfer w jednej komórce
    NrZnaku = 1
    Do While NrZnaku <= Len(komorka.Formula)

        Znak = Mid(komorka.Formula, NrZnaku, 1)
        ' dodaje znak jeśli nie numeryczny
        If IsNumeric(Znak) = False Then
            NowaFormula = NowaFormula & Znak
        Else
        'modyfikuje i dodaje znaki jeśli liczbowe
            If Mid(komorka.Formula, NrZnaku - 1, 1) = "$" Then
                Liczba = ""
                Do While IsNumeric(Mid(komorka.Formula, NrZnaku, 1))
                    Liczba = Liczba & Mid(komorka.Formula, NrZnaku, 1)
                    If NrZnaku = Len(komorka.Formula) Then Exit Do
                    NrZnaku = NrZnaku + 1
                Loop
                If Liczba <> "" Then
                    Nliczba = CInt(Liczba) + Zmiana
                    NowaFormula = NowaFormula & Nliczba
                End If
           Else
               NowaFormula = NowaFormula & Znak
           End If
        End If
        NrZnaku = NrZnaku + 1
    Loop

    komorka.Formula = NowaFormula
Next komorka
End Sub


Pozdrawiam
Michal