[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" Then Application.ScreenUpdating = False nw = Sheets("Baza").Cells(Rows.Count, "A").End(xlUp).Row + 1 Range("A2:C2").Copy Sheets("Baza").Cells(nw, 1).PasteSpecial xlPasteValues Range("A2").Select Application.CutCopyMode = False Application.ScreenUpdating =...
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Jak uważasz, ale osobiście wolałbym mieć wszystko pod ręką, w jednym arkuszu. W załączniku "po mojemu" z blokadą zakresu. W innym przypadku: w A1 wpisz =PRODUKTY!A1 i rozciągnij na zadany zakres, a w opcjach wyłącz wyświetlanie zer.
Da się to zrobić w ten sposób: 1. wpisać dane kwota netto w kilka wierszy np od 2 do 5, 2. przeciągnąć formułę przeliczenia euro od wiersza 2 poza wiersz 5 o kilka (np 5) wierszy w dół. w miejscach gdzie nie było w wierszach danych kwot netto w kolumnie przeliczników pojawi się 0. 3. zaznaczyć obszar komórek z zerami i nacisnąć "del", nie poprzez usuń...
Masz dwa przykłady, wybierz sobie pasujący lub skoryguj pod własne potrzeby. 912573 Przyjrzyj się nazewnictwu przycisków, ale nie temu na samych przyciskach, tylko ich nazwom kodowym - w nazwie każdego z nich znajduje się nazwa tabeli, której dotyczy - to identyfikator: 912574
Zobacz Dim so As Long so = Sheets("Start").Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(so, 1) = so- 1 Cells(so, 2) = textbox1 Cells(so, 3) = textbox2 Cells(so, 4) = textbox3
[syntax=vb]Sub numery() Dim wz As Worksheet, rs&, re&, i&, j& Dim bs As Range, bd As Range Set bs = ThisWorkbook.Sheets("baza").Range("B1:C1... 'platform, tara Set bd = ThisWorkbook.Sheets("start").Range("B1:C... 'wagony Set wz = ThisWorkbook.Sheets("wykaz_zdawczy") wz.Activate rs = 17 'wiersz poczatkowy re = wz.Cells.Find("podpis").Row...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Mam taki oto kod do dodawania Run-tim error: 1004: Application defined or object defined error
Potrzebuję gotowego makra, które będzie dodawało mi nowe wiersze. Może ktoś da radę pomóc. Mamy przykładowo w kolumnie D takie wartości: 1 D 2 5 3 1 4 30 5 8 6 100 Makro miałoby teraz dodawać pod spodem tyle wierszy ile jest napisane w tej kolumnie - 1. Np. Mamy w komórce 2D wartość 5 to pod spodem trzeba dodać 4 puste wiersze. w komórce 3D mamy 1 to...
Mam plik csv do importu do sklepu no i powinien on posiadać ID numer, ale trzeba go dopisać. Otwieram plik w excelu i mogę tam dopisać na początku każdego wiersza te numery jednak to nie o to chodzi żeby robić to ręcznie prawda? jakiej komendy itd użyć żeby excel dopisał do początku każdego wiersza "1|" ? Dla wyjadaczy to prościzna, ja sie na tym nie...
Cześć, Zwracam się z prośbą o pomoc, ponieważ potrzebuję napisać makro, które kopiowałoby wybrany wiersz, od pola B2 w Arkuszu1 (to wiem jak to zrobić) a następnie wklejałoby go w następne. Tu zaczynają się schody, ponieważ nie chcę na sztywno wpisywać zakresu wklejania. Warunek ma być następujący, jeżeli w kolumnie A (NAZWA DOSTAWCY), nie ma żadnej...
Witam. Jestem początkujący w VBA więc proszę o wyrozumiałość. Szukam pomocy przy wykonaniu kodu który ułatwi mi pracę z formularzem, a mianowicie chciałbym kod który: 1wszym kliknięciem przycisku DODAJ 1. Skopiuje wartość z komórki B1 Arkusza1 do komórki D5 Arkusza2 (to zrobiłem samodzielnie) (wartośći B1 Arkusza1 zdefiniuje listą rozwijaną) 2gim kliknięciem...
Witam, mój problem z excelem brzmi jak w temacie: chodzi mi o samoautomatyczno przenoszący się wiersz do innego arkusza po wpisaniu odpowiedniej wartości... szukałem trochę na różnych forach i ten temat wydaje się być najbardziej pasujący do moje problemu: http://www.elektroda.pl/rtvforum/topic19... Nie znam się specjalnie na vba i nie wiem jednak...
Mam 24 arkusze w excelu w każdym zamieszczam faktury i po około 5 tabel różnej wielkości analizujących te faktury po numerze faktury i nazwie umowy, rozdzielających je na miesiące oraz wynagrodzenia zależnie od grupy zawodowej. Dane przenoszone są do ostatniego arkusza gdzie są podliczane. Potrzebuje kodu tak jak w temacie, ponieważ w ciągu roku może...
Mam już gotowe tabele, bardzo długie, muszę teraz u góry kaźdej strony dodać wiersz "z przeniesienia", ale tak, aby dane liczbowe z tego wiersza nie sumowały się z resztą danych. Bardzo proszę o pomoc.
Potrzebuję pomocy z napisaniem makra, które będzie miało za zadanie automatyczne wstawienie nowego wiersza w przypadku gdy dane w komórkach wykraczają poza kolumnę H i przeniesienie do niego tej zawartości poza kolumną H z powyższego wiersza. W załączniku plik przedstawiający co chciałbym osiągnąć.
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...
Witam potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
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ć...
Mam takie pytanko: czy jest możliwość stworzenia takiego makra, żeby wstawiało puste wiersze, ale nie przed kazdym kolejnym wierszem jak we wzorze poniżej jest tak: 1 wrocław 2 kraków 3 kraków 4 kraków 5 warszawa 6 warszawa a chciałabym, żeby było tak: /pusty wiersz/ 1 wrocław /pusty wiersz/ 2 kraków 3 kraków 4 kraków /pusty wiersz/ 5 warszawa 6 warszawa...
Witam! Przyznam, że nie jestem nawet średniozaawansowany w Excelu. Muszę utworzyć kilkaset nowych wierszy w arkuszu. Posiadam plik z około 22000 wierszy. Na nowym arkuszu chciałem utworzyć jedną komórkę, w którą podawałbym wartość. Ta wartość miałby być odszukana w tym wielkim pliku (arkuszu) i miałaby pociągnąć wartości z kilku komórek (np. G,H,Z)...
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...
Nie do końca wiem o co ci chodzi. Jeżeli chcesz aby po skopiowaniu komórek funkcje/wzory odnosiły się do nowych komórek ale w tym samym "ułożeniu" jak do komórki kopiowanej trzeba pozbyć się znaków $ (dolara) w funkcjach/wzorach (np: A10 + B10) [Znak $ wstrzymuje zmianę kolumny lub wiersza lub kolumny i wiersza przy kopiowaniu] Jeżeli chcesz zrobić...
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,...
Witam, co ma być zmodyfikowane w procedurze VBA, aby zadziałała. Procedura ma zadziałać w całym arkuszu w momencie w następujący sposób: 1. Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9, to ma dodać jeszcze 8 wierszy. 2. Ma skopiować dane z wiersza powyżej. 3. W kolumnie G w pierwotnym wierszu jak i skopiowanych wierszach ma być cyfra...
Witam, tym razem mam taki problem. Istnieje w formularzu tabelka. Zawiera w sobie powiedzmy ok. 20 wierszy z danymi. Mój problem polega na tym czy możliwe jest: 1. automatyczne dodawanie wierszy wraz z formułami przez formularz kiedy osiągniemy ostatnią pozycję. 2. czy można to zrobić automatycznie w kilku arkuszach jednocześnie 3. czy istnieje możliwość...
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Najlepiej gdyby to było w osobnym arkuszu . Dodano po 6 I chodzi dokładnie o zrobienie jednego wiersza z duplikatów , nie wiem czy ma to jakieś znaczenie ale czasami jest ich więcej niż dwa .
Witam! Od czasu do czasu korzystam z VBA lub po prostu rejestruję proste makro, żeby ułatwić sobie pracę. Ostatnio natrafiłem na problem. Zarejestrowałem proste makro ułatwiające dodawanie kolejnych odczytów do tabeli w arkuszu, który jest częścią większego skoroszytu, ale innych makro w nim nie ma. Ku mojemu zdziwieniu okazało się, że makro czasem...
Witam! Od jakiegoś czasu poszukuję bezowocnie rozwiązania do następującego problemu: Buduję arkusz do rozliczeń i podliczeń różnych rzeczy dla pracowników mojego znajomego, ponieważ jednym z założeń jest prostota obsługi, próbowałem dokopać sie do funkcji lub makra automatycznie powiększającego tabelę o kolejny wiersz przy naciśnieciu klawisza enter....
Chodzi o odpowiednie sformatowanie tekstu, ktory jest automatycznie wgrywany do SAPu. Uzytkownicy excela wpisuja wlasny tekst, ktory nastepnie poprzez klikniecie guzika jest uploadowany do SAPa automatycznie. Problem w tym ze SAP nie przyjmuje paragrafu dluzszego niz 60 znakow i odrzuca tekst. Jezeli natomiast na koncu kazdej linijki doda sie wspomniany...
Witam , mam taki problem i uparłem się żeby rozwiązać go w excelu. Muszę utworzyć plik do którego dostęp będzie miało kilkunastu pracowników. Osoby będą dopisywać kolejne wiersze w pliku. Chodzi mi o takie zabezpieczenie wpisów że dostęp do danego wiersza będzie miała osoba która dany wiersz zapoczątkowała - dla uproszczenia przyjmijmy że w pierwszej...
Ja też nie kumam. Czytam już piąty raz. Jeżeli tak zadajesz pytania to nie dziwie się że nie znalazłeś odpowiedzi. Ktoś pracował 14 godzin ? Wytłumacz jeszcze raz i daj przykład dla każdego wiersza co powinno być w 3 kolumnie (jaki wynik). Choć i tak nie rozumiem "nie 24" I najważniejsze datę i godzinę widzę że wprowadzasz formatem excela ale czas pracy...
Jeżeli chcesz to w jakiś sensowy sposób używać, to na pewno musisz zmienić formę, w jakiej trzymasz dane, to nie podlega dyskusji... Nie tak jak masz teraz że kolejne daty dopisujesz sobie w prawo, tylko kolejne wiersze muszą być jeden pod drugim, coś w stylu: Nazwa - Typ (P, W) - Data - Ilość Myślę, że można też wrzucić kolumnę z daty wyciągającą rok-miesiąc....
nagrałem dodawanie wiersza i wstawiłem w po else w miejsce exit sub ale tutaj zdaje się powinienem wstawić warunek sprawdzający tabelę z ofertą taki, że jeśli tabela nie ma pustych wierszy to wówczas na końcu dostawia nowy wiersz. Po nagraniu rejestratorem otrzymałem taki kod: Dodano po 8 Jeszcze pytanie: w kodzie, który mi podesłałeś miałem przypisane...
np. tak: Dim koniec as integer koniec=cells(9, 24).value '<--- pobiera wartość z X9 jako koniec for x=1 to koniec Tu jest to, co ma być w pętli next x
OKNO -> zablokuj okienka następnie dodajesz usuwasz tyle wierszy i kolumn ile potrzebujesz i jak potrzebujesz aby nie były przesuwane podczas edycji. Pozdrawiam
Jeśli piszesz, że nie znasz się na VBA, to dlaczego chcesz to robić w VBA? Przecież do tego wystarczy prosta formuła: [syntax=text]=LICZ.JEŻELI(D$1:D1;$D$1)[/... kopiujesz w dół jak daleko potrzeba. A żeby to zrobić w VBA należałoby opisać jak to dokładnie ma działać, czy jednorazowo, czy ma śledzić wpisywanie nowych danych i dodawać numerację...
Zapewne problem tkwi w (partokrotnym) "sztywnym" odwołaniu do komórki $O$23 w formule. Skopiuj formułę do pierwszego wiersza. Zaznacz tą komórkę i bylejaką inną obok wciśnij CTRL+H i zamień $O$23 na komórkę gdzie masz "stałą" 24:00 np O2 ale pamiętaj o dolarach czyli $O$2. Następnie skopiuj tą komórkę z poprawioną formułą w dół. Myśle że jasno - jak...
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
W [syntax=vbscript]w = Cells(Rows.Count, "A").End(xlUp).Row + 1[/syntax] masz numer wiersza kolejnej wolnej komórki w kolumnie A, użyj go np. [syntax=vbscript]Cells(w, "A").Value = Date[/syntax]
Proste, w kodzie Cells(i, j).Value = Chr(39) + CStr(Cells(i, j).Value) zamiast "i" wpisać 24 Cells(24, j).Value = Chr(39) + CStr(Cells(24, j).Value) Pozostaje drobny szczegół "i" - pierwszy parametr jest właśnie numerem wiersza, a "j" - drugi parametr to numer kolumny.
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....
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
Otwórz w Access tabele do której chcesz wkleić dane, ctrl +a, ctrl+c, otwórz excel nowy arkusz ctrl+v, wytnij wszystkie wiersze oprócz nagłówków kolumn (pierwszy wiersz) , edytuj dane dodawaj, zmieniaj co chcesz, kolumnę id pozostaw pusta. Gdy skończysz zaznacz i skopiuj arkusz, w Access zaznacz ostatni wiersz w tabeli i ctrl+v, jeśli typy danych itd...
dziekuje widzę, to teraz zagadka co mam zrobić żeby zwiększyć ilość kolumn ??? bo zwiększam np. do 13 i dodaje licz jeżeli i w komórce A3 zmieniam zakres to error...
jak zrobić żeby tyle ile razy kliknę na guzik "dodaj nowy materiał" dodawał tyle nowych wierszy ???
excel2003pl wyszukiwanie po kilku znakach / modyfikowanie / dodawanie nowych Witam poszukuję rozwiązania dla mojego problemu dotyczącego wyszukiwania mam listę osób i rozegranych z nimi pojedynków Przykładowa lista: osobawygralprzegralremis poddanyz kim gacek11200ozon pinki kajko rak44-3000kosa lipa rety taki_jaki0111fanty azory sepy Co będzie mi potrzebne...
Dzień dobry, Wydaje mi się, że sprawę załatwi nadanie zakresowi roboczemu nazwy, pod warunkiem, że nie będzie się usuwać ostatniego wiersza ani ostatniej kolumny, a dodawać nowe również przed ostatnim wierszem i przed ostatnią kolumną, a nie za nimi. Poza tym nagłówki kolumn też trzeba aktualizować ręcznie. Gdyby istotne było, żeby tabela się automatycznie...
Na przykład dodaj jeszcze jedną kolumnę przy wierszach które mają być liczone wpisz 1, w kodzie dodaj jeszcze jeden if który sprawdzi czy jest jeden jeśli jest to liczy jeśli nie to następny wiersz, lub po ostatnim Next do wartości p. K. i dodajesz tyle ile ma być pominiętych wierszy, np i =i +10 i jeszcze raz wklejasz swój kod który sprawdzi następny...
Jest super, zamieniłem tylko nazwy arkuszy i działa. Czy jeżeli moja formatka jest w formie utworzonej i nazwanej tabeli, to mogę zmienić w kodzie w taki sposób, żeby dodawało wiersze w tabeli? W tym momencie dodaje mi dodatkowe wiersze pod tą tabelą.
Czyli ustawiasz kursor w którymś z wierszy, naciskasz przycisk i ma się dodać wg wartości w tym wierszu? Oj, żebyś żonie nie uprzykrzył ;) Nie rozsądniej byłoby zrobić to za pośrednictwem formularza? Wybierasz z pól kombi (stan w podglądzie) i dodajesz pod przyciskiem. Update 7:50 Coś jak w załączniku. W ostateczności wykorzystaj makra...
W załączonym arkuszu sprawa jest prosta (same liczby). Liczysz zajęte wiersze + przecinki. W treści natomiast, dopuszczasz tekst i tu jest już mniej prosta. Musiałbyś rozbić ciąg, sprawdzać czy fragmenty są liczbą i warunkowo dodawać do sumy... Przy ilości przecinków >3, bez VBA, robi się dość skomplikowana.
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
No właśnie nie do końca wiem jak napisać tą procedurę. Próbowałem kilka kombinacji i zawsze coś było nie tak, jeszcze raz dodaję plik
Witam, Problem, który dla wielu z Was może być banalny, jest dla mnie trudny, ponieważ mam małe doświadczenie z Excelem. Jednak poprawienie tego pomogłoby mi w mojej pracy. Chciałbym, aby "Arkusz1" automatycznie pobierał informacje z "Arkusza2", tak jak zaznaczyłem kolorami. Tekst z kolumny A (arkusz2) miałby służyć jako "wyzwalacz" w komórce B5 w...
Jeden z options - create objekt EXCEL - zrobić kopię z arkusz1 - Liczba wierszy i dodać kolumnę z datami. Następnie zaimportować w Access. Można inaczej. Po każdym imprtcie (jak teraz) - UPDATE <table> SET data_od WITH <data z TextBox> WHERE data_od IS NULL kolumny data_od data_do musi już być w bazie danych przed tym
Poczytaj w pomocy o argumentach funkcji. W drugim przypadku wyszukujesz w wierszach a nie w kolumnach. Można zastosować bardzo podobną funkcję do poprzedniej WYSZUKAJ.POZIOMO, stosując kolumnę pomocniczą do określenia numeru wiersza (trzeci argument). W G3 (celowo dwa wiersze więcej, żeby nie dodawać, bo dane są od trzeciego wiersza tablicy) =PODAJ.POZYCJĘ(F3;K$2:K$6).....
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Ech, pomyliłem. Nie tłumacząc zbyt wiele. Wpisz w K10: =J10+(13-WIERSZ())/100+I10/10 i przeciągnij w dół. Zasada się nie zmienia, ale wartości chcemy od zera w górę. Dodajemy mały ułamek wiersza i dodajemy duży bilansu. Jeśli bilans ujemny - zmieni się znak (ułamka) na minus i przesunie w tabeli na koniec "równych". Tu: ManU na końcu http://obrazki.elektroda.pl/7520329700_1...
Function zapas(tydz, wiersz) Application.Volatile 'Excel 2k7 'Application.Volatile = True 'Excel 2k 'trochę tu latania po arkuszu :) 'szukam wiersza zawierającego tekst wt = Cells.Find(what:="Dni robocze", lookat:=xlWhole).Row 'określam pierwszą kolumnę z wielkością produkcji / zółta tabelka zKol = tydz - Range("C5")...
Zacznij od "surowych" funkcji, następnie dodawaj/odejmuj... Np dla startu od D7 trzeba odjąć 6 wierszy i 1 kolumnę: http://obrazki.elektroda.pl/9304772400_1... Edit: Zapomniałem o tym "WZ" :) ="WZ "&WIERSZ()-6&"/"&...
dodawanie wiersza excel dodawanie wiersza dodawanie kolejnego wiersza excel
radio twingo podłączyć świecić kontrolka oleju telewizor technik schemat
Oprogramowanie do Philips 48PFS8109/12 - skąd pobrać? Klawisz z dwoma kółeczkami w BMW E39 - funkcja AUC
