Tak na szybko, sprawdź czy o to chodziło. Skoro piszesz, że to przykład to nie dodałem warunków zabezpieczających makro przed błędem. np po wpisaniu litery zamiast liczby do B8 Jak pisał "paweliw" to dość niewygodny sposób dodawania danych do arkusza.
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...
Cześć, nie znam języka Visual Basic, ale w związku z moją pracą na arkuszach exelowskich potrzebuję stworzyć makro, które automatycznie dodaje mi wiersz ze skopiowanymi niektórymi danymi z wiersza powyżej. Makro ma działać na tej zasadzie, aby po zmianie wartości na 1 w każdej komórce w kolumnie AG (na chwilę obecną ma zakres od 11 do 14, ale docelowo...
Prawdopodobnie w arkuszu odłożone zostały jakieś znaczniki, które identyfikują dodane wiersze. Może np.: każdy wiersz tabeli wyjściowej jest w jakiejś kolumnie ponumerowany, wtedy dodanie nowego wiersza daje puste komórk lub w jakiś sposób oznaczone i wtedy bardzo łatwo to usunąć.
Witam, jako, że raczkuję w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku w zał. : Arkusz "Cena katalog 2019" - kolumna A - podwójne kliknięcie na daną komórkę w kolumnie A np. A5 powoduje skopiowanie danych z tej komórki do Arkusza " Oferta PDF " komórka B17. Każde kolejne podwójne kliknięcie powoduje dodanie wiersza w Arkuszu "Oferta PDF" pod...
[syntax=vbscript]Sub ListaTabel() Application.ScreenUpdating = False Dim xtable As ListObject Dim xsheet As Worksheet Dim I As Long I = -1 Sheets.Add.Name = "Table Name" For Each xsheet In Worksheets For Each xtable In xsheet.ListObjects I = I + 1 Sheets("Table Name").Range("A1").Offset(I).Value = xtable.Name Next xtable Next Application.ScreenUpdating...
Dzięki wielkie. Imię dodaje tylko do pierwszego wiersza z danego skoroszytu. Ale najważniejsza jest prędkość. Zrobię testy i zaprezentuje wyniki:) Czas na wyniki testu:ść Ilość plików: 142 stare makro: 1. wczytywanie z formularzy: 35sek 2. Dodawanie: 1min 2sek Nowe makro: 1. wczytanie plus dodanie 20sek :D Podsumowanie: Podczas używania starego makra...
Witam, Jestem początkującym w VBA. Potrzebuje pomocy w jednym temacie: Chciałbym uzyskac takie makro że jak zaznacze np zakres komórek A6:B11 to chciałbym tylko w tych miejscach zwiekszyc liczbe wierszy i za pomoca wpisania konkretnej liczby wierszy (InputBox). Ważne dla mnie by dodanie wiersza synchronizowane było z okienkiem w kolumnie B tzn: zeby...
Procedurę vlookup która będzie szukać danej wartości w kolumnie A i kopiować cały zakres wiersza do oddzielnego pliku raport . Problem w tym że formuła vlookup szuka tylko pierwszej wartości więc chcę to ominąć przez dodanie do każdego pliku formuły która będzie zmieniać wartość kolumny A poszczególnie do zmiany . [syntax=vbscript]Private Sub CommandButton1_Click()...
którego naciśniecie powodowałoby dodanie nowego, odpowiednio sformatowanego do wiersza wyżej wspomnianej tabeli. W zasadzie wystarczy ci takie coś: [syntax=vb]Sub DodajWiersz() Dim tblNew As Table Set tblNew = ActiveDocument.Tables(1) tblNew.Rows.Add End Sub[/syntax] aby dodać wiersz. Formatowanie brane jest "automagicznie" z tabeli. Oczywiście masz...
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
musisz dodać jeszcze wybór arkusza: Sheets(arkusz).Select
że makro odnalazło brakujące liczby, dodało wiersz lub wiersze i dodany wiersz lub wiersze zrobiło na kolor zielony I gdzie to makro?
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.
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
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....
Zmien "Vendor" na "kod" i 0# na "0,00" - jest ok Dodano po 1 myslil ze 0,00 to oddzielna komorka
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ć
Jest super, a powiedz mi jak zrobić taki samo makro "dodaj dodaj wiersz" tak aby na raz dokładało 5 wierszy Chciałbym dać jeszcze przycisk do usuwania wierszy jak doda się za dużo
W kolumnie H jest wartosc? Dodano po 7 Zamiast ark = xxx.Cells(x, "H") Wpisz ark = xxx.Cells(x, "H").Text
Niestety z tego co napisałeś i pokazałeś w pliku nie wynika, jak chcesz tego używać. W załączonym pliku nie ma Arkusza1a, a arkusze 2 i 3 są puste. Więc nie wiem, czy to ma być używane w jednym arkuszu, czy w kilku. Generalnie proponowałbym nadanie nazw zakresom i odwoływanie się do tych nazw w makrach. Gdy rozszerzasz taki zakres przez dodanie wiersza...
Nie ma takiej funkcji. Musisz zastosować makro np takie: Sub dodaj() a = 1 'pierwszy wiersz /zmien na 2 jesli od 2 wiersza itd 'liczy ile wierszy w kolumnie b = ActiveSheet.UsedRange.Rows.Count For wiersz = a To b suma = Cells(wiersz, 1) + Cells(wiersz, 2) - Cells(wiersz, 3) Cells(wiersz, 1) = suma Next wiersz...
Witam aby w kolumnie D dodało ilość danego produktu do istniejącej już liczby nawet, jeśli inny kolor i kod2? aby wpisało do kolumny b i c (arkusza 1) wartości z odpowiedniego wiersza z arkusza 2 tak samo?
Witam, kontynuując temat mam jeszcze zapytanie o takie makro: 1) w tych dodanych wierszach w kolumnie "A" wpisany byłby tekst "zrobione" 2) w kolumnie "B" ponumerowane tylko te dodane wiersze 3) w kolumnie "C" w miejsce wyczyszczonych danych wpisany tekst "ok" czy da się coś takiego zrobić? Będę bardzo wdzięczna
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
(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....
Witam, z pomocą filmów na YouTube w Excelu 2016 w kolumnie D4-D26 zrobiłem listę plików z hiperłączem, które znajdują się w lokalizacji wskazanej w komórce D2. Z kolei w kolumnie E mam wpisane "z ręki" te same nazwy plików ale w innych wierszach. Niestety lista plików układa się alfabetycznie a ja potrzebuję, żeby hiperłącze było w kolumnie F ale w...
Fakt. I przed Rows też. To dlatego, że dodałem tego with'a już po napisaniu kodu i wtedy ktoś mnie zajął czymś innym, a potem musiałem już lecieć i tak zostało. Dlatego nie lubię pisać przykładów, zawsze coś/ktoś przeszkadza.
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...
Już chyba załapałem z tą numeracją. Samo znalezienie kombinacji to nie problem. Większym problemem jest ustalenie kolejności wg "twoich" zasad. Dodane o jakimś czasie ----------------------------------------... Gdyby chodziło wyłącznie o nr wiersza w którym jest dana kombinacja to tak jak w przykładzie poniżej. Jednak ty dodatkowo określasz kolejność...
To nie ma związku z formułami. W wierszu oznaczonym poprzednio komentarzem 4) zamiast lw było wpisane 12, więc pętla w ogóle się nie wykonywała (od 13 do 12 nie ma żadnej wartości). Poza tym ponieważ lw szuka ostatniego zajętego wiersza w kolumnie A, a w tym ostatnim wierszu była teraz formuła zwracająca pusty tekst, więc dodałem jeszcze w pętli warunek...
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...
Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy pobierać je od ... np.: r = 10 ... to pobierzemy...
A stosowałaś filtr zaawansowany? Na początku jest trochę skomplikowany do zrozumienia ale potem spoko. Dodam że jeden wiersz w kryteriach to wspólne kryteria dla poszukiwania w danej tabeli. Dodatkowy wiersz to "LUB" dla kolejnych warunków z tego wiersza itd. (tu na razie niepotrzebny) Ustawiasz kryteria Stajesz na nagłówku tabeli. Menu Dane - Sortowanie...
Proponuję, żeby Kolega (zakładając, że nie ma Kolega pojęciu o VBA) zaczął od zarejestrowania makro, w którym doda sobie Kolega arkusz, określi jego nazwę i kliknie sobie w dwie komórki po sobie. Potem może sobie Kolega obejrzeć kod makro, które zostało nagrane i wszystko powinno być jasne. Jeśli będzie miał Kolega problem z jakimś fragmentem kodu -...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
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....
Dodaj warunek sprawdzający zawartość komórki w wierszu z nazwami klientów.
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Tu jest kolejny niuans: Autor nie wskazuje, czy wszystkie wartości 0, lub minimum jeden, jak Twoj makra dzala Dodano po 1 uupss... makra zmyzla
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
"Zapomniałeś"dodać, że w kolumnie B też się mogą zdarzyć "wypadki", że ten sam tekst będzie pisany raz dużą, raz małą literą... Niemniej tak na szybko udało mi się takie coś naskrobać, jak w załączniku. Sprawdź sobie czy działa... PS. Gdybyś kiedyś szukał kogoś do stworzenia za rozsądne pieniądze porządnie takiego arkusza planistycznego - polecam swoje...
Jeżeli chcesz się dalej uczyć to proponuję kolejne ćwiczenie: zrób to samo wyciągając parametry kopiowanych obszarów do pomocniczego arkusza sterującego, tu lepsza będzie pętka do while po wszystkich niepustych wierszach arkusza pomocniczego. Czyli wpisujesz w 1 wierszu nazwę arkusza (np w A2) i nazwę obszaru (np w B2 => I1:I), a potem kopiujesz: [syntax=vbscript]...
Nagraj to makro i dodaj pętle for o odpowiedniej ilości. Jeżeli zdążę :) to za chwile podrzucę ci kod
Idealnie, Dziękuję Ci bardzo ;] Dokładnie o to mi chodziło. Mógłbym Cię jeszcze prosić o dodanie do tego kodu, opcji która dodawałaby date kopiowania w 17 kolumnie kopiowanego wiersza?
Sorki, że milczałem do teraz, ale byłem "trochę" zajęty ;) W przykładzie wstawianie ramki poniżej tej, w której naciśnięto przycisk. Uwagi wymaga sposób wyliczania wartości zmiennych. W arkuszu ramka ma wysokość 4 wierszy, jest 1 wiersz nagłówkowy. Nr wierszy, gdzie nastąpi wstawianie nowych dla następnej ramki to: 6, 10, 14, itd Kluczowe jest wyliczenie...
Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add Hmm.. Oznacza to, że w każdym wierszy jest przycisk ? te wiersze przy których zostanie wpisane hasło 'add' Oznacza to, że nie ma przyciskow... makro należy znaleźć hasło, czy jest w określonej kolumnie? Dodano po 1 Najlepiej dołączyć przykładowy plik
Witam. W której części wiersza? makro które kopiuje wybrane wiersze z innego arkusza Jak go zobaczyć?
Po pierwsze ilość kolumn w oryginale jest inna niż w Twojej wersji (10 i 14) trzeba to ujednolicić. Po drugie ustawiłbym kolumny w oryginale w kolejności takiej jak potrzebujesz. Po trzecie posortowałbym wiersze wg Product hierarchy 1 + Product hierarchy 2 + Product hierarchy 3. Wszystkie te czynności można łatwo zrobić nagrywając makro (dodanie i przeniesienie...
Ja bym jeszcze spróbował powalczyć z parametrem, który określa kiedy mają być przeliczane formuły. Na czas działania makra należy to wyłączyć, a na koniec przeliczyć. Swoją drogą nie bardzo rozumiem po co tak ciągle zmieniasz te rozmiary komórek? Wiadomo, że to zabiera czas, a przecież tabelka może być narysowana na stałe, przynajmniej jeżeli chodzi...
Mam dodaną ta formułę we wszyskich wierszach kolumny B ?? Wiesz co to jest przeciagnac formule? Dodano po 1 nagraj makro dla tej formuly i dostosuj zamiast tego 'Value + 2"
No to musiałem zebrać siły i samemu poradzić z problemem. Chyba wszystko wyszło tak jak chciałem. Pewnie makro nie jest sformułowane wg prawidłowej struktury, ale działa wg moich założeń. Więc: zakres wierszy zmienia się dynamicznie, w zależności od ilości dodanych pozycji przyciskiem 'Dodaj'. Ale zawsze będzie się zaczynał od 21. W załączonym pliku...
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
Dziękuję za pomoc Panowie, temat do zamknięcia Dodano po 6 Nazwę "AktywnyWiersz" zdefiniowałem dla całego skoroszytu.
Witam, Dodałem kilka dodatkowych makr. Nazwy nowych makr w aplikacji integra control wyświetlane są bez spacji, nawet jeśli nazwa makra to dwa krótkie słowa, każde zapisane w osobnym wierszu. Dla przykładu, zamiast: GARAŻ OśWIETL. wyświetla GARAŻOŚWIE Tl. Wcześniejsze makra wyświetlane są poprawnie, np: BRAMA GARAŻOWA. jest wyświetlana dokładnie tak...
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
Dodam tylko, że próbowałam to zrobić tak → w A2 wpisuje numer → klikam szukaj → makro schodzi 4 wiersze w dół (czyli do wyszukanego wiersza) → następnie idzie w prawo do pierwszej wolnej komórki z ilością. Dodano po 3 Sub poprawneOdswiez() ' ' poprawneOdswiez Makro ' Range("A6").Select Application.CutCopyMode = False Application.CutCopyMode...
Kiedy aktywujesz arkusza 2, wierszy i zakresy wierszy(do edytowania) już musi być określony. Jak masz zamiar zapytać tych wierszy? zmieścić się w makro (Array)-nie dość elegancki. Dodano po 38 Jest to opcja - Kiedy aktywujesz arkusza 2 przy użyciu przycisku 'Ctrl', kursor i przewijania zaznacyc wiersze, gdzie ręczna edycja. Jak na to?
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
Makro tworzy listę produktów (jeśli trzeba dodaj sortowanie), następnie sprawdza arkusze od 7-go wiersza i 3-ciej kolumny. Jeśli zmieniasz układ, wyjdzie... bałagan. Przeanalizuj, dostosuj do własnych potrzeb. Makra w Excelu oczywiście włączone.
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn. Taki sam kod wykorzystuję w innym pliku i tam wszystko jest ok, tylko że ukrywanie wierszy jest przy pomocy filtra a w powyższym przypadku przy pomocy makra
Witam, chciałabym stworzyć makro porównujace dwa wskazane przeze mnie pliki. Układ obu plików jest taki sam. Na kilkaset wierszy czasami zostanie zmieniony tekst/kwota lub całkiem usunięty/dodany nowy wiersz. Widziałabym to tak że wskazuje konkretne dwa pliki, a makro porównując je usuwa powtarzające się wiersze (sprawdzając zarówno tekst jak i kwoty)....
Witaj. Jak domyślam się, samo przeniesienie odpowiednich pytań i odpowiedzi do drugiego arkusza nie jest problemem, większym problemem jest pozbycie się pustych linii z najprostszego możliwego rozwiązania. Do tematu można podejść na dwa sposoby, za pomocą makr, albo za pomocą odpowiednich formuł. W przypadku bardziej skomplikowanego problemu makra pewnie...
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...
Dzięki. Wyśmienicie. A jak bym przed podliczeniem całkowitej sumy chciał to jeszcze rozdzielić na poszczególne wiersze, jak to zrobić?
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...
Problem polega na tym że zwraca wszystkie wystąpienia, ale w jednym wierszu oddzielone ; . Prośba o pomoc w przekształceniu makra tak abym mógł decydować które wystąpienie wyszukiwanej wartości ma zwracać. Dodaj do funkcji kolejny argument.
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
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...
Blok, to taka robocza nazwa, jaką nadałem grupie wierszy. I tak pierwszy blok to wiersze 2-8 drugi blok powstaje po użyciu przycisku "dodaj" - to wiersze 10-16 itd.... Co do sprawdzania kolorów, fakt, jest ta funkcjonalność przypisana przyciskowi "czyść dane" Jestem początkującym w zakresie VBA, więc pewnych rzeczy nie rozumiem.... Byłbym wdzięczny,...
Dziala :) wielkie dzieki za pomoc Dodano po 2 Jeszcze jedno pytanie :) Czy jest mozliwosc aby edytowac makro usuwajace wybrane wiersze aby usuwalo rowniez te same wiersze tylko w drugim arkuszu tego pliku tzn. teraz usuwa w aktualnie otwartym Arkuszu 1 i chcialbym zebym usuwalo jednoczesnie to samo w Arkuszu 2 i zeby nie przenosilo mnie do Arkusza 2
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 :)
Ogromne dzięki. Makro śmiga. Czy mógłbyś mi jeszcze tylko powiedzieć co musiałbym dodać do tego kodu, aby zostały też przeliczone wszystkie formuły w jednej kolumnie np A
Konkretnie chodzi mi o makro takie że jak zmieniam wartość w kolumnie L w danym wierszu (np z B na C), to znika mi zawartość komórki w tym samym wierszu w kolumnie T. To podane przez Ciebie wkleiłam do utworzonego nowego modułu2 ale nie działa:( Dodam, że nie znam się na makrach więc nie wiem gdzie zrobiłam błąd.
jestem totalnie zielona w tym. potrzebuje makra, dzieki ktoremu excelskieruje mnie do pierwszej pustej komórki w kolumnie A. dane bowiem mają paredziesiąt tysięcy wierszy i nie moge za każxdym razem tego przewijać. dodam, że nigdy nie robiłam makra..... proszę doświadczonych o kod do wklejenia
Nie mam takiego przycisku. Mam tylko "Dodaj obrazek". Dodano po 9 Sorry, trochę techniki i człowiek się gubi.
Po pierwsze dodaj ma_być.xls (ewentualnie ma_być.jpg) Po drugie podaj to w postaci xls
Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
Witam, Czy to ma być filtr na tych danych czy makro, które przekopiuje takie dane w kolumnie obok? Czy nie można modyfikować tych wierszy lub dodać dane po przekątnej? przykład: 905631
Alleluja Mistrzu. Jeszcze jedna drobnostka. Co dodać, żeby pomiędzy "zestawami danych" nie dawał pustego wiersza? I czy da się też tak kopiować te dane, żeby obramowanie zostawało ? :)
Do trzech razy sztuka :) Czyli jeszcze raz może bardziej zrozumiale. Jeżeli w wierszu 4 wartość jest pełna to ma łączyć zawartość komórki z wiersza trzeciego Na przykład: jeżeli w wierszu 4, komórka w kolumnie AD jest pusta, to ma łączyć zawartość komórki z wiersza czwartego z tej samej kolumny. Jeżeli "AD4" nie jest pusta, to ma być łączona komórka...
Witam, potrzebuje stworzenia makra dla ponizszego problemu. Chce skopiowac kilka wierszy z danego arkusza, jezeli dana wartosc wystepuje w pierwszej kolumnie tychze wierszy. Skopiowane komorki a najlepiej tylko wartosci bez formatowania, chcialbym dodac do bazy danych juz istaniejacej w tym samym arkuszu na samym dole. Dla uproszczenia: szukamy w kolumnie...
Dla przykładu No właśnie dla przykładu, to przydałby się przykładowy plik. Dodano po 4 Nie pisz na PW proszę, skoro plik dotyczy tematu.
Tak jak napisali poprzednicy potrzebne jest tu adresowanie bezwzględne. Dodam jeszcze, że często przydaje się wiedza iż po wpisaniu w komórkę formuły: - =$A$1 po "przeciągnięciu" jej w dół lub w prawo zawsze w docelowych komórkach będzie wpis =$A$1 - =A$1 po "przeciągnięciu" jej w dół zawsze w docelowych komórkach będzie wpis =A$1, po "przeciągnięciu"...
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...
Nie jest tam żadnego komunikatu o błędzie? Jak dodac przed 'End Sub' np. MsgBox "Koniec", można zobaczyć okienko? Można ręcznie skopiować z 468 arkusza? Być może istnieje coś, co nie jest kopiowane Dodano po 3 poprzez makro lądują dane ( tylko do pierwszego wiersza (A1:X1) Dlaczego natychmiast makro nie wkleja jeden pod drugim?
Dzięki wielkie jakoś poszło :) Mam jeszcze takie pytanie: chcę napisać makro które zlicza początkową ilość wierszy w kolumnie, następnie pozwala na dodanie kolejnych rekordów po czym znowu zlicza ilość niepustych wierszy. Nie chciałabym używać Useform tylko pozwolić użytkownikowi na wpisanie nowych rekordów bezpośrednio w arkuszu.
Na arkuszu "Nowa Hala Cyl." przypisać jedną komórkę dla indeksu, np. O1 Na arkuszu "Etykieta" w komorkach odwolania do arkuszu "Nowa Hala Cyl." np. dla C29 =INDEKS('Nowa Hala Cyl.'!H:H; 'Nowa Hala Cyl.'!O1) W kodzie arkusza 'Nowa Hala Cyl.' wpisz kod Dodano po 27 Edit Umieść kursor w wierszu, który chcesz wydrukować i kliknij przycisk
Rzeczywiście na bieżącą chwilę w kodzie "czysc" jest parę błędów i niepotrzebnych rozwiązań. (może coś się zmieniło w stosunku do pierwszych rozwiązań np. 13 arkuszów lub nie zablokowany arkusz DANE) Wejdź w edytor VBA w Module1 kod makra czyść powinien być taki: nie zamknąłem w okienku kodu by zaznaczyć co należy zmienić lub dodać. ---------------------------...
Tylko czemu wynik jest dopiero od 435 wiersza? Najprawdopodobniej masz jakieś puste wiersze, które makro widzi jako puste wartości. Spróbuj dopisać klauzulę WHERE. przypuśćmy,że mam jeszcze jedną tabelę tylko z dwoma kolumnami: material no( z nr komponentów-nie powtarzają się) i stock( ze stanami zapasów). W jaki sposób mogę połączyć teraz te dwie...
Cześć, Piszę do Was, bo może ktoś miałby pomysł jak rozwiązać pewne kwestie, nad którą się zatrzymałem robiąc makro. Sprawa wygląda tak, że jest arkusz 'umowy', gdzie są umowy, etapy ich realizacji i inne dane. Na ich podstawie makro obrabia dane i wprowadza je do zakładki 'faktury' i pojawia się pierwszy problem: - chciałem zrobić przycisk, pod które...
...Próbuję rozwiązać problem - w jaki sposób podając NIP , ewentualnie nazwisko w arkuszu z WZOREM FAKTURY, można z arkusza z listą danych osobowych klientów, przenieść wszystkie dane tego klienta do wzoru faktury? Jeżeli NIP (nazwisko) jest w tym samym wierszu co reszta danych to możesz to zrobić za pomocą funkcji wyszukaj.pionowo() indeks() w powiązaniu...
Jeszcze coś pokombinuje, ale i tak wielkie dzięki skróciłeś w tym momencie już moją prace i to znacznie, muszę jeszcze tego excela trochę rozbudować, ale to już sprawa na inny temat. Jeszcze raz wielkie dzięki. Temat zamykam. Dodano po 1 Problem rozwiązał Maciej Gonet, wielkie podziękowania.
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Przepraszam była by możliwość pomocy i z edytowania kodu? Dodano po 7 Czy kolega Andie może mi pomóc?
No wielkie dzięki przyjacielu:) Postaram się dodać zmienną string, przetestować, zmodyfikować i będzie działać:) Dziękuję, czapki z głów:)
makro usuwanie wiersza kopiowanie wiersza makro makro przenoszenie wiersza
podtrzymanie bateryjne kolejność instalowania sterowników obwód wejściowy odbiornik lampowy
maszyna dziewiarska maszyna tkacka
Nussbaum PowerLift – wymiana górnego łożyska śruby nośnej, instrukcja, narzędzia, testy D-Link DAP-1520 Extender: Same SSID for Smart Switches, IoT Connectivity Issues
