Oczywiście, przy założeniu, że wiesz co znaczy "ostatni dodany" i "następny". Jeżeli masz wyłącznie arkusze nazwane: 2020, 2021, ... to wszystko jasne, ale jeżeli są też Arkusz1, itp. to sam widzisz. Musisz zatem napisać procedurę wyznaczającą ostatni arkusz: przeglądasz wszystkie i (ewentualnie pomijasz niepasujące do wzorca - metoda dowolna, nawet...
oo dzięki wielkie :) A dało by się dołożyć do tego makra funkcję żeby od razu w nowo powstałym arkuszu wklejał całą tabelę (wraz z treścią i odpowiednimi wymiarami komórek) z arkusza o nazwie "1"?
(...) wo wartość "aaa" na wartość "bbb". Wartość miała by być wyszukiwana i zamieniana w kolumnie C. Najlepiej jakby się uruchamiało po edycji danych właśnie w kolumnie C. Ważne żeby było tylko przypisane do jednego arkusza tak aby po zmianie danych w innym arkuszu w kolumnie C się nie uruchamiało. Dziękuje. Wstępna ocena dostępnych informacji Witam,...
Jest super, wszystko działa tak jak powinno z wyjątkiem kolumny AA w przykładowym skoroszycie. Na pewno ma to związek z formułami, które tam były w oryginale, a których nie umieszczałem na początku tematu, tylko zastąpiłem je czymś prostym, myśląc, że później będzie wystarczające zmodyfikowanie otrzymanych przez Ciebie pomocy (kodu albo formuł). Teraz...
Podłączyłeś się pod cudzy temat i nie wyjaśniłeś dokładnie o co Ci chodzi. Czy chodziło o zaznaczenie (selekcję) kilku komórek jednocześnie i żeby we wszystkich tych komórkach liczby kończące zawarte w nich teksty wzrosły o 1? Jeśli o to chodziło i ma to być makro zdarzeniowe SelectionChange, to możesz wykorzystać taki kod w module arkusza: [syntax=vbscript]Private...
Super bardzo fajnie to działa sprawdziłem dodałem kolejne zdublowane makro ze zmienioną nazwą arkusza i działa. Jest jeszcze pytanie jeśli zmieniłem nazwy wszystkich arkuszy makrem na podstawie listy z arkusza1 poprzez dodanie w menadżerze nazw pod nazwą ListaArkuszy formułę [syntax=vbscript]=ZASTĄP(O.SKOROSZYCIE(1...
Bardzo proszę o pomoc w napisaniu makra, które będzie kopiowało dane z wybranych komórek arkusza „Zadania” do wybranych komórek arkusza „Plan zadań”, tzn.: Z arkusza „Zadania” z komórki: z komórki "Temat" do komórki "Zadania" ze "Data rozpoczęcia" do "Data od" z 'Data ukończenia" do "Data do" z 'Data wykonania" do...
Zauważyłem pewną zależność, w pliku zlecenie Cent znajduje się przycisk zmiana zlecenia, ma on za zadanie dodanie nowego arkusza i takie tam ale jedną z rzeczy które wykonuje to podmiana makra pod przyciskiem "zakończ zlecenie". I w tym momencie gdy wywołam makro o nazwie "zakończ zlecenie pozmianowe" rejestr na samym końcu wysypuje się, gdy wywołam...
Witam Potrzebuję pomocy w napisaniu makra. Mam w arkuszu1 dane w kolumnach od A5 do AB5000. W kolumnie G5 do G5000 znajduję się lista rozwijana z której użytkownik może wybrać kilka opcji. W przypadku kiedy użytkownik wybierze opcję "złomowe" chciałbym żeby makro przy użyciu przycisku przypisanego do tego makra wycięło wszystkie wiersze w których użytkownik...
Witam Serdecznie Potrzebuję pomocy z napisanie makra, które przenosiło by dane (A2:U3) z arkusza1 do arkusza2 w kolejne puste miejsce pod spodem, tak aby tworzyła się ładna tabela, oraz żeby wyczyściło miejsce w arkuszu1, tak aby można było ponownie wprowadzić kolejną serię danych. To co udało mi się stworzyć załączam pod spodem, ale niestety moja wiedza...
Mam pytanie do szanownej braci znawców Excela i VBA. Oczywiście kodu w finalnym pliku jest duuużo więcej. Wyciąłem tylko to co powoduje problem, z którym nie wiem jak sobie poradzić (to znaczy jak zrobić to inaczej - z tym nie ma problemu, chodzi raczej o zrozumienie dlaczego tak to działa, a raczej nie działa). Ale do rzeczy: Plik ma kilka arkuszy,...
Cześć, potrzebuję makro w arkuszu google, które zadziała tak, że będę miał przycisk po kliknięciu którego wyskoczy okienko z opcjami: 1 (do wyboru- załadunek/rozładunek) 2 (do wpisania - godzina, dzień) 3 (do wpisania - numer referencji) 4 (do wyboru numer rampy 4 lub 5) Po zatwierdzeniu powinien w odpowiednie okienko (data, godzina) wskoczyć nr awizacji...
Witam, próbuję napisać makro które, będzie kopiowało na raz z kilku arkuszy dane do jednego. Obecnie wkleja mi się nazmiane raz z jednego a później pyta o zezwolenie na wklejenie nowych danych z innego arkusza. A potrzebuję aby dane były jedne pod drugim i aby się sortowały po nazwisku. Próbowałam z pętlą ale przeładowywało się i plik się wyłączał....
Witam serdecznie Jestem nowy na tym forum. Potrzebował bym pomocy przy makrze, które by kopiowało komórki z jednego głównego arkusza gdzie codziennie wpisuję dane do kilku innych arkuszy. Poszperałem troszkę w necie i znalazłem makro napisane przez pana Tomasza Gawęda które prawie odpowiada moim oczekiwaniom. [syntax=actionscript] Option Explicit Sub...
Cześć. Jest to mój pierwszy wątek na tym forum dlatego pragnę się przedstawić. Mam na imię Darek i troszkę bawię się excelem ale nie makrami. Stąd prośba o szczególną pomoc. Nie poradzę sobie z tym sam poradzę. Potrzebuję makro, które będzie mi kopiowało dane. Mianowicie: W Arkuszu1 znajduje się zakres komórek załóżmy od A1:A10 wpisane są nazwy. W kolumnie...
Witam próbuje napisać makro kopiujące zawartość komórki aktywnego arkusza z komórki M2 do arkusza A komórki b1 ale jeśli b1 jest zajęte żeby wprowadziło dane do komórki b2 i tak coraz niżej .
Witam, mam problem. Na jednej ze stron znalazłem makro które działa w jednym arkuszu. Chciałbym je zastosować do kilku jednakowych arkuszy, nie mam doświadczenia z makrami i dlatego proszę o poradę jak to zrobić. Z góry dziękuje. Option Explicit Dim Zakres As Range Private Sub Workbook_Open() Call Ustal_zakres End Sub Private Sub Workbook_SheetChange(ByVal...
Hej Chcialbym napisac makro ktore z 22 arkuszy jakie mam (kazdy ma inna nazwe) usunely mi sie wszystkie ktore w komorce c7 maja pusta wartosc tzn nie ma tam nic. napisalem cos takiego For arkusz = 2 To 22 If Range("c7") = "" Then ActiveWindow.SelectedSheets.Delete End If arkusz = arkusz + 1 Next ... ale nie dziala tak jakbym chcial. Dacie jakas podpowiedz??
Witam, Kiedyś miałem podobny problem i już mi raz pomógł jeden z użytkowników, ale teraz gdy zrobiłem całkiem nowy skoroszyt, nie mogę połapać się z Makrem. Potrzebuję podpiąć Makro do przycisku w arkuszu "Baza ofert", tak aby jego naciśnięcie powodowało aktualizację bazy o ofertę z arkusza "Oferta". Za każdym razem kolejna oferta musi być dopisywana...
Witam, chciałem przerobić pewne makro ale jakoś mi nie idzie :/ Chodzi o to by dodać takie polecenie aby makro przenosiło dane do odpowiedniego arkusza w odpowiednie pole. Czyli jeśłi w komórce A1 wpiszę "Arkusz10" to dane z pól C1 oraz D1 zostaną przeniesione do tego właśnie rkusza w odpowiedni wiersz który jest w polu B1 Jest to wykonalne ?
Witam Potrzebuje makra, a nie funkcji. W arkuszu "dane" w kolumnie D wystąpić tekst: "xxxx"; "yyyyyyy" ; "zzzzz" lub puste komórki. W arkuszu "dana" w kolumnie E mogą wystąpić następujące teksty, które są brane pod uwagę pod makro:"aaaaaaa";"yyyyyyy";"zzzzz", inne teksty lub cyfry, znaki specjalne lub puste komórki nie są brane pod uwagę. Podałam przykładowy...
Chciałbym zautomatyzować trochę moją codzienną pracę , codziennie w excel dodaję nowe arkusze "x", Arkusz jest kopią dnia poprzedniego "x-1" ale nazwę musi mieć dnia obecnego "x" Nowa zakładka ma dane stałe, takie same jak w zakładce x-1 oraz dane z komórek dnia poprzedniego. Można to zawrzeć w jednym makrze ?
Poszukuję makra, które z 1 arkusza o nazwie "dane" wykopiuje dane do nowych arkuszy w takim samym formacie względem np. kolumny K - wynik działania makra powinien być podobny (tylko dla wszystkich unikatowych danych z kolumny K) jak w załączonym pliku w arkuszu P001 (makro powinno nadać nazwę dodawanym arkuszom
Hej, potrzebuję pomocy w przekształceniu makra, tak aby dzieliło mi wskazane arkusze wg klucza i zapisywało wszystko do nowego skoroszytu. De facto mam: 5 arkuszy o nazwach :dane1, dane2, dane3, dane4, dane 5 oraz 4 arkusze o nazwach: arkusz1, arkusz 2, arkusz3, arkusz 4 Potrzebuję makra które podzieli mi 5 arkuszy [dane1 ... dane2] wg klucza z arkusza...
Witam, jako, że raczkuję w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku w zał. : Arkusz "Cena katalog 2019" - kolumna A - podwójne kliknięcie na daną komórkę w kolumnie A np. A5 powoduje skopiowanie danych z tej komórki do Arkusza " Oferta PDF " komórka B17. Każde kolejne podwójne kliknięcie powoduje dodanie wiersza w Arkuszu "Oferta PDF" pod...
Witam, chciałbym napisać makro które gdy klikniemy button zapisze arkusz pod nazwą podaną w komórce a2 i przed zapisem w komórce a3 doda datę a w komórce a4 godzinę zapisu oraz dodatkowo ustawi brak możliwości edycji komórki a3 i a4 - chronione hasłem. Jest taka możliwość??? Proszę o pomoc
... Ok wstążka z makrami ogarnięta ... Na pewno ? I jak jest uruchamiana ? Uruchamianie i usuwanie menu "KOSZTORYS" aktywowane jest makrami z modułu "Ten_soroszyt": ... No i prośba o dodanie do tej listy tego pola z możliwością podania ilości j.m Jak by to miało wyglądać? I tutaj kolega pospieszył się ze swoimi poprawkami, a ja spóźniłem ze swoimi...
No to się teraz narozrabiało. To miało być kopiowanie z kilku arkuszy do jednego! No cóż. Muszę się nauczyć czytać ze zrozumieniem problemy wyłuszczane na forum. Ale znowu potwierdza się zasada, że jeden obraz znaczy więcej niż tysiąc słów. :D I tu skorzystałbym z podpowiedzi marcinj12 z niewielką modyfikacją warunku na nazwę arkusza (> "Arkusz"...
Jaka jest ścieżka do pliku źródłowego, w którym jest to makro? Makro jest w skoroszycie DANE.xlsm w arkuszu Arkusz1 , który mam na pulpicie. Przycisk POBIERZ pobiera dane ze skoroszytu z lokalizacji D:\CCC\ccc\ (jest w nim kilka skoroszytów wiernej kopii arkusza Arkusz1 , ale z różnych dni) gdzie codziennie zakładany jest nowy plik odpowiadający dzisiejszej...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
To[syntax=vbscript]For Each Wks In ThisWorkbook.Sheets If Wks.Name <> "Źródło" Then Wks.Delete Next Wks[/syntax]wyrzuć
Kreska jest błędem, natomiast makro działa jak należy. Makro jest uruchamiane przez przycisk, który należy dodać do arkusza lub przez menu Narzędzia.Makro.Makro.. Uruchom.
Sprawdź [syntax=vbscript]Sub wplata() Dim objSheet As Worksheet Dim i&, a&, b& With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With For Each objSheet In Worksheets With objSheet a = .Cells(2, Columns.Count).End(xlToLeft).Column .Cells(13, 1).Resize(, a).Interior.ColorIndex = xlNone If Application.CountIf(.Cells(13,...
Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Zgodnie z zasadami księgowości nota odsetkowa tyczy się faktur już zapłaconych, ale poza terminem. Czyli za czas spóźnienia. Może się tyczyć tych jeszcze nie opłaconych (na dzień sporządzenia noty) ale wtedy jest "kłopot" z wyliczeniem wartości odsetek za zwłokę bo dzień sporządzenia noty...
musisz dodać jeszcze wybór arkusza: Sheets(arkusz).Select
Był błąd - chyba go poprawiłem. Zmieniłem trochę całość - eksportowałem jako moduł bas - dołącz do swojego projektu i użyj. Również zamieszczam arkusz testowy z importowanym modułem. Użycie jest proste - zaznaczasz zakres komórek, na którym chcesz przeprowadzić zmiany i w menu Narzędzia -> Makro -> Makra uruchamiasz jedyne makro, jakie jest - zrób_gwiazdki....
Makra w module1 i w arkuszu: "Dispatch" przy zdarzeniu 'SelectionChange'. Ewentualnie można dodać przycisk... P.S. Dopuszczasz wartości ujemne w kolumnie A? Edit: 21:05 zmieniłem załącznik (pomyłka) :)
Tak na szybko, sprawdź czy o to chodziło. Skoro piszesz, że to przykład to nie dodałem warunków zabezpieczających makro przed błędem. np po wpisaniu litery zamiast liczby do B8 Jak pisał "paweliw" to dość niewygodny sposób dodawania danych do arkusza.
Dodałem opcję czyszczenia.
Proponuję, żeby Kolega (zakładając, że nie ma Kolega pojęciu o VBA) zaczął od zarejestrowania makro, w którym doda sobie Kolega arkusz, określi jego nazwę i kliknie sobie w dwie komórki po sobie. Potem może sobie Kolega obejrzeć kod makro, które zostało nagrane i wszystko powinno być jasne. Jeśli będzie miał Kolega problem z jakimś fragmentem kodu -...
Niech makro "DODAJ" nie odblokowuje, makro Private Sub Workbook_Open() ActiveSheet.Protect UserInterfaceOnly:=True End Sub udostępnia zablokowane TYLKO dla makro
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
Oczywiście pozamieniałeś rozszerzenie pliku xlsm nie tam gdzie powinieneś :cunning: Umieść załączony plik w jakimś folderze testowym i wykonaj umieszczone tam makro :!: 982520
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
Witam. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
Można w poniższy sposób, wpisując w tablicy "arkusze" wszystkie nazwy arkuszy, w których kod ma się wykonać. [syntax=vbscript]Sub Wstaw() Dim arkusze, arkusz arkusze = Array("Arkusz1", "Arkusz2", "Arkusz3") For Each arkusz In arkusze Worksheets(arkusz).Rows(5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next End Sub[/syntax] andie
To jest przechowywany w katalogu i zamyka. po prostu otwórz go Dodano po 3 lub zniszczyć ciąg z makro: ActiveWorkbook.Close
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Lzep :arrow: Z fotki wynika wszystko jasno, chyba że ktoś nie miał do czynienia z Excelem i dartem ... tomi1972 :arrow: Excel działa domyślnie w trybie natychmiastowego przeliczania formuł. Bez odpowiedniego makra nie da się zrobić tego co oczekujesz. Usuwając sumy pośrednie (F2 i J2) wartość zawsze będzie "wracać" do 501. Napisałem proste makro sumujące...
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
Trzeba tylko pamiętać, że po umieszczeniu makra w Personalu jest ono dostępne tylko na tym kompie na którym jest ów plik. Jeżeli więc wyślesz komuś swój skoroszyt z niego korzystający, a makro ma wykonywać jakieś operacje na jego arkuszach to nie będzie działało. Jak to mówią: "Każdy kij ma dwa końce" i trzeba wybrać mniejsze zło. :cry:
Witam, stworzyłem makro, które pomaga mi w pracy przy obróbce arkuszy kalkulacyjnych i mam w związku z tym pytanie: - czy można na stałe przypisać makro do excela, bądź też dodać osobne menu z tym makrem? Chciałbym uniknąć ciągłego kopiowania makra do nowego arkusza. Pozdrawiam
Dodano po 3 W załączniku. Kalendarz dodaje poprzez prawoklik na okienku z formantami formularza.
W kolumnie H jest wartosc? Dodano po 7 Zamiast ark = xxx.Cells(x, "H") Wpisz ark = xxx.Cells(x, "H").Text
To jak ten kod bym całkiem uprościł. Jeżeli staniesz na dowolnej komórce a makro "cos" podepniesz pod przycisk (lub kod ze środka procedury cos przekleisz do procedury przycisku) to po przyciśnięciu albo ci napisze że nie ma arkusza albo przerzuci do danego arkusza. Wtedy też funkcja "Last" nie jest potrzebna. Sub cos() Dim Nazwa As String Nazwa...
Tą metodą się nie da, bo zamażesz dane wejściowe i funkcja nie będzie miała skąd pobrać danych. Możesz ewentualnie dodać nowy arkusz i tam zapisać w komórkach tą funkcję z odwołaniem do konkretnego arkusza. Później metodą kopiuj i wklej możesz wynik nadpisać do komórek źródłowych. Pamiętaj tylko, że po tej operacji w arkuszu dodanym, w którym będą odbywały...
Witam aby w kolumnie D dodało ilość danego produktu do istniejącej już liczby nawet, jeśli inny kolor i kod2? aby wpisało do kolumny b i c (arkusza 1) wartości z odpowiedniego wiersza z arkusza 2 tak samo?
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Niestety z tego co napisałeś i pokazałeś w pliku nie wynika, jak chcesz tego używać. W załączonym pliku nie ma Arkusza1a, a arkusze 2 i 3 są puste. Więc nie wiem, czy to ma być używane w jednym arkuszu, czy w kilku. Generalnie proponowałbym nadanie nazw zakresom i odwoływanie się do tych nazw w makrach. Gdy rozszerzasz taki zakres przez dodanie wiersza...
Popieram kolegę adamasa. Można tez po podziale ale przed przypisaniem do konkretnych komórek arkusza do drugiego członu (tego z zerami) na początku dodawać apostrof - ale nie wiem jak jest zrobione makro dzielące główną daną więc ciężko doradzać.
Proponuję dodać do menu przycisk, który uruchamia makro, a w nim: - dodać nowy arkusz, - zmienić jego nazwę, - i co tylko wymyślisz. Myślę, że każda pani Jadzia nauczy się klikać w przycisk w menu...
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Dziękuję za pomoc. Najlepszym rozwiązaniem okazało się zrobienie makra, które kopiuje automatycznie zawartość pierwszych trzech kolumn do nowego arkusza. Dodano po 1 Nagrałem makro kopiujące potrzebne dane do nowego arkusza
..Najprościej nazwać arkusze i odpowiednio ustawić je na pasku zakładek.. Myślałem o tym rozwiązaniu ale zmusza ono do pilnowania pewnego porządku. Autor problemu nie określił, będzie tylko on używał arkusza, czy inne osoby też. W przypadku większej ilości użytkowników istnieje konieczność pilnowania porządku w arkuszach. Dlatego jestem zwolennikiem...
makro nazwa arkusza makro zmiana arkusza makro kopiowanie arkusza
nawigacja scenic zasilanie awaryjne komputera filtr szerokopasmowy
Problemy z zacinaniem odtwarzacza DVD Starlogic Awaria pompy wody w piecu Termet Ecodens Silver 25kW - przepalanie bezpiecznika
