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,...
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...
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)
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,...
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...
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...
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]
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...
Jeśli masz Excela 2010 lub nowszego to można to zrobić w Power Query bez makro
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.
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...
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ć.
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.
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.
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
Przerób sobie to makro:
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ękuje. Problem rozwiązano, makro działa idealnie.
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
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...
może wydać się dziwne, ale w jaki sposób aktywować makro, jak podpiąć pod przycisk?
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...
Oczywiście, że ma sens. Magazyn dopiero się tworzy, a zawartość jest tylko po to, żeby sprawdzić, czy dane się dobrze przenoszą. FIFO ma być zachowane, bo taki jest odgórny wymóg i tyle.
Sposób przez Ciebie podany ma wadę, gdyż nie masz żadnej kontroli (ewidencji) nad tym co już zaliczyłeś do kosztów. Prędzej czy później wpiszesz tę samą kwotę po raz drugi i w żadn sposób nie będziesz mógł tego zweryfikować. Oczywiście nie ma żadnego problemu dodanie do Twojego przykładu przycisku np. "Dodaj kwotę", który wywoła makro przenoszące kwotę...
Dodałem do każdego makra linijkę kodu który podałeś i nic. Zauważyłem że Excel odnajduje i przenosi, ale tylko w (w tle), kursor we wskazane komórki. Jednak ich nie wyświetla. W załączeniu plik z dodaną linijką kodu którą zaproponowałeś.
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...
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...
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.
Nie bardzo rozumiem na czym polega istota problemu. Czy tylko na automatycznym odświeżeniu tabeli przestawnej? To można zrobić np. makrem przy każdorazowej aktywacji arkusza z tabelą. Przykład w załączniku. Analogicznie można bez tabeli przestawnej założyć tylko filtr i ten filtr odświeżać makrem. Można też formułami, ale to bardziej skomplikowane.
"=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...
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....
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...
Oto makro. Pan wymienić [syntax=vb]Sub wig() ' ' wig Makro ' Rozdziela spó³ki na wig 30 i przenosi do bazy danych ' ' Klawisz skrótu: Ctrl+q ' Dim bs As Range, dane As Range, lst As Range Dim r&, rd&, rb& Set bs = ThisWorkbook.Sheets("Baza Danych2").Cells rb = bs(Rows.Count, 1).End(xlUp).Row + 1 Set dane = ThisWorkbook.Sheets(1).Range("A:O") Set...
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
Hej! Skoro już mowa o rejestrowaniu makr. Mam Excela 2007 i aktywowałam zakładkę Deweloper, ale przycisk "Zarejestruj makra", "Makra" i "Visual Basic" nie są aktywne;( Ktoś wie o co chodzi? Post wydzieliłem i przenoszę do Komputery Software. - arnoldziq
Tak, przenosząc część makr do kodu arkusza. Przykład "na szybko" w załączniku. Uporządkuj, dostosuj do własnych potrzeb.
a czy makro zapisuje się w pliku Excela? i przenosząc plik na inne komputery wszystko działa?
Chyba nie rozumiem, o co Ci chodzi? Biorąc pod uwagę, że nikt jeszcze nie odpowiedział, chyba nie jestem jedyna. Twoje makro jest mało sensowne, ale może działać. Wprawdzie nie wiem po co każdą komórkę osobno kopiujesz, skoro można zaznaczyć i skopiować cały zakres D1:D30 i wkleić do A1, ale co kto lubi. Inna sprawa, że w Twoim załączniku w kolumnie...
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
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 :!:
Witam, Mam następujący kod do tworzenia arkusza o nazwach 1,2,3..... Sub DodajArkusz() Dim sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Dim arr As Variant strNazwa = "" intName = 1 For Each sh In ThisWorkbook.Worksheets shName = sh.Name If Left(shName, Len(strNazwa)) = strNazwa...
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Czyli są to listy, a przecież one "same z siebie" dodają sobie wiersze ... ? Planujesz wstawiać coś tylko ręcznie, czy może "jakimś mechanizmem" przenosić do listy/list coś z innego miejsca arkusza/zeszytu ?
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...
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.
Pokaże moment, który nie działa na przykładzie. Pomino tego, ze mam na liście słowo ZUS to nie przenosi mi tego wiersza. Wiesz co może być zle?
No właśnie dlatego mam mały problem, bo mam okno UserForm w którym jest tylko jedna kontrolka TextBox, dlatego pytam czy mogę usunąć fokus bez jego przenoszenia do innej kontrolki (której akurat nie ma, może źle to ująłem żeby przenosić makrem). Wiem że w ostateczności mogę wykorzystać pomocniczą kontrolkę którą ukryję, ale czy mogę to zrobić bez pomocniczej...
jeżeli użyje formuły to muszę użyć formuły do każdej komórki, a chodzi mi oto żeby przenosiło do jednej kolumny np C, wiec formula odpada.
Dzięki. Kodzik działa wyśmienicie. Teraz w moim przypadku kod wygląda tak: [syntax=vb]sciezka = ActiveWorkbook.Path With Application.FileDialog(msoFileDialogOpen... .InitialFileName = sciezka & "\Dokumenty\LZH\" & NazwiskoImie .Show End With[/syntax] ...a jak do tego kodu dodać dwie informacje w przypadku jeżeli od danego pracownika nie ma folderu w podanej...
Tak. W kolumnie LP nie wpisujesz. Makro rekordy z pustym LP przenosi do zbiorczego i wypelni LP sam 'Data wpływu' - format daty
Chciałbym, żeby dane były automatycznie ... przenoszone do tabeli poniżej IMHO wystarczy odpowiednio zaprojektować te tabele, aby dane przenoszone były automatycznie bez żadnego przycisku i makra, a jedynie wykorzystując proste, "przeciągalne" formuły :please: 989671
Przenoszę opcje do komórki I1, I2, I3, I4... w 'dzieleniu': Rows("2:2").Clear - usunie I2, bedzie od J2 wprawo
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...
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...
https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article...
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,...
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...
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
[syntax=vbnet]Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*;...
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ć.
Przeniesienie nie wchodzi w grę, bo to nie jest jeden arkusz, tylko kilkanaście, które są powiązane ze sobą makro... Osiwieję... Dodano po 6 Chyba nic nie wymyślę, zacznę przenosić powoli wszystko. Dzięki...
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...
Cześć, mam podobny problem. Chciałabym filtrować dane po wartościach z jednej z kolumn, a następnie przenosić wiersze do innych 4 arkuszy umieszczonych w tym skoroszycie. Problem jednak jest w tym, że skoroszyt znajduje się na One Drive i jest połączony z formularzem w Forms. Z tego co udało mi się zorientować makra w wersji online nie można tworzyć....
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...
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.
Z Accessem miałem styczność tylko raz i z tego co pamiętam, to nie pozwala usuwać wierszy, tzn. zostawia je puste, tworzy wiersz o nowej numeracji i tworzy się bałagan, a ja będę przekopiowywał, przenosił i kombinował na wiele sposobów, excel jest do tego łatwiejszy. Proszę jeszcze raz o pomoc w excelu;p No dobrze, sprawdzę to w domu, bo w pracy mam...
Hm... ;/ Rozumiem, że znajduje ZŁOM w danym zakresie i jeśli znajdzie to dany wiersz przenosi do arkusza "Zezłomowane". Tak też jest OK, ale dlaczego po uruchomieniu makra, w arkuszu "Spis końcówek lotów" widnieja tylko ZŁOM. Nie bardzo rozumiem co masz na myśli mówiąc "błędy w arkuszu".
witam. mam taką potrzebę: sporządziłem dla firmy (sklep) bazę towarów wyliczającą cenę. i w drugim arkuszu format cen do wydrukowania na półkę. z tym że tych towarów będzie co najmniej 500 szt. i będzie to robione na kilka punktów.. chciałem cos takiego co automatycznie pobierze dane z pierwszego arkusza i wstawi to w odpowiednie pola w arkuszu drugim...
Witam Często muszę usuwać odfiltrowane wiersze w których znajduje się tez grafika. Znalazłem gotowe makro które działa dość szybko i usuwa je, jednak robi to bez grafiki. Dodam tylko że we właściwościach znajdujących się w pliku zdjęć mam zaznaczoną opcję "Przenoś i zmieniaj rozmiar razem z komórką". Czy da się zmodyfikować to aby razem z tymi odfiltrowanymi...
Jeżeli nazwa pliku jest tworzona według jakiegoś schematu to można zrobić Dir z maską i znaleźć nazwę, a potem jej użyć w kodzie makra. Jeżeli jest wiele plików pasujących do takiej maski i nie chcemy przetwarzać ich ponownie, to można je po przetworzeniu przenosić do innego foldera lub zmieniać nazwę, żeby się nie wyszukiwały. Wszystko zależy od konkretnych...
excel makro przenoszenie plików makro excel przenoszenie pliku excel przenoszenie
generator klatkowy serwery poczty wychodzącej thunderbird wentylator chłodnica aster
zasilacz laboratoryjny naprawa rowerów elektrycznych
Westfalia hak holowniczy – kluczyk się obraca, kulki nie chowają się, naprawa mechanizmu Toyota Avensis T27 – momenty dokręcania śrub zawieszenia, wartości Nm, specyfikacja
