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...
Przerób sobie to makro:
Pliki w załączniku.
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
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,...
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...
W załączeniu przekazuje plik z makrem oraz baza.
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....
To może jaśniej - mam makro, którego zadaniem jest scalenie dokładnie 9 plików excel do jednego zbiorczego pliku. Makro scalające jest powyżej. Może i koślawe ale działa :) Do tego makra chcę dorzucić filtr, mający za zadanie scalić dane od - data początkowa, do - data końcowa. Obie daty, mogę wprowadzać w odpowiednie komórki w arkuszu, przed generowaniem...
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...
Application.Run "Personal.xlsb!przenoszenie_czystych_dan... <------------------------------------... Plik = Dir() x = x + 1 s.Close True Wend Set s = Nothing Set Ex = Nothing i = MsgBox("Wykonano działania na " & x & " plikach.", vbInformation, "Informacja") End Sub [/syntax] Niestety makro które próbuje wykonać w tym...
Dziękuję bardzo. Naniosłem drobną poprawkę w związku z przenoszeniem i wydaje się że wszystko działa tak jak chciałem, Mam jeszcze pytanie. Która zmienna w kodzie odpowiada za zakończenie zakresu w przypadku wystąpienia 0, pustej lub ND w kolumnie E brudnopisu. Ew. jak określić na tą zmienna w przypadku wystąpienia tych trzech wyrażeń. Wyrażenie i=4...
Witam, potrzebuję pomocy... Czy ktoś z Was podpowie jak powinno wyglądać makro, które namiesza mi w pliku Excelowskim :) ?? Mam 3 kolumny z danymi w osobnych wierszach. Zależy mi na tym, aby makro zgrupowało w jednym wierszu kolumny A te same wartości, w kolumnie B ustawiło wartości pod kątem godzin z kolumny D, zgrupowało tą samą wartość z kolumny...
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...
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...
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...
Witam. Mam problem z makrem, które w Excelu ma za zadanie przenosić arkusze do nowego skoroszytu (każdy arkusz do odrębnego) i zapisać plik w podanej lokalizacji z nazwą tego przeniesionego arkusza. Na potrzeby tego zadania zarejestrowałem, a następnie zmodyfikowałem makro, które wygląda następująco: Sub Rozdziel() ' Rozdziel Makro Dim arkusz As Worksheet...
Czy w otwartych skoroszytach (wystarczy w jednym) są (mogą być) makra?
.. 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.
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.
Cześć, sprawdziłem i działa. Jest jednak małe ale ... stosuję formułę =WYSZUKAJ.PIONOWO(C6;A6:B100;2;FAŁSZ) i przeciągam w dół tak jak sugerowaliście. Przy pierwszym wierszu jest ok kłopot jest w następnych bo wyglądają =WYSZUKAJ.PIONOWO( C7;A7 :B100;2;FAŁSZ) itd. Oznacza to że wiersz c6 nie jest już przeszukiwany co może spowodować pewne pominięcia....
To już wiem, niestety nie mam pojęcia o makro... próbowałem bazować na kilku plikach z tego forum (były wątki o przenoszeniu danych) ale nic z tego. Nie ma podobnego przypadku który idealnie podpasuje do mojej wizji.
Witam Z tego co ja wiem to jest z taka operacją trochę zabawy, ale przecież wszystko jest możliwe do zrobienia, pozostaje tylko kwestia czasu i pieniędzy: :roll: Zobacz Topic Simensa nr 17490711, oraz 18003417 na stronie http://www4.ad.siemens.de/-snm-013503893...
Witam! Potrzebuję pomocy z poprawnym wstawieniem lub modyfikacją obecnego makra. Aktualne makro po aktywowaniu kopiuje wybrane wartości z kilku różnych kart w kolejności alfabetycznej kart, jeśli w kolumnie C jest konkretny dostawca. Teraz w załączonym pliku potrzebuję w ostatniej karcie "podział na kolory" wstawić (lub przekształcić obecne) makro,...
Cześć, bardzo dziękuje za pomoc :) Efekt końcowy jest prawie taki jak chcieliśmy uzyskać. Nie mam zastrzeżeń, do działania bo wszystko działa tak jak trzeba, lecz: 1. Zamienione są dane Firma 1 (t) z numerem karty. Firma 1 (t) - to wartość wyrażana w tonach, czyli MASA z dokumentu WZ Numer karty - to ta górna wartość z dokumentu WZ, nr karty/przepustki...
Rozumiem, że w pliku jest arkusz roboczy, do którego do określonych komórek wpisuje się dane, które potem w arkuszu "Baza" mają utworzyć dwie kolumny. Zakładam, że arkusz "Baza" istnieje. W przytoczonym makro dostrzegam 2 błędy: 1. W wierszu NewRow = Range("A65536").End(xlUp).Row + 1 powinno być C65536 lub D65536, bo do tych kolumn dopisywane są dane...
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...
Człowieku Ty jesteś jakimś magikiem normalnie!!!! dzięki - działa perfekto, jeszcze tylko jednej drobnej jak sądzę poprawki potrzebuje. W ty, nowym pliku xls przydałoby się podmienić nazwę (obecnie kopiuje z pierwotnego xlsx) na np "Arkusz1". I tak sobie myślę, przy przenoszeniu do nowego pliku xlsx kopiuje całość - a mógłby kopiować tylko to co jest...
Może takie makro zdarzeniowe w module skoroszytu (jeśli ma działać we wszystkich arkuszach) lub w module arkusza (jeśli tylko w jednym arkuszu): [syntax=vbscript]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tval Application.EnableEvents = False If Application.CutCopyMode = xlCopy Then tval = Target Application.Undo...
Witam Potrzebuje pomocy z napisaniem makra ale nie za bardzo wiem jak się za to zabrać. Jeśli ktoś mógłby pomóc byłbym wdzięczny. Mianowicie chodzi mi o makro , które wyszukuje w wierszu komórki o wartości np: 100, 200 i 300, jeśli znajdzie w wierszu wartość 100 przechodzi do pierwszej kolumny tego samego wiersza i wpisuje np "aaa", jeśli znajdzie 200...
Przy tak prostej linijce to pewnie masz otwarte w dwóch różnych instancjach. Nie bardzo wiem o co chodzi z tymi instancjami, ale jeżeli dobrze rozumiem to błąd prawdopodobnie wynika z tego, że plik "Stary" jest plikiem xls, a "Nowy" plikiem xlsx. Ponieważ operuję starą wersją Excela (2003) to chyba jedynym rozwiązaniem jest zamiana pliku Nowy.xlsx...
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ą...
Dzieki wielkie. Problemem bylo zle zapisanie sciezki pliku. Powyzsze rozwiazanie jednak nie do konca rozwialo moje problemy. Mam duza ilosc plikow do przeniesienia (za pomoca powyzszego kodu) problem polega na tym iz jesli w trakcie przenoszenia pojawi sie blad to przerwie on cala operacje (nie bede wiedzial ktore pliki sie przeniosly a ktore nie).W...
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.
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.
Sory że tyle pytań ale łatwiej od razu wiedzieć o co chodzi niż napisać kod a potem go przerabiać "paręnaście" razy bo autorowi nie o to chodziło. Jeszcze "jedno" pytanie: Czy pod przyciskiem aktualizuj plik ma tworzyć/sprawdzać od początku wszystkie umowy w arkuszu ogólnym i ewentualnie korygować je w poszczególnych arkuszach? Czy tylko ma złapać ostatni...
To akurat wiem. Ale działa :-) A że jest nieelastyczne i zbyt obciąża plik, to już druga sprawa, którą chętnie rozwiążę. Tyle że widzisz - ja z VBA dopiero zaczynam się bawić - takie rozwiązanie znalazłem w sieci i je zrozumiałem. Natomiast jak zapisać, żeby makro rozpoznało po znalezionej nazwie sprzedawcy, do której zakładki przenieść wiersz, jak...
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...
a czy makro zapisuje się w pliku Excela? i przenosząc plik na inne komputery wszystko działa?
Może troche to pokrętnie opisałem. Ciężko mi cokolwiek z tego zrozumieć co napisałeś. VB chwytam w mocno okrojonym stopniu. Wrzuciłem do załącznika przykładowy plik. Arkusz Plan pokazuje jak wygląda przykładowy plan. Arkusz Raport to po prostu raport zwrotów wygenerowany z platformy internetowej. Arkusz Plan Wynik to to, co otrzymuję po wpisaniu zwrotów...
Pliki są generowane ze skanera etykiet i chciałbym aby po podłączeniu skanera do komputera przy pomocy jednego kliknięcia w Excelu, pliki tekstowe z folderu skanera kopiowały się do arkusza a potem wszystkie pliki zostawały przenoszone do innego folderu w komputerze. Plik tekstowy wygląda tak
Ten dodatkowy kod niestety wyrzuca błędy albo źle go dodałem (wstawiłem przed linijką "set bs"). Wczoraj i dzisiaj sporo czytałem na ten temat i nie natrafiłem niestety na nic co wyglądałoby jak metoda otwierania plików o masce jakies_slowo_XXX_jakies_slowo.xlsx. W ostateczności zrobię kilka makr do obsługi grup plików o powtarzalnych rodzajach nazw....
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
...W pliku który mi przesłałeś nie wiem czemu ale nie ma żadnych przycisków do makr ... Bo i być nie powinno ... w zamyśle miało być menu " KOSZTORYS " i takie w tych " Dodatkach " widać - w teorii, jak się je kliknie, powinno pokazać coś takiego jak poniżej na drugim obrazku - wygląd w starym excelu: 838683 838684 ... Zauważyłem, że: 1. jak dodaje...
Udało mi się dopasować pliki i przetestować. Za każdym razem pojawia mi się komunikat - w schowku jest duża ilość informacji, czy chcesz później wklejać je do innego programu. Może źle dopasowałem? nie mam wprawy w excel. Czy można wprost przenosić dane bez np formuł. Tzn w każdym pliku jest lista rozwijana z RM (wybór z kilkunastu opcji), czy też wyszukaj...
A jakiego Excela używasz?? Arkusz nie jest chroniony, w pliku Baza.xlsm wciskasz ALT+F11 i kod makra powinien być w Arkusz1.
No tak zgadza się. Pętla nie jest mi potrzebna. Ale taki kod działa więc jest ok. Plik będzie generowany raz na jakieś dwa dni, dlatego nazwa generowanego pliku zawiera formułę aktualnej daty z komórki "B3". Bardziej zależy mi aby za każdym użyciem makra generował się w katalogu "wyniki" nowy plik. Wówczas w katalogu "wyniki", po jakimś czasie mam kilka...
Jak to powinno wyglądać, żeby mając otwarte plik bazowy i plik do którego będę kopiował działało za każdym razem? Musisz ustawić "automatyczny" zakres do kopiowania :D Niestety bez przykładowych plików trudno będzie Ci pomóc :cry: Nagrany kod będzie Ci przenosił każdorazowo Range("K20:M23") z pliku z którego uruchamiasz makro zawsze do pliku test do...
Ok, niestety pliku żródłowego nie mam aktualnie przy sobie jednak postaram się to dobrze wytłumaczyć. Mamy tabele gdzie mamy kolumny : firma, projekt (job), status projektu (otwarty, zamknięty). Potrzebuję makra które przeniesie mi tylko te wiersze i te projekty które mają pozycje otwartą lub pozycje otwartą i zamknięta naraz. Projekty, które mają pozycje...
Witam! Mam w pliku Excel arkusz dla każdego tygodnia roku kalendarzowego o nazwach T-01, T-33, T-43 itd. W arkuszu posiadam makro do szybkiego tworzenia nowego arkusza przenoszące układ i formatowanie obecnego arkusza i dodatkowo przenoszące do nowo tworzonego arkusza wiersze dla których wartość w kolumnie J jest większa od zera. Plik służy mi do cotygodniowego...
Witam wszystkich. Mam problem ze stworzeniem pliku który zapewne wykorzysta makro VBA do przeniesienia danych z dwóch osobnych plików 'wartosci' oraz 'Region' do jednego wyjściowego 'FINAL VERSION'. 1) W pliku FINAL VERSION kolumny: C,D E,F G,H I,J Powinny mieć dane z pliku 'wartosci' z kolumn kolejno B,C 2) W pliku FINAL VERSION kolumny: P, Q warunek...
Witam ponownie Bardzo proszę o pomoc. Chciałbym przenieść dane z pliku excela AA do pliku excela BB. W pliku AA dane mogą być wprowadzone wyłącznie przez dodanie nowego wiersza Dane wprowadza się w dwie komórki a1 nazwa przedmiotu i a2 nazwa klienta. Plik BB ma taką liczbę arkuszy ile jest klientów. Chciałbym by nowo wprowadzane dane z Pliku AA przechodziły...
excel makro przenoszenie excel makro przenoszenie plików excel makro zapisywanie pliku
państwowa inspekcja wirnik prądnicy magnesami silnik buczy pompa
napęd bramy dwuskrzydłowej odkurzacz bosch
Audi A1 felgi aluminiowe 17 cali – opłacalność naprawy przytarć po bokach Zawór AquaStop do zmywarki Siemens SF24M230 – numery części, kompatybilność, montaż