Witam serdecznie. Zależy mi na makro, które jak w temacie - będzie podświetlało aktywny wiersz i aktywną kolumnę zarazem. W zasadzie mam już je gotowe, ale niestety nie za bardzo wiem jak sprawić by działało w całym skoroszycie. [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Step 1: Declare Variables Dim...
Pliku xlsm nie mogę załączyć Zawsze możesz załączyć plik w formacie .xls albo skompresować swój plik np. do .zip i w tej postaci załączyć. Plik tekstowy też jest OK, ale nie można go uruchomić bez danych, więc można coś przeoczyć. Nie wiadomo z którego arkusza uruchamiasz makro. Zaraz na początku obliczasz numer ostatniego wiersza w kolumnie 18. arkusza...
W sieci znalazłem ciekawy sposób na wyróżnienie (podświetlenie), aktywnego wiersza. [url=]Tutaj link. Autor pokazuje - jak coś takiego można osiągnąć przy użyciu formatowania warunkowego w połączeniu z krótkim kodem w VBA. Próbowałem coś takiego wykonać dla trzech oddzielnych tabel w jednym skoroszycie. Tworząc dla każdej oddzielne formatowanie warunkowe...
Potrzebuję pomocy przy stworzeniu makra do kopiowania zakresu komórek z Arkusza1 do Arkusza 2. Wybieram np. komórkę Arkusz1:D7. Makro kopiuje komórki C7, D7,E7,F7,G7 i H7 i wkleja je do Arkusza2(C15, H15). Wybieram drugą komórkę np. Arkusz1:D25 i makro wkleja zaznaczony obszar do Arkusza2 w kolejny wiersz(C16, H16). Makro powinno działać tylko przy...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast kolorowania po prostu zaznacza wiersz i kolumnę...
"Jaki sens ma deklarowanie zmiennej obiektowej typu Workbook w obrębie jednego skoroszytu (jak wynika z Twojego kodu)?" Moja odpowiedź dla naszego początkującego kolegi ma mieć walory edukacyjne, dlatego zastosowałem taką konstrukcję. Może się wydawać trochę bez sensu w tak prostym przypadku, ale przy złożonych aplikacjach mających setki może tysiące...
Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Ze screena widzę że nie masz otwartego arkusza "Zeszyt2.xlsx" Musi być otwarty w tej samej instancji excela. I tak się nazywać. Masz w tej instancji otwarte dwa arkusze. Oba mają nazwę "Zeszyt1." a dalej nie widać. Dlatego masz błąd bo w kolekcji Workbooks nie masz takiego z nazwą "Zeszyt2.xlsx". Ten skrypt wyświetli Ci w oknie Imediate listę otwartych...
O coś takiego mi chodziło tylko bardziej O zaznaczenie danej komórki i aktywowaniem przyciskiem aktywnym. Probowałem pozmieniać ale nie ogarniam. Arkusz "Oddziały" kolumna "nr zamówienia" i np przycisk 16 mam tam zrobiony. I chciałbym tym przyciskiem gdy klikam w daną komórkę (kolumna "Nr. Zamówienia") wyszukał hiperłącze z adresu: C:\Users\Biuro\Desktop\Dok...
Witam, Potrzebuję makro, które po wpisaniu wartości w kolumnie A, wstawi wartości w tym samym wierszu w kolumnach B, C, D, E w oparciu o bazę w innym pliku, nazwijmy go "głównym". Ma to działać analogicznie do wyszukaj pionowo, ale odwoływać się do tablicy w innym pliku (makro otwiera plik główny, zaciąga dane i zamyka plik główny). Nie ma działać w...
Dalej nie bardzo wiadomo, o co dokładnie chodzi. Masz makro, które po wykonaniu zwraca w kolumnie E formuły z odwołaniami względnymi do komórek z kolumn C i D. Jeśli pomiędzy kolumny C i D wstawisz dodatkową kolumnę lub kolumny, to formuły (obecnie w kolumnie E) dostosują się do nowych adresów kolumn źródłowych i formuły będą nadal działać prawidłowo....
W Module1 jest makro. Zrobić aktywny arkusz z kolumny, naciśnij klawisz Alt-F8, wybierz 'kokos' i uruchomić
... Udao mi si kopiowanie, do pierwszej sumy 20, ale wyrzuca mi Excela jak ma otworzyć nowego Excela :( Pytania / uwagi: [syntax=vba] Sub Kopiuj_wklej_jeśli_20_1() Dim a As Variant 'dlaczego Variant ? Dim p As Long 'dlaczego Long ? Dim n As Variant 'dlaczego Variant ? 'gdzie Suma As CośTam ? '... Windows("Truck.xls").Activate 'po co - nie jest może...
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ć ?
Dziękuję za odpowiedź i wskazówki. Zastosowałem je, czyli wyłączenie 'Set MyWB' oraz uporządkowany kod wg Twojego wpisu i efekt jest następujący: Na dotychczasowym komputerze zapisuje csv zgodnie z oczekiwaniami Na nowym komputerze Excel nie wyłącza się, jednak nie zapisuje pliku. Na pasku stanu pojawia się "Zaznacz obszar docelowy i naciśnij ENTER...
Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...
Jak dla mnie śp. pamięci "kozak vba" "Charles Pearson" Ciekawa lektura, na trochę dogłębniejszą analizę. Kiedyś Piotr Majcher (pmsocho na YT) w jednym ze swoich filmików pokazał zastosowanie "Miernika do szybkości wykonywania się formuł w Excelu" (). Więc z chęcią kiedyś potestuję coś w podobny sposób. W każdym razie dziękuję. Dodano po 1 Problemu...
Dobry wieczór, Napisz, co dokładnie chcesz osiągnąć. Wszystkie komórki w Excelu są domyślnie zablokowane, tylko ta blokada jest nieaktywna do momentu włączenia Ochrony arkusza lub skoroszytu. Najlepiej załącz przykładowy skoroszyt i napisz jak to ma działać. Pozdrowienia
Dzień dobry Wszystkim, Chcę poprosic Was o pomoc. Chciałbym wysyłać maile z załącznikami (pojedyncze zakładki) oraz okresloną treścią z poziomu EXCELA na podstawie danych z tabeli przestawnej. Moja tabela wyglada mniej więcej tak: Po podwójnym kliknięciu na komórkę C6 Excel tworzy nową zakładke z pełnymi danymi. Tą zakładke chcę wysłać na adres, który...
Witam, mam taki drobny problem (nie jestem wprawny w VBA ale od czasu do czasu coś tam sobie próbuję usprawnić), więc liczę na Waszą podpowiedź. Dajmy na to, że w kolumnie A (w wierszach od 5 do 10) mam nazwy makr. Chciałbym aby z poziomu jakiegoś innego makra: 1. sprawdzić który wiersz jest aktywny (to nie jest dla mnie problemem) 2. Jeśli aktywny...
Witam, na wstępie mówię, że przeszukałem już fora i nie udało mi się znaleźć rozwiązanie mojego problemu, a do rzeczy... Potrzebuję przefiltrować tabelę po dzisiejszej dacie. Mam dość rozbudowany plik Excela, (mnóstwo kolumn i wierszy), a w jednej z kolumn datę. Chcę żeby po uruchomieniu pliku Excela, makro przefiltrowało mi tylko wiersze z dzisiejszą...
W VBA, zwraca adres aktywnej komórki komórka = ActiveCell.Address Przy adresowaniu komórek ( pisząc pod VBA ), dobrym sposobem ( ja taki stosuje ) jest poslugiwanie sie zapisem/edycją, arkusza, w ukladzie stylu W1K1. Mozna to włączać i wyłączać w menu Eycja/Opcje/Ogólne - Styl odwołania W1K1 Pozdrówka PS. pozwalam sobie zamieścic krótki przykład w VBA...
cienki jestem w programowaniu. Przedstawie sytuacje: -otwieram plik *.xls -w nim jest 30 arkuszy o nazwach od arkusz1 do arkusz30 -aktywnym arkuszem jest arkusz1 , -daje Narzędzia > makro> rejestruj nowe makro , daje ok i zaczyna mi "nagrywac" czynności -jako ze chodzi mi o ogólną zasade dzialania , czynnością jaką rejestruje makro jest "wstaw wykres"...
WITAM!! Bardzo prosze o pomoc w napisaniu makra: musi zawierać ono 3 przyciski (yesNoCancel) oraz ikonę ostrzeżenia. musi wyswietlac zapytanie "czy kolor obramowania aktywnej komórki ma być czerwony a wnętrza niebieski" TAK- obramowanie czerwone, wypełnienie niebieskie NIE- nic musi to dzialac w excelu 2010 VB... wogole sie na tym nie znam- dla tego...
Mam makro po którego uruchomieniu wyświetla się forma z checklistą, polem umożliwiającym wpisanie tekstu, kilka optionbuttonów i 66 checkboxów po kliknięciu zapisz wszystkie dane zapisywane są do odpowiednich komórek, jednak jeśli, któreś z pól, lub żadne nie zostanie uzupełnione i tak można zapisać w tym wypadku bezwartościową informację. Takie działanie...
Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...
Witam, Od niedawna zacząłem przygodę z VBA i napotkałem problem, z którym nie mogę sobie sam poradzić, w związku z tym zwracam się do Was z prośbą o pomoc w tym temacie. Otóż próbuje stworzyć makro, które aktywuje arkusz, który znajduję się po prawej stronie względem już aktywnego, tzn. np.: w moim skoroszycie znajdują się arkusze "Menu "A", "B", "C"......
Trzeba zmienić sposób adresowania w makro z bezwzględnego na względny . A najlepiej związać z aktywną komórką i wtedy nawet nie trzeba go kopiować - jedno makro będzie obsługiwało wszystkie wiersze. :D
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
WItam, pomozcie, temat niby prosty, ale jednak nie moge sobie z nim poradzic. potrzebuje makra, ktore zapisywaloby dany arkusz excela (aktywny w danym momencie) w formacie pdf, nazwa tego pliku bylaby brana z dwoch komorek tego arkusza, np e1 I e5, a sam plik pdf zapisywalby sie na pulpicie w folderze PDF. po skonczonym dzialaniu wyskakuje komunikat...
Witam utworzyłem sobie makro które domyślnie ma za zadanie znaleźć w konkretnym wierszu te komórki które mają aktualną datę , i w ten sposób wyświetlić komunikat z treścią zawartą w innej komórce, która należy do tej samej kolumny co komórka z datą (jednak leży w innym wierszu). I tu pojawia się problem. Nie mogę poradzić sobie z rozszerzeniem działania...
Ale nie zadziałało zaznaczenie, skopiowanie i powrót do excela. makro chyba się zapętla ale nic sie dalej nie dzieje. Sprawdź jeszcze tak (u mnie działa wersja explorera 11) [syntax=vbscript]Sub test2() Dim IE As Object With CreateObject("InternetExplorer.Applicati... .Visible = True .Navigate "" While .busy Or .readyState <> 4 DoEvents Wend...
Dziękuję za sugestie. Dodano po 16 Z kopiowaniem sobie poradziłam. Jednak mam problem z automatycznym stworzeniem arkuszy dla wszystkich osób z listy. Dla jednej osoby, pojedynczej aktywnej komórki wiem jak stworzyć. A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie...
Cześć, mam dość rozbudowany plik - są oczywiście funkcje, formatowania warunkowe i makra. Wszystko działa płynnie do momentu włączenia funkcji udostępniania arkusza (w tradycyjnej formie, Excel 2016). Jedno z makr jest odpowiedzialne za wstawienie poniżej aktywnego wiersza nowych wierszy w ilości podanej przez użytkownika i przeklejenie tam zawartości...
Przenieś (skopiuj i usuń) makro z "Report.xlsm" do źródłowego i wywołaj (oba makra w "Otwieranie pliku źródłowego.xlsm"). Po Woorkbook.Open powinien być aktywnym, ale dla pewności (nie wiem, czy to całość makr) można przekazać nazwę i aktywować: [syntax=vbscript] Set wkb2 = Workbooks.Open(.SelectedItems.Item(1)) Filtrowanie (wkb2.Name)[/syntax][syntax=vbscript]Sub...
Próbuję stworzyć Makro kopiujące dane z aktywnego wiersza na koniec arkusza z danymi. Prośba o pomoc w kodzie Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' ' Range("A4:D4").Sel... 'zakres do kopiowania zawsze w aktywnym wierszu kol. A do D Selection.Copy 'kopiowanie danych z aktywnego...
Kłopot w tym , że chciałbym żeby makro działało na wybranych komórkach tylko w kolumnach C i L. zadaniem makra jest zmiana koloru aktywnej komórki i wpisaniem dnia np. "Pn". Mam oddzielne makra na kolory dla poszczególnych dni i czasami omyłkowo zamiast zmienić tylko kolor w wierszu zmieniam każdą komórkę z danymi na co prawda właściwy kolor ale dane...
Przykładowe makro: [syntax=vbscript]Sub numery() Dim coll As New Collection Dim ow As Long, i As Long ow = Range("A" & Rows.Count).End(xlUp).Row On Error Resume Next For i = 2 To ow If Range("A" & i).Value <> vbNullString Then coll.Add coll.Count + 1, Range("A" & i).Value If Err = 0 Then Range("B" & i).Value = coll.Count Else Err.Clear...
Witam, czy mógłby mi ktoś pomóc przy następującym problemie: chciałbym zrobić makro za pomocą którego po wprowadzeniu danych i zatwierdzeniu ich enterem, kursor (albo jak kto woli następne aktywne pole do wprowadzania) będzie przechodził w określone miejsce. Nie chodzi mi o przechodzenie jedno pole niżej, czy jedno pole w prawo. Tylko o przechodzenie...
Niestety nie. Chodzi o to aby po wykonaniu makra w komórce A1 (jako aktywnej) zostało TR a do B1 przeniosło lodówka .
W nich sa zapisane wartosciami 3 kolumny: A B C jak widac czescia wspolna jest: Kod: Workbooks.Open Filename:="D:\NIPY\STRONA\XLSX\a.xlsx" Selection.End(xlDown).Select ActiveCell.Offset(0, 1).Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlUp)).Select Selection.Copy Windows("Zeszyt1.xlsm").Activate...
Witam wszystkich, Chciałem wykorzystać kalendarz w swoim arkuszu z . Przypisałem go do przycisku. Chciałem, żeby makro nie wpisywało mi daty w aktywnej komórce, tylko w komórce gdzie znajduję się przycisk. Chciałem stworzyć kilkadziesiąt - około 70, takich przycisków w jednym skoroszycie. Czy nie będzie to zbytnio wpływać na wagę pliku, jak i na jego...
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
Pomyślałem i wykonałem: Private Sub Worksheet_Calculate() Sprawdz = Range("F11").Value Select Case Sprawdz Case 1 Call sortuj_malejąco Case 0 Call sortuj_rosnąco End Select End Sub Działa :D :D :D sortuj_malejąco sortuj_rosnąco To są oczywiście makra zarejestrowane w arkuszu Dodano po 46 To co podałem wyżej działa z komórką F11 w aktywnym arkuszu. Czy...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i "druknie" x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout Coś na wzór (kod w module):[syntax=vb]Sub PrnForm() Dim arkPrn As Worksheet Set arkPrn = Sheets("Wydruk") With ActiveSheet wrs = ActiveCell.Row arkPrn.Range("d7") = .Cells(wrs, 1) 'Nr...
Pojawia mi się błąd next without for a bez next a stosuje tylko do aktywnego arkusza
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
Witam. Proszę o poprawę stworzonego przeze mnie makra. [syntax=vb]Sub Macro1() ' usunięcie kolumn Columns("F:H").Select Selection.Delete Shift:=xlToLeft Columns("G:L").Select Selection.Delete Shift:=xlToLeft Sheets(1).Select Sheets(1).Name = "owssvr" ' zaznaczenie obszaru ActiveSheet.Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select...
Witam, jestem tutaj nowy i potrzebuję pomocy osób bardziej doświadczonych. Mój problem polega na tym że potrzebuję po wcisnięciu buttona aby utworzyło mi nowe zeszyty z nazwą pobraną z innego arkusza niż ten na którym jest przycisk znalazłem takie rozwiązanie : Sub CreateWBs() Dim lRow, x As Integer Dim wbName As String lRow = Range("A"...
muszę go 'zedytować' przed wrzuceniem tutaj, a to wieczorem :) Po lekkiej edycji calego pliku jest ok :) Jeszcze jedna rzecz jest dość uciążliwa - mianowicie przy każdorazowej zmianie aktywnej komórki uruchamia się makro dzielące wynik z I1, czy można to ograniczyć do jednorazowej akcji? Dorzucam plik
Najpierw musisz przygotować dane które chcesz wysłać, czyli jakiś raport. Możesz to zapisać do pliku, albo umieścić w roboczym arkuszu (to bym zalecał, bo szybsze). Następnie możesz wysłać plik lub aktywny (zawsze możesz go uaktywnić) arkusz. wygląda to tak: 1) dane mam w jednym arkuszu 2) mam makro, które dzieli mi te zbiorcze dane na oddzielne pliki...
Szablon PZ musiałbyś najpierw utworzyć w dodatkowym arkuszu. Umieszczenie w nim danych i wydruk, to już tylko "chwila" Odn. zegara Wklej do modułu [syntax=vbscript]Option Private Module Sub Zegar() If Time > "23:49:00" And Time < "23:59:00" Then Druknij End If NextTick = Now + TimeValue("00:10:00") Application.OnTime NextTick, "UpdateClock" End...
... Jak naciśniemy w arkuszu Kosztorys pole B7 czyli to białe puste szybko dwa razy to otwiera się Listbox z wyborem danej pracy ... Wszystko działa ok ... No niezupełnie ... ' ListBox1_Click ' usuwa z komórki ' AB7 ' wartość liczbową i po zamknięciu okna nie można go już ponownie otworzyć bez wstawienia tam liczby. ... Potrzebne są tylko trzy zmiany....
Zapożyczyłem i w miarę możliwości dostosowałem do swoich potrzeb taki kod: Sub new_book() With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ .Sheets("set").Range("dok") & _ .Sheets("set").Range("num") & ".xls" ActiveWorkbook.Close End With End Sub Chciałbym aby makro nazywało dokument nie po komórce "dok"...
Działa :) Dziękuje serdecznie przyjacielu ! Jeszcze jedno : A jakbym chciał zaznaczyć zakres dwóch wierszy tzn. aktywnego i jednego wyżej :) pozdrawiam
Chcę zrobić coś takiego: jestem w wierszu powiedzmy 4 obojętnie w której kolumnie i chcę po naciśnięciu przycisku aby kopiowało mi zawartość komórki o adresie kolumna F i zaznaczony wiersz ( w tym przypadku F4) do innej komórki. Dodano po 13 Dodano po 2 Błąd jest w tym zapisie Dodano po 40 [syntax=vbscript] Cells(ActiveCell.Row, 6).Select [/syntax]...
Bez makra: - zaznaczasz arkusze w których mają być wprowadzone zmiany (CTRL+LPM na kolejnych nazwach arkusza "zakładkach" lub mając aktywny pierwszy arkusz w którym mają być przeprowadzone zmiany, trzymając SHIFT klikasz na nazwę ostatniego arkusza do zmian i zaznacza Ci się "zakres" arkuszy) - mając zaznaczone arkusze, w aktywnym arkuszu dokonujesz...
Siema, Mam napisane makro vba, żeby kopiowało mi dane z komórki zawartej w aktywnym pliku excel do drugiego aktywnego. Pisałem to na dwa sposoby i za każdym razem wywala mi błąd. Poradźcie proszę. Będę wdzięczny za każdą pomoc! 1. Tutaj wywala błąd - Compile Error: Sub or Function not defined. Sub screen() ' ' screen Macro ' ' Workbook(cale.xls).Activate...
Witam! Mam prosty problem. Potrzebuję za pomocą przycisku, do którego przypiszę makro czyścić aktywną komórkę. Dla Excela wygląda to tak: Sub SetValue() ActiveCell = Null ' to clear the contents End Sub czy ktoś pomoże napisać coś podobnego dla OpenCalc ?
Witam. Jak makrem usunąć wszystkie formatowania warunkowe, wszystkie znaczy ze wszystkich arkuszy pliku? Mam taki kod jak poniżej ale on usuwa tylko formatowania z aktywnego arkusza: [syntax=vbnet]Cells.FormatConditions.Del...
potrzebuję aby nowy folder był tworzony w tym konkretnym folderze Jeśli w komórce A1 będzie wprowadzona ścieżka aktywnego pliku z makrem :idea: (np. =INFO("katalog") :D ) to możesz tworzyć nowe podfoldery np. wg takiego kodu :spoko: : [syntax=vbscript]Sub StworzFolder() Dim FullPath As String Dim CheckDir As String Dim PATH As Variant Dim Folder As...
Witam, Chciałbym w Excelu wstawić przycisk powiedzmy o nazwie PRZYCISK1 , który po kliknięciu wstawiałby w aktywną/kliknięta wybraną w tej chwili komórkę daną wartość np. PRZ1 i przechodził do komórki poniżej. Czy da się to zrobić a jeśli tak to jak? Z góry dziękuję za pomoc Pozdrawiam Odpowiedz
Witam, Mam problem z przerwaniem pętli oczekującej na dane z portu COM. Makro które napisałem ma za zadanie odczytać wartość z urządzenia zewnętrznego, ale dopiero jak na urządzeniu zostanie naciśnięty odpowiedni przycisk. Chciałbym aby działanie makra wyglądało w ten sposób, że użytkownik klika na dowolną komórkę, w której chce wprowadzić dane, wysyła...
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Tak z ciekawości zapytam: A co z tą wstawioną (bez skojarzeń proszę), nową kolumną? Ma jakieś znaczenie dla obliczeń? Jaki jest cel takiego działania? Dlaczego makro rozpoczyna od aktywnej komórki? Co, jeśli C2 jest pusta?
Cześć witam wszystkich chodzi mi o makro które zmienia kolor tła kształtu , Kształty to trzy kwadraciki na arkuszu 1 , na arkuszu 2 znajdują się trzy przyciski , i chodzi mi oto żeby po wciśnięci przycisku zmieniał się kolor wypełnienia danego kwadracika mama takie makro ale to makro jest na aktywnym arkuszu a mi chodzi żeby cały czas pozostawać na...
zależy od wersji Excela Zarówno Excel jak i windę mam w wer. angielskiej. (win. XP Pro, Excel 2007) Dodano po 7 Coś znalazłem tu: doczytam jak to zrobić. p.s. Wkrótce wyjeżdżam to odezwę się za kilka tyg. i dam znać jak poszło, ale do tematu na pewno powrócę. Już za samo to, że uświadomiłeś mnie że się da to zrobić, to Ci się Kolego "krzynka piwska"...
Nie chcę za bardzo wchodzić w pomysł kolegi adamasa bo nie wiem co było głównym celem i dlaczego to zrobił tak a nie inaczej. Zaproponuje trochę inne rozwiązanie, ale ponieważ nie znam całego kodu i intencji arkusza może być kłopot z działaniem (np wcześniejsza ochrona arkusza) Zakładam jak piszesz, że nazwiska w danych kolumnach są posortowane a właściwie...
Poprowadzę Cię w kierunku rozwiązania. 1. Jest sobie zadeklarowany jednokolumnowy zakres, w którym znajduje się określona ilość komórek: Set rngTmp = .Range("O2:O" & Cells(Rows.Count, "B").End(xlUp).Row) (tu przed 'Rows' powinna być kropka. Nie wiadomo który arkusz jest aktywny. Może jakiś ze starej wersji Excela...) 2. Należy poszukać stosownej dla...
Dodałem miesiące i poprawiłem formułę w Arkuszu osobowym. Nie wiem dlaczego sobie utrudniasz. Przecież przy zwykłych danych wystarczy "=" (równa się) żeby "przejąć" dane. Żadne dodatkowe funkcje nie są potrzebne. ([chyba że korzystasz z bazy danych - ale to inny temat i też inaczej] Otwórz oba pliki aby zrozumieć formułę. Docelowo wystarczy potem otwierać...
Powiem tak: Nie spotkałem się z takim problemem ze "zwykłymi" plikami excela. Jednak wystarczy jeden plik z nieodpowiednio napisanym makrem który "rozwala" wszystko. Ktoś pisząc makro np. nie przewidział, że może być aktywny inny arkusz niż zamierzony w kodzie makra lub nie przewidział wyłączenia uruchomionej jakiejś procedury która może czeka na jakąś...
Czołem, Przyda mi się pomoc w przebudowaniu makra jakie posiadam. W chwili obecnej mam makro, które drukuje mi wszystkie dokumenty per filtr w raportu. Potrzebuje zamienić opcję drukowania na: 1)Otwarcie szablonu prezentacji 2)Aktualizację danych i wykresów per filtr tabeli przestawnej 3)Zapis jako prezentacji nazwš filtra z aktualnš datš (komórka z...
Tak dwa lub więcej plików w tym samym katalogu co pik z makrem, tylko katalog może zmieniać położenie. PRL - nie o to mi chodziło, ja nie chcę wyświetlać okna dialog w celu wybrania, który plik ma być otwarty, tylko w kodzie zawrę dokładną nazwę pliku do otwarcie, a makro automatycznie otworzy ten plik, pobierze odpowiednie dane a następnie zamknie...
W jakim celu włączasz tryb projektowania? Chyba m.in. po to, żeby zdezaktywować makra. Jak wobec tego chciałbyś makrem go wyłączyć? Czy to logiczne? Żeby wyłączyć tryb projektowania i ponownie uaktywnić makra potrzebna jest jakaś akcja użytkownika - naciśnięcie przycisku lub skrótu klawiaturowego. Można ewentualnie przez procedurę OnTime zaplanować...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Trochę czasu wolnego się trafiło, poczytałem toiowo, i znalazłem może niezbyt eleganckie ale dosyć satysfakcjonujące rozwiązanie mojego problemu. Tylko brak mu automatyzacji i całościowego podejścia jeszcze. Są dwie kolumny, w jednej nazwa towaru po polsku (A), w drugiej ma być po angielsku (B). Część drugiej jest już przetłumaczona, więc niektóre komórki...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Witam wszystkich forumowiczów, mam pytanie związane z Excelem 2013, a mianowicie czy mogę uaktywnić przycisk wykonujący makro z listy drop box. Bardziej dokładnie opisując: mam kolumnę z komórkami wyboru listy drop box i jeśli wszystkie są wypełnione to ostatnia komórka jest zdefiniowana jako drop box tak lub nie. Jeśli jest wybrane Nie to nic się nie...
Dzień dobry, A co w tym kodzie oznacza "ark"? Czy nie jest to arkusz aktywny (ActiveSheet)? Poza tym czy 6 to stała? Jeśli tak, to po co tak komplikować ten adres, wystarczy [syntax=vbscript]ark.Range("E6:F" & dstW)[/syntax]Poza tym, jak często zmienia się wartość "dstW"? W sumie można makrem uruchomić też sprawdzanie poprawności danych, tylko tę procedurę...
Wiem ze VLOOKUP. Ale myślałem że jeżeli wstawię to jako string to używając zapisu angielskiego zwróci mi błąd w stylu #NAZWA Sprawdzę to wkrótce i dam znać co z tego wyszło. Dodano po 4 Ok, zapis funkcji bez żadnego wywoływania zmiennej itp jest ok. Jest tylko problem. Jak w zapisie Range("D1").Formula = "=VLOOKUP(A1, Arkusz2!A:B,2,0)"...
A mógłbyś mi trochę podpowiedzieć w którym miejscu mam umieścić dany kod? W Module czy w kodzie z UserForm - akcja po naciśnięciu przycisku? Sorry za takie "głupie' pytania ale jestem totalnie zielony. Modules-> Formularz: [syntax=vbscript]Sub Zapisywanie() ActiveWorkbook.Save 'Metoda Save zapisuje obiekt, nasz kod powoduje zapisanie zmian w aktywnym...
No nie wiem, marek003 pewnie już coś ma w rękawie, ale tak się zastanawiam... W tej formie, to rzeczywiście karkołomna robota. Potrzebny byłby arkusz pomocniczy, obliczający zależności dla każdej (tak mi się wydaje) pary komórek. Zdaje się, że o wiele prościej byłoby napisać makro. Test byłby przeprowadzany jedynie na aktywnej komórce (Target.Value),...
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę zaznaczoną. Uruchamiam makro, które przykleja do odpowiednich...
Do skopiowania wyników filtrowania w inne miejsce aktywnego arkusza. Można to obejść w VBA. Wiec nie rozumiem w czym problem? W arkusz1 masz bazę. W arkusz2(aktywny) kryteria filtrowania i określenie miejsce w które chcesz odfiltrowane dane umieścić. Jeżeli operacja ma być jednorazowa, robisz to "z ręki". Jeżeli robisz to często, lub potrzebujesz odfiltrowania...
Dzień dobry, korzystam z kodu, który kopiuje mi wybrane komórki ze skoroszytu (o zmiennej nazwie) i konkretnego arkusza w tym skoroszycie (nazwa arkusza jest zawsze stała) do skoroszytu "zbiorczego" o stałej nazwie (w tym wypadku ZEST_ZAM.xlsx). W kodzie mam wpisaną "na sztywno" nazwę skoroszytu, z którego komórki są kopiowane i nie umiem tego zastąpić...
Witam, jestem początkujący, wiec proszę o dużą dawkę wyrozumiałości. Poprzednio pomogliście mi w pisaniu makra w Excelu. Dziś jestem już na zupełnie innym stopniu zaawansowania w tym temacie (także dzięki Wam) Problem przed którym stoję obecnie nie jest natury programowej, tylko elektryczna-elektronicznej, a dokładnie ? muszę wykonać urządzenie które...
Poradziłam sobie w taki sposób, ponieważ Wasze rozwiązania ciągle wywalały mi błędy:/ Sub CopySheet() ActiveSheet.Select ActiveSheet.copy Before:=ActiveSheet ActiveSheet.Select Range("G17:AA22").... Selection.ClearContents Range("G32:AA37").... Selection.ClearContents Range("B40:I47").S...
Witam serdecznie, Mam problem z odczytem danych metodą ADODB z innego arkusza Excel będącego na udziale sieciowym i który może być otwarty przez inną osobę na swoim komputerze. Korzystam z funkcji napisanej przez Tajana: [url=]Link do ExcelForum - Funkcja GetValue. O ile funkcja ma podstawowe zadanie czytać z zamkniętego arkusza i to działa, to jest...
Witam, potrzebowałam makra do założenia blokady wklejania i kopiowania danych w EXCEL. Znalazłam na forum nie tylko kody ale gotowe pliki z rozwiązaniem :-) np. Problem mam tylko z tym, że blokada dziala na wszystkich otwartych plikach a chciałabym, żeby była aktywna na konkretnym pliku. Prośba o pomoc w rozwiązaniu.
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Moje braki w wiedzy spowodowały, że myślałem aby otwierać po 40 do 50 skoroszytów i potem makrem podpiętym pod przycisk - klikać, dlatego pisałem o „bieżącym” skoroszycie. Oczywiście że Wasze makra to mistrzostwo hulają w pętli – ja niestety tego nie umiem. Ale pokombinuje na nich i mam nadzieję że w końcu załapę. Zaraz obrabiam te...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Szukam pomocy w utworzeniu schematu działania ze skanerem kodów kreskowych w google sheet. umożliwiłoby każdemu z Pracowników łatwe nadawanie lokalizacji produktom na naszym magazynie. Używamy bazy w google sheets aby każde stanowisko miało aktualny podgląd do aktualnej lokalizacji. Schemat działania excell jaki szukam: - Skanuje numer koszyka na magazynie...
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete End If Next s[/syntax] 2. Do swojego projektu wstaw moduł (Insert->Module)...