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...
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ń...
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ść, Chciałbym aby makro porównywało mi kolumne a z kolumną b i w kolumnie d wpisywało komentarz większe lub mniejsze Makro niech nie porównuje gdy niepuste wiersze bądź wartość 0. Udało mi się napisać coś takiego : [syntax=vbscript]Sub porównaj() Dim ostw As Long ostw = ThisWorkbook.Sheets("Arkusz1").Cells(Row... "c").End(xlUp).Rows For x =...
hmm, nie za bardzo o to chodziło, ale dzięki za odpowiedz. zmiany pracują w systemie i rzadko dwa lata z rzędu wypadają tak samo :( ja zrobilem cos takiego lopatologia ale dziala czy ktos jest w stanie doradzic co do kodu? [syntax=vb]Option Explicit Sub dniowki() With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With...
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...
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...
[syntax=vbscript]Sub WstawWiersze() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = 2 While Cells(x + 1, "D") <> "" y = x + 2 Rows(y).Insert Cells(y, "C") = Cells(x + 1, "C"): Cells(x + 1, "C") = "" Cells(y, "D").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" Range("D" & y).AutoFill Range("D" & y & ":I" &...
Przed [syntax=vbscript]End If[/syntax]czyli w trzecim wierszu od końca wstaw: [syntax=vbscript]MsgBox "Rejestracja zakończona pomyślnie"[/syntax]
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,...
Wstaw plik to popatrzę.
Usuń dane i wstaw arkusz z makrem. Będzie łatwiej pomóc
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...
Cześć, mam problem z utworzeniem makra do podanego przeze mnie pliku. Otóż znajdują się tam trzy arkusze: Dane, Dane(2), Do uzupełnienia. W arkuszu Do uzupełnienia potrzebowałbym rozwiązania, aby pobierając dane z arkusza Dane (2) w odpowiedni sposób wstawiać nowe wiersze, pomiędzy stare tak aby nie trzeba było szukać miejsc w arkuszu Do uzupełniania...
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...
Dzięki bardzo :) Działa. Dodano po 1 Działa w przypadku jednego zdania, jaki kod należy wpisać jeżeli jest więcej zdań i każde zaczyna się od nowego wiersza z wielkiej litery, a niektóre zdania zajmują dwa wiersze?
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...
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Widzę że działasz już trochę w excelu. Nagraj makro copy - paste i wstaw instrukcje jeżeli
Wygląda na to, że tak. Wstaw przed pętlą Do (po With) [syntax=vb].ShowAllData[/syntax]i spróbuj.
A wstaw no spakowany plik z przykładowymi danymi...
Wklej kod makra u siebie. [syntax=vbscript] Sub kopiowanie() ' ' kopiowanie Makro ' ' Klawisz skrótu: Ctrl+k ' nowy_wiersz = 1 kolumna = 1 For wiersz = 2 To 11 Sheets("Arkusz1").Select Cells(wiersz, kolumna).Select Selection.Copy i_wstaw = Cells(wiersz, 7).Value For wstaw = 1 To i_wstaw nowy_wiersz = nowy_wiersz + 1 Sheets("Arkusz2").Select Cells(nowy_wiersz,...
W załączonym pliku nie ma tabeli!!! Wybacz mój błąd, chodzi mi o makro dodające wiersze tak jak w załączonym pliku.
Witam Proszę o pomoc w napisaniu makra które by ułatwiło mi pracę i skróciło czas jej wykonywania. Mam następujący problem W bazie danych mam 4 arkusze i chciałbym stworzyć makro które wstawiało by 5 wierszy pod każdą nazwę kraju w Arkuszu o nazwie Kraje1 i Kraje2, następnie z Arkusza Kraje1 lub Kraje2 (nie ma znaczenia z którego bo lista zawsze jest...
Witam serdecznie Potrzebuję pomocy w napisaniu makra które by działało w następujący sposób: W kolumnie A mam powiedzmy 10 różnych tekstów pod sobą, w kolumnie B mam liczby całkowite przy nich. Potrzebuję powstawiać wiersze dla każdego tekstu o takiej liczbie wierszy jak w kolumnie B przy danym tekscie i żeby teksty były pod sobą. np: A1 / B1 Kot 5...
Witaj. Czy przemyślałeś do końca temat? W jaki sposób są te liczby cyklicznie zmieniane? Ręcznie, czy są one generowane innym makrem, albo funkcją na podstawie formuł? W jaki sposób chcesz uruchamiać makro? Ręcznie dla całego arkusza? Ręcznie dla jednej komórki? Automatycznie po zmianie wpisu w komórce? Jeśli będziesz wykonywał dla całego arkusza, to...
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...
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...
Dwie rzeczy: 1. [syntax=vb]Application.ScreenUpdating = False[/syntax]na początku makra i[syntax=vb]Application.ScreenUpdating = True[/syntax]na końcu. 2. Zamiast 100 razy pisać: [syntax=vb]wscel.Cells(wstaw, 2) = wsbaza.Range("B" & c.Row) wscel.Cells(wstaw, 3) = wsbaza.Range("C" & c.Row) ...[/syntax](swoją drogą: że też Ci się chciało...) zrób: [syntax=vb]wscel.Range("B"...
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 następujący problem: w arkuszu Excel mam dane z datami w kolumnie A od komórki A2 w dół. Dane są w porządku malejącym, ale mają luki - tzn. np. po 26/01 czasami jest od razu (bez pustego wiersza) 24/01. Chcę napisać makro, które w takim wypadku wstawi odpowiednią ilość pustych wierszy w miejscach, gdzie brakuje dat. Póki co mam kawałek kodu,...
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)...
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...
Dziękuję za chęć pomocy, tabela jest utworzona w excelu poprzez "wstaw tabele" w załączniku plik z przykładem w docelowej wersji są jeszcze inne tabele niżej dla których też chce zrobić taki przycisk
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
Wstaw lipne dane i załącz plik Pliki zawierają ok 25 000 wierszy, w razie potrzeby podeślę na priv. Pozdrawiam Kamil
Witam, Temat ogólnie już był poruszany, ale został zablokowany a ja chciałabym stworzyć coś dodatkowego do niego i nie wiem jak. Konkretnie chodzi mi o taką tabelkę jak w załączniku 1 i stworzenie do niej makra by oddzielały się wiersze po nagłówku "Obiekt" i dodatkowo by tam gdzie jest nagłówek "Godziny" tworzyło się auto-sumowanie dla powyższych kolumn...
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"...
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
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
Utknęłam. Moje makro filtruje wiersze ze statusem New i je kopiuje, następnie otwiera drugi plik i dokleja te odfiltrowane wiersze i usuwa duplikaty. Jak zrobić, żeby dla każdego nowego wklejonego wiersza w ostatniej kolumnie (AE) dodawana była data?
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]....
Ten plik, który pokazałeś jako wzór ma zupełnie inną strukturę i raczej trudno go dopasować do Twojego nowego pliku. Szkoda, że nie ma w nim żadnych danych, żeby zweryfikować czy formuły kopiują się poprawnie. Poza tym nie wiem, czy tak jak w pliku wzorcowym istotne jest wstawianie wierszy, czy wystarczy samo kopiowanie. W pliku wzorcowym były podsumowania,...
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...
Pewnie jest w tym makro jakiś błąd (sądząc po godzinie powstania = mniej więcej godzina postu to nawet bardzo prawdopodobne). Niestety bez rzeczywistego pliku danych ciężko coś poprawić. Nie znam specyfiki Twojego arkusza, ale spróbuj zmienić na początku makro: Const MaxR = 20 ' maksymalna ilość powtórzeń zamiast 20 wstaw 100. Zobacz czy coś się zmieni,...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
Przyznam, że zaczynam się gubić. Spróbuj: [syntax=vb]Private Sub CommandButton1_Click() Dim szukaneTabl As Variant Set wscel = Worksheets("sheet1") Set wsbaza = Worksheets("sheet2") ost_wiersz_celu = wscel.Range("A65536").End(xlUp).Row 'ost_wiersz_bazy = wsbaza.Range("D100").End(xlUp).Row szukaneTabl = wscel.Range("A2:B" & ost_wiersz_celu).Value...
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...
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...
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...
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"...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
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,...
Wklej w kod arkusza Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then ostW = WorksheetFunction.CountA(Range(&... + 1 Cells(ostW, 2) = Target.Value End If End Sub Jeśli dopuszczasz puste wiersze to zamiast tych dwóch linijek wewnątrz, wstaw If Cells(1,...
Wstawiłeś 2x .Find, a za drugim razem powinno być .FindNext. Ta całą pętla For powinna wyglądać tak: [syntax=vb]For r = 1 To UBound(szukaneTabl) 'przepisanie wartości tabeli wscel.Range("A" & wstaw) = szukaneTabl(r, 1) wscel.Range("B" & wstaw) = szukaneTabl(r, 2) Set c = wsbaza.Range("A1:A" & ost_wiersz_bazy).Find(What:=szukaneTabl(... 1),...
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
da sie coś takiego zrobić? Da się, Np przy użyciu pętli (For lub Do). Wewnątrz wstaw instrukcję wyboru (If) porównującą wartości komórek w kolumnach obu arkuszy i jeśli są równe, to licznik pętli będzie interesującym nas numerem wiersza, dalej już z górki. Podobny temat: [url=http://www.elektroda.pl/rtvforum/to... ostatni post.
Wygląda to trochę inaczej niż założenia o jakich była mowa w pierwszym poście, tematy się powtarzają. Dla filtra potrzebna będzie lista unikatowych nazw tematów, realizowana w arkuszu przez wstaw>wklej specjalnie i dalej jak w moim przykładzie. Lub makro (uruchamiane np przy aktywacji arkusza "Menu") z wykorzystaniem tablicy, jeśli ma to działać automatycznie...
proponuję pobawić się tym osobiście. Daje wiele możliwości. Na początek zaznacz zakres (np kolumny) i wstaw tabelę przestawną Użyj godzin jako początków wierszy i liczników oraz numerów jako nagłówków kolumn. W pole danych wsadź zaś- zapewne wstawi je z funkcją COUNT i gotowe teraz zostaje pobawić się w pivotowanie Tabela przestawna to tabela agregująca...
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 ;)
Witam Mam poniższy kod makra, który przenosi wartości z komórek w kolumnie "C" do komórek w kolumnie "CL", która pierwotnie jest pusta: [syntax=vbscript]Sub wstaw() Dim licznik As Integer Dim ostWrs As Integer Dim Nazwisko As String ostWrs = Range("A65536").End(xlUp).Row - 1 For licznik = 79 To ostWrs Step 93 Nazwisko = Range("C" & licznik).Value Range("CL"...
Mam prośbę do ludzi zajmujących się #programowanie #vba o małe makro do Word-a. Pewnie sam bym je wymęczył, ale z moja nikłą wiedza trwało by to długo. Natomiast dla zawodowca to pewnie chwila. Makro ma wstawić zakładkę w miejscu kursora czy aktualnego zaznaczenia, a nazwa zakładki ma być wzięta z aktualnie zaznaczonego tekstu (o ile coś jest zaznaczone)...
Jeżeli zamiast przycisków ActiveX mogą być zwykłe Excelowe, to możesz tak przerobić makro, które Ci podałem w poprzednim poście: 1. Przerób usuwanie obrazków na obrazki i przyciski: [syntax=vb]For Each s In wsdest.Shapes If s.Type = msoPicture Or s.Type = msoFormControl Then s.Delete End If Next s[/syntax] 2. Do swojego projektu wstaw moduł (Insert->Module)...
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...
nagralam makro ale nowy wiersz wstawia mi sie zawsze pod wierszem 29 a chcialbym aby kazdy nowy wstawial sie na koncu
Jesteście czarodziejami. Super. A mógłby mi ktoś jeszcze wytłumaczyć jak mam teraz zrobic żeby moja tabelka tak wyglądała jak w tym ostatnim poście. Ja załączyłem wyjątkowo krótką tabelke na forum. Ale moja ma ponad 1000 pozycji. Tylko tak łopatologicznie proszę !!! Dziękuję za dotychczasowa pomoc. Wstaw na końcu tabeli trzy dodatkowe kolumny (zaznacz...
Cześć, Potrzebuję podpowiedź z następującym problemem. Mianowicie chodzi o wyszukiwanie danych na podstawie daty. Potrzebuję w bazie danych usunąć wszystkie wiersze, których daty są wyższe niż wprowadzona przez użytkownika. Kolumna dat ma format dd/mm/yyyy, natomiast gdy używam poniższego kodu to nie wyszukuje mi nic, lecz gdy wejdę manualnie zobaczyć...
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ć. :(
Witam! Mam makro, które przenosi wartości wstawione w kolumnach H, I oraz J do karty której nazwa jest identyczna z wartością tekstu wstawionego w kolumnie C dla wiersza w którym w kolumnach H, I, J ma przenieść dane. Dodatkowo w momencie przenoszenia danych do odpowiednich kart, kopiują się również informacje z datą raportu, zmianą jakiej dotyczy wstawiany...
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...
Przepatrzyłem kilka przykładów z sieci i udało się sklecić coś co działa poprawnie. Abyście nie szukali nadaremno - zamieszczam kod: [syntax=vb] Sub OblatywaczPrototypów() Dim MyDir As String Dim CurrentFile As Variant Dim i As Integer Dim ChosenFile As String ChosenFile = Application.GetOpenFilename(FileFilter:=... Files (*.xls), *.xls", Title:="Wybierz...
Sory że tak pouczam ale... tak jak się obawiałem Nie skorygowałeś pętli zerującej tak by zerowała drugą tabelę, pętli wypełniającej żółtą kolumnę w drugiej tabeli i... błędna formuła w sumie "dana wpłata" sumująca wszystkie wartości w drugiej tabeli. Tak wyglądają poprawne pętle : w inicjacji okna: For i = 1 To 12 Worksheets("DANE").Cel...
Dzień dobry, Jestem początkujący i chciałem doprowadzić do sytuacji gdzie mam plik, który rośnie. Każdy dzień to osobna kolumna. Uzupełniajać wiersze danej kolumny, chciałbym aby obok wstawiana była data modyfikacji tego wiersza/komórki. Do tego udało mi się doprowadzić. Teraz jednak chciałbym zrobić to dla każdej co drugiej kolumny: |Dane1| |wstawianie...
Poniżej podaję kody moich czterech makr które chciałbym uruchomić z Arkusza1 a działanie tych makr miałoby się odbywać tylko w Arkuszu2. Co muszę w tych kodach zmodyfikować ? Sub LoopRange() x = 1 Do While Cells(x, 8).Value <> "" Cells(x, 8).Select Selection.Copy Cells(x, 8).Select Selection.PasteSpecial Paste:=xlPasteValues x = x + 1 Loop x =...
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...
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...
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
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...
Witam w załącznikach dodałem przykładowe pliki bardzo okrojone ale mające pokazać o co mi chodzi. Prosiłbym o pomoc w zrobieniu makra które przeniesie dane z pliku DANE do pliku STATYSTYKA. Warunek jest taki żeby wstawiało te dane w pliku STATYSTKA biorąc pod uwagę datę przyjęcia czyli jeżeli w pliku STATYSTYKA w komórce C2 mamy datę 2023-01-30 to żeby...
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...
Co masz na myśli pisząc że "nie działa"? U mnie działa zgodnie z opisem... Komentarze do poszczególnych linii: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) 'w zdarzeniu przy zmianie w arkuszu If Target.Address = "$A$1" Then 'jeżeli adres komórki której dotyczy zmiana = A1 ost_w = Worksheets("Dane").Range("A" & Rows.Count).End(xlUp).Row...
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 eksperci. Moja przygoda z vba zaczęła się jakiś czas temu, ale nadal raczkuję w tym temacie i wciąż natrafiam na przeszkody. Proszę o pomoc w tym temacie-mam tabelkę: Load NumberPartNumber 111111111aaaadddrrrr 2222222sssskkkk 33333wwww 44444444mmmmaaaaa 5555555xxxxccccvvvvmmm 666666ssssjjjjoooo 77777777bbbbbgggg load to kolumna A part-B Numer...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Sposoby są różne, zależy od zasięgu zmiennej. Chyba najlepiej coś takiego: w VBA wstaw nowy moduł (Insert->Module), możesz mu zmienić nazwę, ja zostanę przy Module1. Umieszczasz w nim deklarację zmiennej: Public d As Integer Potem przechodzisz na ThisWorkbook, z listy na górze po lewej wybierasz "Workbook" - powinno Ci domyślnie wstawić zdarzenie: Private...
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...
Czy da się to zrobić bez zamieniania obszaru na tabelę Excela? Da się, ale jest z tym więcej zachodu, a za chwilę będziesz znowu coś zmieniać i znowu będziesz pytać. Jaki masz problem z tabelą Excela? Ona jest bardzo elastyczna, jak dopisujesz wiersze, to formuły się automatycznie kopiują, można ją dowolnie formatować, nawet tak, że prawie jej nie...
;masz dwa makra ;LCDinicjacja musisz wstawic po resecie. ;ProcWriteLCD wstaw gdzie ci sie podoba , zawiera procedury komunkowania sie z lcd ;ustawienia systemu LCD ilLinEQU2 ;1 lub 2 czyli ile wierszy TypCzciEQU0 ;0 lub 1 , jesli 0 to 5x8, jesli 1 to 5x10 iniIDEQU1 ;0 lub 1 , jesli 0 to dekrementowanie wskaznika danych iniSEQU0 ;0 lub 1 , jesli 0 to...
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...
Witam Chciałbym Was bardzo prosić o pomoc w napisaniu algorytm/sposobu, który wydaję się w miarę logiczny i prosty do wykonania…Szukałem rozwiązania jednak nie mogę znaleźć nic podobnego. Poza tym moją wiedza z zakresu VBA jest chyba zbyt skromna. Dane, którymi muszę się zając to kilkaset wierszy wpisów w tabeli. Dane źródłowe wyglądają jak w...
I teraz zupełnie nie wiem co mam zrobić z makrem które zrobiłeś, za duże uproszczenie. Przepraszam.. Mam je trochę skomplikować?? ;) Wydaje mi się że tutaj powinnam wstawić fragmenty odpowiedzialne za kopiowanie: Napisałaś, że warunkiem kopiowania jest: Kopiuje wartości które spełnią warunek taki że kolumna "B" zawiera "tak" do ostatniego pełnego wiersza...
Jeżeli chodzi o arkusz źródłowy to wstaw w pętle przepisująca dane np to: [syntax=vbnet]If Worksheets(zrodlo).Cells(pr_wrs + x, 8) = "OW1" Or Worksheets(zrodlo).Cells(pr_wrs + x, 8) = "OW2" Then Worksheets(zrodlo).Cells(pr_wrs + x, 33) = 1[/syntax] Czyli: [syntax=vbnet]Sub Przeksztalc() Dim pr_wrs As Integer Dim ost_wrs As Long, x As Long Dim nowy_arkusz...
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....
Ok to pokombinuje i jakby co to napisze. Jeszcze jakbyś mógł mi odpowiedzieć na 3 pytania. Jesteś pewny że to tylko trzy pytania? :) Jak zrobić przy ostatniej tabelce. gdzie np. b/l=0,5 to współczynnik mi =0,354 ... I Czy można połączyć że szuka poziomo b/l i jak znajdzie to weźmie pionową wartość przypisana do odpowiedniego b/l? Wykorzystaj funkcje...
Bez makr, to najprościej ;) : Wstaw nowy arkusz, w A1 wklej =ADR.POŚR("Arkusz1!"&ADRES... i skopiuj/przeciągnij w dół. Następnie możesz zaznaczyć kolumnę wynikową i przez...
(at)marek003 już sobie poradziłem, nagrałem makro i "wstawiłem" kod do kodu pola kombi, trochę to nie po polsku, ale chyba wiesz o co mi chodzi, a co do formatowania na biało, to możnaby to zrobić, ale wtedy miałbym luke w wydruku, a dużo tego robie.
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
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ę...
excel makro wstaw wiersze makro wstaw makro usuń wiersze
komputer wirtualizacja pralka amica reset elektroniki skasować licznik bizhub
radio clatronic clatronic radio
Hitachi 24HE2000 firmware download, Vestel 17MB211S compatibility, USB flash procedure Błąd i54 w zmywarce AEG - przyczyny i rozwiązania
