Przepraszam za kłopot ale udało mi się już to zrobić. Dzięki za całą pomoc.
Pozdrawiam - Damian.
napisał: damianbara postów: 4
umieszczony: 8 lutego 2005 16:32
Dziękuje za szybką pomocWszystko działa tak jak powinno. Mam jeszcze jedno pytanie: Jak z poziomu Buttona moge uruchomić ten moduł z kodem wyszukiwarki?
napisał: barylek postów: 4
umieszczony: 8 lutego 2005 15:44
Uruchom excela i otwórz plik gdzie ma być wykonywane makro. Następnie przejdź do danego arkusza i otwórz edytor VB. W projekcie zeszyt kliknij prawym przyciskiem myszy na nazwie arkusza i otworzy Ci się menu, w którym wybierz insert i module.
Obok w oknie kodu Edytora VB wpisz to makro. Uruchom i po sprawie. Możesz sobie przypisać jakiś klawisz skrótu do makra, żeby było go łatwiej uruchamiać.:D
powodzenia barylek
napisał: damianbara postów: 4
umieszczony: 7 lutego 2005 20:47
Wszystko pięknie i ładnie tylko nie wiem do czego ten kod przypisać. Czy może mi ktoś napisać małą instrukcję:-)
napisał: barylek postów: 4
umieszczony: 7 lutego 2005 16:01
Kiedyś natchnąłem się na gotowe makro w jakimś nr. eksperta, a wygląda ono tak:
Sub skocz_do()
Dim i, numer As Integer, szukany, znaleziony As String
szukany = InputBox("Podaj nazwę arkusza, do którego chcesz skoczyć", _
"Skocz do arkusza")
If szukany = "" Then Exit Sub
szukany = LCase(szukany)
numer = 0
For i = 1 To ActiveWorkbook.Sheets.Count
znaleziony = LCase(Left(ActiveWorkbook.Sheets(i).Name, Len(szukany)))
If znaleziony = szukany Then
numer = i
Exit For
End If
Next i
If numer > 0 Then ActiveWorkbook.Sheets(numer).Activate
End Sub
napisał: damianbara postów: 4
umieszczony: 5 lutego 2005 22:23
Czy może mi ktoś powiedzieć jak zrobić wiszukiwarkę do Arkuszy? (po wpisaniu nazwy arkusza i naciśnięcia entera przenosił by mnie do w/w arkusza mieszczącego się w danym otwartym skoroszycie). Proszę o odpowiedź.
wstecz 1 dalej
otwarty rozpoczął: damianbara
postów: 6
Wszystko działa tak jak powinno. Mam jeszcze jedno pytanie: Jak z poziomu Buttona moge uruchomić ten moduł z kodem wyszukiwarki?