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) :)
Dodałem opcję czyszczenia.
Hej wszystkim :) jestem zupełnie zielona w excelu. Potrzebuję zrobić proste makro (przez rejestrację) kolorujące komórki arkusza tak aby powstały moje inicjały (WW) w kolorze niebieskim. Makro powinno zmieniać wymiary komórek całego arkusza do kwadratów 2x2. Następnie powinno kolorować komórki tak aby powstały moje inicjały. Drugie makro powinno czyścić...
.. Stworzyłem proste makro, które sprawdza czy komórka X jest pusta, jeżeli TAK to czyści komórkę Y za pomocą Clear.Contents. Procedura wywoływana jest po przeliczeniu arkusza: Worksheet_Calculate.. Makro może i jest proste, ale powiązałeś je w arkuszu w tak zagmatwany sposób, że jego wykonanie się zapętla. Twoje makro wykonując się, powoduje wykonanie...
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Witam Mam taki mały problem potrzebuję zrobić makro które po wywołaniu będzie kopiowało zawartość z "Arkusz" od A3 do G30 do "Arkusza3" i po przekopiowaniu automatycznie będzie czyściło zawartość kolumny B3:B30 w "Arkusz", następnie po kolejnym uruchomieniu makra będzie wykonywało tą samą czynność tylko zapis w "Arkusz3" będzie w kolejnych wolnych wierszach,...
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...
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Witam, formuła nie wystarczy gdyż arkusz "wydruk" jest generowany każdego dnia, a następnego czyszczony i generowany nowy, a formuła nie zapamiętuje wartości pobranych...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Wydruk zawsze jest jednostronicowy, ale zakres jest różny w każdym arkuszu, wówczas to makro nie zadziała Jak zapisać dla różnych zakresów
Cześć! Stworzyłem makro, które z arkuszy odpowiadających kolejnym dniom kopiuje z zadanych zakresów wartości i formaty komórek (kolory, formatowania warunkowe itd.) do arkusza głównego. Niestety formatowania warunkowe nie nadpisują się w głównym arkuszu i po kilkukrotnym wykonaniu tej operacji plik nie nadaje się do użytku - szybkość jego działania...
Chcę usprawnić sobie pracę, dlatego pomyślałem o makro. 1) zaznaczam 2 lub więcej komórek w kolumnie A (dla przykładu A14 i A15). 2) klikam scal i wyśrodkuj 3) zaznaczam tyle samo komórek w kolumnie B, C i D (oczywiście zaczynam od tego samego wiersza co w pkt 1, czyli idąc za przykładem wiersz nr 14 i 15) 4) czyszczę komórki z obramowania (w arkuszu,...
Witam mam dwie listy rozwijalne i dodane makro które miało czyścić jeśli w pierwszej liście zajdzie jakaś zmiana wtedy druga jest pusta, makro działa ale przy obróbce danych w arkuszu makro się "wykrzacza" dlaczego tak się dzieję co w nim należy zmienić. Proszę o pomoc ! użyty kod makra Private Sub Worksheet_Change(ByVal Target As Range) If Target =...
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...
Usunąłem kolumnę F . To co się wpisze w dodatkowe okienko pojawi się w tej samej kolumnie co główny wpis (E) za "wpisem głównym" Wprowadziłem w funduszu remontowym i danych że jeżeli (iif) wartość 0 to "" Co do czyszczenia usunąłeś jeden arkusz dlatego makro "zgłupiało". Zmieniłem kod i uzależniłem "czyszczenie" od nazwy arkusza a nie od jego numeru....
Dzięki . Jeszcze nie opanowałem tego, ale rozumiem, że jeżeli ma wkleić do arkusza 3 to po wkb1.Sheets powinienem wstawić (3)? A co dopisać jeszcze i w którym miejscu, aby przed wklejeniem wyczyściło arkusz 3? Ja miałem to: Sheets("Arkusz3").Select Cells.Clear Dodano po 13 Już wiem, że trzeba poprawić na Sheets(3), tylko czy w tym kodzie da się jeszcze...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Nawet nie czyści swojego arkusza tylko codziennie wrzucany jest nowy plik na którym pracują pracownicy Ale pytanie zostaje, czy "Arek" co dziennie zaczyna wpisywać od B4?
Och, aż tak skomplikowane toto nie jest ;) [syntax=vbscript]'przykład dla kopiowania w tym samym arkuszu z 1-szej do 11-tej Columns(11).ClearContents 'czyścimy dane w kolumnie docelowej Do While Cells(w, 1) <> "" temp = Split(Cells(w, 1), "||") For i = 0 To UBound(temp) If InStr(temp(i), "SAP") > 1 Then Cells(w, 11) = Cells(w, 11) & temp(i)...
W dołączonym pliku napisane jest makro przenoszące dane z arkusza "Dane" do arkuszy sklepów. Po otwarciu arkusza "Sklep x" arkusz jest czyszczony z zawartości i przepisywane są te wiersze z arkusza "Dane", które mają stany niezerowe towaru. Z rozszerzeniem kodu o kopiowanie obrazków nie powinno być problemów.
No i nie może działać co najmniej z dwóch powodów. Nie załączyłaś pliku ze swoim układem danych, podałaś tylko opis, a potem chcesz to stosować w innym układzie danych. Makra muszą być skrojone "na wymiar", nie są tak elastyczne jak funkcje. Makro zdarzeniowe (czyli takie, które uruchamia się automatycznie po zajściu jakiegoś zdarzenia np. edycji komórki)...
Polecam zaprzyjaźnić się z debuugerem. Pomaga na zgryzoty :D Wstawiasz break ("czerwone kółko") na początku obu funkcji, ale nie przy deklaracji zmiennych (klikając na szarym polu po lewej stronie kodu). Potem robisz jakąś akcję w excelu, np. zmieniasz arkusze, i kiedy program zatrzyma wykonywanie w zaznaczonym miejscu, wciskając F8 przechodzisz kolejne...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Skoro czyści arkusz, to dochodzi do linii przed 'oExcel.Sheets(mySfrom).UsedRange.Copy'.... Wygląda na to, że nie znajduje arkusza i zgodnie z instrukcją "goni" do etykiety 'qInst'. Przejdź makro krokowo [F8], lub postaw apostrof przed 'On Error', uruchom i podaj treść komunikatu błędu.
Spróbuj coś w ten deseń [syntax=vbscript]Sub ods() Dim zakres As Range, kom As Range Set zakres = Sheets("mapa").Range("A1:DH860") 'rozmiar mapy On Error Resume Next 'żeby się nie wysypało gdy nie znajdzie (literówka, czeski błąd, itp) For Each kom In zakres If kom.Value > 0 Then kom.Interior.Color = Sheets("dane").Range("B:B").Find(what:=k...
Rzeczywiście na bieżącą chwilę w kodzie "czysc" jest parę błędów i niepotrzebnych rozwiązań. (może coś się zmieniło w stosunku do pierwszych rozwiązań np. 13 arkuszów lub nie zablokowany arkusz DANE) Wejdź w edytor VBA w Module1 kod makra czyść powinien być taki: nie zamknąłem w okienku kodu by zaznaczyć co należy zmienić lub dodać. ---------------------------...
W edytorze makro w danym arkuszu (worksheets) w sekcji Change wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Range("c11").Value <> "" And Range("b11").Value = "" Then Range("d11").Value = Now() Else Range("d11").Value = ""...
Napisałam proste makro kopiujące zakres komórek z aktywnego arkusza do archiwum. Chciałabym, aby tabela z aktywnego arkusza po zapisaniu do archiwum automatycznie "się wyczyściła". Dodatkowym problemem jest również makro działające w arkuszu "BAZA" - zaznaczam tu dowolne pozycje w kolumnie K poprzez dwukrotne kliknięcie myszy, po czym wybieram przyciskiem...
Przed zmianą wyboru w komórce A3 należy wyczyścić komórki J3:L3. Wtedy formuła wykorzysta dane z tabelki. To czyszczenie można ewentualnie zautomatyzować makrem zdarzeniowym reagującym na zmianę w komórce A3. To makro jest w module arkusza Zabudowa, ale jest w tej chwili zapisane tylko dla komórki A3. Jak będziesz chciał wprowadzać dane także w innych...
Dostałam stary arkusz zbierający dane z dużej ilości arkuszy wsadowych. Mam makro w VBA napisane wieki temu przez kogoś kogo już w firmie nie ma. potem wiele osób to przerabiało i nie ma tam żadnych komentarzy. Musieliśmy zmienić pliki wsadowe i zakładki w pliku zbierającym i drobne przeróbki w makro powodują wywracanie się pliku. Chciałabym napisać...
Ja myślałem że należy skopiować wszystkie arkusze, tak od jednego użytkownika jest arkusz 1, ale jeśli następnie to są tej samej nazwy + 2...3 i itp. zapytał o to, ale nie otrzymał odpowiedzi Dodano po 2 ale teraz rozumiem, o co idze Dodano po 14 Ponieważ Total jest plik z powszechnego dostępu, następnie użytkowników może jednocześnie pisać w nim. Każdy...
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 Do pełni szczęścia w trzymiesięcznej pracy nad wieloma formularzami w excelu brakuje mi ostatniego polecenia, które : Zapisze arkusz jako plik PDF w katalogu domyślnym z jednoczesnym przypisaniem jako nazwy pliku treści z wybranej komórki, w określonej serii (np partia 1.pdf,partia 2.pdf,partia3.pdf itd) Użytkowanie formularza obecnie wygląda...
Witam, Jestem początkujący w excelu stąd moje pewnie proste pytanie a mianowicie mając w arkuszu kilka tabel potrzebuję napisać makro, które czyściło by parametry wpisywane w tabeli. Problem jest w tym, iż makro to samo powinno szukać, które dane ma wyczyścić i powinno to wyglądać mniej więcej tak: szukaj w kolumnie "A" cyfr i jeżeli znajdziesz pierwszą...
Zmień nazwę 1-go arkusza na "Brudnopis" A1 i B1 traktuję jako nagłówki, czyli dane zaczynają się do 2-go wiersza Otwórz Edytor VB i w kod arkusza 'Arkusz3' wklej Private Sub Worksheet_Activate() Range("A1") = "Kod" Range("B1") = "Nazwa" Application.ScreenUpdating = False IleWierszy = Worksheets(1).Range("A1...
Dodałem jeszcze obsługę zdarzenia Worksheet_Change dla tej jednej komórki A2. Może to Ci wystarczy. Ale gdyby ktoś chciał wklejać kilka komórek na raz, to nie wiem jak to zadziała. Natomiast w module arkusza Arkusz1 masz wklejoną dość długą procedurę Workbook_SheetChange. Rozumiem, że masz świadomość, że ona tu nie zadziała i traktujesz ją jako "magazyn...
Nie ma potrzeby sprawdzania czy dane nie będą się powtarzać. Zakres kopiowany z arkusza źródłowego będzie zawsze wklejany do arkusza docelowego i nadpisze stare dane z ostatniego kopiowania a w międzyczasie wierszy przybędzie. łoj ! :) ... "ażem" se narobił roboty ... :) ... Zrobiłem makro, które sortuje dane w tablicy "niearkuszowej", tj. w pamięci...
Chodzi o to, że ma dane dotyczące klas są w arkuszu "dodawania danych", z którego przenoszone są do arkusza zbiorczego a arkusz dodawania danych jest czyszczony. Napisałam coś takiego: Sub klasa() Dim ileW As Long ileW = Arkusz1.Range("A8").Value If Arkusz4.Range("C53") = Arkusz1.Range("W9") Then Arkusz1.Range("W" & ileW + 10).Value = Arkusz4.Range("E53").Value...
Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy pobierać je od ... np.: r = 10 ... to pobierzemy...
Poprawiłem trochę kod aktualizacji. Unieazleżniłem go bardziej od dodawania nowych arkuszy (chodzi o czyszczenie i autorozszerzanie) Ponieważ wiersz pierwszy jest inny w każdym z arkuszy trzeba było zrobić też trochę innych poprawek. Z wiersz + 2 też się trochę nie zrozumieliśmy, ale już wszystko działa. Zaznaczam że umowy E/2121... i podobne wylądują...
Witam Mam arkusz, który popiera dane poprzez kwerendę sieci WEB. Jak wygląda arkusz zapełniony takimi danymi większość z nas wie. Z reguły kompletny misz-masz. Makropolecenie zbiera i organizuje zebrane dane, a następnie czyści arkusz i wyświetla je w należyty sposób. Odświeżam kwerendę automatycznie co 5 minut komendą ActiveWorkbook.RefreshAll Następnie...
Arkusz do którego kopiuję jest 2 arkuszem z kolei w pierwszym arkuszu wyszukuję i podświetlam je a następnie naciskając przycisk którego zawartość podałem przepisuje wyniki wyszukiwania do drugiego arkusza Obecnie za każdym naciśnięciem klawisza czyści arkusz i wszytko wpisuje od nowa nagłówek i wyszukane rekody. Chciałbym aby za pierwszym razem przepisało...
Bez makr, przy pomocy funkcji LOS oraz kilku kolumn pomocniczych, wychodzi jak na obrazkach. Ze względu na formuły tablicowe, przeliczanie trwa 2-3 sekundy: http://obrazki.elektroda.pl/6362680900_1... http://obrazki.elektroda.pl/4153628300_1... przemyśl jeszcze ;) Jeśli makro, to () sprawdzanie w pętli wartości...
Cześć, mam problem z makrami, mianowicie, nagrywam makra filtrujące - makro ma filtrować, kopiować dane, które zostały uzyskane i wkleić do innego arkusza, który jest przygotowany formą pod uzyskane dane. Jednak mam problem, ponieważ o ile pierwsze makro działa, o tyle każde kolejne jakby nakłada się na następne, ponieważ filtruję się kolumna, którą...
Arkusz nie ma być czyszczony, używany będzie przez cały miesiąc - będę tylko odświeżała dane. Moja wiedza jest bardzo uboga, wiem że należy zrobić pętlę które przejdzie przez wszystkie pliki xlsx. w folderze "PRODUKCJA" i zwróci nazwy zakładek, a do tego dane z tych zakładek.
Udoskonalając dalej swój arkusz zastanawiam się czy jest możliwe utworzenie rozwiązania dla poniższego problemu: W swoim skoroszycie posiadam arkusz pt."Zestawienie ogólne" , który jest listą wszystkich arkuszy towarowych, arkuszy towarowych może być nieskończoność. Arkusz towarowy jest listą produktów , które dojechały do hurtowni, a wiersz sumy na...
Zaznacz sobie ten swój zakres czyszczonych komórek: Range("G7:AA15") Range("G17:AA22") Range("G26:AA29") Range("G32:AA37") Range("B40:I47") i nadaj mu nazwę "intro" :cunning: - wówczas proponowane makro wyczyści Ci tylko ten pożądany zakres. :bye:
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij przypisanie oraz 'FileDialog' w instrukcji warunkowej...
p.s. Dzień dobry Panie Macieju, miło Pana widzieć, 01 lutego mi pan pomógł, to jest dalsza część sprawy. Tak, zgadza się, nazwa arkusza to liczba, niestety nie mogę tego zmienić bo nazwa arkusza czyli liczba zaczyna się od ,np. 104,105,120,147,148 itd. Ta liczba oznacza nr kontraktu. Wiem, że może to w przyszłości generować problemy. Sprawa wygląda...
Ja to widzę tak: Przyciski w arkuszach 2 i 3 label="Start". Klikasz i makro kopiuje dane wg "idWewnetrzneWniosku": 1. Jeśli osoba ma status "Nie figuruje w ewidencji" do Arkusza 3 i następnie realizuje pkt.3-4 2. Jeśli <> od "Nie figuruje w ewidencji", do tabelki w Arkusz2. 3. W zależności od statusu aktywujemy arkusz 2 lub 3. Przycisk zmienia...
A nie gubisz CutCopy mode przez to, że czyścisz komórki? Zmień kolejność... Spróbuj [syntax=vb] Worksheets("Working").Range("a1:iv65536"... 'tu copy, którego nie wkleiłeś ' i dopiero select dla paste Worksheets("Working").Select Range("a1").Select ActiveSheet.Paste If ActiveCell.Offset(11, 1) = "" Then[/syntax]
Mam taki problem z UserForm3: Jest przycisk Otwórz plik -> otwiera plik Następnie lista arkuszy z tego pliku w ListBox1 -> użytkownik wybiera ręcznie które arkusze chce przeliczać (może wybrać kilka) Następnie W userform1 jest stworzony listbox1, do którego wrzucam normalną pętlą poszczególne arkusze z otworzonego pliku Następnie W głównym makrze pobieram...
Najprawdopodobniej co jest możliwe, aby to zrobić za pomocą formuły tablicowej. Ale po prostu zrobić, ich funkcja lub makro do rozwiązania. Jak już powiedziałem, specjalista w dziedzinie funkcji tablicowych, a następnie Maciej Gonet. Ja również jestem samoukiem i lubię makra. Specjalne literatury nie cieszył się, tylko F1 i analizy innych makr. W Twoim...
aby usuwał/czyścił kolejny wiersz jesli to 'nw', to on zawsze czysty, na ktorym arkusze ten "kolejny" kod mozna skrocic Ok faktycznie skrócony kod działa i kupuję wartości z komórek do arkusza TABELA Z DANYMI w kolejnym pustym wierszu, a teraz chodziło by mi o to by usuwał wartości z ostatniego uzupełnionego danymi wiersza w arkuszu TABELA Z DANYMI
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
p.Macieju właśnie oto mi chodziło, "śmiga jak ta lala" Mam jeszcze jedno pytanie. mając takie makro które czyści cały zakres i pokazuje wszystkie wartości [syntax=text]Sub czysc() On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End Sub[/syntax] mam problem kiedy włączę ochronę arkusza nie mogę z niego korzystać czy można to jakoś obejść...
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): http://obrazki.elektroda.pl/6793685500_1... a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Cześć szukam podpowiedzi jak w osobnych arkuszach excela umieścić tablice ze strony www, na której publikowane są dane co 1 godzinę. Interesują mnie tablice co godzinę na dobę wstecz. Obecnie mam kod, który pobiera dane z godziny 6:00 za dzień uruchomienia makra i dzień poprzedni. [syntax=vb]Sub PODEST_STANY() ' POBIERANIE_DANYCH Makro For k = 0 To...
Hmm, to makro przed edycją, działa w miarę poprawnie. Dodałem tylko "*" by działało dla każdego wersji arkusza xls. * " Then[/syntax] [syntax=vb]Sub otworz_pliki2() Dim MyFile As String, arkusz As Worksheet, wkb As Workbook Dim wrs As Long wrs = 1 MyPath = "D:\Dane" MyFile = Dir(MyPath) Application.DisplayAlerts = False 'wyłączymy pytania o schowek,...
Dziękuję za uwagi. Muszę nieco doprecyzować: nie jest konieczne użycie formatowania specjalnego, przenosi się też formatowanie walutowe. Przy okazji, formatowanie specjalne nie zostaje zachowane w swojej oryginalnej wersji, tylko komórki docelowe zostają sformatowane formatem walutowym. Zapewne Excel uznał formatowanie specjalne użyte w moim pliku za...
Cześć, Mam problem z poniższym makrem, które: po otwarciu pliku tworzy jego kopię, a następnie tę kopię zapisuje z odpowiednią nazwą we wskazanej lokalizacji, po czy, zamyka tę kopię, a plik "macierzysty" (początkowo otwierany) wciąż zostaje otwarty i w nim pracujemy. Służy mi to do tworzenia kopii zapasowej przy każdym otwarciu pliku. Mój problem polega...
W tym skoroszycie już tak masz namieszane z tym Twoim ukrywaniem arkuszy i zakresów komórek, że do momentu uzyskania stabilnego działania makr powinieneś odpuścić wszystkie komplikacje. Pamiętaj o czyszczeniu całego zakresu "wynikowego" przed nowym wyszukiwaniem np po wydruku lub przed wejściem do nowego wyszukiwania. Dla drugiego wyszukiwania powinieneś...
Witam! Zacząłem swoją przygodę z VBA i na początek postanowiłem napisać (nagrać) prostą aplikację w Excelu. Po krótce można opisać jej działanie tak: Uruchomić makro, które otworzy, wyczyści schowek i załaduje do niego kilka ciągów znaków tekstowych, a następnie zamknie ten arkusz. Arkusz wraz z makrem w załączniku. Nie wszystko się udało tak jak bym...
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
Kazda godzina paportu ma 4 kolumny W celu nie czyszczenia 'Produkt' - myslim ze rodzaj ich jest mniej-wjac staly od 0 do 7 = 8 razy 4 kolumny = 32 kolumny jedna zmiana Dodano po 4 Wejdz w menager nazw - wybierz np. zm_1 - ustaw kursor w dolu na formule - bedzie widac na arkuszu ten zakres. offset - to samo tylko wprawo o 4 kolumny razy 7 Dodano po 21...
To dlatego że trochę zamieszałeś z opisem ;) Pisałeś o podziale według dwóch kolumn A i B - przy takim założeniu musiały by to być niepowtarzające się pary. Póki co linijkę: If tabl(i, 1) = c And tabl(i, 2) = druga_kolumna Then zamień na: If tabl(i, 1) = c Then i powiedz czy to jest to, o co Ci chodzi? Jeżeli chodzi o dynamiczna...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q...
Witam, mam napisane makro na kopiowanie całych arkuszy z jednego pliku do nowego. Wszystko mi działa i funkcjonuje poza jednym. W pewnym momencie wyskakuje mi informacja, że zasoby fizyczne do obliczeń są za małe i wyskakuje błąd. Spowodowane to jest tym, że z pliku głównego, gdzie są kopiowane arkusze do nowego pliku podczas mojej procedury początkowo...
nanTye , jeśli to jest Twój cały kod, to z zakresu źródłowego wklejasz tylko szerokości kolumn, a jeśli wklejasz pod spodem, to de facto nic nie zmieniasz, bo szerokości kolumn są i tak jednakowe. Musisz określić, co dokładnie chcesz wkleić z zakresu źródłowego i użyć odpowiedniej stałej w PasteSpecial, a jeśli chcesz skopiować wszystko, to wystarczy...
Kiedyś ktoś z tego forum obdarował mnie poniższym kodem. Wszystko działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? Wiem że mogę przyrównać zakresy ale jak to zrobić gdy ilość skoroszytów w lokalizacji jest zmienna ? [syntax=vbnet] Sub ImportujPlikizWieluLokalizacji() '...
Ok tylko nie dodałem najważniejszego, pracuje na Arkuszach Google, a tam z makrami chyba ciężko Przepraszam za brak info
W załączniku. Dziękuję za pomoc. Troszkę pozmieniałem, ale nie działa tak jak powinno. Dopisałem święta i pomimo to czyści komórki: Sub CzyscDane2() d = Weekday(Date) If MsgBox("Czy na pewno chcesz usunąć dane z tej tabeli? Pamiętaj, że stracisz je bezpowrotnie!!!", vbOKCancel + vbExclamation + vbDefaultButton2, "UWAGA! Usuwanie danych") = vbOK And...
Niestety, ja jedyne co Ci mogę podrzucić to makro odpalane z przycisku albo uruchamiane "zieloną strzałką": Public Sub KopiujMnie() Range("C3").Select Selection.Copy Range("E5").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Na funkcję nie mam pomysłu... ----- Edit: jest jedno "obejście"...
Nie czyścisz całego fragmentu (ceny), powinno być: [syntax=vb]wscel.Range("A2:E" & ost_wiersz_celu).ClearContents[/syntax] poza tym polecam wyłączyć odświeżanie ekranu. Jakaś obsługa błędów też by była na miejscu :), czyli: [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False On Error GoTo myErr '.... kod .... Application.ScreenUpdating...
Mały arkusz przykładowy masz w załączniku - wykorzystuje proste kopiowanie wierszy w pętli z arkusza źródłowego do docelowego. W pełni zgadzam się z przedmówcą, że tych przycisków coś za dużo - ba, sama idea kopiowania obrazków nie bardzo mi się podoba - wszak masz potem ten sam obrazek w dwóch miejscach... A znając tendencję niektórych ludzi do wklejania...
Witam, Może odpowiada Ci takie rozwiązanie: potraktować plik Excela jako "bazę danych", połączyć się samemu ze sobą i zapytaniem SQL wybrać interesujące Cię dane? Ja często używam takiego rozwiązania bo działa szybko i jest prostsze niż korzystanie z wielu zagnieżdżonych funkcji ;P Kod poniżej, dołączyłem też plik. Przed użyciem musisz w edytorze VBA...
Trzeba przechować w jakimś miejscu licznik utworzonych protokołów - wybieramy komórkę w arkuszu. Proponuję utworzyć/zarejestrować makro o nazwie Auto_Open: 1. zwiększamy wartość licznika o 1 2. zapisujemy plik (licznik zostanie zapamiętany) 3. Plik -> zapisz jako (powstanie nowy plik) ... 3a) jako nazwę pliku podajemy stały "przedrostek", np. "Zlecenie...
DZIAŁA! hura! wielkie dzięki! ale chyba jeszcze tu napisze, bo mam problem z kolei z wyświetlaniem liczb. Zamiast np. 1,8 to zwraca 1,7453256 i jak wpisuje formułe zaokr() to niby jest ok, ale z kolei źle przelicza. Tak się zastanawiam czy makrem nie potraktować całego arkusza.
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
A może zablokować pozostałe komórki żeby nie dało się ich edytować i wtedy po prostu pracownik musi wykasować wszystkie pozostałe komórki? Excel pozwala chronić arkusz z wyłączeniem konkretnych obszarów. Możesz te obszary zaznaczyć innym kolorem, żeby wiedzieli co mają wykasować.
Godzinę podałem przykładową gdyż dane będą zbierane tylko i wyłącznie do godziny około 22 zwykle wychodzi maksymalnie 21:45. I zostałem poproszony do stworzenia takiego projektu który właśnie miałbym się opierać na excelu gdzie z excela jestem czarna masa. Pozostaje mi jeszcze jeden problem a w zasadzie dwa: 1. Stworzenie makra które chwile po automatycznym...
Po pierwsze: zamieść przykładowy plik z tymi danymi. Istotna jest tylko "kolumna2", bo "kolumna1" zawiera tylko powtórzone nagłówki, które nic nie wnoszą. Istotne jest czy imiona i nazwiska są zawsze prawidłowo rozdzielone i czy są w osobnych komórkach, np. Anna Maria Bogusz-Kowalska. Mam na myśli to, czy jest zawsze tylko jedno imię lub jedna komórka...
Może jeszcze raz jaśniej opiszę temat. Potrzebuję makro, które do bazy(Arkusz2) dopisze dane jakby z dwóch zakresów. Jeden zakres Tabela1(kolumna 1 do Kolumna7) - do tabeli(Arkusz2) zapisuje się tyle razy ile dopisanych zostało wierszy z danymi z Tabeli2 W Arkusz2 - efekt jaki chcę uzyskać(bez formatowania, zaznaczyłem kolorami dla lepszego poglądu)...
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006” adresy email. Chciałbym aby pętla do każdego...
Witam, proszę o poradę jak zrobić, żeby makro sprawdzało mi czy jest któryś z checkboxów (są w kolumnie g6:g2000) zaznaczony i jeśli jest zaznaczony to kopiuje wartość z kolumny A (np. zaznaczony checkbox g20 to kopiuje a20 i wkleja do Arkusz2:A1 i wywołuje inne makro. Jeśli są 2 zaznaczone lub więcej ma wywalić komunikat że tylko jedno może być zaznaczone....
Poprawiłem mały błąd z kopiowaniem listy i czyszczeniem zakresów. Jak to działa? Przeanalizuj sobie makro "Filrt1" (krokowo, klawisz [F8]) Najpierw wejdź w nazwy (w E2007 Formuły>Menedżer Nazw) i przyjrzyj się zdefiniowanym wpisom. Są cztery. Trzy z nich dotyczą list poprawności danych dla komórek E2-E4. Makro "Filtr1" uruchamia filtr z opcją "bez powtórzeń"...
Dzień dobry, Proszę o pomoc przy pisaniu makra, gdyż w jednym miejscu zaciąłem się na dobre. Nie znam dobrze VBA, uczę się powolutku na swój sposób, dlatego proszę o wyrozumiałośc jesli kod jest niepotrzebnie długi, a komendy bardzo prymitywne :) Co potrzebuję zrobić: W jednym arkuszu xls mam wzór faktury do wystawienia, wypełniam odpowiednie pola (zajmują...
Potrzebuje stworzyć przycisk który wywoła drukowanie arkusza, wyczyści wpisane komórki i zamknie bez komunikatu. Arkusz wypełniają osoby co nie bardzo więcej potrafią. Jak zachowane będą stałe warunki to powinno działać. W exelu wytworzyłem coś takiego ni tam działa, ale w Calcu nawet jak częściowo coś na czuja pozmieniałem to nie do końca. Dodatkowo...
Witam chociaż nie znam VBA zrobiłem sobie program w C który wylicza dane a w exellu robi wykres moje makro wygląda tak [syntax=vb]Private Sub CommandButton1_Click() Set fd = Application.FileDialog(msoFileDialogOpen... With fd .Filters.Clear .Filters.Add "Pliki txt", "*.tx**; *.txt*" .InitialFileName = "c:\" .AllowMultiSelect = False If .Show = -1 Then...
arkusz makro makro arkusz makro otwierać arkusz
podgląd rejestrator logitech wzmacniacz uszkodzony buderus instrukcja serwisowy
podłącznie awaryjne budynku elektryk kombajn
Oznaczenia kwadrat i kółko na PCB dla diody Jak dopasować wężyk do otworu w gaźniku 4T?