Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
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.
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,...
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...
Poproś kogoś innego.
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,...
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",...
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.
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
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,...
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ąć...
Ten plik, który pokazałeś jako wzór ma zupełnie inną strukturę i raczej trudno go dopasować do Twojego nowego pliku. Szkoda, że nie ma w nim żadnych danych, żeby zweryfikować czy formuły kopiują się poprawnie. Poza tym nie wiem, czy tak jak w pliku wzorcowym istotne jest wstawianie wierszy, czy wystarczy samo kopiowanie. W pliku wzorcowym były podsumowania,...
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...
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...
Doczytałem jeszcze, że wszystko odbywa się w tym samym arkuszu. W takim przypadku musisz zagnieździć dwie pętle. Zewnętrzną Do...Until z inkrementacją wiersza, gdzie warunkiem będzie niepusta komórka i wewnętrzną For...Next również ze zwiększaniem indeksu wiersza. Taki szybki przykład "pisany na kolanie"[syntax=vb]wrs = 1 Do While Cells(wrs, 1) <>...
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
A to? [syntax=vbscript]Sub WstawWiersze() x = 2 While Cells(x, "C") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C") Cells(y, "D") = Cells(x, "D") + Cells(x + 1, "D") 'tutaj sumuj kolejne kolumny Range("D" & y & ":I" & y).NumberFormat = "0" x = x + 2 Wend End Sub [/syntax]
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...
Witajcie, przychodzę z kwestią zawiłą w moim mniemaniu, znalazłem rozwiązania poszczególnych etapów zadania, stworzyłem formuły, kopiuję je i mam czego potrzebuję, jednak nie potrafię połączyć tego w makro a wykonywanie pojedynczych czynności x 1000 jest pracochłonne o istnieje ryzyko błędu. Gdyby była to kwestia jednorazowa to nie poruszał bym w ogóle...
Chyba warunkowe wstawianie wierszy (komórek) byłoby najwygodniejszym rozwiązaniem.
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
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...
to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
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...
No to nie rozumiem w czym jest problem. Dodano po 3 Suwaki na górze na linijce którymi przesuwasz całe sekcje, jeśli to nie pasuje możesz użyć tabel, wstawić odpowiednią ilość wierszy i kolumn po formatować odpowiednio wysokości i szerokości porobić "pola" a na koniec ukryć krawędzie.
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...
Zbyt enigmatycznie opisujesz kolego swój problem :cry: (dodatkowo brak przykładowego pliku lub ilustracji :!: ) Co tam ma być w tych wierszach "stopki" każdej strony (rozumiem, że strony wydruku ? analogicznie jak wstawianie początkowych wierszy :?: ) - sumy częściowe, jakieś wartości do przeniesienia, czy stałe informacje tekstowe ? W podobnych przypadkach...
Coś źle wpisujesz. Przy wstawianiu wiersza powyżej formuły, zakresy zmieniają się...
Rozwijając powyższy kod z formatem daty możesz sobie poradzić np. w taki sposób: [syntax=vbscript]Sub DaneOsobowe() a = InputBox("Podaj dane rozdzielając je przecinkiem.") b = Split(a, ",") For x = 0 To UBound(b) If IsDate(LTrim(b(x))) Then Cells(1, x + 1) = Format(LTrim(b(x)), "yyyy-mm-dd") Else Cells(1, x + 1) = LTrim(b(x)) End If Next End Sub[/syntax]...
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...
Witam, Serdeczna prośba o pilne wsparcie. Potrzebuję niestety pilnie kodu VBA, który umożliwi sprawdzenie/porównanie dwóch plików. I tak: Mam 2 pliki, o różnych układach kolumn: plik Raport oraz plik Wyciąg. Ich lokalizacje mogą się zmieniać, więc do otwarcia należy wskazać osobno ścieżkę (nie wpisywać na sztywno). W celu porównania pliku Raport z Wyciąg,...
Hmm, widzę tu trochę kombinacji. Należałoby: dodawać dni z kolejnych tygodni aż do uzyskania liczby większej niż dni zapasu gdzie wynikiem będzie ilość dni bez ostatniego składnika. Następnie obliczyć "resztę". Produkcję "nadmiarowego" tygodnia podzielić przez dni robocze dla tego tygodnia i pomnożyć przez uzyskaną wcześniej "resztę". Teraz wystarczy...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Witam. Mam wstawić kilkanaście obrazków do open office calc. Problem jest taki że obrazki nie są powiązane z komórką. Wstawiam obrazek poprzez zaznaczenie komórki później wstaw obrazek z pliku. No i obrazek się pojawia ale wcale nie jest połączony z komórką. Po usunięciu wiersza pozostaje. Przy edycji pliku zmianie kolumn wierszy wycinaniu i wklejaniu...
Załącz przykładowy plik, dane nie muszą być prawdziwe, wystarczy że będą wlaściwe dla układu danych w arkuszu. I co z tym wspólnego ma wstawianie znaków "entera" ("Chr(13) & Chr(10)") pomiędzy wartości pewnych komórek ?
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...
Nie no... tak to się nie da. Aby zrobić mniej więcej to co chcesz trzeba jednak zaprząść jakieś makro. Poza tym trzeba by było zrobić jakaś systematykę w danych. Chodzi o to że opis jednego stropu masz w ok 50 wierszach a w innym przypadku wystarczy 10. Poza tym fotki. Tu trzeba inaczej podejść do problemu. Jak znajdę chwilę to może coś wymyślę (ale...
Próbowałem zrobić czymś takim. Dodano po 3 Przepraszam zapomniałem dodać jeszcze jednej linii[syntax=vb]Workbooks ("Z:\ZLECENIA") Set wscel = Worksheets("Arkusz1") Set wsbaza = Worksheets("detale") ost_wiersz_celu = wscel.Range("A754").End(xlUp).Row ost_wiersz_bazy = wsbaza.Range("B754").End(xlUp).Row Dim szukaneTabl As Variant szukaneTabl = wscel.Range("A2:B"...
To będzie mniej więcej w ten sposób: //sortowanie przez wstawianie dla wierszy w macierzy double value; int k; for (int i=0; i<n; i++) for (int j = 1; j < m; ++j) { value = M[i][j]; for (k = j-1; k >= 0 && M[i][k] > value; --k) M[i][k + 1] = M[i][k];...
Dane z niepustych komórek kolumny D w arkuszu 'WROWADZANIE...' mają być kopiowane do odpowiednich wierszy w arkuszu '2020'. Dokładny sposób opisałam właśnie zmiennymi, bo inaczej trudno mi to wyjaśnić. Np. D7 (arkusz 2)- kolumna J (arkusz 1) D8 (arkusz 2)- kolumna L (arkusz 1) D9 (arkusz 2)- kolumna N (arkusz 1) ... To w którym wierszu ma być wpisane...
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.
Dzień dobry, Mój problem jest następujący Mam arkusz "A", gdzie z jednej zakładki importuję przy pomocy IMPORTRANGE do arkusza "B" zakres A2:E. W arkuszu B w kolumnie F przypisuję wartości i te wartości wpisywane są ręcznie i nie ma w tej kolumnie żadnej formuły. Problem zaczyna się gdy w arkuszu "A" musze wstawić wiersz. W tej sytuacji w arkuszu "B"...
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...
Wstawianie wartości do odp arkuszy: (działa, ale to kicha straszna :P): [syntax=vb] Dim nowyPlik As Workbook sciezka = "D:\Pliki\" ost2 = ark2.Cells(ark2.Rows.Count, "B").End(xlUp).Row i = 3 Do While i < ost2 + 1 ark2.Activate If ark2.Cells(i, "B") <> ark2.Cells(i + 1, "B") Then ark2.Range(ark2.Cells(i - 4, "A"), ark2.Cells(i, "K")).Copy MkDir...
posiłkowałem się internetem(niektóre funkcje i jakieś przykłady) i jedną książką udało mi się coś takiego sklecić ale chyba coś pomotałem bo nie chce działać funkcja read_file (linia 263 w main) może ktoś biegły zauważy błąd, dzięki za pomoc :) [syntax=c] #include <stdio.h> #include <stdlib.h> #include <string.h> #include<ctype.h>...
[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...
wstawianie wierszy excel wstawianie pustych wierszy makro wstawianie wierszy
ricoh reset bębna przycisk załączyć wyłączyć cewka wyjściu głośnika
przekładniki prądowe siemens tranzystor
Zasilacz ATK 30524 - Specyfikacje i Zastosowania Medion MD 18500 rusza do tyłu i wyłącza się - co robić?