Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
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ść,...
Cześć Próbuje od jakiegoś czasu rozgryźć mój problem. i jak na nowicjusza słabo to idzie - trochę poszukałem i próbuje dostosować do swoich potrzeb pomysły innych z podobnym do mojego problemu. A wiec: mam dwa pliki - jeden bazowy (u mnie nazwany "baza.xlsx" - znajduje się w innej lokalizacji) oraz drugi Main.xlsx Oba plik mają ten sam układ - 20 kolumn....
Witam. Szukałem w sieci swojego rozwiązania ale nie potrafię tego przekuć w program lecz mogę podać algorytm co może trochę wyglądać śmiesznie ale tak najszybciej potrafię coś zobrazować ;) Excela dopiero co poznaję. Formuły jako tako opanowałem ale w pewnych momentach podczas przeliczania excel zamraża mi się na dłuższy czas. Program zrobiłem też na...
Wstaw moduł do pliku 'Aktywności NSM_glizda_TOTAL.xlsx' i wklej taki kod Update 22:25 Ups. miało być w pierwszy-wolny. Poprawiłem...
To dlatego że trochę zamieszałeś z opisem ;) Pisałeś o podziale według dwóch kolumn A i B - przy takim założeniu musiały by to być niepowtarzające się pary. Póki co linijkę: If tabl(i, 1) = c And tabl(i, 2) = druga_kolumna Then zamień na: If tabl(i, 1) = c Then i powiedz czy to jest to, o co Ci chodzi? Jeżeli chodzi o dynamiczna...
wyszło zupełnie inaczej niż we wzorze Mówisz zupełnie inaczej. A co konkretnie? Nie wstawił wiersza 4 (Twojej tabeli 3). Nie przeniósł daty z C3 do C4? Nie zsumował D2 i D3 w D4?
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...
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,...
Poproś kogoś innego.
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...
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.
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...
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,...
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",...
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,...
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.
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) = ""...
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Wszystko się da, ale z zadaniami wykluczającymi się będzie kłopot. Jeśli puste to nic nie rób - da się Jeśli puste to wstaw najwyższą - da się. Ale ... albo albo :) Chyba żeby przeszukać kolumnę bardziej wgłąb niż o 1 wiersz. Wtedy będzie działało. W przeciwnym przypadku będzie się to wykluczać wzajemnie
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ś...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Hej Od pewnego czasu borykam się w pracy z monotonną czynnością kopiowania i rozdzielania ilości w wierszach w pliku excelowym, chciałbym zakończyć to bezsensowne przeklejanie i stworzyć makro, niestety jestem amatorem, wcześniej głównie pracowałem już na stworzonych przez kogoś makrach i je tylko edytowałem. Chciałbym aby makro weryfikowało mi kolumne...
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...
Skoro nagrało Ci się coś w rodzaju 'ActiveCell.FormulaR1C1 = "=TODAY()' to dopisz pod spodem 'ActiveCell = ActiveCell.Value' i po sprawie. To samo "bardziej po Bożemu": ActiveCell = Date Zamiast ActiveCell może być oczywiście dowolny Range(adres) lub Cells(wiersz, kolumna).
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
Zaproponowany uprzednio kod makra przystosowany jest do określonego układu tabeli :!: :D tzn. po zmianie układu kolumn trzeba stosownie kod zmodyfikować :cry: Dodatkowo makro nie przystosowane jest do "niespodzianek" typu "nadziewanie" pustych komórek pojedyńczą spacją czy wprowadzania nietypowych wierszy tabeli z nazwami podzbiorów danych :sm31: :cunning:
Naprzemienne kolory zrealizujesz formatowaniem warunkowym. Formuła: =MOD(WIERSZ();2)=1 Co rozumiesz pod pojęciem A po kolejnym użyciu nie kopiowało nagłówka tabeli tylko wstawiało wyszukane rekordy Z nagłówkiem nie ma problemu, wystarczy sprawdzić czy jest i kopiować warunkowo (gdy nie ma). Natomiast nic nie wiadomo co to za "wyszukane rekordy".
Witam, Mam plik Excela służący jako magazyn. W każdy arkuszu są zapisywane ruchy magazynowe dla każdego produktu w formie tabeli Excela. -w każdym arkuszu jest po jednej tabeli -wszystkie tabele mają dokładnie ten sam układ nagłówków (np. Towar, Cena, Ilość, Jednostka, Suma, Nr FV itp.) ale oczywiście różną ilość wierszy -chcę wstawić pomiędzy nagłówki...
Wstaw na początku makra [syntax=vb]Application.ScreenUpdating = False[/syntax]a na końcu, przed wiadomością: [syntax=vb]Application.ScreenUpdating = True[/syntax]Dzięki temu unikniesz przeskakiwania między arkuszami. Druga sprawa: cały taki przykładowy fragment: [syntax=vb]Sheets("instrukcja").Select Range("b11").Select Selection.Copy Sheets("czas pracy").Select...
Witam! Potrzebuję sposób na wstawianie pustych wierszy miedzy poscalane komórki,najlepiej makro.
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
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
Makro działa.. Dziękuję
makro, które znajdzie wiersz podsumowujący A po co makro miałoby się tak wysilać ? Samo może zrobić podsumowanie ... :) ... Coś w tym stylu ... może i w tym ... może w tamtym ... 886901 Takie odrobinę automatyczne ... podajesz adres początku tabelki, jeśli w innym miejscu jak 'A1', parę innych rzeczy, jeśli chcesz je zmienić, i jak nie będziesz za...
Przed 'Paste' wstaw linię wyszukującą pierwszy wolny wiersz. Przykładów ci u nas dostatek: [url=https://www.elektroda.pl/rtvforum/f... W ostateczności nagraj makro Ctrl+strzałka w dół.
Po pierwsze dzięki za szybką reakcję i pomoc. Aczkolwiek makro nie działa wg mojej instrukcji powyżej. W twoim makro kopiuje i rozdziela same ścieżki, czyli tylko kolumne T. A powinno kopiować wszystkie kolumny, czyli cała strukture tabeli.
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...
Czy w w gotowym makropoleceniu nazwy np. arkuszy/plików się zgadzają? Tu może być problem. Ewentualnie z późniejszej wersji chcesz wkleić do wcześniejszej gdzie np. jest różnica (starsze wersie Excela tj. Excel 2003 oraz starsze wersje) mają ograniczenie do 65 536 wierszy i 256 kolumn. A jeżeli korzystasz z wersji 2007 lub nowszej to plik może mieć...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Witam, Mam mały problem z makrem które wcześniej dobrze mi działało(chyba?).. Chodzi głównie o to że mam zestawienie pracowników i wszystkich klientów. W 1 arkuszu o nazwie "Dodaj" -> jest przycisk i przypisane do niego macro: =Client_list!$B:$B C24 =PRZESUNIĘCIE(db!B:B;PODAJ.POZYCJĘ("RET"... Głównie chodzi o...
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,...
Witam, mam tabelę z transakcjami i jednym wierszem nagłówkowym, a potrzebuję go wstawić nad transakcjami z każdym kolejnym kontrahentem (klienci są nazwani a,b,c,d itd.) Wygląda to tak KlientTowarykod cena ilość atowar71234567891018 5,05 1 atowar81234567891019 5,06 2 atowar91234567891020 5,07 1 btowar101234567891021 5,08 2 btowar111234567891022 5,09...
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...
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
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ń...
...Dzięki odpowiedź za, ale nie działa. ... Chodzi o to że w kolumnie B wpisuje magiczne odwołanie do rysunku z folderu ... następnie łapię za komórkę w kolumnie B i przeciągam w dół, a hiperłącza same się dodają uwzględniając nazwy z kolumny A i folderu z plikami *.jpg ... 'Cóś trochu' kolega poplątał, w kolumnie ' B ' są niepowtarzające się nazwy...
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
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"...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
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.
Makro które podawałem coś takiego robilo. Tu jest jego kopia: dane automatycznie się zaciągneły z pliku "Dane" Ustawienia dla mojego Excel'a włączone automatyczne ponowne obliczanie formuł, więc dane odnowienia. ma wygladać 0111-64-0111-00000101/15 Oprócz 0101 więcej nic nie zależy od pliku "Dane"?(np /15, 0111, 64) nim dane napływają róznie, jednego...
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...
Rozumiem i postaram się pomóc w miarę swoich umiejętności ;) Widzę, że wiesz już jak wygląda edytor VBA. Otwierasz go sobie i w okienku projekt wybierasz nazwę pliku na którym będziesz pracować. Niech to będzie Twój przykładowy plik "Moje.xls". Następnie klikasz na "Wstaw >> Moduł". W nim tworzysz swoje makro: [syntax=vb] Sub Przenies() ... End...
Zrób wpierw symulację obciążenia takiego skoroszytu ze zdjęciami dla paruset/parutysięcy wierszy, bo może okaże się, że nie da się takiego zeszytu przeglądać. A zdjęcia przecież zawsze można spakować i przesłać zainteresowanemu, żeby je sobie rozpakował u siebie na dysku. Po co je wklejać do arkusza ? Zwłaszcza, że i tak niewiele trzeba, żeby "uszkodzić"...
Najwazniejszy jest końcowy rezultat. vs Pytałem czy taki wzor jaki zrobilem moze zostać, przełożeni odpowiedzieli ze nie. Nazwisko ma byc pogrubione i wyśrodkowane. To co w końcu jest ważniejsze? Nazwisko ma byc pogrubione i wyśrodkowane. Najlepsze rozwiązanie już znasz - wstawić je w osobnym wierszu. Ale jak będę chcial rozciągnąć cala zawartość w...
Oj, chłopie :D Kilka postów wcześniej sam rozdzieliłeś pionową kreską przykład tak, jakby te wartości miały być w jednej komórce... Akurat nie wiem jak by to można zrobić w jednym zapytaniu, więc rozbiłem je na dwa ;) 1. Zmień zapytanie SQL na: Sql = "SELECT [Activity], SUM([hours]) FROM [Dane$] as A GROUP BY [Activity]...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Jeśli w komórkach kolumny B koniecznie musi być wstawiona formuła łączenia tekstów to możesz użyć następującego makra: [syntax=vb]Dim lLstRw& Dim rngTmp As Excel.Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row Set rngTmp = Range(Cells(2, 2), Cells(lLstRw, 2)) rngTmp.FormulaR1C1 = "=RC3&RC7"[/syntax] Jeśli wystarczy wynik tej formuły to na końcu dodaj...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Do szczęścia mi brakuje aby efekt makra robił się na arkuszu "wynik" a wartości były brane z arkusza dane. :please: Efekt taki jak na zrzucie 961076 dla wielu "statusów" można uzyskać poprzez makro w załączonym pliku :spoko: 961080
W podanym linku jest gotowe makro do wklepania, z tym że nie wiesz gdzie go wkleić. Zrób arkusz wstaw jakieś liczby w komórki, dodaj przycisk, dodaj kod reagujący na ten przycisk w którym wstaw tylko komentarz że tu trzeba wywołać coś aby wymieszać komórki w zakresie A1:A3
Dopiero ogarniam język VBA i lepiej idzie mi nauka na gotowych przykładach, gdzie mogę dokonywać zmian analizując otrzymane efekty. Spróbuj więc tak: 1. Wstaw tabelę lub zdefiniuj nazwę zakresu z nagłówkami (tego w załączonym pliku nie ma) 2. Włącz rejestrator makr i naciśnij ikonę formularza 3. Zamknij formularz, zatrzymaj rejestrowanie 4. Przekopiuj...
Makro funkcjonuję, w każdej z tych wersji i bardzo za nie dziękuję. Ale rzeczywiście, idea jest inna, spróbuję ją inaczej nakreślić. Po pierwsze nie ma kwestii kolejności, ona nie ma w niczym znaczenia. Żeby było łatwiej możemy użyć liter alfaberu, liczby faktycznie sugerują kolejność. I teraz: myk polega na tym, żeby makro przypisało każdej z kombinacji...
Użyłem Select Case, żeby nie zapisać pół strony instrukcją IfThenElse. Teraz jaśniej? Dobra, już tłumaczę. 1. Takie (zgodne z VB) a nie inne pole kombi, bo zdarzenie "Przy zmianie" reaguje tylko na zmianę wartości. Gdybyś chciał wpisać te same oceny raz za razem, to zmiana by nie nastąpiła. Należało użyć innego zdarzenia, o które kombi formularza jest...
Dokładnie tak. I jeszcze jedno. Dlaczego chcesz zepsuć strukturę tabeli umieszczając dwie w jednej? Excel to oczywiście przeżyje, ale ty się bardziej spocisz jak kiedyś zechcesz coś z tego wyciągać. Nie lepiej umieścić to w oddzielnym arkuszu, a nie między wierszami?
Ja to widzę przez makro, jakkolwiek do eksperta w tej dziedzinie mi na pewno daleko, więc mój kod na pewno da się porządnie zoptymalizować. Range("A1").Select na początku makro trzeba zmienić na inny (np B1, jeśli będzie nagłówek o wysokości jednego wiersza). Wypadałoby zmienić wtedy również warunek głównej pętli While maxY > 1 na poprawny (zamiast...
Jeszcze nikt się nie odezwał ... ? Zatem moja propozycja - sprawdź, czy o to chodziło: 1. Punkt wyjściowy - tabelka w zakresie wierszy ' A2:K19 ' 2. Za pierwszym razem przycisk " Zmiana asortymentu " można wstawić automatem (makro: " a_wyszukaj_kotwe ") lub ręcznie (makro: " b_dodaj_wciskanego ", należy jednak uprzednio zaznaczyć komórkę ' B21 ' - makro...
Witam Chciałbym aby makro wstawiało wiersz. [syntax=vbscript] Range("B2").Select Selection.EntireRow.Insert [/syntax] ale to działa gdy jestem w danym arkuszu, a ja bym chciał coś takiego zrobić aby będąc w "Arkusz1" i na podstawie danych z tego arkusza stworzyć nową tabele w nowym arkuszu "Arkusz2" I to jakoś mi nie chce zadziałać (nie mogę składni...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Cześć, jestem początkująca w VBA, dlatego proszę o pomoc. Potrzebuję stworzyć makro, które formatowałoby ofertę, a konkretnie wstawiało linię po każdym uzupełnionym wierszu, a na końcu zsumowało kwoty by w kolumnie G (wartość netto), I (VAT) i J (wartość brutto). Nagrałam makro wstawiania linii, niestety przy próbach wstawiania pętli wyskakuje błąd....
Niestety nie można zarejestrować w makro "inna komórka", VBA nie zrozumie takie. W post #2 PRL podal Ci link Dodano po 3 Być może jednak wiersze w arkuszu są równomiernie, na przykład co 40 wierszy umieścić numery?(w m6, m46, m86 itd.) Dodano po 19 No tota M6, przy prawej krawędzi, lub na ilu kolumny w lewo? Numer na każdej stronie powinno być 5 wierszy...
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.
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...
Widzę, że zadałem dość skomplikowane pytanie. :/ Wie może ktoś, jak zrobić chociaż ten krok ze zmianą zawartości komórki "I"? W sensie zaznaczam sobie te komórki, a makro kopiuje mi do pierwszej zaznaczonej komórki, zawartość pozostałych (zaznaczonych), wstawiając pomiędzy "+". Nigdzie nie mogę znaleźć jak to zrobić. :(
W takim razie nie rozumiem, na czym Twój problem polega... Skoro, jak piszesz, rozumiesz znaczenie przesunięcia w nawiasach kwadratowych i celowo je tam wstawiłeś, to dlaczego Cię dziwi, że "przy wpisywaniu funkcji do komórki idzie mi parzystymi wierszami"? Makro działa tak, jak je zaprojektowałeś - prześledź sobie w debugerze w osobnym pliku kod: PRZED...
Witam, bardzo serdecznie:) Makro wysypało mi się teraz trochę w innym miejscu. Niby prosta rzecz do zrobienia, tak mi się wydaje, skopiowanie zakresu pojedynczych komórek i wklejenie ich, żeby stały jedna obok drugiej w jednym wierszu zaczynając od komórki A1 (arkusz Excel). Makro w arkuszu Excel działa i wygląda mniej więcej tak: "Selection.PasteSpecial...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
... " 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)
Witam Zastanawiam się czy jest możliwe stworzenie makra, które wstawiłoby lub zmieniło formułę w komórce. Dokładnie chodzi o to, że przykładowo pierwotnie komórka C9 jest czysta, ale po wstawieniu wiersza powyżej miałaby pokazywać sumę z komórki powyżej, po wstawieniu kolejnego wiersza sumę z dwóch komórek powyżej, po wstawieniu kolejnego sumę z trzech...
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...
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...
Właśnie wrzuciłem to makro do arkusza; po uruchomieni u Basic wyskakuje mi błąd etykiety Compare; Nie powinien napisałeś Compare z dwukropkiem ? If (Sheets("Arkusz1").Cells(i, j) = "") Then Return Pomijamy puste komórki (ja akurat sobie przygotowałem arkusz rzadko zapełniony. Jeśli nie masz pustych komórek, możesz tę linię pominąć. Jak mam tę cześć...
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
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...
Witam, miałbym prośbę o małe makro, które zliczałoby ilość wierszy z pierwszego arkusza i wklejało do drugiego po spełnieniu kilku warunków. W Arkusz1 w kolumnie J będzie przeze mnie wstawiane " OK " Jeśli " OK " będzie już przy wszystkich wierszach z tą samą nazwą z kolumny C i tym samym numerem z kolumny F , to aby zliczało ilość tych wierszy i wklejało...
W załączniku plik z przyciskiem wstawiania nowego wiersza. Natomiast gdybyś usuwał wiele wierszy z zaznaczenia pamiętaj, że pola wyboru z tych wierszy ułożą się w stosik jeden na drugim. I dlatego, podejrzewam, tyle ich się nazbierało. Można dorobić makro usuwania Np ostatniego wiersza, ale to ew. później. Wyłączam komputer, idzie nowa burza...
Powracam do tematu, Czy mógłby ktoś wyedytować makro, które napisał PRL w ten sposób, aby można je było odpalić "ręcznie" przypisując je do np. jakiegoś autokształtu ? Makro miałoby działać identycznie jak to napisane przez PRL z różnicą taką, że uaktywnia się po wciśnięciu przycisku i makro sprawdza całą kolumnę G i z automatu kopiuje i wstawia poniżej...
Witam Mam poważny problem, który wymaga szybkiego rozwiązania dlatego bardzo proszę o pomoc Chciałbym napisać pętlę która kopiowałaby wiersz do nowego arkusza ale wstawiała tylko wybrane komórki. np kolumne 1,2,3,4,12 i 15 z tego samego wiersza Waunkiem kopiowania wiersza jest wartość np "x" w kolumnie 12 Naprawdę potrzebna pomoc dlatego z góry dzięki...
Proponuję wykorzystać rejestrator makr. Bez większej znajomości VBA można doskonale sobie poradzić. Przykład: 1. Nagrywam makra wstawiania i kopiowania wiersza. Wychodzi coś takiego nagrane 'Ctrl+strzałka w dół'[syntax=vb]Sub Makro3() ' ' Makro3 Makro ' ' Selection.Find(What:="Odżywianie", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlWhole, SearchOrder:=xlByRows,...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Nie umiem jednak stworzyć szablonu(a w zasadzie wykresu), dzięki któremu mogę zmienić zakres danych, który odpowiada faktycznemu wypełnieniu komórek. Ale to już jest sama sprawa excela a nie c#. O, na to też są metody... Można np. użyć dynamicznego zakresu. Zakładając, że masz nagłówek w pierwszym wierszu, w komórkach A2...Ax masz etykiety, a w C2...cx...
Niestety Twoje wyjaśnienie nie wskazuje algorytmu obliczeń, a jeszcze sprawę gmatwa. A więc spróbujmy po kolei. Zajmiemy się formułą w Arkusz1!L14. Jest tam wpisane coś takiego: [syntax=text]=JEŻELI($Q$1=1;JEŻELI(PRAWY...
Przy wstawianiu nowych wierszy nie kopiowały się niektóre formuły, później pola te zostawały puste więc makro je pomijało. Problem rozwiązany :) Dodano po 23 Dzięki wszystkim za pomoc :)
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 ?
Makro do przetestowania. Uwagi: 1. Najlepiej wrzucić kod do modułu "normal.dotm". Najprościej: otworzyć Worda z menu 'Start', nagrać dowolne makro wybierając miejsce przechowywanie "szablon globalny". Następnie zastąpić je poniższym, włączyć referencje i zamknąć Worda z zapisem szablonu. Makro będzie dostępne w każdym dokumencie. Żeby nie rozsyłać makra...
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...
excel makro wstaw wstaw wiersz makro wstaw
amervox pilot załączenie tyrystora bocznikiem minus delta
whirlpool at315 zamrażarka czerwona lampka
Amplituner buczy po włożeniu anteny - przyczyny i rozwiązania Szczotki węglowe w odkurzaczu Zelmer Jupiter ZVC425HT: wymiana i objawy zużycia
