[syntax=vbscript] On Error GoTo SubStop For Each Sheet In Worksheets Sheet.Test Next Sheet SubStop: On Error GoTo 0[/syntax]
Tak jak napisałam, chodzi mi o przyspieszenie kopiowania arkuszy i wklejania do innego skoroszytu. Chcę całkowicie z klawiatury wywołać polecenie "Przenieś lub kopiuj" arkusz. Przechodzenie pomiędzy arkuszami to elementarz ;-)
[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.ProtectionMode = False Then ActiveSheet.Protect Password:="haslo" End If End Sub [/syntax]
Zrozumiałem to trochę inaczej (wiele arkuszy w jednym skoroszycie). Przy porannej kawie wyszło mi coś takiego (przykład w załączniku). Uparłem się na zminimalizowanie VBA i dlatego zastosowałem jedynie odświeżanie filtra przy aktywowaniu arkusza.
Wcześniej znalazłem komendę którą wpisywało się do do okienka uruchom, która aktywowało plik vba6.dll Pewnie chodzi o rejestrację biblioteki w systemie - sęk w tym, że rejestrujesz w ten sposób jakąś starszą wersję biblioteki, która nie istnieje/lub nie jest zarejestrowana/ w systemie. Pisząc makro od początku w nowym pliku nie powinieneś mieć żadnych...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Oferują sposób - aktywowany Arkusz 2, ma dialogu, który zaprasza zaznaczyc wierszy do edycji. Następnie Kliknij OK - dziala makro Inny sposób zapisz w makro w postaci "1:1 , 5:26, 29:57" np. [syntax=vb] Private Sub Worksheet_Activate() Dim k&, och As Boolean Set arw = Range("2:2, 3:3, 5:8, 12:24") With Me .Unprotect For k = 1 To 11 och = UCase(.Cells(1,...
I wszystko jest w porządku. Żeby wkleić całą kolumnę musisz aktywować komórkę w pierwszym wierszu. Ty robisz to w 14. Range("ag14").Activate To jest właśnie błąd, który pokazuje VBA.
Witam, mam w komórce hiperłącze prowadzące do skrótu innego arkusza (skrót z rozszerzeniem *.ink) Skoroszyt do którego prowadzi skrót jest na serwerze sieciowym , skrót na komputerze w sieci. Skrót włączany ręcznie na pulpicie działa Aktywowanie hiperłącza po kliknieciu komórki nie działa. Program prosi o potrwierdzenie zaufanego źródła - mimo potwierdzenia...
Jeśli nie miałeś do czynienia z formularzami, to najprościej zamknąć InputBox w pętli w Thisworkbook, przy zdarzeniu Open. Coś jak[syntax=vb]With Sheets("NazwaArkusza") For i = to 10 .Cells(i, 2)= Inputbox ("Wpisz wartość dla komórki B" & i) Next .activate End With[/syntax]Dograj sobie rejestratorem polecenie drukowania, lub po aktywowaniu arkusza naciśnij...
będąc w jednym skoroszycie nie mogę zrobić odniesienia do innego skoroszytu(np żeby dodać jakaś wartość z arkusza, który jest w innym skoroszycie). Nie mogę nawet jednego arkusza z danego skoroszytu skopiować do innego skoroszytu. Excel będąc w jednym z nich jak gdyby nie widzi drugiego. Jak jestem w skoroszycie A i w arkuszu nr 1 w komórce a1 chcę...
Są różne rozwiązania, zaproponowaliśmy te, które wydają się najprostsze w opisanej sytuacji. Innym rozwiązaniem jest wyłączenie opcji "Użyj separatorów systemowych" i wskazanie kropki jako separatora dziesiętnego, a przecinka jako separatora tysięcy. Ale to automatycznie nie skonwertuje tekstów, które już masz w arkuszu na liczby. I tak trzeba każdą...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
Co tu wyjaśniać - masz przykład (Excel 2007). ...chyba, że masz te checkbox-y wprost na arkuszu (nie na formularzu użytkownika).
Witajcie Magowie. Chcialbym podlaczyc sie do tematu choc tak naprawde dla mnie VBA i Makra sa kompletnie czarna magia. Jeszcze do niedawna kompletnie niedoceniany przeze mnie Excel byl poprostu ignorowany. Az do teraz. Sprawa wyglada nastepujaco. Mam trzy arkusze (lista, zamowienie i druk) w arkuszu lista jest spis wkretow i innych gwozdzi z ich danymi...
Sprawa jest bardzo prosta 1. dodajesz nazwę zakresu dla pierwszej kolumny pierwszego arkusza (dla wartości 100,200...). Wystarczy zaznaczyć wszystkie, kliknąć PPM i "nazwij zakres". Nazywasz to jak chcesz, ja nazwałem "dane" 2. w drugim arkuszu w komórce, w której chcesz wybierać z listy 100,200.. aktywujesz ją i w zakładce "dane" naciskasz poprawność...
Jeszcze nie działa... a nie powinienem dodać także nazwy arkusza?
A tak przy okazji. Ponieważ kod działa mi już poprawnie to zamierzam teraz do niego dodać inne opcje dostępu jako Administrator. I zapytam: w pliku mam kilkanaście arkuszy i wszystkie są dokładnie takie same, są to tabele jednak każda służy do innej dziedziny, i teraz w każdej z tych tabeli mam jeden przycisk Delete do resetowania tabeli, każdy z tych...
Cześć, Potrzebuję pomocy z zakresu Excel Otóż mam a'la cennik z dodanymi check boxami, które po zaznaczeniu aktywują komórkę w innym arkuszu na TRUE, a kolejne formułki liczą sumę wartości i pokazują ją na głównym arkuszu. Problem pojawił się, gdy z 13 (zakres wierszy od 19 włącznie do 31 włącznie) checkboxów muszę mieć możliwość zaznaczenia tylko 4....
Witam. Proszę o pomoc w przerobieniu makra z Excela 2003 na makro pod Excel 2007. Wywala w linii z : Application.FileSearch ponieważ Excel 2007 nie obsługuje tej komendy. [syntax=vb] Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i, wiersz As Long Dim sciezka As String dato = Range("B3") ' nazwa folderu z plikami do pobrania danych sciezka =...
Działa w takim zestawieniu Masz źle zrobioną instrukcje 'If Not otwarty Then' a co jeżeli plik masz otwarty? "nie pytaj ponownie", po którego aktywacji kolejne załączenie makra, do zamknięcia arkusza masz makro do zamknięcia arkusza? odnośnie pierwszego pytania: Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". Jeśli nie jest...
Oczywiście. Z tym, że to jest, na oko, dość... proste. No i brakuje najważniejszej informacji. Na podstawie jakiego zdarzenia obrazki mają znaleźć się w arkuszu? Coś się musi wydarzyć, żeby zadziałało makro. Np zmiana w D6, naciśniecie przycisku, otwarcie pliku, aktywowanie arkusza (niepotrzebne skreślić)
Zapisuj w dodatkowym, ukrytym arkuszu wartości (argumenty położenia) przy dezaktywacji arkusza (ew. workbook_beforeclose) i pobieraj przy aktywowaniu...
Po usunięciu wiersza (pozostał omyłkowo): ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True działa jak należy. Czyli jednak zdarzenie "SelectionChange"... Dziękuję. Mam jeszcze pytanie - czy jest możliwość ustawienia hasła dla aktywowanej w ten sposób ochrony arkusza?
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
Jeśli zamieścisz arkusz to może ktoś ustali dlaczego to nie działa ale sam kod to za mało gdzie on jest w arkuszu w skoroszycie czy w osobnym module? Mówisz że działa poprawnie, gdy ukryty arkusz jest aktywny... Ciekawe bo ukryty arkusz nie może być aktywny, aktywowanie ukrytego arkusza wyrzuci błąd, więc jeśli już musisz tak robić, to go odkryj, zrób...
Niestety nie umiem wykorzystać twoich kodów żeby poprawnie działały. Może dokładniej powiem co chcę osiągnąć tym kodem. Wykorzystałem w nim pięć przycisków CheckBox (wszystkie przyciski są w jednym arkuszu), w kodzie jak pokazałem w pierwszym poście wszystko działa ok, jednak chciałem aby zastosować kolejność odkrywania kolumn pod warunkiem że poprzednie...
No i widzisz bo pracujesz na aktywnym arkuszu. Jak sobie przypiszesz do zmiennej workbook to nie musisz fokusować drugiego okna. Autofiltr też możesz zrobić na obiekcie. A pliku do zmiennej nie musisz otwierać możesz go przypisać: [syntax=vbscript] Set Wrkb2 = Workbooks("zeszyt2.xlsb") [/syntax] A potem się odwołujesz do tego obiektu. Aktywacje możesz...
[syntax=vbscript] Sub Przycisk1_Kliknięcie() If Arkusz1.CheckBox1.Value = True Then Sheets("oswiadczenie1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sheets("Formularz").Select End If End Sub [/syntax] Poszło w ten sposób. Jeszce tylko jedno drukuję formularz tak jak to widać w kodzie u góry, a więc uaktywniam formularz do drukowania, drukuję,...
Który arkusz jest aktywny w trakcie podglądu ? Dlaczego właściwie do identyfikacji numeru wiersza, z którego pobierane mają być dane, służy zaznaczenie jakiejś jego komórki/komórek, czy to jedyny mechanizm, który można zastosować ? Makro aktywuje na poglądzie arkusz Etykieta. W podglądzie nie ma danych uzupełnionych z arkusza Baza oraz gubi się odwołanie.
Chyba pomieszałam. Niestety wcale nie "Chyba" :cry: , ale na pewno :D Komórka C5 nie jest powiązana z żadnym boxem umożliwiającym jakikolwiek wybór :!: Jeżeli cokolwiek wpiszesz do komórki C5 :arrow: zaczyna działać Twoje makro (oderwane zupełnie od arkusza Słownik :!: i tamtych tabelek), lecz po wybraniu checkboxa (ze względu na kod: If TrybEdycji...
Doszedłem do tego, że uaktywnienie działa od ostatniego arkusza "wstecz" dlatego nie mogliśmy się dogadać. Aktywując makro w pierwszym arkuszu nie działa zamiana w kolejnych, zaś aktywując w ostatnim arkuszu - zamienia dane do tyłu. Dlaczego tak się dzieje, można odwrócić działanie, aby marko działało z Arkusza_1, a nie np. Arkusza_8?
W takim razie nie plik tylko arkusz kod to np. (w zależności od nazwy arkusza) Sheets("Arkusz2").Acti... 'aktywowanie arkusza Range("A100").Select 'zaznaczenike/przejście do danej komórki nagrywanie makr jest w zakładce deweloper (excel 2007 i wyżej) Jeżeli nie masz jej widocznej to ją włącz w opcjach. W niższych...
Winna była spacja. Dzięki. Skupiałem się na sprawdzaniu nazwy pliku, sciezki a spacja mi się nie rzucała w oczy. Masakra ... Teraz mam coś takiego : Sub Makro3() ' ' Makro3 Makro ' ' Dim i As Integer For i = 1 To 10 ChDir "D:\wodociagi\dane z ankiet\zbiorcze" Workbooks.Open Filename:="D:\wodociagi\dane z ankiet\zbiorcze\za15.xlsx.xlsx" Dim zbiorcze...
We wszystkich makrach wartość Enabled przycisku 2 ustaw odwrotnie niż przycisku 1. Np Rzeczywiście pomogło wielkie dzięki. Teraz makro działa w ten sposób, że: Włączam plik "1">> wciskam "cmdsave">> program kopiuje mi wszystko to co chcę>> dezaktywuje się plik "cmdsave" ale niestety nie aktywuje się automatycznie "cmdexit" :(. zmienia się to dopiero...
Niestety jestem zmuszony powrócić do tego tematu. Podczas pracy na stworzonym arkuszu, i w trakcie dodawania klientów, po tym jak zostało dodanych około 300 klientów i powstało około 300 zakładek, po pierwsze działanie programu i makr zwolniło po drugie plik waży ponad 5mb i nie jest możliwa praca w sieci na zasadzie współdzielenia, zaś w starszej opcji...
Witam, Potrzebuję zbudować taki oto excel: 2 arkusze - 1 z nich będzie miał 8 kolumn po x wierszy. Pierwszy wiersz zawsze będzie nagłówkiem np. A, B, C, D, E, F... Każdy kolejny wiersz będzie miał unikatowy kod dla kolumny, np. A001, A002, A003... Dla kolumny B001, B002, B003... itd 1 arkusz będzie miał pole do wyboru: Wybierz kolumnę: I tutaj z listy...
excel aktywowanie arkusza kopiowanie innego arkusza kopiowanie wierszy innego arkusza
technics zabezpieczenie zasilanie skutera pralnice przemysłowe
sklepik elektroda hameg hm1007
Kod błędu 250 w kotłach Buderus i SMTP Schneider Team 50 RC – wieża audio vintage, serwis, typowe usterki, pilot IR, paski, STK-465
