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...
makra, które będzie przenosić dane z jednego arkusza do innego Efekt taki możesz uzyskać np takim kodem: 968551
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]
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)
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...
:) 8-) Bez przesady. 8-) to ułamek mojej wiedzy 8-) :) Nie no ... oszukuje :) Na poważnie: Miło że Ci się podoba ale kod makra nie jest zbyt ambitny. Może ktoś zrealizuje to prościej ale niestety mam kocioł w pracy i muszę się "wyłączyć". (ostatecznie pomagać wieczorami) W załączeniu poprawki. Zapomniałem wspomnieć Arkusz "Zlecenia" ma się tak nazywać...
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...
Nie chce mi się pisać od początku, więc przerobie to twoje :) Dla takiego układu, jak w załączniku [syntax=vbscript]Sub nazwiska() Dim wsP As Worksheet, ws1 As Worksheet Dim i&, d&, k& Set wsP = Sheets("Wykaz pracowników") For a = 2 To Sheets.Count Set ws1 = Sheets(a) k = 3 c = 3 + d b = 12 + d For i = c To b ws1.Cells(7, k).Value = wsP.Cells(i, 1).Value...
Witam, Mam kolejny mały problem chciałem połączyć dwa pliki excela za pomocą makra w taki sposób aby wartość konkretnej komórki z pliku który jeszcze nie istnieje była importowana do pliku"rejestr" w momencie gdy plik powstanie i oczywiście uzytkownik uzupełni tą konkretną komórkę w nowo powstałym pliku. Nie było by z tym żadnego problemu gdyby nie...
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 napisałem Makro w Excleu ale teraz muszę go przenieś do Libry niestety cały czas wyrzuca mi błędy. [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim a, x, wiersz As Integer Dim varCzas, varData, varDataFor, varCzasFor 'Tworzymy zmienne' varCzas = Time 'Tworzymy czas' varData = Data 'Tworzymy date' varDataFor...
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...
Męczę raport i próbuje napisać makro , które by działało następująco: Jeśli komórka w plik1 ma określoną wartość (np wtorek) to przenieść wartość komórki która jest pod nią (w następnym wierszu) do pliku2 w miejsce (X,Y). Proszę pomóżcie.
Witam Dzięki przede wszystkim pomocy tutaj forumowiczy oraz częściowym nagraniom powstało makro j.n. Zastanawiam się czy są możliwości uproszczenia,. Makro i tak działa bez zarzutów, ale pewnie uposzczone będzie działać szybciej. Będę wdzięczny za wszelkie sugestie [syntax=vbscript] Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog...
Witam, po raz kolejny dziś stanąłem przed ścianą. Mam problem z danymi które ściąga mi makro z kwerendą. W liczbach jest kropka oddzielająca całości od dziesiętnych co uniemożliwia mi ich obróbkę. Wymyśliłem sobie coś takiego co załączyłem poniżej. A więc kwerenda wrzuca mi dane w zakres komórek A2:C20 ja to kopiuję niżej i po skopiowaniu zamieniam...
Witam, Jestem nowy na forum i zwracam się z prośbą o pomoc. Mam skoroszyt, gdzie w pierwszym arkuszu jest tabela oferty dla klienta, którą mogę zapisać sobie w pdfie. W drugim arkuszu jest moje własne zestawienie ofert jakie szykuję dla klientów. Potrzebuję, aby dane z pierwszego arkusza znalazły się w drugim, wpisane w taki sposób jak to jest pokazane...
Potrzebuje waszej pomocy przy budowie makra. Opis problemu: Mam kilkadziesiąt plków Excela (*.xls) zawierające rożne dane. Budowa wszystkich plików jest identyczna, a mianowicie arkusz jest podzielony na cześć w której rożne osoby wypelniają własne dane (każda swój plik), natomiast w 2 cześci arkusza znajdują się kolumny pomocnicze które dokonują rożnych...
Cześć, "Dobrze żarło i zdechło" :) Już piszę o co chodzi: Mam makro które sprawnie funkcjonowało na dotychczasowym pliku będącym źródłem. Aktualnie mam nowy program z którego generuje się plik źródłowy i potrzebuję dostosować makro do nowego źródła. Pomożecie? Poniżej kod z pliku *.bas jaki do tej pory służył do przeróbki źródła. [syntax=vbnet] Attribute...
Witam, Dotąd sobie radziłam z Excelem pisząc formuły, niestety nie mam zielonego pojęcia jak mogę usprawnić mój dotychczasowy plik. Wydaje mi się, że pozostaje tylko makro, a z tym niestety miałam niewiele do czynienia. Załączony plik składa się z dwóch zakładek. Pierwsza zakładka zawiera raport, druga stawki za przewóz. Kolumny od A do D to są własnie...
Cześć, Szukałem wiele na forum i w necie ale nie mogę znaleźć odpowiedniego rozwiązania. Chodzi mi o stworzenie makra które ułatwiało by mi pracę. W arkuszu1 mam dane wyjściowe w pięciu kolumnach i chce kopiować dane przefiltrowane wg. np. kolumny czwartej do nowych arkuszy. Daję przykład i jak to ma wyglądać. Może ktoś miał podobny problem i udało...
Witam, Czy mogłbym prosić o pomoc w stworzeniu kopi excela. Chciałbym aby drugi plik kopiował wszystkie arkusze z pliku głównego wraz z danymi i formatami. Aby stanowił lustro głównego pliku. Podejrzewam że nie da się stworzyć formuły pewnie będzie musiało to być makro. Dzięki
Witam, Mam pytanko do wszystkich fachowców z Excela, jak powinno wyglądać makro które stworzy mi kolejny plik, i skopiuje do niego dane które mam obecnie zaznaczone, dobrze by było aby w pliku głównym stworzyło mi również hiperłącze do nowego pliku, tak aby w razie ewentualnej edycji danych zmieniły się one również w pliku który powstał podczas owego...
Witam Serdecznie społeczność forum, to jest mój pierwszy post wcześniej czerpałem z waszej wiedzy i pomocy, lecz nie udzielałem się w dyskusji. Teraz mam problem w Excelu i proszę Was o pomoc Problem Posiadam pliki w Excelu, wszystkie mają stałe formatowanie (którego nie można zmienić), posiadają także hasła i są tylko do odczytu. Mam...
Witam. Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu. Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie. Proszę o pomoc.
Witam Serdecznie Potrzebuję pomocy z napisanie makra, które przenosiło by dane (A2:U3) z arkusza1 do arkusza2 w kolejne puste miejsce pod spodem, tak aby tworzyła się ładna tabela, oraz żeby wyczyściło miejsce w arkuszu1, tak aby można było ponownie wprowadzić kolejną serię danych. To co udało mi się stworzyć załączam pod spodem, ale niestety moja wiedza...
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...
Wszystko działa prawidłowo tylko tych danych mam dość dużo bo około 90 komórek do przeniesienia do dwóch arkuszy. Jestem jeszcze na początkowym etapie a działanie makra zaczyna się dość mocno wydłużać. Excel nie jest i nigdy nie był uważany przez Microsoft za narzędzie do developmentu oprogramowania
.. 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?
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...
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ąś...
Hmmm, Poradziłem sobie następująco, natomiast nie wychodzi mi zaszywanie dodatkowego warunku w tym kodzie. Obecnie makro przegląda arkusz źródłowy wyszukując jednego sprzedawcy (Agnieszka). Natomiast jak próbuję wcisnąć tam kolejną pętlę, aby wyszukał "Andrzej" i przeniósł wiersze do Arkusz3, "Basia" - do Arkusz4, "Iza" do Arkusz 5 itp, polecenie i...
Bardzo dziękuję za pomoc, dopisałem formuły, przenoszenie danych i drukowanie działa idealnie. Twoja propozycja sprawdziła się i jest bardzo dobra. Pozostała mi jeszcze jedna kwestia, chciałem powielać szablon z wpisywanymi danymi by go następnie zapisać w pdf. Myślałem o dopisaniu kolejnego makra które by zamiast wydruku kolejnych stron arkusza wygenerowało...
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...
k = b.Range("A1:AN1").Find(What:= Cells(1, x) , LookIn:=xlValues, LookAt:=xlWhole, _
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)...
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...
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
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.
Albo to, albo to. Chociaż bardziej wolałbym gotowca -> ostatnio z makrami *VB miałem doczynienia jakieś 8 lat więc musiałbym sobie przypomnieć.
Tu mam wrażenie że jest coś z synchronizacją pomiędzy zamykaniem pliku i kończeniem makra, tak jakby zamykanie pliku trwa a on już skończył makro i dlatego się widok nie odświeża a przycisk cały czas jest jakby wduszony - nie odciska się, i wtedy czegoś mu brakuje, szukam sposobu by je jakoś zatrzymać może jakiś pasek postępu
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.
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...
Cześć. Rozwiązanie okazało się banalne. Aby działało w excel należy włączyć Tools-> references: Visual Basic For Application Microsoft Excel 16.0 Object library OLE Automation Microsoft Office 16.0 Object Library Microsoft Forms 2.0 Object Library Microsoft Word 16.0 Object Libraty Zamykam wątek
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ć.
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
Jest. Mało tego, masz wybór: formuła w docelowej komórce, lub makro.
Zapewne można by to było zrobić funkcjami ale trzeba by było mieć większą wiedzę co i jak wybierasz a tak zrobiłem dosłownie tak jak chcesz: Makrem poprzez SelectionChange
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
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
Przerób sobie to makro:
Jeśli masz Excela 2010 lub nowszego to można to zrobić w Power Query bez makro
Temat do zamknięcia
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
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
Wiele opisów dotyczących kopiowania danych w Excelu znalazłem tutaj: http://forum.idg.pl/excel-makro-do-przen...
A jak bez zalacznika, co najmniej kodu makra?
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.
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ą...
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...
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.
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.
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...
Witaj. Sama funkcja "znajdź wszystko" nie ma (przynajmniej w wersji Excela, której używam) funkcji umożliwiającej kopiowanie czegokolwiek. Natomiast Excel umożliwia napisanie makra, w którym da się zdefiniować dowolne czynności, w tym również porównywanie ze wzorcem oraz kopiowanie czy przenoszenie zawartości komórek.
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.
excel przenoszenie excel przenoszenie danych makra excel formularz
zalewa elektroniki ariston chłodziarka wyświetlacz pralka amica wyjąć zbiornik
antena technisat smartenne antena technisat smartenne
Pompa szlamowa, air-lift, Tsurumi KRS2 – jak usunąć błoto z betonowego dna studni bez wchodzenia Wentylator sufitowy Hunter, Westinghouse – buczenie podczas pracy, cichy na wybiegu, diagnoza i naprawa
