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ć. ---------------------------...
Proponuję zmienić na początku kodu - dodać drugą pętle, która sprawdzi drugą komórkę i wyczyści "częściowy wpis" z pierwszej - zasada "jak zapomniałeś jednej to wpisuj ponownie obie" (jak nie pasuje taka zasada to wystarczy wyciąć te dwie linijki czyszczące) :D [syntax=vbscript]With ActiveSheet If .Range("C2") = "" Then MsgBox " Proszę wpisac datę i...
Przyznam że nie wiem o co chodzi. Może coś nie tak z systemem sprawdź antywirem i antyronbakiem. Ja znalazłem pewien "dziwny" błąd bo nigdy się z tym nie spotkałem. Ponieważ był monit o Useform1 (standardowa nazwa okienka) podejrzewałem, że inny arkusz ma podobnie okienko i makro się gubi niewiedząc które włączyć (nie powinno ale ...) Postanowiłem zmienić...
Prosty przykład w załączniku.
Spróbuj [syntax=vb]Sub Usundane() ' ' Usundane Makro ' Makro zarejestrowane 2012-05-22, autor XYZ ' If MsgBox("Czy na pewno chcesz usunąć dane osobowe z tej tabeli? Pamiętaj, że stracisz je bezpowrotnie!!!", vbOKCancel + vbCritical + vbDefaultButton2, "UWAGA! Usuwanie danych") = vbOK Then Range("C11:AC50").ClearContents End If End Sub[/syntax]
If rCell.Value = "" Then rCell.ClearContents End If Jak stosujesz taki kod ("jeśli komórka jest pusta to ją wyczyść" :D ) - to trudno się dziwić Excelowi, że długo sprawdza co autor miał na myśli :please:
:arrow: adamas_nt Uświadom laika co to zmieni? PS. Laik tutaj to ja.
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...
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...
W pierwszym poście chciałeś aby makro, po wyczyszczeniu zawartości komórki "X25" czyściło listę z zakresu H20:J20. Analogicznie wyczyszczenie X22, X18, X13 czyściło H18:J18, H14:J16, H12:J12, nie zapętlając się w trakcie. Tak to teraz dokładnie działa. To co się dzieje w innych komórkach zależy od algorytmu który realizują Twoje formuły. Niestety nie...
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 ?
makro czyszczące dane z bloku pierwszego jest celowo przypisane tylko do pierwszego bloku Nie zrozumiałeś lub nie doczytałeś mojego postu :D ja pisałem tylko o Twoim makrze "dodaj" zamiast działań typu Kod: vbscript Chodzi o to, żebyś w tym makrze "dodaj" wymienił sekwencje czyszczącą na procedurę czyszczenia zastosowaną uprzednio (z powodzeniem) w...
Takie proste makro (można też nagrać): [syntax=vb] Range("A6:A16").Select Selection.FormatConditions.Delete [/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ą...
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
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ć...
Może definiować zakres "Kryteria" w makro (bez używania nazw)? Zerknij do załącznika. No i zmieniłem zasadę. Puste kryteria, to wszystko na liście... Edit: podmieniłem załącznik (czyszczenie kryteriów)
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ć.
Witam! Proszę o pomoc w napisaniu makra, które będzie uruchamiane za pomocą przycisku. Zadaniem makra będzie dodawanie wartości z pól: K5-K25 do pól C5-C25. A następnie makro to ma czyścić dane z pól K5-K25....
... 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...
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)...
W załączeniu przesyłam plik z makrem na czyszczenie kontrolek ComboBoxa. Chodzi mi o to, że makro za każdą zmianą danych w kontrolce "Kraj" czyści kontrolki "Typ" i "Rodzaj" a nie czyszci kontrolki "Zakres". W założeniu moim chodzi mi o to, żeby po wybraniu danych w kontrolce "Kraj" i po wyczyszczeniu trzech pozostałych kontrolek można na nowo wybrać...
A w VBA to będzie coś takiego (tylko z indeksami kolorów i ewentualnie warunkami można trochę pokombinować): [syntax=vb]For Each kom In Range("A1:A23") If IsDate(kom) Then If kom >= Date - 2 And kom < Date Then kom.Interior.ColorIndex = 45 ElseIf kom >= Date - 7 And kom < Date Then kom.Interior.ColorIndex = 3 Else kom.Interior.Color = xlNone...
Witam. Nie mogę sobie poradzić z marko do excela. Makro miało by wykonywać zadanie. Mam 2 kolumny danych: 1 3 5 3 5 6 7 7 7 Makro miałoby czyścić komórki w kolumnie 2 w momencie, gdy w kolumnie 1 komórka jest pusta ( w przykładzie w wierszu 2, 4, 5 miałoby wyczyścić komórki w kolumnie 2). Poproszę o jakieś sugestie. Pozdrawiam serdecznie
Może przeróbka Twojego makra? Dorobiłem pętlę, czyszczenie filtru, utworzenie i zapisanie nowego pliku, etc. Działa z plikiem z załącznika, wymaga "dopieszczenia".[syntax=vb]Sub Max() Dim lngLastRow As Long Dim rngToCheck As Range Dim varList As Variant Dim WorkRange As Range Dim ostWrs As Long, vList As Variant 'ostWrs = Sheets(3).Range("c65536").End(xlUp).Row....
Jaki to aparat? Może masz ustawiony tryb makro? Na obiektywie są tylko te ryski? może próbowałeś czyśćić i cały jest zmatowiony? Pzdr
Ad.1 Jeśli makro jest w 'Thisdocument;, to nie. Jeśli gdziekolwiek indziej (moduł, normal, inny plik), to musi być nazwa lub indeks: 'Documents("nazwa").Tables(1)' Ad.2 To zależy. Jeśli tabelka ma zmienną ilość wierszy, a odwołujesz się do Np ostatniej, to: [syntax=vb]rw = Documents(1).Tables(1).Rows.Count kol = Documents(1).Tables(1).Rows(rw).Cells.Co...
Oki to jutro kupię sprężone powietrze i będę próbował czyścić. Papier to z makro używam go na tym sprzęcie od początku.
Ok tylko nie dodałem najważniejszego, pracuje na Arkuszach Google, a tam z makrami chyba ciężko Przepraszam za brak info
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...
W każdej Castoramie, w każdym Auchanie i w każdym Makro kupisz zamienniki przeznaczone do mycia samochodów.
A jesteś w stanie wrzucić plik lub jakaś próbkę ? Ciężko szukać przyczyn po Twoim opisie. Czy w pliku są jakieś makra? - może komórki są automatycznie czyszczone lub formatowane. Jakie rozszerzanie ma nazwa pliku (xlsx, xlsm czy inne)? A może csv?
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...
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
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,...
No ale skoro napisałaś makro sama, to jaki problem dopisać [syntax=vbscript]Range("A1:A10").ClearCo...
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,...
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
Tak dokładniej to by trzeba było pisać jakieś makro jak by było wiadomo że po oo jest tyle samo znaków mozna by było poprzez zastąp zastąpić tekst "niczym" np oo^?^?^?^?^?^?^?^? przy czym "^?" to tak zwany dowolny znak w tym i "enter" więc zjada wszystko. Myślę że bez makra się nieobędzie
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)...
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ą...
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...
Może faktycznie lepiej by było bez przycisku w takim razie ale wtedy ten "+" musiałby również znikać. "L" bym raczej zostawił chyba, że z jakiegoś powodu powinno być w makrze.
To jeszcze raz plik po zmianie selekcji się aktywuje makro. i pojawia wpis w jednej komórce.. po kliknięciu w inny obszar niż żółty wpis jest czyszczony.
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...
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...
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...
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....
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...
Powinno pomóc: Niestety nie pomaga. Komunikat pojawia się wtedy, gdy makro pobiera dane z pliku w którym jest trochę większa liczba wierszy. Nie wiem dokładnie jaka jest ta granica (załóżmy że 5 wierszy), ale jeśli plik zawiera jeden, dwa, lub trzy wiersze, wtedy komunikat się nie pojawia. Zawartość schowka to wszystkie dane z pliku z którego makro...
czyść zaparzacz czyść laser czyść czujnik zewnętrzny
amplituner wylacza realtek wyjście słuchawkowe rozliczenie energii ciepła
schemat ekspresu delonghi stabilizator napięcia
Opel Meriva A 1.3 CDTI – świst turbiny po odjęciu gazu, diagnostyka, typowe usterki TomTom GO 600 – komputer nie wykrywa urządzenia przez USB, MyDrive Connect, sterowniki RNDIS
