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.
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
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.
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...
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,...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
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,...
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...
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...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
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",...
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ę...
Nie zauważyłem błędu tzn. wstawia mi się dobrze następny wiersz
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ąć...
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...
Wstawiasz wiersz w środku formuły i po kłopocie.
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.
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....
Robisz pętlę od 1 do 1000, w pętli dwie zmienne N i M wskazujące aktualny numer wiersza dla kolumny A i kolumny B, bierzesz wartość z komórki której adres to kolumna A i wiersz N, wpisujesz ją do komórki, której adres to kolumna B wiersz M, zwiększasz N o 1, a M o 3 i tak do końca pętli. Wszystko w małym kodzie.
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.
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ć????
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.
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ół.
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Dalej wstawia datę
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...
Chyba warunkowe wstawianie wierszy (komórek) byłoby najwygodniejszym rozwiązaniem.
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...
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...
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...
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
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"...
Bardzo dziękuje za pomoc. A gdybym chciał by taki wiersz gdy wstawiamy pracownikowi datę zwolnienia nie tylko był ukryty ale przenosił sie do innego arkusza by mieć listę zwolnionych
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...
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...
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,...
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.
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...
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...
Witam, mam problem z makrem. Potrzebuję aby makro wyszukiwało mi w kolumnie zmianę liczb. Np. mam w kolumnie F liczby: 1 1 1 2 2 2 3 4 5 5 5 6 chcę aby makro przeszukiwało mi kolumnę i jeżeli jest zmiana cyfr wstawiało wiersz prze liczbą i tak by to wyglądało: 1 1 1 2 2 2 3 4 5 5 5 6 czy da się coś takiego zrobić??
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.
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...
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")...
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...
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...
W każdej komórce tabeli w arkuszu2 w tych polach poza kolumną 1, wstawiasz funkcję szukącej tej samej wartości, co wprowadzasz w polu A, co w polu A, ale w arkuszu 1, i ta funkcja ma zwrócić ci numer wiersza np i, potem w tym polu wpisujesz: =Arkusz1!Bi, albo inne litery dla kolejnych pól. Jak znajdę czas to sam spróbuje ci to zrobić
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)
Cześć, nie znam języka Visual Basic, ale w związku z moją pracą na arkuszach exelowskich potrzebuję stworzyć makro, które automatycznie dodaje mi wiersz ze skopiowanymi niektórymi danymi z wiersza powyżej. Makro ma działać na tej zasadzie, aby po zmianie wartości na 1 w każdej komórce w kolumnie AG (na chwilę obecną ma zakres od 11 do 14, ale docelowo...
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).
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
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...
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....
Problem może i prosty, ale niekoniecznie dla kogoś zupełnie zielonego w temacie baz danych... :) Access to baza danych, a z bazą danych pracuje się zupełnie inaczej, niż z arkuszami w VBA. Nie masz tam arkuszy, tylko tabele. Tabele składają się z kolumn i wierszy, zwanych też rekordami. Kolumna musi być danego typu - może przechowywać tylko np. wartości...
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...
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ś...
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
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.
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ę...
To nie wklejaj tylko wstawiaj komórki. Prawy klawisz myszy "Wstaw skopiowane komórki..."
Problem w tym że nie wszystkie komnórki są zczytane do głównego raportu. Przykładowo: wczytuje pytania 1,2,3, (4 pomija), 5, (6 pomija) itd. tabela przestawna zrobiona jest tylko z tego co wcześniej wczyta do zakładki. Dodano po 16 Prawdopodobnie znalazłem przyczynę: przy dodawaniu nowych pytań wstawiałem nowy wiersz. Tych wierszy właśnie nie widać....
Określ dokładnie miedzy które kolumny należy wstawiać nową kolumnę. Tylko, że takie rozwiązanie zaburzy porządek kolumn względem innych wierszy. Możemy zrobić również tak aby kolumny przesuwały się tylko w danym wierszu (tym w którym właśnie wstawiono nową datę) co też nie jest idealne.
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...
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.
(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
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 :(
W pliku Excel mam informację o produktach: nr artykułu, nazwa, cena, ilość etc... W zdefiniowanym katalogu mam umieszczone zdjęcia do tych artykułów, które obecnie ręcznie kopiuję i wrzucam do mojego Excela; np. numer artykułu to 123456 a plik ze zdjęciem zawiera w nazwie właśnie ten numer 123456 np. image_123456_part1.jpg. Muszę do pliku Excel o strukturze...
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)...
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 ...
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.
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...
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 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
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.
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.
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.
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ść...
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ń...
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) = ""...
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...
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, 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ść,...
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...
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...
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...
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?
Witam Mam taki problem. Z arkusza1 mam skopiować określony zakres komórek do arkusza2. Miejsce kopiowania tej zawartości do arkusza2 ma spełniać dwa warunki: 1.Ma skopiować pod wybranym miesiącem 2.W kolejny pusty wiersz W załączniku mój arkusz, ale coś mi nie tak kopiuje tzn nie w te miejsce gdzie trzeba. Jak by się dało jeszcze zrobić to wolałbym...
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, serdecznie przepraszam jeśli coś źle i nie tu gdzie trzeba napisałem ... Proszę o pomoc w temacie: Exel 2007 Potrzebuję stworzyć następującą rzecz: Arkusz 1 komórka A1 - rozwijana lista wyboru ( ok 30 pozycji ) Po wybraniu pozycji z listy np. "Druk" chcę żeby wstawiła się od wiersza 2 tabelka zamieszczona w arkuszu2 ( wcześniej przygotowana )...
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.
Witam mam problemik z Excelem. Mam np dane w kolumnie A w kolejnych wierszach np 1,1,2,3,3,3,4,5,5,5 czy jest jakas formuła która z automatu porównała by te dane i przed każdą zmianą danych wstawila pusty wiersz aby pozniej wygladalo to tak 1,1 pusty wiersz, 2 p[usty wiersz 3,3,3, pusty wiersz 4 i tak dalej? Z gory dzieki za 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...
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
Witam wszystkich. Potrzebuję pomocy w wykonaniu arkusza którego raczej nie dam rady zrobić sam bo wiem, że takie rzeczy to tylko przez VBA a jestem w tym kompletnym laikiem. (To co mam naskrobane to tylko przerobione coś z sieci, niestety cokolwiek więcej próbowałem dokleić to wysypywało się wszystko) 1. Przy danym wierszu np.5 w kolumnie B wpisywał...
wstawiać wiersz excel makro wstawiać wiersz excel wstawiać puste wiersz
skaner microtek raporty fiskalne instrukcja radio smart
samsung wf70f5e0w2w rozpoznawanie twarzy
Bateria Activ Energy naładowana, brak napięcia Renault Laguna 2 - trudne wchodzenie biegów i sprzęgło do oporu