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)
Witam Potrzebuje pomocy z excelem, mecze się już parę dni i nie mogę sobie poradzić, przeczytałem juz wszystkie posty i nic. Mam dwa skoroszyty - jeden z nich nazywa się Baza/Arkusz1 i znajdują się w nim dane do skopiowanie do innego skoroszytu (bieżacy arkusz Menu). Jednak kopiuje tylko wybrane komórki (które spełniają odpowiednie warunki). Ponizej...
Witam serdecznie, chciałbym napisać makro do excela, może ktoś mi pomoże z tematem A mianowicie: gotowy arkusz z uzupełnionymi danymi chciałbym zapisać w nowym pliku (sam chce wpisywać nazwę tego pliku. Nowy plik a arkuszem powinien wyglądać tak samo z tym, że kilka komórek ma być skopiowanych w inne miejsca a część usunięta do nowej edycji. Być może...
Dzięki wielkie. Makro działa dużo szybciej. Czy mógłbyś jeszcze mi napisać część makra, która dodatkowo przenosiłaby tekst z pliku 1.xls Arkusz2 z komórek A1:A100 do komórek Z3:Z103 w pliku 2.xlsArkusz1
Nie sądzę ... podsumujmy zatem, na podstawie kodu, co mamy: 1. Arkusz zbiorczy nazywa się "Aktywność" 2. Tabela zbiorcza znajduje się w zakresie "B18:O2000" 3. Nagłówki tabeli zbiorczej znajdują się w zakresie "B18:O18" 4. Tabele źródłowe w plikach dawców znajdują się w arkuszach nazwanych "Aktywność" 5. Tabele źródłowe w plikach dawców mają nagłówek...
Witam, jestem kompletnie poczatkująca jeśli chodzi o tworzenie makr a chciałabym uprościć sobie pracę. W jednym arkuszu (Tab.2b) wpisuję dane w kolumnach odpowiednio: B- numer projektu C- numer raportu parasolowego G- wartość przekazanych refundacji H- data refundacji w drugim arkuszu (rejestr) mam inne dane dotyczące projektów wykazanych w kol.B arkuszu...
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...
Witam! Potrzebuję ustawić w załączonym pliku w karcie "dostawca B" formuły lub makro w taki sposób , aby automatycznie kolejno kopiowało wartości z odpowiednich komórek w kartach T-31, następnie z T-32... T-33, T-34 i T-35 ale tylko dla wierszy w których jako producent elementów wybrany jest Dostawca B. Dodatkowo w karcie "dostawca B" nie ma wszystkich...
Najprościej rzecz ujmując [syntax=vbscript]licznik = 3 For i = 1 To 100 If Sheets("Arkusz1").Range("B" & i) = 1 Then Sheets("Arkusz1").Range("C" & i & ":S" & i).Copy Sheets("Arkusz2").Range("B" & licznik & ":R" & licznik) licznik = licznik + 1 End If Next[/syntax]
Dzięki za info. Spróbuję i pokarzę rezultat. Teraz klecę wcześniejsze etapy. Skończyłem 1. czyli przenoszenie danych. Teraz zaczynam 2 czyli układanie danych i usuwanie dubli, a łączenie tekstu będzie w 3 etapie Dodano po 5 Mam prośbę o krótki przykład. Nie dałem rady sam nic zdziałać. Dzięki.
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...
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
Temat do zamknięcia
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.
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ć.
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.
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
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,...
A dlaczego chcesz zastosować makro do tak prostego działania :?: Pokaż swój plik (ewentualnie pliki żródłowe i docelowy) :!: , albo szukaj na elektrodzie przykładów rozwiązań "przenoszenia danych" :idea:
Jeśli koniecznie chcesz przenosić wartość jednej komórki do drugiej przy użyciu makra - to po zarejestrowaniu edytuj to makro i skoryguj wklejanie ze schowka (zapisana jedna wartość :D ) na wklejanie wartości komórki pierwotnej. Znacznie prostszy sposób przenoszenia wartości z jednej komórki do drugiej to łączenia typu d10 = a1 :!:
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
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
Usuń dane i wstaw arkusz z makrem. Będzie łatwiej pomóc
Jest. Mało tego, masz wybór: formuła w docelowej komórce, lub makro.
Witam kolegów i koleżanki. Zwracam z prośbą do was o pomoc, język VBA jest mi obcy. Wszystko dzieje w obrebie tego samego zeszytu o nazwie "Dane" W zeszycie "DANE", arkuszu " Baza" w kolumnie J od komórki 13 mam dwa słowa Auto i Ciągnik. Chciałbym aby w momencie jak pojawi się słowo " Auto" makro przenosiło dane do arkusza "Produkt". Arkusz "Baza" w...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Troszkę mi się zeszło z odpowiedzią, ale chwilowo zająłem się innymi sprawami. Jak wcześniej wspomniałem moim założeniem jest stworzenie makra/funkcji która po kliknięciu na na pole obok "Współczynnik częstotliwości [FM]" przenosi nas do tabelki znajdującej się w arkuszu 2. Po kliknięciu na odpowiednią komórkę w tabeli danych makro/funkcja zwraca wartość...
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...
"=RC Tak Nie wiem jeszcze czy okaże się szybsze, ale warto spróbować. Jeżeli podłączysz makro pod skrót klawiszowy (obsługiwany jedną ręką), np w stylu CTRL+D to wbrew pozorom będzie to szybsze niż to co teraz robisz. A szybciej nie osiągniesz nic więcej bo przecież też żeby wkleić wciskasz ctrl+v. Po prostu stajesz myszką na danej komórce, wciskasz...
No więc tak. Nagałam sobie makro, aby zobaczyć jak przeniść samą wartość. Sęk w tym, że na początku przenosiło wartości, tyle że do innej komórki. Potem się zorientowałam, że moją zmienną nie są kolumny, tylko wiersze. Po poprawieniu tego makro przenosi mnie do drugiego arkusza, ale nie wyrzuca wartości. Podsyłam plik.
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.
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,...
Najlepiej załącz te pliki i cały kod, który ma służyć do kopiowania. Ten kod jest w pliku "Nowy", czy jeszcze w innym pliku? Jaki jest komunikat błędu? Zakres danych nie musi być na 100 komórek, może być mniej, ale żeby charakter danych był zachowany.
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.
No i nie może działać co najmniej z dwóch powodów. Nie załączyłaś pliku ze swoim układem danych, podałaś tylko opis, a potem chcesz to stosować w innym układzie danych. Makra muszą być skrojone "na wymiar", nie są tak elastyczne jak funkcje. Makro zdarzeniowe (czyli takie, które uruchamia się automatycznie po zajściu jakiegoś zdarzenia np. edycji komórki)...
kopiować wartość wskazanej komórki do kolejnej pustej komórki w kolumnie innego pliku Co znaczy "do ... komórki w kolumnie innego pliku" ? Tam jest kilka kolumn, gdzie w pliku źródłowym będą komórki-dawcy danych do zestawienia ? I co znaczy "wskazana komórka", będziesz zaznaczać myszakiem daną komórę i po wciśnięciu przycisku/wybraniu makra ma przenosić...
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.
Za pomocą makra mam umożliwić użytkownikowi wpisywanie do komórki a1 tylko daty , a gdy makro to wykona , ma za pomocą funkcji TEKSTOWEJ przenieść do osobnych kolumn dzień miesiąc oraz rok. Tyle ,że te daty się kodują na kod daty kiedy używam funkcji tekstowej i przenosi mi np w kolumnę dzień liczbę 46
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....
Ale nic się nie uczysz. :( i nie czytasz ze zrozumieniem. Jeszcze raz zaznaczę: musisz ustawić zmienną globalną która będzie pamiętana poza działającą procedurą. Zwróć uwagę gdzie jest deklaracja zmiennej "i" w moim kodzie a gdzie w twoim. (gdzie jest deklaracja a gdzie początek procedury) ... aby przy naciśnięciu skrótu Ctrl+Shift+A przenosiło wartość...
Tak o to chodziło aby dane były w jednej komórce a adres przenoszony do komórki obok. A jak się włącza to makro? Proszę o krok po kroku jestem zupełnie zielony jak widać.
A ja tak do tego posta się dołączę i zapytam o makro co nie zakres komórek ma przenosić tylko wybrane komórki do nowego arkusza i ustawiać je w jednym wierszu. Mam już coś napisane ale nie działa. Proszę o pomoc. Kod makra: Sub zapisdobazy() ' ' zapisdobazy Makro ' Przyjmujący_zamówienie = Range("E6") ID_zamówienia = Range("E7") Sheets("Baza").Select...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Witam, Mając wykonany printscreen obrazku, z pozycji komórki, w której ma być wklejony, uruchamiam makro, które: - blokuje współczynnik proporcji - wstawia mi obrazek automatycznie pomniejszony do wysokości 2,5 cm - zmienia właściwości obrazu na "przenoś i zmniejszaj rozmiar wraz z komórkami". Już parę dni męczę temat i nie potrafię dopisać warunku,...
Cześć wszystkim, Jestem kompletnie zielony w tych sprawach, a chciałem zrobić makro przenoszące dane z jednego pliku (nazwa: napa) do drugiego pliku (nazwa: Raport), przykładowo dane z komórki Y przenieść do komórki N. Patrzyłem w internecie jak to robić i połowicznie mi się udało, ale rzecz w tym, że chciałbym, aby pliki dodawały się automatycznie...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
A orientujesz się może czy można zrobić tak żeby po zeskanowaniu zamiast potwierdzenia ENTER, przenosiło mnie do wskazanej komórki gdzie od razu mógłbym wpisać ilość, tzn. skan --> automatyczne przeniesienie do kolumny ilość --> ręczne wpisanie ilości i po naciśnięciu enter przejść od razu do kolumny kodu, wiersz niżej, tak żeby skanować kolejny produkt....
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
Taak ale ma kopiować wszystkie komórki znajdujące się pod (całą kolumnę). Jestem w stanie zrobić loopa który przeżuci jedną komórkę ale nie umiem zrobić tak żeby na podstawie jednej kopiowało całą kolumnę.
Witam Mam poniższy kod makra, który przenosi wartości z komórek w kolumnie "C" do komórek w kolumnie "CL", która pierwotnie jest pusta: [syntax=vbscript]Sub wstaw() Dim licznik As Integer Dim ostWrs As Integer Dim Nazwisko As String ostWrs = Range("A65536").End(xlUp).Row - 1 For licznik = 79 To ostWrs Step 93 Nazwisko = Range("C" & licznik).Value Range("CL"...
przenoszenie komórek makro przenoszenie kolumn makro przenoszenie wierszy
formatowanie seagate expansion elektroniczne głowice termostatyczne whirlpool lodówka zamraża
instrukcja serwisowa serwisówka prostownik inwerterowy
Tranzystor SMD z oznaczeniem A6 - identyfikacja Symbol sprężarki w lodówce Polar CZ280
