Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Tajan
16-11-2006, 11:54
Dodawanie zakładki w kolejności alfabetycznej
Autor Wiadomość
ZACZES
[Usunięty]

Wysłany: 11-12-2006, 19:20   

a czy błąd może się pojawiać dlatego, że nie wpiszę nr karty? W kodzie jet taka linijka:

Cytat:
If nr = 0 Then .Move before:=Sheets(1) Else .Move after:=Sheets(nr)
- chociaż zmienna nr to nie numer karty, lecz nr zakładki, ale interesuje mnie raczej polecenie move...

Wprowadziłem ten waunek ("If nr < Sheets.Count Then nr = nr - 1") Trebor i dalej wstawia garba przed garb.
ID posta: 532 Skopiuj do schowka
 
 
Trebor 
Excel Expert


Pomógł: 1752 razy
Posty: 4680
Wysłany: 11-12-2006, 20:07   

W końcu chyba zrozumiałem ten mechanizm powstawania błędu.
Zmień jeszcze raz odpowiedni fragment kodu na
Kod:

    nr = nr - 1
    If nr <> 0 Then ark = Sheets(nr).Name
   
   With Sheets.Add
        If nr = 0 Then .Move before:=Sheets(1) Else .Move after:=Sheets(ark)


Pozdrawiam
_________________
Trebbor@wp.pl
ID posta: 534 Skopiuj do schowka
 
 
Tajan


Pomógł: 5583 razy
Posty: 12105
Wysłany: 11-12-2006, 20:28   

ZACZES napisał/a:
Usunąłem tylko liczby z tabel dlaposzczególnych klientów...zamieszcze pliczek jeszcze raz, ale z wszystkimi makrami w module...


A powiedz jeszcze, które makro powoduje błędy. Bo widzę dwa o podobnej funkcjonalności. Nie bardzo rozumiem, dlaczego różnią się od siebie?
ID posta: 535 Skopiuj do schowka
 
 
Tajan


Pomógł: 5583 razy
Posty: 12105
Wysłany: 11-12-2006, 21:18   

Trebor napisał/a:
W końcu chyba zrozumiałem ten mechanizm powstawania błędu.
Zmień jeszcze raz odpowiedni fragment kodu na
Kod:

    nr = nr - 1
    If nr <> 0 Then ark = Sheets(nr).Name
   
   With Sheets.Add
        If nr = 0 Then .Move before:=Sheets(1) Else .Move after:=Sheets(ark)



No tak. Masz rację! Zapomniałem o tym :-( Na początku było tylko Sheets.Add i nie było kłopotu. Po dodanu Move zapomniałem o korekcie pozycji.

Pozdrawiam
ID posta: 538 Skopiuj do schowka
 
 
ZACZES
[Usunięty]

Wysłany: 17-12-2006, 11:50   

wprowadziłem poprawkę i działa (przynajmniej jeśli chodzi o arkusze garb i garba). Bedę intensywnie testował arkusz i w razie wątpliwości będę się jeszcze odzywał.

Dzieki wielkie za pomoc. Winny jestem Panom DUŻE PIWKO!!!

Dzięki i pozdrawiam
ID posta: 657 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe