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