... 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...
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??
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...
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ć...
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...
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,...
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...
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...
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...
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)...
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...
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 =...
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
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)...
Ok tylko nie dodałem najważniejszego, pracuje na Arkuszach Google, a tam z makrami chyba ciężko Przepraszam za brak info
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ć. ---------------------------...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
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...
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,...
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...
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
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
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...
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.
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...
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...
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...
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.
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...
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...
Przerobilem to makro tak, ze powinno juz dzialac tak jak chce. Kod ponizej [syntax=vb] Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim row As Integer On Error GoTo qInst Set oExcel = CreateObject("Excel.Application") row = Cells.SpecialCells(xlCellTypeLastCell).r...
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...
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...
Dwie rzeczy na pierwszy rzut oka można uprościć: - zamiast wypisywania kilku warunków dla których linijka ma być ignorowana, przed wejściem w pętlę odczytu pliku zdefiniuj sobie tablicę z tymi wartościami, coś w stylu: zawsze jest to nadmiarowe i niepotrzebna, bo dwie kolejne linijki można ściągnąć w jedną: [syntax=vb]Columns("A:A").ColumnWidth = 12[/syntax]...
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ą...
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...
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...
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...
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...
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...
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...
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ą...
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:
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...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W kodzie, który zamieściłeś (Sub KCKW): 1. Brak jest...
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.
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ą...
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]
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...
aby usuwał/czyścił kolejny wiersz jesli to 'nw', to on zawsze czysty, na ktorym arkusze ten "kolejny" kod mozna skrocic [syntax=vb] nw = Sheets("TABELA Z DANYMI").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("B4,D4,F4,H4,J4,L4,N4,P4").Copy Sheets("TABELA Z DANYMI").Cells(nw, 1).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Range("B4").Select...
arkusz makro makro arkusz makro otwierać arkusz
mechanizmy magnetofonów mazda pompa wtryskowa karta pamięci goodram
brother drukarka lutownica zwarcie
Brak wyświetlania prędkości i świecenie kontrolek w Citroen C3 Przeróbka butli nurkowej na techniczną - bezpieczeństwo i przepisy
