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.
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",...
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...
Makro działa.. Dziękuję
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.
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.
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ś...
Temat do zamknięcia, Maciej rozwiązał moją zagadkę :) Bardzo dziękuję!! Makro działa świetnie, na pewno zaoszczędzi mi wiele monotonnej pracy.
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...
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...
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 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,...
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...
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...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
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 " 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)
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.
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.
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...
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ść,...
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...
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! 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...
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,...
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) = ""...
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...
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ę 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...
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ń...
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...
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"...
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...
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...
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...
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...
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.
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...
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...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie. Wstawiam załącznik. Byłem w pracy i nie mogłem zajrzeć wcześniej na forum. Dane w komórkach są fikcyjne (musiałem oczyścić prawdziwe dane, gdyż nie mogę ich udostępniać), ale bardziej chodzi o zasadę działania na danych. Wierszy w tabeli jest ok. 500 wierszy i przy każdej zmianie trzeba...
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...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Witam i proszę o pomoc - jeśli jest to możliwe. Stworzyłem makro kopiujące dane kolejno z wielu plików do pliku docelowego: 'kopiowanie z pliku 01 do docelowego w wierszu 5: Windows("plik_01.xls").Activate Range("P4").Select Selection.Copy Windows("docelowy.xls").Activate Range("$C$5").Select Selection.PasteSpecial Paste:=xlPasteValues 'kopiowanie z...
Witam. W jaki sposób określać zakres działania makra (chcę aby zakres adaptował sie do ewentualnie wstawianych/usuwanych wierszy)? Nie umiem pisać kodu. Zawsze nagrywam makro ale wtedy zakres jest zapisany jako konkretne adresy komórek i po dodaniu lub usunięciu wierszy zakres pracy działania makra nie jest właściwy. Przykład: 1 Mam sformatowaną komórkę...
Właśnie chyba wszystko poplątałem, wykorzystywałem formułe z IFem do usuwania wcześniej wierszy i nawet rozsądnie to rozkminiłem. Chciałem ją dostosować do wstawiania formuły, ale chyba pobłądziłem. Cel jest prosty, chcę aby w każdej komórce w kolumne, wstawiało mi makro formułe do momentu kiedy np w kolumnie A będzie cokolwiek wpisane.
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 :)
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...
Witam Mam do was wielką prośbę dotyczącą makra. Posiadam Excel 2013 i 2016. Załóżmy że w komórce D1 mam tekst "Utworzenie sprawy"; Załóżmy że w komórce D14 mam tekst "Utworzenie sprawy Załóżmy że w komórce D41 mam tekst "Utworzenie sprawy" Załóżmy że w komórce D65 mam tekst "Utworzenie sprawy" W komórce d1 od tej komórki makro zaczyna pracę. Jeśli 1...
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ć??
Witam, serdecznie poszukuje pomocy odnośnie wykonanie Makra, które by czytało dane z tabeli, wstawiało dokładnie jedna dana w dokładnie jedno miejsce oraz drukowało tak przygotowany arkusz oraz numerowało strony od 1 . Chodzi o to by Makro wzięło z tabeli z pierwszego wiersza 3 dane, z każdej kolumny inna wstawiło do następnego arkusza oraz wydrukowało...
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...
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...
Zakładam, że za aktualizowanie odpowiedzialne jest jakieś makro. Dopisz wstawianie komórki (Range("A1").Insert Shift:=xlDown) i usuwanie końcowej przed zasadniczą procedurą. Dzięki za podpowiedź, ale to makro które aktualizuje komórkę A1 jest zahasłowane i nie da rady nic dopisać. Trzeba by zrobić nowe tylko do przesówania komórek. Mogłbyś napisać...
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
Czyli jak rozumiem, w VBA nie za bardzo daje się upublicznić tablicę Ależ można tylko trzeba uważać gdzie się wstawia deklarację globalną bo to ma znaczenie. [syntax=vb] ' (powyżej Tablica) ' Deklaracja zmiennych i stałych ' Public Tablica() As Double ' (poniżej Tablica) ' Deklaracja funkcji itp. ' Sub Czytaj() ReDim Tablica(1 To 10, 1 To 10) For i...
Założenie było takie, żeby kopiował wszystkie wiersze w których w kolumnie F była wartość "tak" ale w takiej formie kopiuje wszystko niezależnie od "<>". Założenie było w miarę dobre. Z realizacją trochę gorzej. Makro działa tak jak je napisałeś tj. porównuje wartość komórki F1 z wartością zmiennej nazwanej przez Ciebie nie . Jeżeli chcesz aby...
Może to dlatego, że w takiej formie jak to podałeś teraz, funkcja aktualizuje dane tylko z otwartego arkusza o takiej nazwie. Żeby aktualizować dane z arkusza umieszczonego w jakiejś konkretnej lokalizacji, powinieneś podać pełną ścieżkę do niego. Spróbuj przerobić kod w podobny sposób jak przykład poniżej (zwróć uwagę na zmianę nazwy arkusza na pełną...
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...
Kilak kolejnych IFów działa, wcześniej chyba gdzieś w złym miejscu je wstawiałem i makro się wywalało. Albo End If w złe miejsce lądowało. Arkusz1, Arkusz2 podałem jako przykładowe nazwy kodowe arkuszy. Nadałem własne, więc chyba lepiej wpisać w makro np Arkusz1 czy wksUser1, niż podawać nazwę arkusza "KLIENCI_AGNIESZKA"? Wypróbuję jeszcze "If Arkusz1.Cells(i,...
..chodzi o to, ze naciskajac DATA wstawia mi sie aktualana data z godzina, a chcialbym tez aby lacza w tym wierszu zaminialy sie na wartosci.. dziekuje, pozdrawiam http://obrazki.elektroda.pl/2565691900_1... http://obrazki.elektroda.pl/2565691900_1... Dodano po 5 makro od JRV działa b.dobrze, o to mi chodzilo, dziekuje bardzo...
Jak zwykle kol adamas ma rację. W grę wchodzi tu stosunek obrazka do wielkości komórki. Z prawidłowym sortowaniem jest problem na obu arkuszach. Nie wiem czy próbowałeś posortować arkusz kilka razy? Obrazki są dopasowywane przez Twoje makro do rozmiarów komórki, do której są wstawiane. Natomiast wysokość wierszy w arkuszu jest różna. Ustaw sobie jednakową...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Witam, mam następujący skoroszyt: http://obrazki.elektroda.net/32_12676045... potrzebuję napisać makro bądź jakąś formułę która podczas wstawiania literki X w kolumnie nazwiska np. Martyka będzie przenosić cały wiersz z wszystkimi danymi do arkusza "Martyka". Kolejne zaznaczenie w kolumnie Martyka ma dodawać kolejny wiersz w arkuszu Martyka....
Przepraszam, ale nie mogę dać realnego załącznika. Musiałbym go tworzyć od nowa ze wszystkimi formułami i jeszcze przerabiać. Bez danych źródłowych dostaje tylko ADR w 90% komórek bez tych danych. Oczekuję by ktoś pomógł napisać kod VBA dla funkcji goal seek który będzie podstawiał wynik ale tylko dla tych wierszy które mają podaną szukaną wartość....
Witam, Czy istnieje możliwość napisania w MS Excel makra, które będzie działało zgodnie z poniższym schematem: 1. W skoroszycie istnieje arkusz Jacek oraz Placek 2. W arkuszu Placek w zakresie A1:K500 występują wartości całkowite, które mogą się powtarzać 3. W arkuszu Jacek w kolumnie "W" istnieją wartości całkowite unikatowe - nie powtarzające się...
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....
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): http://obrazki.elektroda.pl/6793685500_1... a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Kopiowania i wklejania, tudzież opcji odwrotnej nie polecam. I tak w efekcie końcowym po wklejeniu wierszy (w trybie projektowania ma się rozumieć) trzeba ręcznie zmienić właściwość LinkedCell na właściwą. W tym momencie makro działa prawidłowo. Po usunięciu wierszy też makro działa właściwie. Dalej drukuje zaznaczone. Można oczywiście w VBA napisać...
Próbuje napisać makro, ale z uwagi na brak wiedzy odnośnie najprostszych poleceń nie umiem sobie poradzić. Wydaje się, że makro jest dosyć proste. Mianowicie: 1.Istnieje ciąg wyrazów w arkuszu A (CEL) 2.Po tych wyrazach przeszukuje arkusz B (BAZA) 3.Gdy znajduje to kopiuje wartość stojącą przy wyrazie w arkuszu B. 4.Wstawia ten skopiowany wyraz w kolumnie...
Witam Nie mogę sobie poradzić z pewnym problem. Do arkusza importuję dwie listy z danymi zawartymi w trzech kolumnach. Ilość wierszy jest zmienna. Wygląda to mniej więcej tak: https://obrazki.elektroda.pl/4157421300_... Chciałbym, aby makro porównywało te dwie listy i brakujące dane (z kolumny z nazwiskiem i zerowymi danymi o ilości...
Witam Poszukuje wsparcia w utworzeniu odpowiedniego makra. Posiadam dwa skoroszyty. W pierwszym "A" znajduje się arkusz z tabelą w którą chcę z automatu wprowadzać dane. Jedna cześć danych będzie narzucona i automatycznie wpisywana przez narzucony schemat w makro Druga cześć danych będzie kopiowana z tego samego skoroszytu " A" , tylko z innych komórek...
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...
No dobra ... dla zachęty ... Założenia: 1. W arkuszu masz ileś tam pól wyboru - nie odpowiedziałeś na pytanie więc wstawiaj je sobie ręcznie, jak masz czas na to ... 2. Pola wyboru, mają nazwy ściśle powiązane z numerami wierszy, w których się znajdują, np.: "CB 2" 3. Zaczynając się od wiersza nr 2 (pierwszy wiersz to nagłówki kolumn, zakładamy że są...
Hej, dziękuję za odpowiedź, niezwłocznie przetestuję makro.
Dzień dobry , Chciałabym poprawić makro, żeby zamiast sztywnego przypisania powtarzanego w drukowaniu wiersza wstawiana była zmienna. Fragment nagranego makra wygląda tak: .PrintTitleRows = "11:11" ' powtarza wiersz 11 na każdej stronie Moje nieudane próby, gdzie x to numer wiersza .PrintTitleRows = Chr(34) & x & ":"...
Moje makro uruchomione na Twoich danych daje taki wynik: Jan Kowalski2013-04-031/1 Pawel Nowak2012-06-051/1 -> 1/2 Z czego linia druga jest czerwona. Makro pozostawia wpis z najświeższą datą oraz wstawia wcześniejszy wymiar zatrudnienia (gdzie aktualny zostaje najbardziej z prawej strony). W taki sposób można łatwo odfiltrować sobie jednych (np w...
tylko że nie mam pojęcia większego o VBA i nie wiem jak zrobić lub jakiego hasła poszukać dla wyboru lub dodawania arkusza pytanie czy makro z openoffica zadziała: Sub WstawNazwanyArkusz() Dim Nazwa As Variant Nazwa = InputBox("Wpisz nazwę dla nowego arkusza:", "Nazwa nowego arkusza") If Nazwa = "" Then GoTo brak Else Sheets.Add.Name = Nazwa Exit Sub...
W nowym pliku bez makr działa mi dynamicznie jak chce. Tutaj w tym pliku "zeszyt1poprawki1" jakas blokada wynikająca z makr? W tym pliku masz włączone ręczne przeliczanie funkcji. W zakładce Formuły, w Opcje Przeliczania zmień "ręczne" na "automatyczne" - czy gdzie to tam masz w swoim excelu. Ta funkcja ma po prostu przepisywać wartości z kolumny F...
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
Witam ponownie. szczególnie marka ,który praktycznie w większości napisał mi makro w tym programie i jego proszę o pomoc. Program hula mi super, ale ja wymyśliłem pewne usprawnienie i mimo pomocy forumowiczów nie daję sobie do końca rady. Omówię pokrótce o co mi chodzi i pokażę jak mi pomagali koledzy.Program który wysyłam jest do minimum skrócony i...
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ść...
Nagraj makro usunięcia scalenia, wstawiania wiersza, ponownego scalenia i zapętlij...
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...
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ć. :(
Aby nie rozbijać wątku na PW - postanowiłem wkleić moją porażkę: Witam, wiesz powiem wprost zagadnienie mnie przerosło i czas mnie sporo goni o tyle o ile rozumiem lub prawie rozumiem to co pisze to jednak nie rozumie tego co makro robi. Doskonale zdaję obie sprawę z moich braków w językach programowania i dlatego zwracam się do ciebie poprzez PW. Makro...
Coś takiego tylko żeby szukało wiersze z kolumny A wiersze z kolumny B, a nie z A i B. Sub Makro1() 'cała procedura liczy się hoho i jescze trochę (ale tak to jest z VBA) 'dane na Arkusz1, wyniki na Arkusz2 maxrow = 20 'przeszukiwany zakres maxcol = 20 Sheets("Arkusz2").Acti... Sheets("Arkusz2").Cell...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
Mam nadzieję, że nie zamęczam. Musiałem niestety odrobinę przemodelować tę tabelę stąd też pytanie - Co w poniższym kodzie, trzeba zmienić żeby zamiast kol. B,C,H przerzucał kol. B,C,V z arkusza "kontrole" (kolumny od R stanowią tablice pomocnicze - w zał. plik)? [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column...
Przerobilem znalexione w sieci makro tak ,że działa ale tylko na 2 plikach :/ nie wiem o co chodzi.. A chciałem aby działało na tylu plikach ile zaimportuje.. Możecie coś podpowiedzieć? I ewentualnie pomoc w jeszcze 2 rzeczach: 1) Wstawianie zer tylko tam gdzie: a) osoba jest zgodna ale nie ma wartości w całym wierszu b) tam gdzie nie znalazło nikogo...
Witajcie - mam problem z danymi w Excell'u ..... Tabela ma następujący układ DATA RODZAJ DANE1 DANE2 DANE3 1 X 3 8 8 1 X 6 6 10 1 Y 10 5 6 1 Y 8 2 0 2 X 6 5 5 2 X 3 4 5 2 Y 6 5 5 2 Y 0 4 11 Potrzebuje dokonać sumowania dla danych suma 1A, suma 1B, suma 2A, suma 2B itd Oczywiśćie możńa to zrobić na "piechotę" czyli wstawiać wiersze, sumować...można też...
Chcę aby w arkuszu produkcja kolumna N , wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. No a jak "kolumna N" nie zna dobrze VBA :?: :D To jeśli W Excelu porusza(m) się biegle szuka(m) innych możliwych rozwiązań dla uzyskania pożądanego rezultatu. Przykładowo w Excelu 2007: 1. Porządkuje skoroszyt Produkcja.xls :sprawdzam...
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...
Dzięki za pomoc. Mam teraz dwa nowe problemy/pytania: 1.Czy da się przerobić ten kod aby [syntax=vb]Private Sub CommandButton2_Click() Dim tekst As String tekst = InputBox("Nazwisko i imiê") Cells(19, 9) = tekst zerujszukaj szukaj1k szukaj1g szukaj1p szukaj1z End Sub[/syntax] aby: a) wyskakujące okienko msg box miało oprócz "Nazwisko i imię" dodatkowo...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Witam! Mam problem z poprawnym działaniem makra. Makro które przerobiłem z innego pliku gdzie dane były przenoszone z pierwszego arkusza do arkuszy znajdujących się w tym samym pliku. Teraz potrzebuję aby przenosiło do innego pliku z innych komórek. Niby przerobiłem je na podobę tamtego odpowiednio zmieniając adresy komórek z których ma pobierać dane...
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.
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...
makro wstawianie wiersza excel makro wstawianie wiersza poniżej wstawianie wiersza
naprawa kosiarki bezpiecznik wycieraczka tylny amplituner przygasa
Końcówki mocy w radiomagnetofonie Philips D8614 Opel Corsa B - Brzęczenie przerywacza kierunkowskazów na wyłączonym zapłonie