W post #9 kod gdy czyszczenie komorek raz w dobie, pred zmianow 'noc'. tylko jest omyl, ma byc i = Application.Count(Range("e4:k4"))
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...
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ć.
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...
Co Ty na to JRV? Gdyby arkusza, byłoby to rozwiązanie
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.
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]
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...
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...
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]
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...
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...
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ść, 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...
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ę...
Witam, potrzebował bym małej pomocy. Otóż mam tabele tak jak poniżej. W tabeli mam wiersze które się dublują. Niestety nie dublują się one w kolumnach tylko w wierszach co utrudnia sprawę. http://obrazki.elektroda.pl/8507180000_1... Czy ktoś by mógł podpowiedzieć jak usunąć zdublowane wpisy pozostawiając tylko oryginał czyszcząc tylko...
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ź.
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...
witam, dziwne to co mi wychodzi dlatego zwracam się do Was. Mam tabelkę w zakresie komórek c11:ac50. W tabeli tej mam różne dane osobowe. Po jakimś czasie chciałbym nanieść do tabelki nowe dane. Tak więc postanowiłem wstawić makro czyszczące dane. Ustawiłem makro i działa jak należy. potem chciałem, aby po naciśnięciu przycisku wyskakiwało mi okienko...
... 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...
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...
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...
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...
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...
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...
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...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
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ł...
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...
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... <>...
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...
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...
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...
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ć...
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....
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,...
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...
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()...
I o to chodziło, teraz mój projekt szaleje. Dzięki za podpowiedź odnośnie tego czyszczenia komórek -faktycznie znałem to, ale jakoś nie pomyślałem o tym, chociaż prawdę mówiąc czyszczenie nie muliło tak jak wpisywanie formuł dlatego pewno nie pomyślałem o tym. Projekt zakończony, dziękuję wszystkim za pomoc.
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)...
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ć...
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]
Witam; Potrzebuję makra, które wykona następującą czynność: Zapisze dane z Arkusza1 do Arkusza2 (Tabela 1) Kolumna od1 do kolumna7 mają być wypełniane jeden raz ale po zapisie do tabeli muszą się dopisać do każdej pozycji z (Tabeli 2 ) W Tabeli2 może być wypełniony jeden wiersz, dwa , trzy lub wszystkie, w zależności od potrzeb. Po dopisaniu do tabeli...
Witam, Mam problem z operacjami na arkuszu, komórkach z poziomu funkcji. Mam kod, jak poniżej i na koniec, po warunku, chciałbym aby np. dane komórki (aktywna i sąsiednia wyżej) zostały oczyszczone z zawartości lub zmieniły kolor na inny. Niestety formatowanie to nie działa, ale z kolei scalanie komórek już jest rozpoznawane. W czym tkwi szkopuł ? Z...
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
falownik v1000 automatyczne zamykania testy akumulatorów
wf60f4efw2w szczotki wf60f4efw2w szczotki
Schemat wzmacniacza klasy D monoblok 1000W RMS 1Ω – IRS2092, IRFB4227, Hypex, ICEpower Opóźnienie w działaniu pilota - przyczyny i rozwiązania