W post #9 kod gdy czyszczenie komorek raz w dobie, pred zmianow 'noc'. tylko jest omyl, ma byc i = Application.Count(Range("e4:k4"))
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ć.
Cześć Mam mały problem z którym nie mogę sobie poradzić, nie potrafię użyć funkcji która znajdzie i wyczyści komórkę. w danym wierszu automatycznie. mam w danej kolumnie użyte formatowanie warunkowe, Pole wyboru Przykład Wiersz H1 zawiera pole wyboru z informacją: Oczekuje na serwisanta. rozwijane na 3 różne pozycje Wiersz I1 również zawiera pole wyboru:...
No to trzeba było od razu... Najprościej (znooowuuu) zbić string z dwóch (lub więcej - aż do uzyskania unikatów) kolumn. W przykładzie (dostosuj do swoich danych) D, wykrzyknik i C zapisywane w kolumnie K.[syntax=vb]Sub SortE() Dim wrsOst As Long Dim rw As Long Dim lista() As Variant Dim poz As Integer Dim i As Long, j As Long Dim ile As Integer Dim...
Co Ty na to JRV? Gdyby arkusza, byłoby to rozwiązanie
Mam pytanie odnośnie usuwania danych w komórkach Mam jeden skoroszyt który pełni funkcje wzoru "wzór.xlsm". Po jego wypełnieniu i użyciu makra zapisz , zapisuje się on w określonej lokalizacji jako kolejny numer pobrany z komórki np: "12.test.xlsm" Jak zrobić żeby w momencie otwarcia tylko i wyłączenie wzoru czyścił mi dane z określonych komórek. W...
Witam, Mam problem: w Excelu mam 2 komórki o zawartościach: A1: 6576543,83 i B1: 6567617,01 w trzeciej komórce wpisuję formułę: =A1-B1 i w wyniku otrzymuję 8 926,82, jednak nie jest to dokładnie ta liczba (formuła porównująca tą komórkę z taką samą liczbą wpisaną z palca zwraca fałsz), po ustawieniu formatu liczbowego do 30 miejsc po przecinku widać:...
Witam. Czy istnieje sposób w excelu by dane w kolumnie (1), w których wypełnione komórki mieszają się z pustymi. Zaprezentować w kolumnie (2) tak by pojawiły się w niej tylko komórki mające jakąś wartość w kolumnie(1). np: komuna 1* Jaś Anna Piotr Jarek Emil kolumna 2* Jaś Anna Piotr Jarek Emil *kolumny 1 i 2 oczywiście nie leżą jednak pod drugą. Faktyczne...
mam problem wpisuje w komorce w EXCELU np. "032545" i przechodze do nastepnej i mi zero ucina : "32545" jak to zmienic??
Witam. Mam do poprawienia i wydrukowania pewien arkusz excela. Dokument składa się oczywiście z wielu wierszy, niestety pewne wiersze są do pominięcia bądź trwałego usunięcia (wydruk arkusza na papierze nie ma zawierać tych wierszy, jak również nie mają one być sumowane). Wiersze które są do usunięcia zawierają komórkę z ujemną zawartością liczbową....
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...
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...
Dwa razy w roku wykonuję na sprzętach z kolumn A-D (naliczenia na wszystko) takie konkretniejsze czyszczenie malowanie. Aby tego dokonać moi pracownicy muszą pobrać od magazynierów poszczególnych rodzajów materiały do tego celu magazyn farb, paliwa, elektryczny. Więc w tym arkuszu wykonałem sobie takie ogólne naliczenie rzeczy potrzebnych od tych magazynierów...
Wszystko OK, tylko nadal nie znikają wartości pól które mają znikać. Chodzi konkretnie o to że, wybieram po kolei Wał -> Odkuwka -> Dokładna -> Wały krótkie, stopniowane, bez otworu osiowego -> S1 -> M1 , po czym zmieniam zdanie i zmianiam Wał na Tarcza to S1, M1, Wały krótkie, stopniowane, bez otworu osiowego, Dokładna powinny zniknąć, a tak się nie...
Jest tam kilka funkcji. Między innymi Calculate, change, Dectivate ale nie widać ich w tych kilku skopiowanych od Ciebie linijkach. Musisz Kolego pocztrać sobie trochę o VBA w Excelu. Proponuję wygooglać kurs VBA - jest tego mnóstwo. Te 'kilka funkcji', to zdarzenia arkusza. Działa to tak, że jak np. w kodzie którym napisałem, jeżeli nastąpi podwójne...
A jak to zapisać w pętli aby komórki poza zakresem były czyszczone? W załączeniu kod, ale jest błędny bo usuwa mi zakres :( Pozdrawiam
Dzień dobry, Należało załączyć przykładowy plik do testowania. W tekście jest błąd składniowy "Is Numeric" powinno być jednym słowem. Ponadto wewnętrzny warunek pętli nie może być nigdy spełniony, bo gdy komórka jest pusta, to funkcja IsNumeric zwraca True, a tu jest koniunkcja warunków. Pozdrowienia.
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.
ylo zaznaczone tylko 6 bo tyle jest par Prawdopodobnie chodzi o coś takiego: [syntax=vb]Sub FindUniq() Dim a, b As Byte Dim r As Range Dim re As Range Dim maxIndexA, maxIndexB, aa, bb, bc As Integer a = 2 'kolumna do zakolorowania b = 40 'kolumna śmieciowa Excel.ActiveSheet.Columns(a).Copy Columns(b) Excel.ActiveSheet.Columns(b).RemoveDupli... 1...
Myślę, że to nie photoshop. Sugeruję stopniowe czyszczenie zakresu.
ponieważ swoje się wstydzę... Rety, to coś Ty tam wypisał :D Wklej do arkusza źródłowego taki [syntax=vb]Private Sub Zapisz() With Sheets("Zestawienie ofert") wDst = .Range("D1").End(xlDown).Row + 1 'klient 'data 'kwota łącznie For i = 2 To 4 wSrc = 3 Do While Cells(wSrc, 2) <> "" .Cells(wDst, i + 2) = .Cells(wDst, i + 2) & Trim(Cells(wSrc,...
Np taką procedurą zdarzeniową (wklej w kod arkusza)[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim wrs As Integer If Not Intersect(Target, Range("B9:B20")) Is Nothing Then If Target = "wybierz z listy" Then wrs = Target.Row + 23 'czyścimy Target.Offset(0, 1) = 0 Cells(wrs, 6) = 0 Cells(wrs, 7) = 0 End If End If End Sub[/syntax]Rozumiem,...
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...
Przypadkiem nacisnąłem w Excelu 2003 CTRL+cudzysłów. To zmieniło zawartość komórki z datą na cyfrę. Spróbowałem na kilku innych i czasem różne daty zamieniało na tą samą cyfrę, a w niektórych przypadkach czyściło komórkę. Co to jest za skrót?
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)...
Jak zrobić w Excelu coś takiego, że: 1. W danym polu wpisuję wartość 2. Ta wartość automatycznie przenoszona jest do następnego pustego wiersza w tabeli (tak więc adres komórki może być różny) 3. Gdy wartość zostanie już tam umieszczona zawartość komórki jest czyszczona i można wpisać kolejną wartość (która zostanie przeniesiona do kolejnego wiersza)....
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...
Samo przepisywanie jest załączniku, ale nie wiem na ile to się przyda w tym co chcesz osiągnąć... Każdorazowo obszar do którego dane są kopiowane jest czyszczony i są one dodawana od początku.
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...
O rany, to jest jeszcze lepsze rozwiązanie jak to co miałem kiedyś. W tym rozwiązaniu nie muszę wpisywać znaku '+' :D Dziękuję bardzo. A jak ominąć błąd, kiedy chcę wyczyścić komórkę? Jak czyszczę komórkę to wyskakuje błąd: https://obrazki.elektroda.pl/6815807800_...
To tylko za pomocą makr. Np. tak: Dim kolor(40) As Integer For y = 1 To 93 For x = 1 To 24 For i = 1 To 40 If Cells(y + 4, x + 2).Interior.ColorIndex = i Then kolor(i) = kolor(i) + 1 Next i Next x Next y For i = 1 To 40 Cells(i + 4, 28).Interior.ColorIndex = i Cells(i + 4, 28).Interior.Pattern = xlSolid...
Z całym szacunkiem ale nie prosiłem o sprawdzanie poprawności formatowania mojego arkusza, dość dobrze sobie z tym radze i to jest na razie tylko wersja robocza gdzie co dzień poprawiam co innego. Powyższe pytanie proszę potraktować jako nieaktualne - poradziłem sobie w inny sposób bez makra. TERAZ PROSZĘ O POMOC W UŁOŻENIU INNEGO MAKRA - a mianowicie:...
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?
Za dużo kombinujesz ;) Wszystko można zmieścić w takim oto kodzie, komentarze - bez zbędnych dywagacji - w kodzie :) Mam nadzieję że zasadza działania jest jasna? W zasadzie to tylko pętla po wierszach i kolumnach + parę if'ów tłumaczących format excela na worda. "Sekret mnicha" tkwi w tym, żeby ustawić format paragrafu w Wordzie przed wypisaniem tekstu,...
Oczywiście ta funkcja działa mi poprawnie. No jeśli tak :?: tj. działa poprawnie w bloku pierwszym to zamiast działań typu [syntax=vbscript]Selection.SpecialCells(... trzeba przeprowadzić czyszczenie skopiowanego obszaru (tj. bloku 2 i ewentualnie następnych) jedynie w komórkach z Interior.ColorIndex = 24 :!:...
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...
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...
Wcześniej nie pobierałem pliku ;) Akcja dotyczy tylko jednej komórki... Zrób jak radzi walek33 [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$X$17" Then Range("y17").ClearContents End Sub[/syntax]
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...
Tak, prawie o to chodziło - WIELKIE DZIĘKI! Chociaż nie powinno czyścić wiersza 6 z automatu, bo czasem trzeba zmienić tylko jeden parametr (np. cenę netto lub płeć), a przy czyszczeniu automat. trzeba wszystko wypełniać jeszcze raz. Myślę jednak, że sam to ogarnę ;)
Czegoś nie rozumiem: 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). W kolumnie 1 nie masz pustych komórek.... A w kolumnie 2 w wierszu 2,4 i 5 komórki są już wyczyszczone...
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...
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...
[syntax=vb] Sub czyszczenie() Dim ow&, r&, oc&, wr& ow = Cells(Rows.Count, 1).End(xlUp).Row r = 1 While r <= ow If Cells(r, 1) <> Empty Then oc = Application.Match("wymiar", Rows(r - 1), 0) - 1 wr = Cells(r, 1).End(xlDown).Row Range(Cells(r, 2), Cells(wr, oc)).ClearContents r = wr End If r = r + 1 Wend End Sub [/syntax]
Wykonałem taki arkusz dla ciągów z powtórzeniami. Nie wiedziałem czy mogę użyć VBA, bo tego nie napisałeś, dlatego wykonałem wszystko używając formuł Excel. Teraz w kolumnie A wystarczy wpisać kolejne liczby zbioru, w komórce B2 podać liczbę elementów zbioru, a w kolumnie C pojawi się wynik zapisany w pionie w kolejnych komórkach. Liczbę losowanych...
Dzień dobry, Obawiam się, że formułami to byłoby trudno osiągnąć. Można próbować za pomocą makr, ale należałoby dokładnie określić co te makra mają robić i w jakim zakresie komórek. Więc jeśli makra wchodzą w grę to trzeba określić: jak będzie określony zakres komórek, w którym makro ma działać. Rozumiem, że byłoby to jedno lub dwa makra - jedno inicjujące,...
Ojej tego się obawiałem, a z tego co teraz napisałeś to zrozumiałem że potrzebuje aplikacji i jestem w czarnej D*** :D w sumie to najbardziej mi zależy na tym żeby to samo dodawało 1+1+1 czy tam +10 jak odejmę z tamtego a najwyżej mogę to czyścić ręcznie. Chyba że jest tu jakaś dobra dusza która by mi pomogła to ogarnąć mogę udostępnić plik na którym...
Dzień dobry, Nie rozumiem co miałbym modyfikować. Tak jak napisałem, gdy arkusz jest czyszczony przed wprowadzeniem nowych danych trzeba ustawić RESET na wartość różną od 0 i wprowadzać dane nie przejmując się tym co się pojawia w Arkuszu3. Gdy wszystkie dane będą wprowadzone wtedy dopiero ustawić RESET na 0. Czy chodzi o to, że już w stanie aktywności...
Tak, jak napisał clubs. wskazując myszką dowolny plik excel- arkusz i zakres komórek Tutaj by trzeba wstrzyknąć kod do otwieranego pliku. Forumowicze - dziękuje za pomoc acz jak się okazało metoda i InputBox przy ustawieniu TYPE=:8 zwraca wybrany myszką zakres jak zmienną typu Range i jest niemal idealna. Mając obiekt Range mogę pobrać Zakres komórek...
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...
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
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...
Zastanawiam się nad zasadnością użycia tablicy. Sprawdzasz tablicę, przepisujesz komórki. Można to uprościć. W drugim arkuszu czyścisz zawartość wszystkich komórek, łącznie z nagłówkiem. Ogranicz do zakresu wykorzystując funkcję "Last". Włączając uwagę kolegi marcinj12 , po mojemu wystarczy [syntax=vb]Sub KOPIUJ_WYBRANE() Dim OstW As Long Dim x As Long...
jesli 70% to smieci to mozesz czyscic pliki funkcjami w stylu np: [syntax=vb]=if(len(a1)>31,0,a1)[/syntax] Jesli ktos ma imie i nazwisko dluzsze niz 31 (20?) znakow to wyrzuci zero, a zero to juz cos ;) oraz jesli jest spacja pomiedzy imieniem i nazwiskiem to: data\text to columns (po polsku chyba dane\tekst jako kolumny) i odzielac po spacji. to co...
Witam, potrzebuję pomocy w napisaniu formuły automatycznie liczącej wartość prowizji od kredytu. Tzn w komórce A1 mam wartość kredytu, B1 długość kredytu C1 wartość prowizji np 10 m-cy 1000 PLN wartość prowizji 2% z 1000 11 m-cy 1000 PLN wartość prowizji 2,1% z 1000 20 m-cy 1000 PLN wartość prowizji 2,9% z 1000 itd. Stosowałem funkcję jeżeli ale ona...
czyszczenie komórki excel scalone komórki excel puste komórki
usuwanie konta użytkownika windows żelazko stopa bosch zmiana częstotliwości przetwornicy
saunier duval saunier duval zawór trójdrożny
Kamera Panasonic NV-DS29 wyłącza się po kilku sekundach Suszarka Miele zatrzymała się na programie końcowym
