Co Ty na to JRV? Gdyby arkusza, byłoby to rozwiązanie
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:...
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ć.
do C1 wstaw JEŻELI(CZY.PUSTA(A1);"";B1) i ukryj kolumne B, było tutaj też: http://www.elektroda.pl/rtvforum/topic12...
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.
W post #9 kod gdy czyszczenie komorek raz w dobie, pred zmianow 'noc'. tylko jest omyl, ma byc i = Application.Count(Range("e4:k4"))
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.
Myślę, że to nie photoshop. Sugeruję stopniowe czyszczenie zakresu.
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?
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,...
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...
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...
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)....
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.
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,...
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...
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_...
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...
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:...
Witam Wszystkich Jak na obrazku: https://obrazki.elektroda.pl/7048150100_... Opis: A2 ma sumować (dodać/odjąć) dowolną cyfrę z komórki C2, a następnie wyczyścić C2 żeby można było podawać kolejne cyfry. Najlepiej by było: w C2 wpisuję +100 lub -50 to dodaje lub odejmuje od A2 te wartości, a następnie czyści się. Znaki + i - w komórce...
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)...
Nie mogę utworzyć polecenia czyszczenia schowka po jego otwarciu. Chcę go obowiązkowo wyczyścić, gdyż mogą się tam znajdować jakieś elementy Robi się to linijką: Application.CommandBars("Clipboard").Con... Arkusz kopiuje do schowka "całą" komórkę, a ja chciałbym tylko jej zawartość tekstową. Jak świat światem to zawsze kopiuje do schowka...
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?
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...
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...
załącznik ściągałem dokładnie robi to o co chodziło tylko kopiowało całe komórki a nie same wartości, ale już wszystko ok wielkie dziękuję za pomoc
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 :!:...
Przepraszam że się wtrącam koledze adamas_nt'owi :) Przyznam że na podstawie makra podanego przez kolegę adamas_nt autor mógłby się pokusić o samodzielne stworzenie drugiego makra ale... dobry będę i dam w załączniku gotowca (Rozwiązań jest dużo ale jak zaznaczyłem makro jest podobne do wcześniejszego żeby było łatwiej zrozumieć - jeżeli oczywiście...
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ę ;)
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
wracam po małej przerwie :) z kolejnymi pytaniami do poprzedniego: jakby wyglądał kod ten co wyżej bez powiadamiania o błędzie (to niestety przeszkadza) z czyszczeniem pola tekstowego (po wstawieniu przeze mnie czyszczenia niestety całość się zapętla i wychodzi zupełnie coś innego niż powinno) nowe: dane w kilku kolumnach da się zrobić aby filtr działał...
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...
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 = ""...
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...
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...
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,...
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...
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...
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...
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...
Potrzebuję pomocy z plikiem. mam tabelę w arkusz1 te dane chciałbym kopiować. następnie dwa arkusze DANE i DANE2 te strony mają być puste. potrzebuję pomocy w automatyzacji kopiowania zawartości Arkusz1 do kolejnego arkusza począwszy od arkusz4. potrzebuję kopię arkusz1 z wyczyszczoną zawartością komórek .. Kod towaru, nazwa opis, wydana i numer partii...
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...
Czyści, bo: 06/12 " '<--- tutaj dopisz brakujące daty świat - miesiąc/dzień Który dzisiaj jest??? Dopisałem właśnie dla sprawdzenia 06/12 i nie zadziałało. Ile świąt tam zaznaczę tyle powinien excel czytaćm (tak, czy nie?)
Żeby się pozbyć skutecznie tego problemu zastąp: Target - Target.Address i Range("x17") - Range("x17").Address Upierdliwość powinna ustąpić. Edit: adamas_nt jak zwykle szybszy :D Masz teraz dwie możliwości do wyboru. Żadna z nich jednak nie spowoduje wyczyszczenia y17 w przypadku wyboru z listy w x17. Do czyszczenia zmusi Del lub edycja rzeczonej komórki....
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...
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...
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,...
[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]
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...
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ę)...
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...
Witam Pojawił się problem z czyszczeniem komórek, ponieważ przykładowa funkcja =JEŻELI(CZY.PUSTA(K3);"";"2015-01-17") nie działa w moim przypadku. Już tłumaczę o co mi chodzi: Mam dwie karty - 1 i 2 - w komórce np. C4 wpisuje datę szkolenia, które następnie poprzez zwykłe uzupełnianie ( ='1'!C4 oraz ='1'!C6) wrzucam w DWÓCH miejscach w karcie 2. Niestety...
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...
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...
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ść...
Dzięki, wszystko do tej pory działa dobrze - z tym że proszę jeszcze o pomoc w następującej sprawie. Kiedy wykonuję Wyczyść zawartość dobrze czyści 1 komórkę -przy większej ilości leci błąd. A druga sprawa to jeżeli daję Zmiana funduszy to powinno ustawić zmienną wiersz . Pozdrawiam
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...
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...
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...
Pozmieniałem trochę: 1) Wpisanie symbolu do pustej bez zmian, wkleja wartości+formaty 2) Zmiana symbolu (Np było "A", zmieniamy na "B") kopiuje tylko formaty, wartości pozostają bez zmian Podmiana grafiku: Klawisz [Del] czyścimy, wpisanie symbolu wkleja wartości+formaty (jak w pkt.1) 3) Przycisk [Przemaluj Grafik] działanie: Ustaw kursor na komórkę...
Proszę o poradę odnośnie kodu, jak pod ComboBox podpiąć listę towarów z arkusza Towary, a po wybraniu danego towaru z listy, wpisać Ilość i dopiero po kliknięciu na DOPISZ wkleja dane do arkusza WZ w komórki odpowiednio C19 (nazwa towaru) i X19 (ilość) - i czyści pola ComboBox i TexBox. Wybranie następnego towaru wstawia w następny wiersz wolny (C20...
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...
Witam, Poszukuje pomocy, mianowicie próbuje znaleźć rozwiązanie, aby były wykonywane automatycznie następujące czynności: -przenoszenie podsumowań kolejnych dni z jednego arkusza do kolejnych pustych pól arkusza z danymi archiwalnymi. -czyszczenie pól w arkuszu z danymi i zmiana dat w nagłówkach na te z danego miesiąca -przenoszenie danych z konkretnych...
Kurcze, jeżeli chodzi o VBA to jestem zaczynającym samoukiem. Nie znam reguł stosowania wszystkich funkcji. Mogę prosić Cię o rzucenie okiem na mój kod i poradzenie w jaki sposób użyć Twojej funkcji? [syntax=vbscript] Private a As Integer 'zmienna globalna Private haslo As String Sub MsgBox_error1() 'wyświetla omunikat o błedzie MsgBox "Wypełnij wszystkie...
ok - bardzo ciekawa opcja jeżeli rozchodzi się o brak VBA. jednak jak by to wyglądało gdybym chciał to wmieszać w język VBA ? Ponieważ w przypadku dużej ilości danych wersja bez makra będzie powodowała dużą ilość formuł oraz zwiększanie się wielkości pliku excel. Przykład w załączniku zgrywania danych gdy mamy dwie wartości podane - czy da się ten kod...
Cześć. Mam spory problem i szczerze mówiąc nie mam aktualnie nawet pomysłu na rozwiązanie. Otóż otrzymujemy w firmie raport dotyczący przewozu jakie wykonali nasi kierowcy - dostajemy go co tydzień. Raport służy nam do wypłacania kierowcom należnych kwot i uwzględnia każdy pojedynczy przejazd wykonany przez kierowcę, wygląda to mniej więcej tak: Imię...
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...
Nie ma najmniejszego powodu stosowania w procedurach które dotyczą kopiowania czy też czyszczenia zakresów, metody Select . Mimo, iż procedury są w miarę poprawne, można z dużym prawdopodobieństwem powiedzieć, że używanie Select , znacznie je spowalnia. .. Witam Serdecznie dziękuję za udzielone rady - są bardzo cenne. Jak pewnie zauważyłeś nie skupiałem...
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...
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...
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...
Witam, Kodowanie VBA w exelu zajmuje się dopiero około tygodnia i trafiłem na problem. ( jak to amator :) ) Chciałem stworzyć przycisk z makro które będzie dodawać lub odejmować wpisaną wartość z konkretnej komórki w arkuszu1 do bazy danych w arkuszu2 wraz z zapisem i czyszczeniem komórek pod nowe dane za pomocą jednego przycisku. Przykład dostawca1...
Witam, czy ktoś mógłby podać kod makro na taki problem: mam plik excell i 2 kolumny. Chcę, by zmieniając jakąś wartość w kolumnie A (np było B -zmieniam na C) czyściła mi się komórka w tym samym wierszu w kolumnie B. Będę wdzięczna za podpowiedź.
Uwagi: 1. Nie ustawiaj na sztywno w projekcie formatki, to co potem ustawiasz programowo - ilość kolumn "ListBox2" 2. Czytaj składnię poleceń/obiektów i ich ograniczenia - maksymalna liczba kolumn w "ListBox" to 10, a w pętli próbujesz ustawić wartości dla 13 kolumn: 912728 Po wpisaniu daty w "TextBox" klikasz pole "Data" w "ListBox1", zwrotnie do pola...
... działa świetnei do momentu, kiedy zamiast 6 produktów faktura ma 7 produktów, tak więc dodaje nową linie z produktem, co automatycznie przesuwa mi komórke C5, w której ma byc numer zamówienia jedna linie niżej czyli teraz mój inputbox musi wstawi numer zamówienia do komórki C6, a nie C5. Ale przy powyższym kodzie zawsze będzie wstawiał do C5 -...
Nie wytrzymałem i zajrzałem jeszcze na forum :) Wielkie dzięki działa super!!! W prowadziłem maleńką kosmetykę: Sub FORUM2() Sheets("Arkusz2").Sele... Dim NumerWiersza As Integer Dim NumerKolumny As Integer Do While Arkusz1.Range("A2") <> "" If Arkusz1.Range("Z2").Va... <>...
Ponieważ miałem chwilkę czasu to pozwoliłem sobie pobawić się z rozwiązaniem. i proponuje np tak: [syntax=vb]Sub przestaw() 'czyszczenie Sheets("Tabela").Cells.Delete Shift:=xlUp 'Obliczenia graniczne ost_wiersz = Sheets("Dane_wyjściowe").UsedRange.Rows.... ost_kol = Sheets("Dane_wyjściowe").UsedRange.Colum... x = ost_kol - 7 If x <= 0 Then...
Dzięki wielkie. Kod musiałem lekko zmodyfikować i ostatecznie wygląda jak poniżej i działa jak najbardziej poprawnie :) Dodano po 12 Mój kod ostatecznie wygląda tak: [syntax=vb]Sub Czysc_Wszystko() If MsgBox("Wyczyścić wszystkie formularze 'Dniówek'?", vbQuestion + vbYesNo, "Potwierdź") = vbNo Then Exit Sub Dim i As Integer, j As Long, w As Long Application.ScreenUpdating...
Witam Mam takie makro wyrzuca mi debuga w jednym miejscu i nie moge dojś dlaczego? Co jest nie tak? Private Sub cmdEdytuj_Click() ' Wprowadzenie danych z listy do okienek pozycja = lstSala.ListIndex If pozycja = -1 Then MsgBox "Nie wybrano danych do edycji" & Chr(10) & "Wybierz dane do edycji." Exit Sub End If For k = 1 To 29 Controls("txt" & k & "v").Value...
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...
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...
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ć...
Kod pobiera dane i robi raport. Tyle, że robi jeden a ja potrzebuję każdy wiersz w osobnym... i to w osobnym arkuszu a nie skoroszycie. Patrz załącznik. Private Sub CommandButton1_Click() 'ustawiamy arkusz z danymi testowymi Dim wksDaneTestowe As Worksheet Set wksDaneTestowe = ThisWorkbook.Worksheets("Test&q... 'tablice zawierajace...
Ktoś już wrócił z egzaminu praktycznego pisanego o 15.00? Wiadomo już jakie były zagadnienia? Uprawnienia do folderu, czyszczenie folderu i pulpitu, uprawnienia do pulpitu użytkownika, zasady haseł (wymuszenie). Ogólnie proste, ale nikt u nas nie zrobił odznaczenia "proste uwierzytelnianie" i nie pojawiły się im zabezpieczenia:) Tylko ja to zrobiłem....
Obsługa CheckBox-ów w VBA jest niezbyt intuicyjna i jeszcze zależna od wersji Excela. Z Twojego opisu wnoszę, że używasz wersji 2010 lub wyższej. Proponowane rozwiązanie testowałem w wersji 2010 i 2016. W 2007 na pewno trzeba to rozwiązać inaczej. Przy większej liczbie kopii kontrolek trzeba je wstawiać dodatkowym kodem. Również przy czyszczeniu arkusza...
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...
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 ?
A więc mam już wszystko prawie gotowe poza... No właśnie pojawił się kolejny problem. Mianowicie w każdej nowo tworzonej zakładce dodają się wartości z poprzedniej i sumują z wartościami pliku. Czy ktoś wie moze dlaczego? Dołączam spakowany plik a w nim przykładowe pliki oraz arkusz. Z góry dziękuję za pomoc. Dim Data As String Sub ProCollector()...
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]
lub całkowicie pominąć wyświetlanie MsgBox? Chodzi o wyeliminowanie konieczności kliknięcia "OK". Przecież w podanym wyżej kodzie nie ma msgboksa. Jaki kod spowodowałby skopiowanie otrzymanego teraz tekstu do konkretnej komórki określonego dokumentu w Excelu? "Widzę", że czym więcej pytań tym, mniej pracy z twojej strony a więcej z mojej. Mogłeś napisać...
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ą...
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...
czyszczenie komórki excel scalone komórki excel puste komórki
podsłuch telefon analogowy włącznik lampa stać junkers cerapur podłączyć sterownik
uzwojenie silnika schemat elektryki skutera
Lokalizacja i opis przekaźnika wycieraczek Seat Leon FR 2016 Cubase vs Nuendo: Rozdzielanie ścieżek WAV z X32