Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Witaj, wszystko jest możliwe [syntax=vb] sub Idziemy() Dim tbl As Range Set tbl = Sheets("Jacek").Range("W:W").Cells If Application.Intersect(ActiveCell, Range("a1:k500")) Is Nothing Then MsgBox "Bledne odwolanie - wybierz poprawna komorke" Else r = Application.Match(ActiveCell, tbl, 0) Application.Goto tbl(r) End If end sub [/syntax]
Na Excel2007 działa dobrze, 1.3 sek. (góry dwa przyciski) jeden warunek: to nie działa [syntax=vb]' .ThemeColor = xlThemeColorAccent6 ' .TintAndShade = 0.599993896298105 ' .PatternTintAndShade = 0 [/syntax]
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
Widzę, że nie bardzo lubisz makra ;) a wystarczy: 1. makro z WorkbookOpen powtórzyć przy WorksheetActivate (aktualizacja listy Combobox''a). 2. Usunąć instrukcje warunkowe dot. producenta Listę kolorów modyfikujesz w arkuszu "Opcje". Musi być "ciurkiem" (bez dziur). Edit 20:17 - zmieniłem załącznik (Clear brakowało przy Activate)
Chce zautomatyzować raportowanie bo raport źródłowy ma masę pozycji i mnóstwo zakładek, a zestawienie końcowe jest ubogie w stosunku do źródłowego. Samo przenoszenie do innego pliku ogarnąłem. Największy problem mam z wyszukaniem konkretnej wartości w źródle i wyeksportowaniu wartości z pozycji niżej/wyzej. Dodano po 27 Poniżej prosty Excel który zrobiłem...
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....
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
Cześć, Mam problem z doszlifowaniem makra, którego zadaniem jest przeniesienie wyfiltrowanych danych do jednego zbiorczego arkusza. Mam już makro, które działa bez zarzutów i zrzuca mi informacje do jednego zbiorczego pliku. Brakuje mi jednak funkcjonalności, która przy wywoływaniu komendy scal pliki w jedno, pobierze te dane, o które ją poproszę. Chodzi...
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
w trzeciej sama trasa wypisana w formacie: sklep_xxx-sklep_yyy-sklep_zzz Jeśli dobrze zrozumiałem, to myślnik jest znakiem rozdzielającym nazwy sklepów, których trzeba wyszukać? Jeśli tak, to najprościej rozbić ciąg funkcją Split i zapisać w tablicy. Następnie wyszukać kolejne wartości w pętli For, gdzie licznikiem będzie rozmiar tablicy. Wynik można...
Coś takiego powinno zadziałać :-) [syntax=vbscript] Sub raport_pobrań () Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("POBRANIA").Select path = "D:\rary\Raport POBR.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 6 To 36 sheetName = Range("N" & wiersz) If sheetName <> "" Then With...
Witam, Kiedyś miałem podobny problem i już mi raz pomógł jeden z użytkowników, ale teraz gdy zrobiłem całkiem nowy skoroszyt, nie mogę połapać się z Makrem. Potrzebuję podpiąć Makro do przycisku w arkuszu "Baza ofert", tak aby jego naciśnięcie powodowało aktualizację bazy o ofertę z arkusza "Oferta". Za każdym razem kolejna oferta musi być dopisywana...
Witam Nagrałem makro, które kopiuje mi wybrane komórki z jednego pliku i wkleja do innego i odwrotnie. Jednak to makro działa bardzo wolno. Czy byłaby możliwość napisania innego prostszego kodu, który działał by szybciej. Generalnie celem makra jest przeniesienie wartości z pliku 1.xls Arkusz1 z wiersza 9 z kolumn E, H, L, O, R, U, W do pliku 2.xls...
Jeśli masz Excela 2010 lub nowszego to można to zrobić w Power Query bez makro
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
Witam, mam spory arkusz z wartościami liczbowymi(w większości), niektóre z nich zakończone są symbolem * co zmienia formatowanie komórki na ogólne. Potrzebuje usunąć te nieszczęsne gwiazdki. Korzystam z polecenia zmień, ale formatowanie komórki pozostaje dalej ogólne, a chciałbym nie musieć przy każdym błędzie jaki wyrzuca mi po tej operacji excel klikać...
Witam Potrzebowałbym bym pomocy do tego co chciałbym zrobić, niestety nie posiadam jeszcze wystarczających umiejętności by zrobić to samemu. Zapewne potrzebuję funkcję połączoną z makrem, które zapętli ją, tak by wszystkie dane w całej kolumnie były przeszukane i wypełnione. Niestety zwykły VLOOKUP tutaj mi nie pomoże, a nie jestem w stanie sam dojść,...
Cześć Od kilku dni rozkminiam makro, które pomoże mi zautomatyzować pracę. Co tydzień pobieram dane z różnych arkuszy kopiując do jednego arkusza. Żmudne i nudzące zajęcie. Nie jestem programistą, ale z pewnością da się to jakoś ogarnąć makrem. Dla zobrazowania pokazuję fragment pliku. To czego potrzebuję to: - w jednym arkuszu (w przykładzie jest to...
Witam Potrzebuję pomocy w napisaniu makra. Mam w arkuszu1 dane w kolumnach od A5 do AB5000. W kolumnie G5 do G5000 znajduję się lista rozwijana z której użytkownik może wybrać kilka opcji. W przypadku kiedy użytkownik wybierze opcję "złomowe" chciałbym żeby makro przy użyciu przycisku przypisanego do tego makra wycięło wszystkie wiersze w których użytkownik...
Mam pewien problem . Chodzi o to, żeby makro przenosiło wartości między arkuszami w zależności od wartości komórki. Chodzi o to, żeby w Arkuszu1 makro sprawdziło kolumnę B:B i jeżeli są wartości 1 to tylko z tych wierszy gzie jest wartość 1 przeniosło dane, ale zawarte między kolumnami C:S do Arkusza2 między kolumny B:R zaczynając od 3 wiersza kolejno...
Witam Poszukuje pomysłu, jak stworzyć makro, które będzie zamieniało nr telefonu na podanym przykładzie: Mamy nr 48 600 500 400 i zamienia go na 48 601 501 401. Jeśli występuje więcej niż 1 raz w całym arkuszu robi taką samą zamianę . I czy da się stworzyć takie makro które będzie zmienialo powiedzmy wszystkie nry w danej kolumnie automatycznie w sposób...
Dzień doberek, próbuję własnymi siłami stworzyć makro, które skopiuje podaną wartość określoną w sąsiedniej komórce ilość razy. Powiedzmy, że A1=15, A2=16, A3=17 to kody sklepów. B1=3, B2=3, B3=2 to ilości przesyłek do konkretnego sklepu. Makro powinno, dajmy na to w komórce G1 rozpocząć listę: 15, 15, 15, 16, 16, 16, 17, 17 w kolejnych wierszach. Do...
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
Cześć, mam pytanie czy jest możliwe stworzenie makra które kopiuje jedna zakładkę z pliku źródłowego do nowego pliku excelowskiego, ale tak, żeby to makro pokazywało się dla danej grupy roboczej (wszystkich użytkowników) podczas włączania nowego pliku w Excelu np w formie dodatkowego buttona na wstążce?. Proszę o podpowiedz co i jak trzeba zrobić. dzięki...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 otwiera nowy skoroszyt i wkleja do określonego arkusza zakres komórek A1:Sn+1 lub całe wiersze 1:n+1. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Udało mi się stworzyć coś takiego, ale niestety wyrzuca mi błąd :( [syntax=vbscript]Sub...
Mam kod makra, który przenosi dane z arkusza "Wykaz pracowników' z wierszy 3:12 do arkusza "1" do wiersza 7. [syntax=vbscript]Sub nazwiska() Dim wsP As Worksheet, ws1 As Worksheet Dim i&, d&, k& Set wsP = Sheets("Wykaz pracowników") Set ws1 = Sheets("1") k = 3 For i = 3 To 12 ws1.Cells(7, k).Value = wsP.Cells(i, 1).Value ws1.Cells(7, k + 1).Value =...
Witam. Bardzo proszę o pomoc w makrze, które przenosiłoby wartości z tych samych komórek w jednym pliku do takich samych komórek w innym pliku. Np z pliku 1.xls Arkusz1 do pliku 2.xls Arkusz2 komórek z zakresu B8:Z47; B53: Z92; B98:Z137. Nie chodzi mi o kopiuj/wklej lecz przeniesienie wartości.
Witam Szukam pomocy w stworzeniu makra , które potrafi drukować formularz z drugiego arkusza uzupełniaąc w nim dane z pierwszego. Myślałem o przyciskach w pierwszym arkuszu, które drukują wypełnione formularze w 2 egzpl.
Makro działa prawidłowo dopóki nie przeniosłem go do makr osobistym, z uwagi na to, że jest mi potrzebne do przenoszenia arkuszy z innych skoroszytów. Niestety, po przeniesieniu, pojawia się wcześniej pokazany komunikat i makro się zatrzymuje. Oczywiście, tak jak wskazujesz, w tych swoich skoroszytach mam dodany arkusz o nazwie "Ostatni".
I co my mamy niby z tym zrobić? Załącz arkusz, to pomyślimy... Makro do tego to kilka linijek...
k = b.Range("A1:AN1").Find(What:= Cells(1, x) , LookIn:=xlValues, LookAt:=xlWhole, _
.. U mnie, dla załączonego pliku, makro wykonuje się 2s. Markoz, Marku, można Was prosić o pomoc? Chodzi o najmłodszy załącznik.. Na moim leciwym laptopie i excelu 2000, czas wykonania makra wynosi okolo 1s.
rafal24s -spróbowałeś to makro? Też mam podobną potrzebę, ale przede mną jeszcze nauka uruchomienia makra tak w ogóle... O kurcze udało się, Makro działa. Czy zamiast rekord.ClearContents można użyć czegoś innego, w przypadku kiedy wprowadzane dane są w jakiejś formatce -porozrzucane po arkuszu?
marcinj12, Dzięki za tę podpowiedź. Poprawie to w kodzie i zobacze czy choć trochę przyspieszyło. Szczerze mówiąc to nie wiem, która zajmuje więcej czasu, wydaje mi się, że delete, ponieważ jest odpalana dwa razy (w dwóch arkuszach). Jeżeli chodzi o ilość danych, to przy około 300 wierszach radzi sobie w miare szybko, jednak już przy tysiącu, niestety...
Kilak kolejnych IFów działa, wcześniej chyba gdzieś w złym miejscu je wstawiałem i makro się wywalało. Albo End If w złe miejsce lądowało. Arkusz1, Arkusz2 podałem jako przykładowe nazwy kodowe arkuszy. Nadałem własne, więc chyba lepiej wpisać w makro np Arkusz1 czy wksUser1, niż podawać nazwę arkusza "KLIENCI_AGNIESZKA"? Wypróbuję jeszcze "If Arkusz1.Cells(i,...
Powiem tak: Nie spotkałem się z takim problemem ze "zwykłymi" plikami excela. Jednak wystarczy jeden plik z nieodpowiednio napisanym makrem który "rozwala" wszystko. Ktoś pisząc makro np. nie przewidział, że może być aktywny inny arkusz niż zamierzony w kodzie makra lub nie przewidział wyłączenia uruchomionej jakiejś procedury która może czeka na jakąś...
B100 też się zmieniało ale nie opisałem tego bo w moim przypadku nie miało to znaczenia To wiem bo się powinno zmieniać. Podałeś więc nieścisłe informacje, które (w najgorszym przypadku) mogły świadczyć o niewłaściwym działaniu programu. :D
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...
Jeśli bez makr, to można wspomóc się wierszami pomocniczymi. W moim przykładzie 2-ma. Formuły, poza 1-szym wierszem, są "kopiowalne". Warunek: posortowane kolumny A:B Witaj adamas_nt Zrobiłem to troszkę inaczej, ale mocno mnie naprowadziłeś. Umieściłem to praktycznie w jednej formule ( w jednym wierszu) i działa - dziękuję Dodano po 1 A jeżeli makrem,...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
A musisz do tego wykorzystywać makro? Nie wystaczą zwykłe funkcje excela? Przy okazji zamieść jakiś przykład z paroma danymi.
Tu jest przykład jak bym chciał to wydrukować na drukarce mojej koleżanki z pracy: If key = 6 Then Arkusz3.PrintOut Copies:=1, ActivePrinter:="\\MAŁGOSIA\HP LaserJet 3200 Series PCL 6 na Ne06:", Collate:=True Jeżeli znasz adres XEROA5 to wpisz jak nie to wykorzystaj nagrywanie makra. Włącz "zarejestruj makro". Wybierz menu...
Naprawdę nie chcesz pójść w tym kierunku? Zobacz w pliku - Arkusz1 komórka A2 - wybierasz użytkownika i resztę danych przenosi ci się samo. Szybko, prosto i bez makr.
Jakoś nie widzę zastosowania makra do przenoszenia z Arkusz1 do Arkusz2 niepustych wierszy. Wygląda na to, że coś się zmieniło... Opisz wiec proszę co i jak ma być.
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Temat do zamknięcia
Wiele opisów dotyczących kopiowania danych w Excelu znalazłem tutaj: http://forum.idg.pl/excel-makro-do-przen...
Arkusz zbiera bezpośrednio dane pomiarowe z urządzenia. Zbieranie danych w programie zewnetrzym i export do excela jest rozwiązaniem mniej korzystnym, niż wstawienie danych do konkretnej komórki wskazanej przez użytkownika.
Przerób sobie to makro:
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
Jest. Mało tego, masz wybór: formuła w docelowej komórce, lub makro.
Chyba tylko makrem. Gdyby było odwrotnie (wpisujesz pracownika w wykazie) i przy dodatkowej kolumnie dotyczącej działu i kolumnie pomocniczej - można by było spróbować bez makr.
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
A jak bez zalacznika, co najmniej kodu makra?
Witam serdecznie, Czy ktos moglby mi pomoc w napisaniu makra dla excel 2007. Potrzebuje stworzyc chyba prosta baze danych, ale niestety przekracza to moje umiejetnosci znacznie. W zalaczniku przesylam plik - jak chcialabym zeby to dzilalo Algorytm Artusz 1 (WPIS) 1. wpisuje dane w zoltym polu (kolumna B2:B6) 2. Dopiero po wciśnięciu przycisku dane są...
Dzięki za ten trud który stworzyłem !! Jutro w pracy będę działał jak coś to już wiem jak usunąć umowy w makra :) Pozdrawiam
Lanzul za moment machnie tu jakieś zgrabne makro :D A tym czasem problem taki można rozwiązać także za pomocą rozbudowanych formuł np 907251 :spoko: Całość w pliku 907252
nie chciał bym bawić się w makro Czy w Excelu mogą migać komórki? Te dwie rzeczy nie są zgodne... ale mogą migać np. http://www.goldenline.pl/grupy/Zainteres...
Za każdym razem wyskakuje Macros, a pod spodem Macro Name. Czy mógłbym prosić o podesłanie pliku z tym makrem? Byłbym bardzo wdzięczny.
Ok, dziękuję - właśnie o to mi chodziło. Mam jeszcze pytanie jak zrobić, aby po naciśnięciu na "tak" nie przechodził mi kursor automatycznie do zakładki podsumowanie tylko zostawał na swoim miejscu w arkuszu info? W tym makrze co napisałeś niestety mi się przenosi.
To chyba masz rację ;). Zacznij od podstaw. End Sub kończy całe makro, więc powinno być ostatnim wierszem. [syntax=vb] Sub Przenies() Dim Wzorzec, Przebieg Wzorzec = " " Przebieg = 2 Do While Wzorzec <> "" Wzorzec = Cells(Przebieg, 5).Value If Wzorzec = "Wstrzymany" Then (tu działanie) End If Przebieg = Przebieg + 1 Loop End Sub [/syntax] Z grubsza...
excel makro przenoszenie plików makro excel przenoszenie pliku excel przenoszenie
opinie tester nagrywanie plików układ elektryczny agregatu lodówki
polonez diagnostyka sterowniki behringer umc202
Wpływ switcha na ping latency w sieci Baofeng UV-5R, UV-9R – odblokowanie częstotliwości fabrycznie zablokowanych, CHIRP, legalność, skutki
