No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
Niestety, nie bardzo mi oto chodziło. Otóż mam plik: Zeszyt2, w którym podaje się dane wejściowe w jednej komórce, następnie wykonywane jest w tym pliku skomplikowane działanie i wynik wyświetlany jest w drugiej komórce. Takich danych wejściowych mam dużo, ale wynik jest wykonywany tylko z danymi z jednej komórki i podawany też tylko w jednej. Działanie...
Witam Mam mały problem, może ktoś pomoże. Mam skoroszy excel np A Mam w nim dane powiedzmy komórki od A1 do G1. Chciałbym żeby dane z komórek B1 c1 d1 kopiowały się do innego pliku Excel bądź nowego skoroszytu. Ale to nie problem. Problem w tym że nie mogę skopiować danych z komórek o pierto niżej. Plik jest codziennie aktualizowany więc pisać makro...
Działa super, o to mi chodziło, Z tą liczbą przypisaną już sobie poradziłem. Zamówienie czasami jest na kilkanaście pozycji i żeby na WZ było widomo, że odnosi się to do pozycji np. 14 z zamówienia. Mam natomiast kolejny problem. Maksymalna ilość pozycji musi być 21. Jak zmienię tylko wartość Const MAX = 4 przykładowo na 6 to numer katalogowy wpisuje...
Cześć, mam problem. Potrzebuję wiedzieć jak zrobić makro, które polega na ściąganiu danych z innego pliku. Ma wejść w inny plik, znaleźć konkretne słowo, przejść 5 komórek w prawo, skopiować wartość i wkleić w konkretne miejsce, potem przejść z tej piątej komórki na siódmą komórkę od tej znalezionej i skopiować ja w konkretne miejsce. Makro ma działać...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Witam, mam problem gdy kopiuję tabelkę z formułami z jednego pliku i chcę wkleić do innego pliku pojawia się komunikat o błędzie i wklejają się tylko wartości. Adresy komórek nie są zabezpieczone, ale w każdym dokumencie są te same, wersje excela są te same, tryby chronione są wyłączone, nie za bardzo wiem co się dzieje.
Witam, Excel 2003. Mam taki oto wzór: =JEŻELI(CZY.BŁĄD(JEŻELI([1.xls]Arkusz1!$... 3231";"3231";JEŻELI([1.xls]Arkusz1!$L$12... 231";"231";"Błąd, sprawdź wybór """)));"błąd";JEŻELI([1.xls]Arkusz1!$L$1... 3231";"3231";JEŻELI([1.xls]Arkusz1!$L$12... 231";"231";"Błąd, sprawdź wybór"""))) Jak widać są odwołania do plików zewnętrznych. Problem...
Witam, mam taki kod makra, i chciałbym żeby zawartość komórek kopiowała się do innego pliku. Gdzie powinienem wstawić ścieżkę dostępu? Sub save() Dim cokopiujemy As String Dim linia As Integer ' jesli jest puste, wyswietl komunikat "UZUPEŁNIJ POLA" If (Range("F6") = "") Then Range("N8")...
witam, w jednym arkuszu mam podstawową bazę danych typu: kolumna A-Nazwa firmy; B-adres; C-miejscowość itp. jest tych danych ok 8 kolumn. Jak zrobić by można był kopiować poszczególne dane danej firmy d inego pliku, w tórym wklejone te dane będą w odopowiednie rubryki. Dlateg ochce w odpowiednie rybryki, gdyż będą one wypełniać 4 następne arkusze które...
Witam Męczę się już kolejny dzień, nie wiem co zmienić w tym kodzie aby Dane z pliku "A" w którym jest tabela z danymi (A1:M30) - wiele komórek scalonych, kolorowa i w ogóle no i dane oraz formuły. Problem w tym, że formuła kopiuje tylko do pierwszego arkusza a di tego wyskakuje komunikat "subscript out of range" a ja chciałbym kopiować do arkusza w...
Dziękuje za szybka podpowiedź. Jednak chodzi o co innego - pewnie nieprecyzyjnie się wysłowiłem na początku. Otóż nazwa źródłowego pliku (w kodzie KALKULATOR_1) zmienia się automatycznie (niezależnie od operatora) podczas zapisu pliku źródłowego. Przykład operacji: - otwieram skoroszyt KALKULATOR_1 (jest to kalkulacja zamówienia dla Klienta); - wprowadzam...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
[syntax=vbscript]Sub Kopiuj() Set a = ActiveWorkbook i = Application.FileDialog(msoFileDialogOpen... s = Application.FileDialog(msoFileDialogOpen... Set b = Workbooks.Open(s) a.Sheets(1).Range("K20:M23").Copy b.Sheets(1).Range("K20") b.Close True End Sub [/syntax]
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Najprościej na przykład tak: Sub Kopiowanie() Set fs = CreateObject("Scripting.FileSystemObject... fs.CopyFile [A1], [B1] End Sub [A1] zastępuje Range("A1") Dokładny opis metody CopyFile jest w Helpie do VBA. W nazwach plików można używać symboli wieloznacznych do kopiowania wielu plików naraz.
No nie mów, że nie wiesz... [syntax=vbscript]Y.Sheets("Arkusz1").Ran... = X.Sheets("Arkusz1").Range("A1")[/syntax] Zamień A1 na właściwą komórkę.
Musisz wpisać większą treść wiadomości przed wysłaniem. W przypadku wysyłania plików opisz szczegółowo plik w treści wiadomości. Niech Gulson coś w końcu z tym zrobi.
Ponieważ "kopiowanie" samego kodu towaru było zbyt proste :please: dołożyłem jeszcze wprowadzenie ilości (np. sprzedanych towarów :?: ) jak na zrzucie i w załączonym pliku :spoko: 1052538 1052540
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
czy da się za pomocą jakiegoś makra pobierając dane tak jak teraz kopiować pliki o takich nazwach jak wartości z tabeli? Raczej tak. Chodzi o skopiowanie arkusza do pliku o nazwie wpisywanej do komórki na samej górze (Np "P3.xls")? Nagraj rejestratorem. Ale jeśli już makro, to "przy okazji" zamiast formuł w komórkach (łącz w nowym pliku), lepiej przypisać...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Należy zadbać o zawartość tej komórki w pliku źródłowym.
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb.
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Rozpoczynam dopiero "zabawę" z VBA, także wskazówki są dla mnie tajemnicze... czy mogę prosić o rozpisanie tego makra? przy założeniu, że nazwa pliku, z którego będą kopiowane dane znajduje się w komórce Y1? Z góry dziękuję.
A zmienić tu[syntax=vb]wiersz = wswyn.Range("a1048576").End(xlUp).Row + 1 'ostatnia wolna komórka w tym pliku[/syntax]oraz tu[syntax=vb]wswyn.Range("A" & wiersz & ":S" & wiersz).Value = wsSrc.Range("A" & nnn & ":S" & nnn).Value[/syntax]nie wystarczy?
Nie do końca wiem o co ci chodzi. Jeżeli chcesz aby po skopiowaniu komórek funkcje/wzory odnosiły się do nowych komórek ale w tym samym "ułożeniu" jak do komórki kopiowanej trzeba pozbyć się znaków $ (dolara) w funkcjach/wzorach (np: A10 + B10) [Znak $ wstrzymuje zmianę kolumny lub wiersza lub kolumny i wiersza przy kopiowaniu] Jeżeli chcesz zrobić...
kopiujemy wiersz A2 A2 to jest komorka Jaky rzeczywisty zakres Chcesz kopiowac z kazdego pliku?
Prototyp. Chcemy aby, po wpisaniu danych w dowolną komórkę pustego skoroszytu, excel sprawdził, czy w skoroszycie pierwszym To nie jest dobry pomysł, żeby za każdą zmianą w jakiejkolwiek komórce przeszukiwać arkusz z pliku z danymi. No chyba, że plik otworzymy przy otwieraniu pliku głównego.
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
nie mam możliwości przesłania pliku ( nie wiem dlaczego) Jak to jest .XLSM - spakuj RAR lub ZIP Dodano po 2 komórka G3 - data od, komórka G4 - data do Nie ma tam tego w komorce G4 - OPIEKUN, G3 scalona z B3 dane wprowadzone przez użytkownika ( kolumny B:M) N:U - nie trzeba?
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
Nie kopiuj wszystkiego, jak popadnie.;) [syntax=vb]Sub q() s1 = "C:\folder1\" p1 = s1 & Range("A1") & "bvt*.csv" plik1 = Dir(p1) plik1 = s1 & plik1 s2 = "C:\folder2\" p2 = s2 & Range("A1") & "bvt*.csv" plik2 = Dir(p2) plik2 = s2 & plik2 If plik1 <> "" Then Workbooks.Open Filename:=plik1 Else If plik2 <> "" Then Workbooks.Open...
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...
Tzn. ? Masz kilka zakresów o różnych rozmiarach, jak na ich kopiowanie ma wpływać pusta komórka? Wklej kod z zakresów, które przyjąłeś.
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
[syntax=vbscript]Sub Makro() p = [A1] 'Nazwa pliku jest w komórce A1 Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Range("B21:E21,G21:V21,AB17:AB18,B17:V20... With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown...
Gdzie przyklad? Gdzie ma byc makro - w docelowym pliku lub w tym " innym pliku" " w roznych miejscach" - oraz roznych wierszach?
Nie mogę utworzyć polecenia czyszczenia schowka po jego otwarciu. Chcę go obowiązkowo wyczyścić, gdyż mogą się tam znajdować jakieś elementy Robi się to linijką: Application.CommandBars("Clipboard").Con... Arkusz kopiuje do schowka "całą" komórkę, a ja chciałbym tylko jej zawartość tekstową. Jak świat światem to zawsze kopiuje do schowka...
"=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...
(Baza Zielone) 1 - nie do końca wiem czy o to Ci chodzi (próbowałem zrozumieć co chcesz osiągnąć - możliwe, że właśnie to co w załączonym pliku). Najprościej będzie posortować po pierwszej kolumnie tak aby puste wartości (matki) zostały na końcu i wówczas do kopiowania danych używasz formuły: 1060144 (Baza Niebieskie) 2 - już napisałem powyżej. Robisz...
Witam mam taki problem, potrzebuję makro które by z eksportowanego pliku xls dane komórki np. komórka B2 zawierająca datę, C5 zawierającą jakieś dane jak imię nazwisko i adres kopiowało do bazowego pliku excela z tym żeby pobraną komórkę ze źródła napisaną z enterami (ch10) i rozdzielało do poszczególnych komórek w bazowym pliku, czy coś takiego da...
Wydaje mi się, że poniższą linijkę: Cells(x, 2).FormulaR1C1 = "='[nazwa]WINTER 2010'!R" & y & "C" & 10 & "" powinieneś zamienić na: Cells(x, 2).FormulaR1C1 = "='[" & nazwa & "]WINTER 2010'!R" & y & "C" & 10 & "" i zrób tak w każdej linijce, bo w kodzie...
Witajcie Nie znalazłem odpowiedzi na mój problem, zatem piszę. Mam plik Excel, w którym pewne komórki są zablokowane a pewne odblokowane do użytkowników. Problem pojawia się, gdyż użytkownik kopiuje dane z innego pliku i wkleja dane do mojego pliku ( w pola odblokowane). Po tym pola odblokowane "przekształcają się" w zablokowane. Przenosi format komórki...
wyskakuje ten sam błąd w piątej linijce kodu: Range("E2").Select Jest to właśnie wynikiem wtłoczenia wszystkich poleceń do podprocedury "CommandButton1_Click". Chodzi o to, że wszystkie wywołania obiektów, bez jawnej deklaracji przynależności, odnoszą się do obiektu bieżącego, z którego są wywoływane, to swego rodzaju "dziedziczenie". Jeśli np. wywołujemy...
Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excela",...
Hej. Posiadam excela w wersji 2010, mam plik roboczy do którego kopiuje dane każdego dnia z innego pliku excela (codziennie jest on zmieniany i zapisywany z nową data). Dane które kopiuje są zawsze pobierane z tego samego arkusza i tych samych komórek. Czy jest jakaś możliwość by w wersji roboczej excela zapisać ścieżkę dostępową do pliku z którego...
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
Najprościej utwórzyć łącza. Przy otwartych plikach wpisz "=" i kliknij w komórkę drugiego...
Spróbuj zamienić: [syntax=vb]Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False[/syntax] na: [syntax=vb]Activesheet.Paste[/syntax] Sprawdź również formatowanie komórek.
Czy w skoroszycie są jeszcze jakieś inne makra? Pliku ściągnąć nie mogę.
w komórkach B7:AR20 Ustaw licznik=7 w takim razie
W Twoim makrze w miejscu gdzie jest nazwa na sztywno zastosuj funkcję INPUTBOX. Wpisaną wartość (1 lub 2 lub 3 itd) wprowadzasz do nazwy pliku wg schematu" Folder_plików + stałay_przedrostek_nazwy + wprowadzana_wartość + ".xlsx" Jeśli chodzi o kopiowanie komórki to raczej nie pomogę bo ja stosuję VBA do innej aplikacji. Ale możesz zrobić rekording makra...
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Ale w pliku excela wszystko wydaje się ok. Kopiując dane w dół osiągniesz wszystkie możliwe kombinacje, więc .... Jeszcze raz opisz powoli co chcesz osiągnąć?
można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...
Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...
Jak Marcin230 podpowiedział excel załatwi sprawę. Otwierasz excela kopiujesz cały tekst z notepad'a Zaznaczasz w exceu komórkę A1 i dajesz wklej. Następnie zaznaczasz całą kolumnę A (klikasz na literę A) W menu Dane wybierasz "tekst jako kolumny..." , zaznaczasz rozdzielany i klikasz dalej. Teraz zaznaczasz spację i klikasz dalej. w tym momencie zaznacz...
...Jeśli chcesz kopiować z innego pliku, oba pliki muszą być otwarte w tej samej instancji Excela... Dokładnie o to chodzi, nie pomyślałem o tym. Nie ma sposobu aby pobrać dane z zamkniętego pliku w innej lokalizacji? Jeśli chodzi o przeliczanie to odbywa się w momencie otwarcia pliku lub pojedyńczej komórki naciskając F2.
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
Jeszcze jedno, kod działa ale potrzebuje dodać pewny warunek, taki IF z zapisem do lokalizacji. Jeżeli plik zaczyna się od litery Z (wskazany w komórce excel, ta pierwsza litera) to zapisz w folderze3, jeżeli od litery U to zapisz w folderze4. Mogę prosić jeszcze o pomoc w dodaniu takiego IF'a?
kopiować dane najlepiej z pliku zamkniętego Poniżej najprostszy (czyli najwolniejszy: 1000 wierszy i 3 kolumny w 45 sekund) mechanizm kopiowania z zamkniętego pliku, wykorzystujący zwykłe odniesienie do pliku na dysku, postaci: 946005 Ps.: Przy wykorzystaniu np. ADO/SQL wyniki szybkościowe na pewno byłyby lepsze, ale mechanizm obsługi bardziej "skomplikowany".
Dzień dobry, Problem można też rozwiązać samymi formułami, nie potrzeba żadnych kolumn pomocniczych. Do znalezienia unikatów można użyć formuły tablicowej: [syntax=text]=INDEKS($D$8:$D$57;PODAJ.PO... gdzie: $D$8:$D$57 - zakres danych (tytuły), $F$63:$F63 - zakres wyników (unikaty). Początek...
Bardzo dziękuję za pomoc. Mam tylko jeszcze jedno pytanie. Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje i chcę zrezygnować z zapisu pliku nie wyskakiwał mi błąd: Run-time error '1004' Method 'SaveAs' of object'_Workbook' failed I jeszcze jedna sprawa: Załóżmy, że w kopiowanym arkuszu "xyz" są puste komórki np:A2, C3, D5. Jak zrobić...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Witam, Proponuję rozwiązanie z zastosowaniem kontroli poprawności danych. W komórce E6 wpisujemy warunek Pełna liczba > 0, pole Ignoruj puste pozostawiamy zaznaczone, w komórce F6 warunek Pełna liczba między Minimum 1 Maksimum =$E6, pole Ignoruj puste wyczyścić, w komórce G6 warunek Pełna liczba między Minimum 1, Maksimum =$F6, pole Ignoruj puste wyczyścić....
Od której strony się do tego zabierasz? Przeglądasz katalog i porównujesz nazwy podkatalogów z wartościami w komórkach, czy odwrotnie? Na czym konkretnie utknąłeś?
Witam, Jezeli ma Pan dane z kilku miesięcy i chce Pan sumować przedziałami, to posługując się funkcją SUMA.JEŻELI musi Pan zawsze uwzględniać różnice sum, na przykład jak chce Pan liczyć luty, to trzeba wziąć wszystko co było przed 1.03. i odjąć od tego to, co było przed 1.02. itd., na przykład: =SUMA.JEŻELI(B:B;"<2013-03-01";C:C)-S...
Witam, potrzebuje skopiować dane z pliku excela w którym sa dane poziomo do innego pliku excela pionowo, ale mam niestety scalone komórki w tym pliku w którym chce wkleić pionowo. Bardzo proszę o pomoc bo mam bardzo dużo danych do przeniesienia w ten sposób. Z góry dziękuje bardzo. http://obrazki.elektroda.pl/1428887400_1... http://obrazki.elektroda.pl/4382007000_1...
Dobry wieczór, A po co Panu dwie formuły, które wykonują to samo zadanie? Różnica jest tylko taka, że pierwszą formułę (z poprzedniego pliku i z kolumny B w tym pliku) wprowadza się do jednej komórki, a potem kopiuje w dół, a ta druga formuła obejmuje od razu cały zakres danych. W ogóle jak widzę takie formuły, to resztki włosów stają mi dęba. Ludzie,...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
U mnie ten kod dokładnie taki jak wkleiłeś działa i kopiuje... Wejdź do kodu i wciskając F8 prześledź krok po kroku, czy kod wykonuje się tak, jak trzeba... A, jedna uwaga - w tej chwili kopiujesz wszystko do tej samej komórki, bo zmienna ost_w nie jest zwiększana. Przerób na: [syntax=vb]wiersz = wswyn.Range("B65536").End(xlUp).Row + 1 For i = 19 To...
Jeżeli we wszystkich plikach arkusze są jednakowe to wystarczy w głównym pliku w odpowiednich komórkach powstawiać odwołania do komórek w plikach pozostałych. I tak: w pliku głównym (zakładam, że pierwsza data jest w komórce A2) w komórce B2 wpisałbym "=[nazwa_pliku]nazwa_arkusza!B2" w komórce C2 wpisałbym "=[nazwa_pliku]nazwa_arkusza!B2" w komórce...
Bez przykładowego pliku możemy tylko gdybać... Podejrzewam jednak, że stosujesz Copy-Paste. Spróbuj przypisanie z odwołaniem do adresu lewej-skrajnej komórki scalenia.
Gdy wyłącze filtry w tym pliku to po uruchomieniu makra dane kopiują się bez fragmentu zaznaczonego na żółto. Jeśli filtr jest włączony to kopiuje w taki sposób, że fragment na żółto się pojawia (czyli kopiuje również puste komórki z formułami). Innych różnic nie znalazłem, błąd wyskakuje w każdej z nich.
Witam forumowiczów. Potrzebuję makro, które zaoszczędziło by mi wiele czasu na wypełnianiu wielu dokumentów potrzebnych do prowadzenia działalności. Chodzi o wypełnianie dziennego zestawienia sprzedaży załącznik DZS.xlsx Chodzi o to, że na podstawie zawartości komórki z kolumny 07 różnej od pustej pliku Październik.xlsx w pliku DZS kopiowała się data...
Analizowałeś to makro? Przyjrzyj się co przypisujesz do zmiennej "multi" i to przed otwarciem pliku źródłowego. Nie powinno być With DoSkop.Worksheets("AKKO"&#... Set reg1 = .Range("a2:a41000")... itd Jeśli filtrujesz, to ustal maskę: fileFilter:="Pliki Excel (*.xl*),*.*," Po mojemu: Albo zostaw to (poprawione) kopiowanie...
Zależy ci na odblokowaniu arkusza? Jeśli chodzi o kopiowanie, to spróbuj tak: otwierasz oba pliki w exelu, w pliku do którego będziesz kopiować stajesz na komórce i naciskasz "=", klikasz na komórce odpowiadającej w arkuszu z którego kopiujesz, naciskasz "enter", powinnaś w komórce mieć formułę ze ścieżką. Trzeba ją teraz zmodyfikować usuwając znak...
Dziękuję, właśnie o to chodziło, ale czy jest możliwość aby po kliknięciu kolejny raz nie przenosiło poprzednich tylko dopisywało nowe? Ten skrypt ma jakieś ograniczenie? Dodałem go do swojego pliku (ok 2000 wierszy - ciągle rośnie) i skopiował tylko kilka.
Z pliku o nazwie 1234.xlsx (plik chce dowolnie wybrać Application.GetOpenFileName) przenieść wartość komórek "b2, b82, c41, e75" itd. do pliku 4321.xlsxm w którym aktywowałem makro do komórek o tym samym położeniu "b2, b82, c41, e75". Możesz skorzystać z prostego "scenariusza" opartego o kopiowanie danych z "zamkniętego" pliku: [syntax=vbscript]Range("A1").Formula...
Ja z reguły kolorami w arkuszach pomocniczych zaznaczam że formuły w danych komórkach są inne/"niestandardowe" więc trzeba zwrócić uwagę na ich kopiowanie (co nie znaczy że bez kolorów są zawsze takie same (w tym przypadku każdy miesiąc ma inną formułę) Dlatego najlepiej by było gdybyś zrozumiał jak jest stworzony arkusz test35. (tabela start i stop...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
Tak jak pisałem jestem zupełnie zielony w makrach. problem podfolderów mogę załatwić przekopiowaniem wszystkiego ręcznie do jednego katalogu ale co muszę dopisać do makra aby mi kopiowało komórki B1 do B23 z każdego pliku i zebrało to w jednym arkuszu po kolei w kolumnach?
Pewnie by się dało, ale na fragmentach kodu wyrwanych z całości... Najprościej będzie napisać osobną procedurę, nie wiem, kopiowania arkusza z listą, przepisywania widocznych komórek i dopisać jej wywołanie w kodzie przycisku...
Ok załączyłem plik taki jak jest ostateczny, wsumie dodałem tylko parę kolumn. W uzupełnionych komórkach są dane które chce eksportować czyli ID ODZ, SKU, data dla każdego tygodnia oraz DNI ZAPASU.
Witam, Dobrze zacząłeś z tym wczytywaniem pliku, trzeba było to kontynuować. Proponuję wyszukiwanie załatwić kodem, np: If Right(t, 1) = ";" sprawdza czy w grupie znaleziono linię 333. Jeśli nie to po średniku będzie pusty ciąg.
Witam Pewnie temat juz dawno był i zmoka. Potrzebuje rozwiązania na problem.. Mam arkusz kalkulacyjny i potrzebuje w niego za jednym pociągnięciem skopiować dane w kolejną pustą komórke z innych arkuszy xls o rożnej nazwie ale z tych samych komórek C1:F25. nazwa aruszy jest zupełnie przypadkowa. Coś na zasadzie otwórz plik.. formie dialogowej. ma ktos...
To bardzo bym poprosił o jakieś przykłady makr w tych dwóch przypadkach, z kopiowaniem z ukrytego arkusza i drugie z pobieraniem z komórki części nazwy pliku i go zapisaniu. Z góry wielkie dzięki.
Przed zmianą wyboru w komórce A3 należy wyczyścić komórki J3:L3. Wtedy formuła wykorzysta dane z tabelki. To czyszczenie można ewentualnie zautomatyzować makrem zdarzeniowym reagującym na zmianę w komórce A3. To makro jest w module arkusza Zabudowa, ale jest w tej chwili zapisane tylko dla komórki A3. Jak będziesz chciał wprowadzać dane także w innych...
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
W przykładowym pliku nie widzę średników. Nie widzę też makra, które miałoby źle zapisywać. Generalna zasada jest taka, że jeśli plik zawiera separator w polu danych lub jakiś inny znak niedozwolony, to zawartość komórki ujmuje się w cudzysłów. Mechanizm Excela robi to prawidłowo, więc dlaczego makro nie miałoby?
Pewnie można, ale to już dłuższa historia... :) Najprościej - jeżeli plik-źródło jest w tej samej lokacji - wstawić kwerendę wybierającą dane (Dane->Importuj dane zewnętrzne->Nowa kwerenda bazy danych, wybrać Excel Files * i OK, wskazać plik-źródło (można zaznaczyć "Tylko do odczytu"), a dalej z kreatora" wybrać zakładkę, rozwinąć ją krzyżykiem, wybrać...
excel kopiowanie innego pliku kopiowanie komórek excel excel kopiowanie komórek
zadania elektrotechnika transformator wymiana kopułki piekarnik programator
izopropanol termopasty amica daw7123dcb
Ideal Weldman 200 A – huk, błysk, spalenizna po przełączeniu na drut samoosłonowy, spawarka nie włącza się Czy maszyna do szycia Łucznik 414 jest dobra?
