Poproś kogoś innego.
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.
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
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,...
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...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
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...
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",...
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).
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...
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...
[syntax=vbscript]Sub WstawWiersze() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = 2 While Cells(x + 1, "D") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C"): Cells(x + 1, "C") = "" Cells(y, "D").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("D" & y).AutoFill Range("D" & y & ":I" &...
Coś źle wpisujesz. Przy wstawianiu wiersza powyżej formuły, zakresy zmieniają się...
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...
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.
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.
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...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Wstawiasz wiersz w środku formuły i po kłopocie.
Nie zauważyłem błędu tzn. wstawia mi się dobrze następny wiersz
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ś...
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.
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...
[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...
Jak wciskasz enter, to w tym miejscu wstawiany jest znak nowego akapitu. Można taki znak wyszukać i zamienić na coś innego. Trzeba w pomocy office poszukać jak reprezentowany jest znak nowego wiersza/akapitu. W openoffice w polu wyszukiwania wstawia się /n i można znaleźć akapity. W polu "zamień na" można wstawić spację. /t powinno oznaczać tabulator...
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...
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.
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ć????
W załączniku.
Znajdź sobie jakiś kurs... Bardzo uniwersalna odpowiedź. Pasuje do każdego tematu we wszystkich działach. :arrow:tang0 przeanalizuj następujący Sub wstawianie_iksow() ile = 3 'liczba iksów, pobierana z komórki lub pola tekstowego formularza kolumna = 1 'Nr kolumny 1 dla A, 2 dla B itd wiersz = 1 'Nr wiersza For wstaw = 1 To ile Step 1 wynik...
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) = ""...
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...
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,...
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...
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...
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...
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ć??
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....
Dalej wstawia datę
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
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ół.
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"...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Witam [syntax=vbscript]Sub zamianki() Dim kom As Excel.Range Application.ScreenUpdating = False With Sheets("L-ki") For Each kom In .Range("c3:c70") If kom.Value <> "" Then Sheets("R-ki").Cells(kom.Row, "E") = Range("C" & kom.Row).Value End If Next kom End With Application.ScreenUpdating = True End Sub[/syntax]
Chyba warunkowe wstawianie wierszy (komórek) byłoby najwygodniejszym rozwiązaniem.
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.
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,...
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...
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.
... " 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)
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ć
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).
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
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
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...
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.
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
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...
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...
Wpisz w kodzie gdzie ma wstawiać (ścieżkę dostępu) i będzie wstawiało tam gdzie będziesz chciał. Poz
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...
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
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.
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")...
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 ?
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?
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ć....
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...
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...
To nie wklejaj tylko wstawiaj komórki. Prawy klawisz myszy "Wstaw skopiowane komórki..."
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],...
Mam jeszcze jeden problem. Wasze podpowiedzi były super i dzieki, ale jak zrobic by po dodaniu juz kolumny w odpowiednim miejscu na podstawie podanej daty excel wstawiał w tej kolumnie w wierszu 2 formułę sumujaca dla tej kolumny wartosci od wiersza 4 do 3000. poniżej podaje pracujacy juz kod [syntax=vb]Private Sub cmb_dodajdzien_Click() Dim DataPodana...
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.
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
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ń...
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ę...
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)...
Witam. Od dłuższego czasu szukam i nie znalazłem nic co w pełni spełniałoby moje oczekiwania. Poszukuję opcji (pewnie makra) które działałoby i blokowało możliwość wklejania wyciętej komórki/komórek. O ile to możliwe najlepiej było by aby w chwili wyboru opcji "wytnij" zadziałała opcja "kopiuj" i wartości z kolumn zostały by skopiowane i wstawione "jako...
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...
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 ...
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...
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...
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...
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.
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...
Dziwny błąd importu z Excela do Access 2016? - Pole w tabeli MS Access ma typ tekst krótki (255). Gdy importuję dane z Excela, to okazuje się, że wszystko zależy jaki typ jest w pierwszym wierszu. Jak jest tekst to wszystko OK, ale jak jest to liczba to wywala błędy konwersji dla tekstu w innych wierszach! W Excelu wstawiam w pierwszym wierszu apostrofy...
Zauważ, że wiersze wstawiane są "od końca". W związku z tym daty należy obliczać podobnie. For count = 1 To how_many Range("A" & i + 1).EntireRow.Insert xlShiftDown Range("A" & i + 1).Value = Range("A" & i).Value - how_many + count - 1 Next count
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 :)
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ść...
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.
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ść,...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
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....
Witam Mam mikrokontroler, który co pewien czas wysyła mi na port COM temperaturę z czujnika. np "21,4" Nie mam żadnego problemu z połączeniem COM ponieważ jeśli odpalam HYPER TERMINAL wszystko wyświetla mi świetnie, problem w tym że musiał bym za każdym razem kopiować cały tekst z terminala i w excelu obrabiać żeby sobie utworzyć wykres temperatury....
excel makro wstawia wiersz excel wstawia excel usuwa wiersz wiersz
podstawa osuszacz zawora somfy dexxo problemy dekodery netflix
Uszczelniacz głowicy Karcher K 620M - wymiana i specyfikacja Trzeszczenie głośnika w Peugeot 3008: przyczyny i rozwiązania