Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
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"...
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...
w miejsca w których powinny być, czyli w miejscach w których pojawiają się w drugim arkuszu Jak makro ma to ocenić? Co z wierszami bez indeksu w A? Myślałam żeby znaleźć te wartości z prawda i ich indeks minus 1 wtedy indeks plus 1 wstawić pusty wiersz i wstawiać wiersze
Czy istnieje taka możliwość stworzenia kodu by coś takiego można było robić ? Twój pomysł I gdy będą zablokowane Wiersze 6 i 7 chciałbym móc wstawić wiersz między nimi by dodać kolejna partię dla B34Y58B2p2 i tak samo by się wiersz zablokował gdy będą wszystkie pozycje uzupełnione jest chyba nie do końca przemyślany :?: Jeśli jesteś autorem tego zabezpieczonego...
Dzięki wielkie, Działa, aczkolwiek nie do końca jak chcę. Makro kopiuje wiersze, gdzie w kolunie G jest wartość większa niż 1, ale tylko raz. Ja chcę, aby kopiowało wiersz tyle razy ile jest wpisane właśnie w kolumnę G i tą wartość zamieniało na "jedynki". Czyli, jeżeli np. w komórce G2 mam wartość 5 to makro ma wstawić poniżej do wierszy od 3 do 6...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Witam serdecznie, Potrzebuje pomocy w napisaniu marka, poniewaz sam nie potrafię. Tabela: W kolumnie T w kolejnych wierszach są wpisane jako tekst ścieżki na dysku. Czasem jest to jedna ścieżka, a czasem dwie lub trzy oddzielone ";" (średnikiem). Czyli ścieżki to takie główne wartości oddzielone ";" średnikami. Makro: Makro ma przeszukiwać tekst (wartości)...
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
Dzień dobry, Jaka kompletna świeżynka w VBA i proszę o pomoc. Próbuję napisać makro, które będzie wstawiało pusty wiersz, jeśli w kolumnie E znajdzie pełną komórkę. Ten pusty wiersz ma wstawić pod wierszem, w którym znajduje się ta pełna komórka. Napisałam coś takiego: [syntax=vbscript] Sub Wstawianie_Wiersza() Dim BL As Range Dim xCell As Range Set...
Potrzebowałem makro, które wstawia w określonym miejscu (kolumna E) hiperłącze na podstawie listy plików (kolumna B) i przyjaznej nazwy (kolumna D). Bez problemu zrobiłem makro, które działa jak należy ale korzystając z odwołań do konkretnych kolumn: Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury...
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...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Dzięki za zainteresowanie. Niestety ani jeden ani drugi sposób nie załatwia mojego problemu. Po wpisaniu do komórki C9 formuł, które podaliście sytuacja wygląda tak, że jak staję na komórkę C9 i dodaje wiersz powyżej to w komórce C10 jest dalej suma tylko jednej komórki C8:C8, a mi chodziło o to, aby formuła zmieniała się na C8:C9. Dlatego zastanawiałem...
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 problem, jestem nowy i nie mam zbyt dużej wiedzy o VBA. Szukam sposobu aby makro skopiowało cały wiersz w jednym arkuszu i wkleiło go tyle razy ile wynosi wartość w jednej z komórek w tym własnie wierszu. Nastepnie makro ma przejść do kolejnego wiersza, ale pominąć te wklejone. Bardzo licze na pomoc, wierszy mam naprawde mnóstwo a jest to...
Wydaje się, że makro jest dosyć proste ale samo się nie napisze. ... żeby makro zliczało wszystkie powtarzające się wartości ... Do tego wystarczy licz.jeżeli() ... ponieważ chodzi o to żeby makro WKLEJAŁO nowe komórki gdy znajdzie więcej niż jeden odpowiednik... Tu też można "obejść" dodając kolejne "dane" w kolejnych kolumnach a nie w wierszach....
W dwóch zdaniach: chodzi o to by z arkusza baza pobrać pierwszy indeks "z" a do obliczeń w arkuszach 1-4 stosować indeks "na" wszędzie tam gdzie pojawi się ten oryginalny "z". Arkusz mam za zadanie dodawanie stanów, sprzedaży, itd. do indeksów w arkuszach 1-4 stosując zamienniki ("na") ale jednocześnie nie usuwając oryginalnych indeksów jakie tam są....
Cześć, jest zupełnie początkująca. Potrzebuję makra, które doda mi wiersz w prawie każdej zakładce (zakładek mam 31). Mam przycisk, zarejestrowałam makro, ale jak wiadomo przycisk mi działa tylko do jednej zakładki. Sub Makro3() Makro3 Makro Rows("5:5").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub I w tej jednej...
Proszę o pomoc. Chcę, by z arkusza pierwszego po wciśnięciu przycisku "add" cały dany wiersz kopiował się do czwartej zakładki "zamówienie". Plik ma mieć docelowo ok.200 wierszy, więc chodzi o to, żeby przekleić to makro do kolejnych wierszy. Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add, dlatego też program musi wiedzieć, że ma kopiować...
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, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...
Wypróbuj coś takiego Sub kopiuj() Dim plik As Workbook Dim i As Long, pierwszyWiersz As Integer, ostatniWiersz As Long 'jesli nie dalej niz wiersz Nr 32767 wystarczy As Integer pierwszyWiersz = 1 ostatniWiersz = 100 'jesli w tym samym katalogu Set plik = Workbooks.Open(Filename:=ThisWor... & "\Zeszyt2.xls") 'jesli...
Dzięki za pomysł ale ja zacząłem myśleć o czymś innym.Może po prostu umieścić w SMARA NETHERLANDS gdzieś indziej osobno wyniki dla braku zapinki i brak woreczka, a później swykłą sumą umieścić je w komórce B5. Żeby nie było jednak za łatwo, zauważyłem dopiero teraz,że wyszukiwanie poprzez ("Paprika*") nie działa.Pewnie dlatego,że excel szuka w komórce...
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).
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:...
Zablokować pierwszy wiersz, zmienić wysokość, wstawić tam wszystkie przyciski i używać jako "paska menu"...
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...
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
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,...
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
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...
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...
Aktywny 'arkusz2' [syntax=vb]r = Application.CountA(Columns(1)) + 1 While r > 2 n = Application.CountA(Rows(r - 1)) - 2 For nr = 1 To n Rows(r).Insert Cells(r - 1, n - nr + 3).Cut Cells(r, 2) Next r = r - 1 Wend [/syntax]
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
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) = ""...
trzeba by makro... :) na to samo wyjdzie w ilości klikań, jak wstawisz wiersz, tabela automatycznie się wydłuży. :D pozdr
No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę. Chyba nie dość dokładnie opisałem w czym rzecz ;-) Suma, 30 (pusty wiersz) Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej. Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad...
Witam Mam pytanie czy jest mozliwosc zaktualizowania makra? Posiadam Makro ktore wkleja jakies formuly w obszarze 100 kolumn i 100 wiersz, potrzebuje teraz wstawic dodatkowa kolumne mniej wiecej w polowie zakresu, Iteraz co zrobic aby zapisy makra rowniez sie przesunely o ta jedna kolumne, jest taka mozliwosc????
Witam, potrzebuję makra, które po uzupełnieniu komórki np. N7 wstawi cały nowy wiersz powyżej tej komórki i będzie tak za każdym razem, gdy N7 bedzie uzupełnione. Nie jestem wystarczająco biegła w VBA na takie operacje, a inne wątki nie pomogły wystarczająco. Z góry bardzo dziękuję za pomoc.
(at)maciejgonet Dzięki wielkie za pomoc! Miałbym jeszcze tylko pytanie co do działania całego makra. Czy da się z niego wyeliminować zapisywanie w historii sytuacji kiedy ktoś dodaje nowy wiersz? Makro oczywiście wtedy działa tak jak powinno i zapisuje zmiany, czyli zapisuje np. 16000 pustych komórek które zostały dodane przez wstawienie nowego wiersza....
https://obrazki.elektroda.pl/4025704200_... Na czerwono zaznaczyłem Dodano po 2 Powinien skasować wartość z C3, C5 itd. Nie wstawił wiersza 6 Za to wstawił wiersz 11 nie wiadomo dla czego Dodano po 1 Dołączam plik z kopiowaniem dla wszystkich kolumn
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,...
Próbowałem robić to pętlami, ale coś mi nie wychodzi i pojawia się "debug", dlatego proszę o pomoc w napisaniu tego makra. A ja zauważyłem że co dziennie ktoś nowy się rejestruje i potrzebuje pomocy w napisaniu makra i nawet nie próbuje nagrać makra czy też wstawić to co do tej pory udało mu się zrobić, nie mówiąc już o załączeniu przykładowego pliku.(czy...
1. Klikam przycisk "Dodaj wiersz" 2. Makro dodaje jeden wiersz nad wierszem sumy zostawiając formatowania komórek. W tym przypadku numeruje z automatu kolejny wiersz w pierwszej kolumnie a drugi pozostawia pusty Uruchom sobie makro które jest w pliku to zobaczysz. Problem mam że przy wstawieniu tego makro i przypisaniu w nim zakresu "Tabela2" i tak...
Ktoś tu kiedyś sortował "merglowane". Zerknij tutaj: [url=http://www.elektroda.pl/rtvforum/to... Przy niewielkiej ilości wierszy, łatwiej (ale bardzo nieefektywnie) byłoby wstawić 3-wiersz, szukać MAX'a i podstawiać... Edit 21:10 Och, postanowiłem sprawdzić, jak bardzo nieefektywne (załącznik) ;)
Potrzebuję makro, które usunie mi cały wiersz Co stoi na przeszkodzie, aby kolega napisał sobie takie makro? Przykładów różnych pętli jest na naszym forum pod dostatkiem, usuwanie wiersza można nagrać rejestratorem, kod wstawić do pętli i podstawić zmienne. Metoda do wyboru: porównywanie każdej z każdą, lub wyszukiwanie (Find) W razie problemów z działaniem,...
"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...
Prawie wszystko już jasne. wg mnie pozostaje tylko makro. Czy te dodatkowe kolumny (ukryte) też docelowo maja się kopiowac do kart pracowniczych? I druga rzecz piszesz że wolisz stawiać x przy nazwisku (jest bardziej czytelne). Masz rację przy 5 nazwiskach. Ale sama mówiesz aby przewidzieć ok 20 pracowników. Dalej uważasz że przy dwudziestu nazwiskach...
OK. Przed pętlą For wklej: w sytuacji gdy dla któregoś wiersza dane znajdują się w którejś z kolumn H:J ale jednocześnie nie jest wypełniona kolumna E lub G Jeśli jest inaczej, trzeba to zrobić w pętli, sprawdzając każdy wiersz z osobna. Edit rano ;) Np czymś takim: [syntax=vbscript] For w = 8 To 40 If WorksheetFunction.CountA(.Range("E" & w &...
Poniższe makro wstawi tą formułę w 20 komórek poniżej zaznaczonej komórki: i : [" & i & ".xls]. To tak na przyszłość, jakbyś chciał to kiedyś zmodyfikować.
Nie działa, a wstawiłem makra do mojego pliku źródłowego. Proszę skopiować ten makro całkowicie z pliku Pana jeszcze jedno. To również została skopiowana? Const LastR As Long = 5000 'Ostatni wiersz z formul Dodano po 46 Po pierwsze było: '''*************************************... '''Te stale Pan zmienic dopasowane do Twoich potrzeb '''*************************************...
W załączniku przykład. A teraz do rzeczy: Moja wiedza jest licha, a widzę, że bez makra się zwyczajnie zajeżdżę ;) Chciałbym, aby makro skopiowało mi zawartość kilku komórek jednego bieżącego arkusza (B2;B3;B4;F4;N24) i wstawiło ich wartość do nazwijmy go 'Arkusz1' ale tym razem w jeden wiersz, a następnie wstawiło pusty wiersz i przeszło do arkusza...
excel makro wstawić wiersz wstawić wiersz wiersz makro
demontaż peugeot benzyna szarpie octavia wyjąć zmywarka bosch
inter electronics satel firmware
HP LaserJet M110w toner 142A – ceny oryginału i zamienników, koszt strony, chipy v5 2024 Brak sygnału na ASUS VG32AQA1A z RX580 przez DisplayPort