Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Dodawanie zakładki w kolejności alfabetycznej

Tajan · **Pomógł:** 5633 razy Posty: 12168

Musi być jakaś niekonsekwencja w pisowni obu nazwisk. Taki wynik może się pojawić gdy będzie np.: "GRUDZIEN MAJKA" i "GRUDZIEŃ ELŻBIETA". Liczba arkuszy jest tu nieistotna.

ZACZES · Wysłany: 30-11-2006, 14:04

Może w innych przypadkach tak, ale tu niestety nie. W ogóle to samo makro raz wstawi zakładkę w dobre miejsce, raz w złe...Oczywiście pomijam sytuację, gdy zakładki są nieposortowane...Chyba jest to prawdziwy węzeł gordyjski...Czekam na Aleksandra...Hehe

Tajan · **Pomógł:** 5633 razy Posty: 12168

Obawiam się, że bez możliwości wglądu w oryginalne arkusze niewiele można będzie zrobić. Przynajmniej ja nie mam pomysłu :-(

ZACZES · Wysłany: 04-12-2006, 15:55

jak dodać pliczek do postu - mam problem z załączaniem (rozszerzenie xls niedozwolone).... :-/

pindi · ExcelSpec **Pomógł:** 189 razy Posty: 485

najlepiej spakować rarem albo zipem

ZACZES · Wysłany: 04-12-2006, 20:35

w załączeniu spakowany plik

G.zip

Pobierz Plik ściągnięto 837 raz(y) 51.18 KB

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Usuń początkowy wpis:
Option Compare Text
teraz już nie jest potrzebny.
Zmień zmienną name na inną np nazwa (wszędzie tam gdzie występuje jako zmienna)
Innych problematycznych rzeczy nie zauważyłem

Pozdrawiam

ZACZES · Wysłany: 08-12-2006, 13:07

Trebor, twoje sugestie pomogły. Teraz powinno być ok. Dzięki.
Ale jeszcze jeden mały problemik - a mianowicie jeżeli mam zakładki "garb" i "garba" to pierwszą wstawia mi "garba". Wiąże się to z z tym, że spacja jest w pierwszej kolejności przed a, tak? Czy można to jakoś rozwiązać??

Dzięki

Tajan · **Pomógł:** 5633 razy Posty: 12168

Nie udaje mi się uzyskać takiego efektu. Zawsze mam "garb" przed "garba". Czyli tak, jak powinno być. Nie wiem dlaczego u Ciebie jest inaczej.

ZACZES · Wysłany: 09-12-2006, 18:32

to ja chyba wymiękne...Dziś niestety wyszło mi znów parę zonków :shock:

Znowu wstawia mi zakładkę przed(nie w każdym przypadku oczywiście). O garba przed garb nic nie mówię...Chyba mój komputer ma własny sposób interpretacji poleceń :-D

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Czy możesz zamieścić na forum kompletny plik?

Pozdrawiam

ZACZES · Wysłany: 11-12-2006, 15:24

w zasadzie ten który zamieściłem, jest kompletny. Pracuje na kilku takich plikach tylko nazwane są inną literką alfabetu (z wiadomych przyczyn). Usunąłem tylko liczby z tabel dlaposzczególnych klientów...zamieszcze pliczek jeszcze raz, ale z wszystkimi makrami w module...

G.zip

Pobierz Plik ściągnięto 901 raz(y) 73.51 KB

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

W zamieszczonym pliku jest sub dodaj w którym jest pętla porównująca stringi

Kod:

For nr = 1 To Worksheets.Count
If Worksheets(nr).Name > Klient Then Exit For
Next

w sposób który Tajan poprawił. Jeśli userform (którego nie ma w pliku) na tej podstawie dodaje arkusze to błędy mogą się pojawiać.
Można dopisać jeszcze funkcję usuwającą niepotrzebne spacje

Kod:

nazwa = WorksheetFunction.Trim(UCase(InputBox("Podaj nazwisko i imię klienta")))

Zmień warunek (w zasadzie dodaj)

Kod:

If nr < Sheets.Count Then nr = nr - 1

Ponieważ bez tego arkusz nigdy nie zostanie dodany na końcu.

Pozdrawiam

ZACZES · Wysłany: 11-12-2006, 18:31

a czy po usunięciu zbędnych spacji nie będzie usuwana spacja między imieniem a nazwiskiem? A jeśli chodzi o user form, to nie korzystam z niego do wstawiania zakładki. Po prostu przypisałem makro do przycisku, a dane wprowadzamz z msgboxa.

Ten warunek mam dodać do linijki kodu gdzie jest "nr = nr - 1" tak?

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Jeśli będą to np. dwie spacje to jedna zostanie usunięta. Jeśli będzie jedna to pozostanie.
Pobaw się funkcją arkuszową =USUŃ.ZBĘDNE.ODSTĘPY, to jest to samo.