Myślę, że najlepsze wyniki czy nie od końca, ale od początku [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, r As Long, c As Long Application.ScreenUpdating = False i = 2 r = i While Cells(i, 11) <> Empty If Cells(i, 11) <> Cells(i + 1, 11) Then Rows(i + 1).Insert For c = 5 To 7 Cells(i + 1, c + 3) = Application.WorksheetFunction.Sum(Range(...
Zdaje się, że dla każdego powiatu musisz mieć osobne procedury dla przycisków. W przykładzie makro "orientuje się" po nazwie miasta wpisanej w komórce zakrytej przyciskiem.
Poproś kogoś innego.
Zazwyczaj funkcja powinna zwrócić wartośc Spójrz w pomocy VBA przykład funkcji(Help - Writing a Function Procedure) Twoja funkcja nie zwraca żadnej wartości.
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
w przykładzie zeszyt3 [syntax=vb]Sub Wstawianie_wierszy() Dim i As Long, OstWrs As Long OstWrs = Cells(Rows.Count, 1).End(xlUp).Row 'ile wierszy Application.ScreenUpdating = False For i = OstWrs To 2 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Rows(i).Insert Next i Application.ScreenUpdating = True End Sub[/syntax] A tu kod z nazwą - ale nie...
Witaj [syntax=vb] Sub InsSubtot() Dim bs As Range Set bs = ThisWorkbook.Sheets(1).Cells Dim r&, rp& ow = bs(Rows.Count, 8).End(xlUp).Row r = 2: rp = 2 While bs(r, 8) <> Empty r = r + 1 If bs(r, 8) <> bs(r - 1, 8) Then bs.Rows(r).Insert bs(r, 5) = "SUMA" bs(r, 6) = Application.Sum(Range(bs(rp, 6), bs(r - 1, 6))) bs(r, 5).Resize(1,...
Witaj Odpal to makro [syntax=vb] Sub popraw() Dim bs As Range, r As Long Set bs = Sheets(1).Range("A:C").Cells r = 2 While bs(r, 1) <> Empty If (bs(r, 1) = bs(r + 1, 1)) And (Month(bs(r + 1, 2)) - Month(bs(r, 2)) > 1) Then bs.Rows(r).Copy bs.Rows(r + 1).Insert Application.CutCopyMode = False bs(r + 1, 2) = DateSerial(Year(bs(r, 1)), Month(bs(r,...
zdecydowanie początkujący Ale pomoc podręczna mimo wszystko jest dostępna ... :-) A z tym poniżej, jak działa ? [syntax=vba]Option Explicit Private Sub Workbook_Open() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets(Array("Inne", "Beton, pompy", "Stal", "Elementy murowe i zaprawy", "Kruszywa", "Szalunki", "Sprzęt", "Żurawie", "Kontenery",...
Moja propozycja: jedna para przycisków +/- i przypisane do nich makr: [syntax=vb]Sub wstaw() Rows(ActiveCell.Row + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(ActiveCell.Offset(1, 0).Row, "H").FormulaR1C1 = "=R[-1]C" End Sub[/syntax] i [syntax=vb]Sub usuń() Rows(ActiveCell.Row).Delete shift:=xlUp End Sub[/syntax] Przed przyciśnięciem...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
Coś źle wpisujesz. Przy wstawianiu wiersza powyżej formuły, zakresy zmieniają się...
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
W kolumnach L,N,O,P masz "normalne" formuły, które odwołują się tylko do danych z bieżącego wiersza. Takie formuły można kopiować bez ingerencji w inne formuły. Excel nie ma problemu z ich kopiowaniem. Jeśli chodzi o formuły z kolumn A i C, to one zawierają odwołania do innych wierszy i przy wstawianiu wierszy (a także usuwaniu) Excel nie wie, do czego...
Chyba warunkowe wstawianie wierszy (komórek) byłoby najwygodniejszym rozwiązaniem.
Pętla, podstawianie (replace), porównywanie długości ciągów (len), rozbijanie ciągów (split), podstawianie, porównywanie, rozbijanie, itd. W zależności, czy warunek spełniony wstawianie wiersza, dodanie wartości, mnożenie *10, lub przepisanie. Mnóstwo kombinacji, ale do zrobienia.
Problem "sieczki" z danych w Twoim przypadku wynika jedynie z "oryginalnej" budowy tego pliku csv. 1186397 Jak widać na zrzucie z edytora w wierszu 6 (z nagłówkami) kolumny rozdzielane są przecinkami , a wszystkie wiersze z danymi rozdzielane są tabulatorem . W Excelu nie ma chyba możliwości importu tekstów rozdzielanych albo przecinkami albo tabulatorami...
Nie wiem jakie w ogóle planujesz operacje w tym pliku. W kolumnie A masz wpisaną numerację, więc nie brałem pod uwagę wstawiania/usuwania wierszy. W tej chwili zmieniłem to w ten sposób, że jeśli operacja dotyczy komórek całego wiersza lub więcej, to nie jest zapisywana do historii.
Dalej wstawia datę
Tak jak napisali poprzednicy potrzebne jest tu adresowanie bezwzględne. Dodam jeszcze, że często przydaje się wiedza iż po wpisaniu w komórkę formuły: - =$A$1 po "przeciągnięciu" jej w dół lub w prawo zawsze w docelowych komórkach będzie wpis =$A$1 - =A$1 po "przeciągnięciu" jej w dół zawsze w docelowych komórkach będzie wpis =A$1, po "przeciągnięciu"...
Witam. Proszę o pomoc. Chciałbym się dowiedzieć czy jest taka możliwość, żeby przeszukiwać wiersze Excela i następnie w puste komórki za pomocą VB.net wstawiać wartości. Jeśli jest taka możliwość proszę powiedzieć jak to zrobić????
Dalej jest to nieprecyzyjne, ale domyślam się, że chodzi o coś takiego (wersja dla polskiego Excela) =JEŻELI(ORAZ(A15=1;J15=1);&q... niż raz w tyg., kobiety";"") Formułę wstawiasz w wierszu 15 w wybranej kolumnie, gdzie ma pojawić się tekst, i powielasz w dół.
https://obrazki.elektroda.pl/4586766500_... Widzę, że się udało. W załączniku przykład tabeli Excela. Jeśli tabela ma wiersz podsumowania, to wstawianie nowych wierszy odbywa się tabulatorem w ostatniej kolumnie tabeli. Można też wstawiać wiersze w środku tabeli z menu podręcznego (PPM) lub ze wstążki. Filtry z tabeli można usunąć...
NIE MA !!! Tak się kończy inwestowanie w prowizorkę JackuCZ, strasznieś nerwowy. Że Ty nie umiesz to nie znaczy że się nie da. Kolego jatoKacper, musisz sobie uzmysłowić do czego służy ta opcja. Gdyby nie dało się w kilku pracować na jednym pliku, jak sugeruje kolega JacekCZ, funkcja udostępniania skoroszytu nie miałaby kompletnie żadnego sensu. A...
Wstawiasz wiersz w środku formuły i po kłopocie.
Ma i to duży. Ale my nadal nie wiemy jaki. Może zamiast dodawać dwie komórki sumuj (jeśli o to chodzi) od pierwszej do ostatniej niepustej w wierszu.
W załączniku AKTUALNY (28-06-2009) arkusz, umożliwiający wstawianie i usuwanie dowolnej ilości wierszy nad nagłówkiem tabelki.
Witam, czy możliwe jest napisanie takiego kodu żeby po pierwszym kliknięciu na przycisk (wykonany z funkcji "Wstawianie -> Kształty") odkrywał konkretne wiersze a po drugim kliknięciu na ten sam przycisk te same wiersze ukrywał? Pozdrawiam
Witam Potrzebuje wykonać taką operację w Excelu. Mam dane w kolumnie [A] w wierszach od [1] do [1000] : [A] [1] Ala [2] Zosia [3] Kasia [*] XXX [1000] Genowefa potrzebuje zrobić taki układ: [B] [1] Ala [2] [3] [4] Zosia [5] [6] [7] Kasia i tak dalej aż do 1000 wiersza. Jak ktoś ma pomysł to słucham. :D
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Czy wiesz, że w "Arkusz2" prawdopodobnie w wyniku kopiowania, wklejania a następnie usuwania wierszy jest ponad 500 przycisków o nazwie "CommandButton1"? Kiedyś był już podobny temat poruszający ten problem. Kopiowanie i wstawianie wiersza z przyciskiem działa OK, ale usunięcie wierszy powoduje układanie się obiektów w stosik, z których widoczny jest...
Function zapas(tydz, wiersz) Application.Volatile 'Excel 2k7 'Application.Volatile = True 'Excel 2k 'trochę tu latania po arkuszu :) 'szukam wiersza zawierającego tekst wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row 'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka zKol = tydz - Range("C5")...
To zrób tak: 1. Posortuj obie listy po nazwisku (trzymajmy się tego przykładu). 2. Przebiegasz pętlą po 1 liście aż do napotkania różnicy i wtedy: 3. Wstawiasz brakujący wiersz w odpowiedniej (warunek większe lub mniejsze - obie listy są posortowane) liście. Musi zadziałać. Nie mam czasu myśleć nad przykładem - mam spotkanie.
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
Czyli są to listy, a przecież one "same z siebie" dodają sobie wiersze ... ? Planujesz wstawiać coś tylko ręcznie, czy może "jakimś mechanizmem" przenosić do listy/list coś z innego miejsca arkusza/zeszytu ?
Wpisz w kodzie gdzie ma wstawiać (ścieżkę dostępu) i będzie wstawiało tam gdzie będziesz chciał. Poz
Rozumiem, że formularz gotowy. Wykorzystaj zdarzenie arkusza przy prawokliku lub przy podwójnym kliknięciu (lewy jest z wiadomych względów nieprogramowalny). Wynik umieść przy pomocy Target.Offset(wiersze, kolumny).
(at)adamas_nt Dzieki za odp. Zaimplementowałem ten kodzik do mojego przycisku. Jego działanie jak na razie polega na tym że wstawia 'xxx' do pierwszej komórki excela (1A). Ja chcę aby wstawiał mi te iksy do tabeli na podstawie nr wiersza danej tabeli
No i właśnie o to mi chodzi. wpisuje pewną wartość w ark.2 szuka jej w ark.1 w kolumnie A. znajduje i wstawia w ark.2 z danego wiersza wyszukanego kilka wybranych pól
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
Zakładam, że w każdym wierszu będą dwie kontrolki zależne. W Excelu 365 na karcie Wstawianie znajduje się pole do wstawiania tych kontrolek. [syntax=text]Wstawianie > Kontrolki > Pole wyboru[/syntax] Aby wstawić kontrolkę należy zaznaczyć komórkę (lub komórki) i kliknąć przycisk. Standardowo kontrolka jest powiązana z komórką, a w tej komórce...
Tak jak zauważył Prot, zwykłe wyszukiwanie poprzez wyszukaj.pionowo() czy indeks() oraz warunki powinny spokojnie wystarczyć do porównania poszczególnych wierszy. Nie wiem czemu upierasz się przy VBA, szczególnie mając o tym niewielkie pojęcie.
Excel niestety kaleki jest w opcję "suma strony". Też próbowałem swego czasu z hPageBreacks.count i hPageBreacks(n).Location, ale ja swoje a Excel swoje... Sposobu nie znalazłem. Jeżeli zmuszony jestem do sumowania stron w przypadku długiej tabeli, to przełączam do widoku "Układ strony", wstawiam wiersz na dole strony i sumuję zakres. Na nst. stronie...
To nie wklejaj tylko wstawiaj komórki. Prawy klawisz myszy "Wstaw skopiowane komórki..."
Oczywiście możesz tez zmienić, żeby traktował inną kolumnę jako źródło: Range("A2").Select <-- zamiast A2 wstawiasz pierwszą (z góry) komórkę z listy "źródłowej" ActiveCell.Offset(0, 1).Formula = .... <-- tutaj możesz zdefiniować, gdzie ląduje wynik. W przykładzie 0 określa ten sam wiersz (-1 będzie wiersz wyżej, 1 będzie wiersz niżej, 2 będzie...
Dobra udało mi sie problem rozwiązać! Sprawdziłem przy której pozycji z tabeli, te 3 dolne wiersze zaczynają mi się ucinać, a następnie w VBA dodałem, że przy odpowiedniej ilości wstawiana jest podziałka
Ile przewidujesz pól wyboru, tj. ile wierszy będzie wypełnionych danymi, bo nie chcę się mordować ręcznym wstawianiem dziesiątek pól, a za leniwy jestem żeby robić coś "na zaś" ... jeśli ma być tego tylko 4-10 wierszy ...
Musiałbym mieć tylko pustą kolumnę tak? Żeby 2x Klikać? Bo tam będę wstawiał dodatkowe wiersze. Nie jest to stała tabelka. Rosnąco numerami do góry.
nie bardzo się rozumiemy, funkcja w komórce jest wstawiana przy użyciu wyszukaj.pionowo i potrzebuje użyc numer wiersza jako zmienna aby poprawnie przeliczyć formuły w każdym wierszu
pytanie obok: Dlaczego wstawiasz nowy wiersz? Dopisz swoje dane na końcu tabeli i będzie ok. W przeciwnym razie pozostaje VBA tak jak sugeruje Maciej.
Podpowiadam. Dim i As Long Const max = 20 ' w zależności od liczby wierszy 'lepiej ustalić liczbę wierszy szukając ostatniego Application.ScreenUpdating = False 'w przykładzie dane są od pierwszego wiersza For i = 1 To max * 2 Step 2 'wstawiany jest co drugi wiersz więc max * 2 ActiveSheet.Rows(i + 1).Insert 'wstawimy pod źródłowy 'tutaj przypisujesz...
Nadal nie jest to jasny opis.:) W wierszu przypisanym dla każdego ze sklepu, chce funkcją vba (Function End function) np. =WlasnafunkcjaWstawBranze uzupełnić wiersze kolumny B (na zdjęciu są wypełnione aby zaprezentować jak dane powinny się uzupełniać. Czyli, przykładowo sklep ID01 spełnia warunek kolumn D, E gdyż D2=1 i E2=1, więc w B2 wstawia się...
Użyj opcji formatuj jako tabelę. Jako Lp. wpisz formułę (komórka powyzej)+1. Formuły w skoroszycie sformatowanym jako tabela będą się automatycznie przenosiły do nowych wierszy. Prosty przykład. Trudno mi do końca wytłumaczyć mój problem. Przy wstawianiu tabeli chciałbym, żeby odwoływania w formułach się zmieniały. Tutaj jeszcze nic to nie daje.
No ja myślę, że wypadało by pobierany zakres podstawić gdzieś i rozebrać na czynniki. Czyli ilość wierszy, i ilość kolumn odkąd dokąd. Później już z górki. W pętli machasz generatorkiem liczb pseudolosowych czyli .... ( co więcej od razu możesz w momencie wstawiania liczby liczyć już sumę kwadratów, żeby skrócić kod ) ... Przykladowo zaznaczyles C5:F10...
... " a " czy mógłbyś poprawić aby wstawiało Datę w komórkach w zakresie od B11 do B2000 i Godzinę od C11 do C2000 1. " a " co to jest to " a " w " If Target <> a " ? 2. "zbiorczo", tj. hurtem (?), czy sukcesywnie w miarę wpisywania danych w tym samym wierszu w zakresie kolumn 5 do 8 ? ps: trzeba by wstawić kontrolę zmiennej "i" (wierszy)
Zakładając że układ kolumn i danych jest stały - nie piszesz szczegółów, wystarczy w określonej komórce wpisać (zakładając że 3 jest w komórce 1A): = 1A&" "&1C&" "$1G Jeżeli natomiast układ danych jest różny w każdym wierszu, trzeba by napisać makro uwzględniające puste komórki.
Cześć, Chciałbym się przywitać jako nowy użytkownik bo zapomniałem starego loginu i hasła :) Mam problem z tabelką. Otóż chcę w arkuszu zrobić kilka list rozwijanych. Chciałbym, aby po każdym dodaniu kategorii w liście, wstawiał się pod spodem nowy wiersz w tabelce. Wiem, że teraz mogę rozszerzyć tabelkę ale wtedy "zje" mi wiersze poniżej. Innym rozwiązaniem...
Mam problem z formułą w excel chodzi o. Na przykład w wierszu 1 mam dla A1 - słowo dom A2 - słowo pies A3 - rower A4 - dom potrzebuję formuły aby na przykład w A5 excel wstawił słowa TAK stwierdzając że w wierszu od A1:A4 jest słowo dom w przypadku braku pozostawia komórkę pustą lub wstawia NIE (zamiast TAK może być słowo dom) dziękuje
A jeszcze jedno - mam nadzieję ostatnie pytanie :) W jaki sposób ograniczyć ilość wierszy? Bo formularz będzie miał określoną liczbę wierszy i pod spodem muszę jeszcze coś dopisać. Kiedy dopisuję coś pod tabelą, to kolejne wiersze z MsgBox'a wstawiane są poniżej tego tekstu, a nie w kolejności w tabeli.
Być może coś źle przepisałem (a w zasadzie przekopiowałem), ale Twój zapis podstawiony do mojego przykładu nie daje żadnego efektu. Jeśli u Ciebie działa, wklej go może do postu, poanalizujemy - gdyby był poprawny, jest wart zastosowania, bo prostota jest cnotą nie do przecenienia. Zauważ, że u mnie nie ma potrzeby wstawiania jedynki przy pierwszej...
Dzień dobry 1. Mam pytanie jak włączyć w excel 2016 funkcję wyświetlania przy kursorze myszki ilość zaznaczonych kolumn lub wierszy, obecnie informacja taka pojawia się w przypadkowym miejscu na ekranie np. ? 3W x K12 dolny pasek stanu 2. Podczas wstawiania funkcji w excel 2016 / przy użyciu wyszukaj funkcję / przejdź / lub enter (np. wyszukaj.poziomo)...
Najprostsze co można zrobić (i najmniej odporne na "sabotaż" ze strony użytkownika). Działa w sumie jak zautomatyzowana funkcja wyszukiwania. Wszystko dzieje się w obrębie danego skoroszytu. W przypadku pobierania danych zewnętrznych należy się zastanowić w jaki sposób ma je pobierać (otwarcie zeszytu z danymi w tle, ado, querytables, inne). W skanerze...
Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Czyli wstawianie arkusza opanowane. Teraz mamy wpisywać *jakieś* dane w jakiś sposób. Można założyć, że linia po linii (ale to założenie wynikające tylko z kontekstu wcześniejszych postów). W jaki sposób działa teraz wpisywanie do jednej linii? Makro, które już Kolega posiada zaczyna wpisywać od komórki, która jest aktualnie zaznaczona i wypełnia ileś...
[syntax=vb]For i = 1 To 1000 r = i * 4 ark.Range("B" & r).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),1))" ark.Range("B" & r + 1).Formula = "=IF(B" & r - 1 & "="""","""",INDEX('Lista pracownikow'!$B:$J,MATCH(B" & r - 1 & ",'Lista pracownikow'!$D:$D,0),8)&"" | ""&INDEX('Lista...
Nie wiem jakiego masz Excela. W wersji 97 klikasz prawym w obrębie tabeli przestawnej i wywołujesz kreatora. Powinien otworzyć się na 3-cim kroku tzn. wyborze pól. Cofasz się o jeden krok i ustalasz zakres danych. Potem klikasz zakończ i zrobione. A na przyszłość: Jeżeli często dodajesz wiersze ustal sobie zakres danych o jeden dłuższy od wypełnionego....
Witam. Skończyłam dość zaawansowaną jak dla mnie funkcjonalność w excel - połączenie funkcji wbudowanych i kodu. Wszystko działa i okazuje się, że grafika jest nie do końca przemyślana. Arkusz do wypełnienia przez końcowego użytkownika wygląda jak na rysunku https://obrazki.elektroda.pl/3045579500_... Jak widać kiepsko....Czy jest możliwość...
To wstaw proszę Cię tą formułę co napisałeś do excela w wierszu np. 1, i sprawdź jej zachowanie wstawiając wiersz przed wierszem 9.
nie ma sensu pisać takich komentarzy Nie ma sensu wysyłać obrazków zamiast przykładowego pliku Excela. niedozwolone rozszerzenie Spakuj go i umieść na forum. W jaki sposób zrobić Copy z parametrem Destination? ma powstać baza danych Nienajlepsze rozwiązanie. P.S. Używaj proszę znaczników przy wstawianiu kodu.
Prot, mógłbyś wyjaśnić jak miałoby działać to makro, które przywołałeś? Pokazałem tylko, że istnieje możliwość wywołania makra przy zmianie którejkolwiek wartości formuły w obserwowanej kolumnie. ale wtedy wychwycenie wiersza, w którym nastąpiła zmiana jest znacznie trudniejsze niż proste x=Target.Row Twój kod wychwytuje wiersz, w którym nastąpiła...
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
Zakładając, że informację o rodzaju tankowania (do pełna lub nie) masz w kolumnie C, powinieneś sprawdzić, które komórki bezpośrednio przylegające "od góry" mają zapis "P" (tak przyjąłeś) i te komórki sumujesz. Generalnie możesz też inaczej spojrzeć na temat, tam gdzie zdarza się po raz pierwszy tankowanie nie do pełna wstawiasz w kolejnej kolumnie...
MISTRZU !!! to została ostatnia problema :D aby wstawiał z pierwszego arkusza(u) "naliczenia na wszystko" ilość tego zapotrzebowanego materiału. W arkuszach podrzędnych i wszystko będzie cacy :)
W Twojem kodzie jest widoczne tylko rozmiar zdjęcia, ale nie ich lokalizacji w arkuszu. Tylko ruch względny. Z tego powodu trudno tej pętli do pisania. Rysunki są umieszczone w wierszach lub w kolumniach? Jeśli brakuje niektórych, pozostaje puste miejsce lub to miejsce następnego?
Próbowałem już przenieść bazę do MS Access niestety nie pasowało w obrabianiu i wyświetlaniu danych :/ A raczej czasu zabrakło. Minusem był brak wstawiania wierszy w tabelę a często sprzęt jest np. przenoszony i wiersz z nim nie może znajdować się na końcu tabeli :(
Tak za bardzo nie rozumiem co chcesz osiągnąć .... U góry zmieniasz nazwisko i co wtedy chciałbyś otrzymać za wynik ? Masz listy na kartę pracy, typ i numer fabryczny , dane są pobierane z sortowania i .... Korzystając z poprawności danych jest możliwe ustawienie list "zależnych" (po wybraniu danych z listy w pierwszej komórce, lista w kolejnej polu...
Nie będzie taki dobry wcale ;) Wszystko zależy, jak szeroki zakres operacji przeprowadzasz, czy faktury będą tylko krajowe, czy także walutowe, czy przewidujesz (a w zasadzie musisz) wystawianie korekt, czy będą faktury zaliczkowe i rozliczające... A o zachowywaniu nie wspomnę. Te wszystkie przypadki sprawiają, że programy okazują się lepsze. A są i...
Wtam, doszedłem do etapu, w którym musze wykorzysta makro. Mam 2 kolumny: A.................B dana1 || 2011-04-15 dana2 || 2011-04-16 dana3 || 2011-04-20 dana4 || dana5 || dana6 || Jak zrobić makro, które sprawi, że jeśeli w komórce A jest wpisana dana to w komórce B wstawi dzisiejszą datę która w niezmienionej formie już tam zostanie? Wierszy w kolumnie...
Zmieniłem kod na to co wskazałeś. Bez różnicy. Nic się nie kopiuje. Plików źródłowych nie wstawiam bo już je tak uprościłem, że nie mają w sobie nic oprócz przypadkowych znaków w komórkach B7:AR20, a pomimo tego nic się nie kopiuje...
Witam. Mam problem z formułą która w kolejnych wierszach wstawiała by daty z tym samym dniem ale kolejne miesiące pierwsza komórka =dzis(); kolejna 18-08-2018, 18-09-2018, 18-10-2018. Proszę o pomoc
W komórce d14 po raz 2 znalazło tekst "Utworzenie sprawy" to wstawia liczbę 2 do komórki b14. Pozwolę sobie uzupełnić: [syntax=text]=JEŻELI(D1="Utworzenie sprawy";LICZ.JEŻELI(D$1:D1;$D$1);"")[/sy...
zwiększyłem sobie ilość wierszy do 90 :D A to bardzo ciekawe :?: Bo w ostatnim pliku autonumerowanie rekordów było już ustawione na 100 rekordów :arrow: patrz na kolumnę A i komórki powyżej 90 wiersza, których może jeszcze nie zepsułeś :please: dodałem 2 kolumny to już lipa, nie działa Musisz precyzyjnie kopiować kod :cunning: - skąd u Ciebie wzięła...
Druga część warunku pętli to przerwanie w razie powtórnego uruchomienia. Wiersz(e) należy wstawić o jeden niżej (Range("A" & i + 1).EntireRow.Insert) oraz (i = i + how_many + 1) Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A" & i) = "" Or ActiveSheet.Range("A" & i + 1) = ""...
Cześć, chciałbym się podłączyć pod temat chyba z podobnym problemem. Posiadam arkusz excel gdzie osoba trzecia będzie wprowadzać nowe pozycje (wiersze) i uzupełniała do każdej pozycje dane w kolumnach. Każdy wiersz posiada 10 kolumn z czego kolumny 2-3 (trzy) posiadają skomplikowane formuły dot. auto-uzupełnienia. Excel jest tak zrobiony, że jak ta...
czyli aby bylo 21111 10 aaa 5 bbb 3 ccc 2. Nie wiem czy takie cos jest mozliwe Hmmm, teraz już będzie trudniej ;) Na szczęście Excel i VBA oferują coś a'la tabelki przestawne. Zmień zapytanie SQL na Sql = "TRANSFORM [SIGN] & "" "" & Sum([hours]) " & _ "SELECT [Activity],...
Witam! Proszę forumowiczów o pomoc. Jak przerobić następujące makro znajdujące się w załączonym pliku tak, żeby: 1) Przycisk [Dodaj] umieszczał w tabeli poniżej określoną w komórce M6 liczbę wierszy o treści wpisanej tak jak w komórkach B6:K6 2) Obecnie przy dodawaniu wpisów w kolumnach C oraz F makro wstawia puste pola, a ma wstawiać dane z wiersza...
Co chcę uzyskać 1.w arkuszy tabelk_b2 wypełniam dane poza polami zaznaczonymi na zółto 2.naciskam przycisk wstaw b2 3.wyskakuje okienko 4.wypełniam pola naciskam ok. wstawia wpisany text w arkusza b2 (pola na żólto w tej chwili) i jednocześnie po naciśnieciu ok copiuje(to jest makro) do arkusza naklejki. 5.analogicznie z wstaw F 6.jeszcze przycisk "usuń...
Zastanawiam się dlaczego nie zamieściłeś swojego kodu... Wstawianie do tabeli nie różni się niczym od wstawiania w komórki poza tabelą. Jedyna różnica jest taka, że jak dodaje się w nowym wierszu tabeli, to jest ona automatycznie powiększana o ten wiersz. [syntax=vbscript]Sub WstawNaKoncu() Arkusz1.Cells(Arkusz1.Cells(Rows.Count, "A").End(xlUp).Row...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
Podałeś taki niestandardowy format z łącznikami między elementami czasu, zamiast dwukropków, więc zrozumiałem, że to jest istotne. Jeśli jednak chcesz mieć "prawdziwą" datę, to uzupełnij swój kod tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing...
Proszę o pomoc w rozwiązaniu takiego zadania. Jest to swego rodzaju harmonogram. Mamy kolumnę liczb posegregowaną wg. określonej kolejności, chciałbym aby od pierwszego wiersza następowało sumowanie z warunkiem aby suma = 1000, jeśli np. wiersz1 + wiersz2 <1000 to dodajemy wiersz3 itd. Jeżeli suma 1000 zostanie osiągnięta to wartość "1000" zapisywana...
Mam problem z dopisaniem do Arkusza1 (WuZetka) do komórki E9 kontrahenta wybranego z Comboboxa. Pewnie dlatego, że pod przyciskiem WSTAW nie masz żadnego kodu... ;) Wstaw go - kod będzie podobny do tego, który podałem jako ostatni, a nawet prostszy, bo znasz adres komórki, do której chcesz wstawiać. Dlaczego lista kontrahentów jest inna niż towarów....
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
To ja mam pytanie w trochę podobnym zakresie. Czy da się zrobić takie makro, które będzie formatowało wszystkie tabele w Wordzie. Chodzi o to, aby tabele były dopasowane do okna oraz obramowane linią o grubości 1 pkt. w szarym kolorze. Wiem, że można zrobić formatowanie tabeli w stylach, ale jak usunę ostatni wiersz z tabeli to wówczas obramowanie na...
excel wstawianie pustych wierszy wstawianie pustych wierszy makro wstawianie wierszy
właściwości karty sieciowej zakodować kanał uchwyty drzwiczek
Uszkodzony kondensator C7817 w zasilaczu DPS-162KP B Zasilacz DPS-162KP B - Powolne Miganie Diody LED