to sobie zobacz: [url=https://www.youtube.com/watch?v=ash...
Nie bardzo rozumiem co z tym "Znacznik" :( W każdym razie linia, w której znajduje się kursor: Ln = Selection.Range.Information(wdFirstChara...
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...
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...
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...
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ś...
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...
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...
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
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],...
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]
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,...
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.
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...
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,...
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.
Spróbuj z kopiowaniem w pętli. Przykład w załączniku. Edit: Zacznij od Range.Clear (po With), przeoczenie...
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",...
Poproś kogoś innego.
Piszę z problemem dotyczącym programowania w VBA (jestem zielony w tym temacie). Sprawa wygląda następująco, chcę, aby po wpisaniu wartości w komórce H1 w komórce D1 wpisywała się aktualna data i godzina, następnie po wpisaniu wartości w komórce M1 pokazywała się data i godzina w komórce J1 i dalej w pozostałych komórkach ta sama reguła. Udało mi się...
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(...
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...
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...
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...
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...
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...
"Zawsze chcesz wstawiać nowe wiersze jako przedostatnie (pomiędzy cyfrą 2 i 3 w kolumnie A)? " Tak, bo pomyślalem ze tak bedzie najłatwiej odnajdywac ostatni wiersz na podstawie formatu pogrubienia i wstawiac wiersz i rozszerzac analogicznie w kolumnie B scalona komórke by mieściło sie w tych mini zakresach które okreslaja scalone komórki w kolumnie...
To jest tylko około 2 000 rekordów. Ma kopiować dane ze wszystkich komórek z wiersza powyżej. Wstawianie nowego wiersza ma być tylko , jeżeli w kolumnie G w komórce jest liczba >1. Np. jezeli jest liczba 5, to ma dodać 4 wiersze, a w wierszu gdzie jest 5, to ma zamienić liczbę na cyfrę 1. Chcę aby to można było zrobić na dodany przycisk odśwież. (ma...
Witam. To nie działa. Przy wstawianiu nowego wiersza znikł jeden obrazek... Wszystkie wstawiane poprzez wstaw obraz z pliku i zakotwiczone do komórki. Zauważyłem też że można je przeciągnąć poza komórkę a nie powinno sie tego dać rady zrobić. Ok nie znikł schował się pod innym... ten program to jakaś masakra. Zmienia mi też polskie znaki na krzaczki...
Ten skrypt też widziałem To proszę wskazać źródło - tego mojego kodu :D chciałbym to zrobić bardziej profesjonalnie Z dostępnych w Internecie kodów proponuję przeanalizować kod szuszana [url=https://www.excelforum.pl/postlink/... , który jest bardzo rozbudowany (ponad dwudziestu kandydatów na sieroty) :ok: ale mechanizm jest identyczny...
Bardzo przepraszam za zamieszanie - jeżeli wiersz 14 jest juz zajęty ma nie robić nic, w sensie nie przesuwać nie nadpisywać. W pierwszym poscie napisałam że chciałabym aby po dwukrotnym kliknięciu przenosiły się w pierwszy wolny wiersz kolumny J w przedziale od 4 do 14 właśnie dlatego, że od wiersza 15 mam inne dane (tego nie dopisałam za co przepraszam)...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
Jeśli w jednym wierszu to Np Sub Kopiuj() prWiersz = 1 ostWiersz = Range("A65536").End... For i = prWiersz To ostWiersz Cells(i, 3) = Cells(i, 1) & Chr(10) & Cells(i, 2) Next End Sub W innym przypadku dołóż wstawianie wiersza wewnątrz pętli, ustal wartość kroku na 2 a ilość na...
Coś źle wpisujesz. Przy wstawianiu wiersza powyżej formuły, zakresy zmieniają się...
Warunek w procedurze już jest, więc wystarczy zamiast Exit Sub dopisać wstawianie wiersza (nagraj rejestratorem) oraz z lekka skorygować resztę. Przyjmij zasadę "Od procedur są moduły i koniec", stąd moja uwaga o kropkach w argumentach Range ;) W kodzie arkusza zapisuje się procedury zdarzeniowe i makra kontrolek umieszczonych w arkuszu, lub jeszcze...
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...
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)...
Jakiegoś ewidentnego błędu w tym kodzie nie znalazłem, być może jakieś przypadkowe interakcje z innym kodem. Natomiast generalnie ten kod wykonuje mnóstwo niepotrzebnych czynności i można go znacznie skrócić. Może w tej skróconej formie będzie działał lepiej (a przynajmniej w razie wystąpienia błędu łatwiej będzie go zlokalizować). [syntax=vbscript]Sub...
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ąć...
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.
Bardzo dziekuję, super działa Dodano po 12 Ma jeszcze jedno pytanie. W tym arkuszu o którym cały czas piszę w wierszu drugim sa dodawane dynamicznie kolumny an podstawie wprowadzonej przez inputbox daty. Ta data jest wprowadzona w wierszu 3 tej kolumny, a wierszu 4 tej kolumny jest wprowadzana formuła sumowania wartości od wiersza 4 do 3000. jak wygladałby...
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...
Witam! Mam pewnien problem z markem. Przez parę dni szukałam na różnych forach informacji jak go poprawić, ale niestety nic nie znalazłam. Problem wygląda następująco. Mam makro, które generuje mi plik Worda od podstaw tj. tekst plus wstawianie danych z komórek na podstawie aktualnie zaznaczonego wiersza. Wszystko działa kiedy zapisuje tylko dokument...
1/ w klasie przekazuj do mysql_query() id połączenia 2/ wartość wiersza z pierwszego zapytania wstawiaj przez konkatencję ciągów znaków a nie przez wstawianie do ciągu w cudzysłowach.. osobiście dawno zaprzestałem wogóle stosowania cudzysłowów do umieszczania ciągów znaków (są mniej wydajne z powodu na parsowanie ciągu) na rzecz apostrofów... sprawdź...
Witam! Szukam funkcji która wyszuka i wstawi mi (obok siebie) komórki (zawartość komórki) z wiersza pełnego różnych informacji. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw d aa 7 31 2 75 ah e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej komórki, trzeciej...
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"...
chciałbym pobierać listę indeksów i nazw z zewnętrznego pliku excela Nie kombinował bym tu zbyt dużo. Kopiuj-Wklej (makrem lub ręcznie) do arkusza pomocniczego i mamy dane w zasięgu. Z zapisywaniem podobnie - nagraj makro kopiowania arkusza do nowego pliku i dostosuj (czyt. posprzątaj po rejestratorze). jak zrobić aby po kliknięciu ok w formularzu...
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.
na tyle dobry to ja nie jestem . dopiero raczkuję w excelu . Dodano po 3 łatwiej byłoby mi gdybyś rozpoczął formułę od wiersza 8 Dodano po 8 WIDZĘ ŻE JESZCZE POPEŁNIŁEM BŁĄD W KOLUMNIE V . kolumna V ( pokazuje bład #ARG - DLACZEGO) sumuje wartości z kolumn K M O
[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...
makro wstawianie wiersza excel wstawianie wiersza poniżej excel makro wstawianie wiersza
napięcie lambda simson kondensator kable przepływomierz calibra
Audi Q7 4L0 – wymiana zamka i czujnika klapy bagażnika, kodowanie, adaptacja Zanussi 220l – demontaż panelu sterowania w zamrażarce, śruby PH2 i Torx T20, instrukcja
