Sprawdź, czy o to chodziło andie
Brak pliku do testowania!!! Jak coś Ci nie zadziała, poprawisz sobie sam. Dodałem makro RemoveShapes. Zobacz w moim załączniku.
ż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?
musisz dodać jeszcze wybór arkusza: Sheets(arkusz).Select
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
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.
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.
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ć
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...
Witam [syntax=vbscript]Range("E" & wiersz).Formula = "=HYPERLINK(""Faktury_2019\""&B" & wiersz & "," & """" & faktura & """" & ")"[/syntax]
: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...
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...
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, 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
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...
Zarejestruj makro, w którym dodasz wiersz. Zobacz jak ono wygląda. Następnie spróbuj zarejestrować inne polecenia.
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
(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....
W internecie są opisy jak znaleźć ostatni wiersz z danymi. Wpisz do do VBA dodaj 1 i powinno rozwiązać to sprawę.
Dodaj warunek sprawdzający zawartość komórki w wierszu z nazwami klientów.
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
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...
Witam. W której części wiersza? makro które kopiuje wybrane wiersze z innego arkusza Jak go zobaczyć?
Więc potem Wstaw pusty wiersz, a następnie dodaj checkboxy(patrz post #6)
Nagraj to makro i dodaj pętle for o odpowiedniej ilości. Jeżeli zdążę :) to za chwile podrzucę ci kod
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...
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...
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...
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...
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 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?
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
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...
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?
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.
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...
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...
Po pierwsze dodaj ma_być.xls (ewentualnie ma_być.jpg) Po drugie podaj to w postaci xls
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....
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ść...
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?
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 -...
Problem rozwiązany, proszę o usunięcie tematu. Dodano po 37 makro
Witam, Mam 2 pliki otwarte za pomocą formuły zrobiłem automatyczne przekopiowywanie danych z jednego skoroszytu do drugiego: =JEŻELI([nasz.xls]Arkusz1!H4="";"";[nasz... I tak dla wszystkich komórek. Pytanie jak zrobić aby gdy dodam wiersz w środek mojej tabelki to żeby on dodał się również w to samo miejsce automatycznie w drugim skoroszycie...
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
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...
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
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)....
Nagłówki będą wszystkie w np wierszu nr 2. Jeśli chodzi o ciągłość to np od wiersza 3 do 20 będzie coś wpisane i dopiero wiersz 21 będzie pusty i wtedy makro ma się przerwać. Ale chce żeby samo się dostosowało jeśli wpisze coś w wiersze 21-23 to przerwie się wtedy na wierszu 24 bo on będzie pusty jako pierwszy po dopisaniu
Ponieważ masz tabelę Excela, to wystarczy dodać do niej wiersz podsumowania z funkcją SUMY.CZĘŚCIOWE, która uwzględnia skutki filtrowania. Nie wiem tylko czy chodzi Ci o proste podsumowanie wartości z kolumny CENY, czy ma to być jeszcze mnożone przez DNI. Co do drugiej części pytania nie jest całkiem jasne jak miałoby to wyglądać. Raczej potrzebne byłoby...
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....
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.
Tu znalazłem problem bo to dwóch różnych ludzi (nie uwzględniając ich adresu połączy ich makro w jeden wiersz połączy nr_dz,kw,Jed.Rej) a nie powinno. Dodano po 7 tu jest problem jeśli mieliby te same daty i godziny złączyło by ich do jednego wiersza to makro
dzięki wielkie! Dodano po 42 Makro działa dokładnie tak, jak powinno.
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 :)
"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...
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...
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
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.
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
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...
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,...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
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
Dziękuję wszystkim za pomoc i podpowiedzi. Uzyskałem efekt, który chciałem osiągnąć, po dodaniu kolumny pomocniczej z funkcją "Jeżeli.Błąd(Wyszukaj.Pionowo....." i po zastosowaniu poniższego kodu w moim pliku z przykładem. [syntax=vbscript]Sub Dodaniewartoscizprzeciwnejlisty() lLstRw = Cells(Rows.Count, 6).End(xlUp).Row lLstRw2 = Cells(Rows.Count, 1).End(xlUp).Row...
Dobre macro tylko co zmienić by nie kasowało tabeli bo mam odpowiednio komórki scalone i przeniosło dokładnie zawartość wraz z taka samą tabelka ? Z góry dziękuje za odpowiedź. Wiele jest tematów na temat kopiowania danych z arkusza do arkusza lecz nie mogę wykombinować jak 1.Skopiować tabelkę z zawartością zachowując format czcionkę etc. 2.W tabeli...
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.
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 ? :)
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...
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?
Bylo podobne, dlatego na tym forum napisałem. Lecz ja nie znam zupelnie VBA, żeby go przerobić, więc potrzebuję gotowego skryptu. Dodano po 4 Już temat nieaktualny.
No wielkie dzięki przyjacielu:) Postaram się dodać zmienną string, przetestować, zmodyfikować i będzie działać:) Dziękuję, czapki z głów:)
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...
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 kopiowało z pliku DANE tylko te pozycje które mają taką samą datę jak ta wcześniej wymieniona. Makro miałoby przenosić z jednego pliku do drugiego dane żeby przyspieszyć pracę i nie dublować...
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
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...
W oknie VBA danego arkusza zrobiłem kilka enterów i wstawiłem ww. formułę podstawiając --Me.Worksheets("MOJA NAZWA").Protect UserInterfaceOnly:=True, Password:="MOJE HASŁO"-- Czy dodałeś kod, który podałem w module "Ten_skoroszyt" ?
Czy do takiego checkBox'a potrzebujemy jakąś komendę do odświeżania danych po jej użyciu? Nie odświeżają mi się wartości z sumy częściowej po odkryciu i zakryciu wierszy? Przycisk działa tylko na pierwszą kolumnę (która sumuje częściowo), w pozostałych kolumnach sumowanie nie działa ?? Dodam, że funkcja agreguj działa tak samo jak suma częściowa, czyli...
... 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...
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...
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ę...
Wracamy zatem do koncepcji wiersza pomocniczego, w którym dodamy ile trzeba. W przykładzie wykorzystałem 26-ty (zdawał się leżeć odłogiem) Nagłówki scaliłem ponownie.
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...
No jakoś mi nie wychodzi. Nagrałem makro, które wyszukuje dany "text", ale jak zapuszczam je to owszem znajduje ten tekst, ale nie przechodzi do tego miejsca focus. I jak dodam : Selection.Rows.Delete to nie usuwa tego wiersza, w którym jest ten tekst. Jak dodałem twój skrypt, to on cofa do pierwszego wiersza tabeli i zaznacza kilka wierszy. Mi chodzi...
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ć. ---------------------------...
Formuły są wpisane na stałe. Tak aby po uruchomieniu arkusza automatycznie wczytywane były dane z plików zewnętrznych. Formuły muszą pozostać w takiej formie jak są. Jedynie można zmienić w formułach nazwę pliku, z którego mają być pobrane dane. Plik 1 nie wie jaka jest numeracja. W pliku 1 ręcznie jest wprowadzony kolejny numer, więc to osoba, która...
Proszę o pomoc jestem zielony jeśli chodzi o VBA . Potrzebuję makra które przeszuka kolumnę B w zakresie do komórki pustej, jeśli w kolumnie znajdzie wartość 2 to do kolumny A w tym samym wierszu doda , do wartości która jest już w komórce symbol np : ' . Z góry dziękuję za pomoc.
tylko nie dodałam jeszcze, że obecnie plik mam zapisany jedynie lokalnie, na pulpicie. Czyli w zasadzie to chyba nie ma związku z przepustowością łącza?
W sumie racja, zapomniałem dodać co bym chciał. Wracając do tematu, właśnie nie za bardzo wiem jak zrobic zeby wykrywał mi A jako kolumne i zmienna jako numer wiersza.
Hey adamas_nt, możesz rozwinąć ? Nie do końca rozumiem jak może to pomóc bo jeżeli ustawię widok "układ strony" to na dwóch kompach dokumenty wyglądają różnie. A obszar wydruku jest zdefiniowany w dokumencie. Chyba że po prostu niezbyt dobrze Cię zrozumiałem :) Dodano po 15 A może makro w którym zdefiniuje ile wierszy powinno być na każdej stronie ?...
niby działa ale zeby zobaczyć wynik trzeba zaznaczyc komorke. Ja to widzę tak: zaznacz zakres do ostatniej pełnej, potem dodaj i pokaz i wypełnij wynikiem do ostatniej pełnej / względnie ostatniego pełnego wiersza. any ideas?
Cześć, Wiem, że to nie ten wątek, ale nie chciałem tworzyć nowego tematu na taką bzdurkę (chyba bzdurkę). Stworzyłem makro (posklejałem ze znalezionych kodów w internecie), które ma za zadanie ukrywać te wiersze, które mają pustą komórkę w kolumnie A. Jest to kolejna część archiwizacji, z którą miałem problem wcześniej-> czyli makro najpierw archiwizuje...
Spakowałam dwa przykłady. W drugim przykładzie w kolumnie A, arkusza1 cyfra 5 pojawia się w tej samej kolumnie(A) a nie pojawia się w innych arkuszach "arkusz2 i arkusz3". Też jest brana za duplikat. Potrzebuje edycji kodu która pozwoli mi na dodawanie większej ilości kolumn(np 100) jak makro znajdzie duplikat w kolumnie A. Zdaje sobie sprawę że będzie...
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
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
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...
Rzeczywiście autor nie ma talentu do przekazywania informacji. Wydaje mi się że o to mu chodziło (załącznik). Do autora topiku: Nie da się funkcjami wydrukować tylko wybranych stron. Można ukrywać widoczność ale wtedy ostatecznie będą białe/czyste strony drukowane. Pozostaje makro - w sumie proste ale ... w makrach położenie poszczególnych komórek jest...
makro usuwanie wiersza kopiowanie wiersza makro makro wstawianie wiersza
instrukcja serwisowa pralki bosch myphone oprogramowanie sprawdzić przewodność przewód
integra wyjście sterujące alarmem mikrokomputer cobra1
Śruby mocujące sprzęgło hydrokinetyczne – lokalizacja i dostęp Toyota, Linde, Balkancar MEWE MW-FTB500S TP-516.PB801 Firmware Request – Safe Upgrade Options and Board Matching