wychodzi na to że z tym jest jakiś problem Masz tylko zdeklarowaną zmienna wsB i nic poz tym, otwierasz plik i musisz jeszcze ustawić z jakiego arkusza ma pobrać 'lastrow' + 'find', no i kopiowanie masz tylko do b1 czyli cały czas ta pętla będzie nadpisywać.
bozio891 W twoim arkuszu wystarczy zmienić zakres obowiązywania nazwy AktywnyWiersz z arkusza na cały skoroszyt (najprościej usunąć nazwę, przypisać ją ponownie ale zakres dać skoroszyt i odwołanie "=0") Zaznaczanie będzie działać w każdym arkuszu gdzie masz ustawione formatowanie warunkowe (październik i grudzień nie mają) :)
To po czym ma excel (oko ludzkie) poznać gdzie się zaczyna dany zakres?
A tak trochę od siebie, nie łaska? [syntax=vb]Sub Polacz() Application.ScreenUpdating = False Zeszyt = ActiveWorkbook.Name sciezka = "C:\PlikiExcela\PlikDoImportu.xls" Workbooks.Open Filename:=sciezka Plik = Mid(sciezka, InStrRev(sciezka, "\") + 1) For x = 1 To Sheets.Count Windows(Plik).Activate Sheets(x).Select Range("A1:F1").Select Selection.Copy...
No to pokaż (załącz) ten krnąbrny plik :D Albo spróbuj metody poprzez nazwany zakres: nadajesz dla całego skoroszytu nazwę - Zakres = Arkusz1!$B$2:$B$2000 a potem dla listy rozwijanej wprowadzasz =Zakres :spoko:
Plik w PW. Zwroc uwage na nazwa zakresu
z kilku innych arkuszy Z arkuszy, czy ze skoroszytów? Jeśli z arkuszy (w tym samym skoroszycie) to wstawiasz nazwę arkusza, wykrzyknik i odnosisz się do jego zakresu/komórki. Np. w ten sposób odwołasz się np. do A1: [syntax=vb]=Arkusz1!A1[/syntax] Jeśli ze skoroszytów, to tutaj wyjaśnienie: http://office.microsoft.com/pl-pl/excel-...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
problem w tym ze wysyła mi cały arkusz Raczej cały skoroszyt... Skopiuj zakres do nowego pliku tymczasowego, zapisz, wyślij i usuń. P.S. Select Case nie ma tu zastosowania. Tym bardziej w taki (dziwny) sposób. Właściwiej byłoby [syntax=vb]If MsgBox("Czy napewno chcesz wysłać wiadomość?", vbYesNo + vbQuestion, "Wybierz opcje") = vbYes Then 'tu jesli...
1. FRAGMENT.TEKSTU zwraca... tekst (string). Spróbuj wymnożyć przez jeden: Fragment.Tekstu(coś tam)*1 lub użyj funkcji WARTOŚĆ. 2. Można, wykorzystując VBA. 3. Poczytaj o udostępnianiu skoroszytu z opcją 'Zezwalaj użytkownikom na edycję zakresów'.
Prawym klawiszem na wybrany arkusz i "Chroń arkusz", jeśli chcesz ukryć to wybierasz "Ukryj". Później dajesz "Chroń skoroszyt" w opcjach Recenzja z zaznaczeniem pola "Struktura" i nie ma możliwości odkrycia arkusza. Założone hasło nie jest wywoływane przy otwieraniu dokumentu. Trzeba je wprowadzić tylko w celu zaprzestania ochrony skoroszytu. Dziękuję...
Dobry wieczór, Najwygodniej zdefiniować dane do wykresu za pomocą formuł nazwanych. W załączniku przykład jak to zrobić. Proszę zwrócić uwagę, że przy definiowaniu zakresów na wykresie trzeba używać nazw kwalifikowanych, tzn. poprzedzonych nazwą skoroszytu, ewentualnie arkusza i wykrzyknikiem. Pozdrawiam
I ta nazwa skoroszytu znajduje się w zakresie komórek? Co Ty kombinujesz? Nazwa skoroszytu jest typu 'string', a nie 'range'. Poza tym obiekt 'Range' nie posiada właściwości 'Workbook.Name'. Tak piszesz to makro na zasadzie 'może się uda'?:)
Jest tu faktycznie niekonsekwencja. Zakres B3:K13 liczy 10 kolumn i 11 wierszy. Inny sposób rozwiązania. Zdefiniować nazwę "zakres" wg wzoru: [syntax=text]=PRZESUNIĘCIE(ADR.POŚR(KOMÓ... przykładowy zakres obejmuje 5 wierszy i 3 kolumny. To sobie poprawisz tak jak chcesz. Początek zakresu ustalasz ustawiając kursor (komórkę...
Witam! Można też po przestawieniu trochę kolumn, ustawieniu nazw dla zakresów i wstawieniu kilku formuł zrobić to tak jak w moim załączniku. 827023
Witam koledzy forumowicze. Potrzebuje pomocy w stworzeniu makra, które będzie kopiować zakres tabeli z jednego skoroszytu do drugiego. Ma to wyglądać następująco: 1. Otwieram skoroszyt (nazwijmy go A) w którym są dwa arkusze, "1" i "2". 2. W arkuszu "1" mam przycisk, który ma zaznaczyć zakres tabeli z karty "3" skoroszytu B (lub innego, które znajdują...
lecz widoczny wynik to sam wiersz Sumy A jaki zakres komórek obejmuje nazwa Cena :?: :D Jeśli chcesz sumować "tylko widoczne" - zmień formułę na =SUMY.CZĘŚCIOWE(9;[Cena]) :idea:
Trzeba było takie informacje: Z programu wagowego eksportowany jest cały pomiar (wszystkie ważenia) do excela Każde takie rozliczenie chcę robić w następnym skoroszycie. przedstawić we wcześniejszych postach :cunning: Jeśli te tabelki mają taką strukturę jak przedstawiłeś w załączonym pliku :!: to nie ma żadnego problemu :D Wprowadź sobie to makro do...
Niestety z tego co napisałeś i pokazałeś w pliku nie wynika, jak chcesz tego używać. W załączonym pliku nie ma Arkusza1a, a arkusze 2 i 3 są puste. Więc nie wiem, czy to ma być używane w jednym arkuszu, czy w kilku. Generalnie proponowałbym nadanie nazw zakresom i odwoływanie się do tych nazw w makrach. Gdy rozszerzasz taki zakres przez dodanie wiersza...
Witam Nie mogę sobie poradzić z kopiowaniem danych do innego skoroszytu. Posiadam główny skoroszyt o nazwie " Dane" do którego pobierane są różnego rodzaju dane. Chciał bym mieć możliwość kopiowania określonych danych ze skoroszytu "Dane" do innego skoroszytu GOW. Dane muszą zostać skopiowane " specjalnie" bez formuł. Utrudnieniem będzie kopiowanie...
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Czyli otwierasz kilka plików / skoroszytów (worksheets) o takiej samej konstrukcji z interesującymi danymi w takich samych arkuszach (sheet) i chcesz zawartość całych arkuszy przenieść do nowego skoroszytu? Czy tylko jakiś zakres (range).
Czemu Temu.;) [syntax=vbscript]Sub UsunPuste() With Application .ScreenUpdating = False .Calculation = xlCalculationManual For x = 1300 To 45 Step -1 If Cells(x, "B") = "" Then Rows(x).Delete Next .ScreenUpdating = False .Calculation = xlCalculationAutomatic End With End Sub[/syntax]
Cześć Lanzun Wieczorem załaduje taki pliczek z dalszym wyjaśnieniem, Pozdrawiam M Dodano po 4 Cześć Lanzun Wieczorem załaduje taki pliczek z dalszym wyjaśnieniem, Pozdrawiam M Zgodnie z wcześniejszym postem załączam plik z przykładowymi danymi. Kod VBA dotyczący importu zakresu Tab_2 z innego skoroszytu można pominąć, wydaje się, że pies jest pogrzebany...
Wcale nie musisz zmieniać źródła. Stwórz w nowym/swoim arkuszu nowego skoroszytu tabelkę z kryteriami (stwórz nową - ważne by nagłówki kolumn się tak samo nazywały) W swoim (nie źródłowym) Włącz filtr zaawansowany - naciśnij strzałeczkę w "Zakres listy" i wskaż całą tabelę w pliku źródłowym. Następnie wskaż tabelkę kryteriów w swoim pliku. Zaznacz opcje...
No to mamy wreszcie pierwszy konkret: w arkuszu Excela w komórce A1 jest "Polcaina" (tej nazwy nie znajdzie, bo w danych jest "Polocaina", ale listy rozwijanej Pan nie chce), w B1 jest "5", w C1 jest "Polocainum Hydrochloricum 5%", w D1 jest "57". I co dalej? Co teraz przeszukujemy i czego dokładnie szukamy? Skoroszyt, arkusz, zakres w arkuszu? Jak...
To, co jest przed Find określa, gdzie metoda ma szukać. Może tam być zakres z aktywnego arkusza, jak jest teraz, albo zakres z innego arkusza (z kwalifikatorem Worksheets(nazwa_lub_numer)), albo nawet z innego (otwartego) skoroszytu.
Pytanie tylko co jest błędnego w powyższym kodzie że nie chce działać? 1. wstawisz formułę od B2, gdzie szukana wartość jest w B2(musisz zmienić, albo formułę wstawiasz w inna kolumnę albo szukaną wartość bierzesz z innej komórki) 2. Brak dolara w zakresie tablicy-tabeli (czyli będzie ona się zmienić), poczytaj do czego służy dolar w excelu. 3. i jeszcze...
Funkcja SUMA.JEŻELI nie obsługuje zamkniętych skoroszytów. Trzeba ją przekształcić na funkcję SUMA.ILOCZYNÓW. Ta funkcja moż pobierać dane z zamkniętego skoroszytu. Tylko zakresy danych muszą być zracjonalizowane, nie całe kolumny, bo SUMA.ILOCZYNÓW będzie to liczyć bardzo długo. Mniej więcej coś takiego: [syntax=text]=SUMA.ILOCZYNÓW(('[Scrap report.xlsm]IR'!$L$1:$L$1000=[(at)Dzień]...
Witam Szukam wszędzie i nie mogę znaleźć rozwiązania prostego problemu... Mianowicie za pomocą InputBox wpisuje jakiś numer i chciał bym wyszukać go w pierwszym skoroszycie (111) w kolumnie A Jeżeli znajdzie: to zwróci wartość tego samego wiersza z kolumny B przejdzie do skoroszytu o tej odczytanej nazwie i wydrukuje zakres komórek np. (A1:E20) jeżeli...
Witam, Potrzebuję stworzyć kod, który będzie za pomocą przycisku kopiował dane z kolumn A i C do nowego skoroszytu. Ilość wierszy do skopiowania jest zależna od wprowadzonych danych. Mam kod, który kopiuje dane do nowego skoroszytu, jednak ustawiłem na sztywno zakres A1:C200, który jest kopiowany. Jak uzależnić zakres do skopiowania w zależności od...
arkusze są zawsze o inne nazwie jak również skoroszyt i tego nie wiem :cry: A makro skąd ma wiedzieć jakie są nazwy arkuszy i skoroszytów, oraz zakresy danych :cunning: :?: Wszystko to można wprawdzie obejść (tj. używanie nazw w kodzie), ale zawsze musi w tych obiektach być zachowana jakaś logika i powtarzalność :idea: Bez przykładowych plików (źródłowych...
PRL ThisWorkbook.Activate = Windows(Zeszyt).Activate Zrobić pełny link do arkusza. ActiveWorkbook.Sheets(1).Range("A:A").Co... Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.
Dokładniej to ... :cry: Twoja rada jest słuszna dopiero kiedy masz do czynienia z dwoma skoroszytami po jednym arkuszu :D z czego jeden jest zamknięty, lub gdy nazwy odnoszą się jedynie do zakresów poszczególnych arkuszy (a nie jak domyślnie - do całego skoroszytu) :idea:
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Cześć Potrzebuję utworzyć takie makro które będzie kopiowało dane z podanego zakresu z innego skoroszytu do mojego ale z uwzględnieniem daty tj. od dnia dzisiejszego do 2 dwóch dni wstecz. Na chwile obecną mam taki kod ale on kopiuje cały zakres. Proszę o pomoc. Application.ScreenUpdating = False Workbooks.Open Filename:="F:\ATS\Ats 1.xlsx" Sheets("Spakowane").Select...
A tak jeszcze z ciekawości, czy zamiast obrazka możesz wrzucić załącznik w Excelu? Myślę, że to da się jakoś uprościć. :D Dodane: A tak, żeby było całkiem śmiesznie to masz ode mnie w prezencie funkcyjkę, którą wklep sobie w module skoroszytu i używaj do woli jak normalnej formuły. Warunek jeden. W komórkach musisz wpisywać wartości sterowania takie...
Ale... U mnie jest normalny pusty skoroszyt na pełnym ekranie, a widzisz tylko pewien zakres komórek? jeśli tak to ustaw kursor w pobliżu granicy nagłówka ostatniej widocznej kolumny tak, aby pojawiła się podwójna strzałka kliknij prawym i odkryj, tak samo zrób z wierszami.
Zgadza się chciałbym kopiować z arkuszy o identycznym nazewnictwie (-4) i skonsolidować zakresy znajdujące się w tych arkuszach do jednego podumowującego arkusza w nowym skoroszycie. Zakres danych zaczyna się w tym samym miejscu, jednak w zależności od arkusza ma zmienną ilość wierszy Przykładowy plik o identycznej strukturze zamieszczam poniżej. Na...
Dla pierwszego przypadku wykorzystaj funkcję Hiperłącze(). W załączeniu przykład (tworzyłem go w 2010 ale powinien działać i w 2003). Warunek plik/skoroszyt musi mieć nazwę i być zapisany na dysku. Co do drugiego: Jeżeli już chcesz się bawić zakresem to jest coś takiego jak przesunięcie() lub już przez Ciebie wykorzystany adres() dodatkowo adr.pośr(),...
Nie znam się ale myślę, że sprawdzając od pierwszego do ostatniego arkusza całe zakresy komórek.
[syntax=text] Option Explicit Sub Makro6() ''''''' Arkusz źródłowy musi zawierać w kolumnie 'P' dane do sumowania ''''' ''''''' Program liczy sumy z tej kolumny i po pzekroczeniu 20 : ''''' ''''''' Arkuszem wyjściiowym musi być arkusz z danymi w kolumnie 'P' ''''' ''''''' a) zakłada nowy skoroszyt i arkusz o nazwie "Wyniki" ''''' ''''''' b) kopiuje...
Powinieneś dodać własny skoroszyt jako przykład, co chcesz osiągnąć, bo w Excelu różne drogi prowadzą do celu. W każdym razie jeśli używasz funkcji ADR.POŚR, to jej pierwszy (a często jedyny) argument musi być w cudzysłowie - jeśli oznacza adres, z którego chcemy pobrać dane. Natomiast bez cudzysłowu - jeśli to jest komórka, która dopiero zawiera potrzebny...
Cześć, przepraszam, ale mam być może banalny problem , ale nie siedziałem dość długo w excelu i nie mogę sobie poradzić. Generalnie mam taki skoroszyt o nazwie < "Lista" > w którym zapisuje sobie wszystkie lokalizacje, jedna pod drugą. Często zdarza się że musze jakąś lokalizacje zaraportować, zanalizować itd i pomyślałem sobie że zamiast za każdym...
W jaki sposób, przy użyciu formatowania warunkowego lub kodu w VBA można zablokować (np. na hasło), możliwość zmiany, edycji komórek w całym skoroszycie. Pozostawiając jedynie możliwość edytowania komórek wybranej kolumny? Np. Chciał bym udostępnić w skoroszycie możliwość dokonywania zmiany zawartości komórek kolumny D z zakresu od D3 do D27. Z możliwością...
Dobry wieczór, Trudno mi wyciągnąć od Pana, o co naprawdę Panu chodzi, więc jeśli dobrze rozumiem intencje proponuję takie rozwiązanie: utworzyć tymczasową kopię oryginalnego zakresu w wolnym miejscu arkusza (ja użyłem zakresu I6:M12), skopiować tam zakres oryginalny, wyczyścić komórki zawierające zera lub liczby ujemne, wreszcie wyczyszczony zakres...
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...
Najlepiej załącz przykładowy skoroszyt albo wyjaśnij dokładniej, jakie to są dane i czy w każdej z tych kolumn jest ich tyle samo, czy ilości (zakresy wierszy) są różne.
A wracając do tego wątku. W jaki sposób mogę dołożyć zakresu przeszukiwania w postaci innych arkuszy z tego samego skoroszytu? Mam skoroszyt, w którym jest kilka arkuszy. Potrzebuję przeszukać je wg powyższego schematu (tj, że podaję Nr rys i Część na rys, zaś reszta treści kopiuje się z właściwych arkuszy).
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Dzień dobry, Żeby poprawność danych mogła korzystać ze źródła w innym skoroszycie, należy posłużyć się nazwą zakresu. Najłatwiej zrobić to w taki sposób: 1. W skoroszycie źródłowym nadać nazwę zakresowi danych źródłowych. Jeżeli danych będzie przybywać najlepiej, żeby był to zakres dynamiczny np. formuła Nazwiska . Ta formuła odwołuje się do całej kolumny...
Witam Poszukuje wsparcia w wyszukaniu, wyswietleniu i wybraniu arkusza z którego będę chciał skopiować dane do drugiego arkusza. Posiadam dwa skoroszyty. W pierwszym znajdują się dane w wielu arkuszach " około 25". Teraz w skoroszycie drugim po wybraniu opcji kopiuj chcę mieć możliwośc wybrania z którego arkusza ze skoroszytu pierwszego kopiuje ustalony...
Witam, męczę się nad zmianą danych (odpowiednio pobieranych np. z komórki A1 dla fnd i A2 dla rplc) - zakres dla wszystkich arkuszy skoroszytu . Proszę o pomoc. [syntax=actionscript]Sub FindReplace() Dim sht As Worksheet Dim fndList As Variant Dim rplcList As Variant Dim x As Long fndList = Array(np. komórka "A1" Arkusza1) rplcList = Array(np. komórka...
Jeśli chodzi tylko o zaznaczenie duplikatów, a nie o manipulowanie wpisami można posłużyć się formatowaniem warunkowym. Trzeba tylko doprecyzować, gdzie są te dane do porównania. Czy one są w osobnych plikach (skoroszytach), czy w innych arkuszach tego samego skoroszytu? Założyłem, że to drugie. Gdyby to były osobne pliki, to najlepiej skopiować te...
Witam! Proponuje wykorzystać nazwy zakresów dla wszystkich kolumn we wszystkich arkuszach (przypisane do tych arkuszy, a nie skoroszytu :!: ) w oparciu o stałe nagłówki kolumn :idea:
Czy w tych zakresach są formuły, zwłaszcza, gdy odnoszące się do innych arkuszy lub skoroszytów? Edit Edytor VBA nie będzie w stanie wprowadzić nazwę 'Zamówienia'(Excel RUS), że arkusz ma postawę od początku(Sheets(?)) ?
Ten kod jest niejasny. Mylisz pojęcia skoroszyt (Workbook) i arkusz (Worksheet). Skoroszyt może zawierać kilka arkuszy. Taki fragment jest błędny. [syntax=vbscript]Dim Formualarz As String Dim Rejestr As String ThisWorkbook.ActiveSheet = Formularz Workbooks.Open Rejestr Workbooks(Formularz).Activate Workbooks(Rejestr).Activate [/syntax]Co dokładnie...
Czasami nie da sie ;) Jeśli jednak coś piszesz/programujesz to zwykle są kopie zapasowe i raczej nie zakłada się hasła gdy praca nie jest jeszcze "prawie" zakończona, bo plik jest tylko dla autora. Jeśli więc posiadasz dostęp do swojego własnego kodu z wczesniejszych etapów swojej własnej pracy, to możesz wykazać, że plik jest twoim dziełem. W każdym...
Na pierwszym arkuszu umieszczamy listę Combo. Żeby wyświetlić listę arkuszy można to zrobić w makro, które ładuje listę Combo przy otwarciu skoroszytu, w obsłudze zdarzenia Workbook_Open: [syntax=vb] Option Explicit Private Sub Workbook_Open() Dim iWiersz As Integer Dim ws As Worksheet iWiersz = 1 'Utwórz listę arkuszy w pierwszym arkuszu od drugiego...
Kolejny krótki temat, który ma rozwiązać 'upierdliwość' Poprzez TransferSpreadsheet importuje dane z zakresu w Excelu do tabeli w Access. Wszystko jest dobrze, jeśli skoroszyt nie jest otwarty przez jakiego użytkownika. Wówczas zamiast importu jest błąd. Pomyślałem, że skopiuje wcześniej skoroszyt do jakiegoś pliku tymczasowego poprzez FileCopy i z...
Kopiuje zaledwie 11 komórek w pętli (zakres) i kilka pojedynczych. Nie trwa to długo, ale widać, jak excel wkleja pojedyncze wartości, czas to około 0,5s / komórkę. Otwieranie skoroszytów też jest wyjściem, ale wydaje mi się w tym przypadku nieeleganckie. W każdym razie, wielkie dzięki za pomoc.
Można uzyskiwać również dostęp do danych w plikach zamkniętych Przecież wyszukaj.pionowo działa na zamkniętych skoroszytach i nie trzeba cudować z makroexcel4. Jak pominąć to otwierające się okno, aby makro samo otwierało plik i pobierało wartość? Masz źle zrobione odwołanie do skoroszytu (baza), oprócz samego pliku musisz jeszcze dodać z którego arkusza...
Witam Mam pewien problem. Potrzebuje skopiować zakres danych (D3, C7:C32, F7:F32) do tych samych adresów, do innego skoroszytu, ale do arkusza o tej samej nazwie. Arkuszy jest około 100 - 150 Czy jest coś takiego możliwe?
Faktycznie nie precyzyjnie. Oczywiście cały czas mam na myśli nowy skoroszyt. Mówiąc typ, mam na myśli listę którą rozwijam w filtrze. Piszę ogólnie, bo makro po przeróbkach przydałoby mi się do kilku czynności które wykonuję w pracy, i zdecydowanie by mi ją usprawniło. Generalnie chodzi o filtrowanie po kolei to co mam na liście w kolumnie E, kopiowanie...
Witam! Chciałbym uprościć sobie codzienne wpisywanie danych na koniec zmiany roboczej, bo obecnie muszę codziennie wypełniać 5 różnych skoroszytów (plików raportu) stworzyłem plik o nazwie „!wpisywanie” który po uzupełnieniu zawiera wszelkie dane potrzebne do uzupełnienia każdego z pliku raportów i chciałbym go odpowiednio zaprogramować...
Witam jak zmienić w exelu 2003 domyślnego koloru obramowania komórki z czarnego na inny kolor? Chodzi o komórkę która jest widoczna zaraz po uruchomieniu programu. Czy jest to w ogóle możliwe? Tak, to jest możliwe. 1. Nagraj makro formatowania komórki. Prawdopodobnie trzeba je będzie trochę przerobić, ale to zostaw na później. Najważniejsze abyś przy...
Witam serdecznie. Posiadam dane w excelu, które znajdują się w 2 arkuszach: 1. "DANE" i 2. "CT". W pierwszym arkuszu w kolumnie 2 (od wiersza 3 do 2500) znajdują się interesujące mnie wartości. W arkuszu "CT" w wierszu 7 (kolumny od B do EO [143]) znajdują się liczby, które w sumie dają wartość 2500. Chodzi o to, żeby pod każdą taką liczbą w arkuszu...
(at)lanzul Odpada na pewno konwertowanie do exe-a bo wtedy skoroszyt będzie bez możliwości modyfikacji (tak jak read only) Tzn. pierwsza opcja to załóżmy jeśli arkusz był otwarty 10 razy to 11 raz się nie otworzy. Druga opcja jeśli mam y określoną datę to arkusz się nie włączy To tak jak adamas wspomniał Workbooks_Open ale łatwe do obejścia
To zależy co chcesz z tym potem robić. Zawodowo w VBA raczej pisać nie będziesz. :-) Jak chcesz od czasu do czasu zrobić coś dla siebie to dokładnie tak działaj. Zastanów się jak dokładnie ma działać makro i rób je po kawałku rozwiązując po drodze pojawiające się problemy. Żeby zacząć musisz zrozumieć co jest co: Skoroszyt, Arkusz, komórka, zakres komórek,...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Na początek terminologia: w Excelu skoroszyt (czyli to co jest zapisane w pliku) dzieli się na arkusze (nie zakładki). Co do meritum pytania. Można takie kopiowanie zrobić hurtem (od razu wszystkie komórki). Wtedy należy użyć funkcji TRANSPONUJ i jako argument podać cały zakres do skopiowania. Jeśli masz starszego Excela trzeba to zatwierdzić tablicowo...
Wklejać danę będe do innego skoroszytu . To dlatego brakowało tego arkusza "Dane" w Twoim pliku :?: :D Jeśli tak nieprecyzjnie wszystko opisujesz to wprowadzasz w błąd wszystkich, którzy Ci pomagają :cry: Makro kolegi PRL będzie Ci kopiowało określony zakres danych tylko do arkusza Dane w tym samym skoroszycie :!:
Witajcie, wiem że taki temat już była ale kompletnie nie znam się na makrach i nie potrafie gotowego rozwiązania podstawić pod swój plik ze względu na to iż nie wiem gdzie dokładnie określa się kolumny w makrze ktore chciałabym przenosić. Poszukuję rozwiązania, które pozwoli mi na kopiowanie danych z jednego arkusza do skoroszytu. Opis zadania. W Arkuszu...
Witam Poszukuje wsparcia w utworzeniu odpowiedniego makra. Posiadam dwa skoroszyty. W pierwszym "A" znajduje się arkusz z tabelą w którą chcę z automatu wprowadzać dane. Jedna cześć danych będzie narzucona i automatycznie wpisywana przez narzucony schemat w makro Druga cześć danych będzie kopiowana z tego samego skoroszytu " A" , tylko z innych komórek...
Wystarczy funkcja: Suma.jeżeli(zakres;kryteria dotyczące zakresu;faktycznie sumowany zakres) Tu jest pytanie czy data jest w formacie "data" (tu będzie więcej zabawy) czy to zwykły ciąg cyfr. Jeżeli chcesz przykład załącz fragment twojego skoroszytu.
wbwartosci - jest objekt, formula wymaga nazwe skoroszytu w kwadratowych nawiasach Dodano po 6 $C$1:$C$2 - to zakres 2 komorki lub kolumny 1..2 ? Dodano po 7 Zamiast Autofill [syntax=vb] r = Application.CountA(wb1.Sheets(2).Range("... wb1.Worksheets(2).Range("B2:B" & r).Formula = "=VLOOKUP(A2,'[" & wbwartosci.Name & ".xls]Sheet3'!A:B,2,0)"[/syntax]
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
...działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? W pętli: [syntax=vbscript] While Plik <> "" ... Wend [/syntax] nie należy kopiować, tylko przenosić dane z komórek 'dawcy' do zmiennej tablicowej, a następnie z tej zmiennej oddawać wartości do obszaru zdawczego...
Dzień dobry, Przyznam, że nie bardzo rozumiem o jaki błąd Panu chodzi. Zauważyłem tylko, że w pliku, który Pan teraz załączył nazwa "prac" nie odwołuje się do lokalnego skoroszytu, tylko do skoroszytu na moim pendrivie, na którym miałem plik z przykładem. Coś Excel musiał namieszać przy kopiowaniu plików. Proszę sprawdzić u siebie, czy nazwy które ma...
Proszę o pomoc w napisaniu funkcji w Excelu VBA, która wyszukuje określone słowo w pierwszej kolumnie i inne słowo w drugim wierszu a która wywoływana jest z innego skoroszytu. Napisałam funkcję, która działa w tym samym skoroszycie ale nie idzie mi zrobienie tak, aby działała gdy się ją uruchamia z innego skoroszytu. Działąjący przykład zamieściłam...
Przeczytaj jeszcze raz (deklaracja zmiennej i odwołanie się do wektora): 3. Nie przypiszesz zakresu do zmiennej tablicowej w ten sposób. Można Np tak Teraz, jeśli[syntax=vb] Set XlApp = GetObject(, "Excel.Application") Tablica = XlApp.Worksheets(1).Range("O4:O36")[/syn... owszem, zadeklarowałeś obiekt, ale co ze skoroszytem Excela? Musisz się do...
Jeśli chodzi o moje rozwiązanie, to aby formuła przeliczała się automatycznie przy każdym przeliczeniu skoroszytu trzeba dopisać linijkę [syntax=vbscript]Application.Volatile[/s... początku funkcji, czyli po deklaracjach przed linijką:[syntax=vbscript]wksname = Left(pattern, InStr(pattern, "!") - 1)[/syntax]W razie czego przeliczenie skoroszytu...
Witam, Jestem początkujący jeżeli chodzi o programowanie makra i utknąłem w martwym punkcie. Posiadam skoroszyty z danymi z poszczególnych miesięcy, które na koniec każdego okresu muszę wgrać do innego(zbiorczego) skoroszytu z którego wyciągam interesujące mnie dane z kilku lat. Udało mi się ogarnąć temat do momentu wklejenia danych do finalnego zestawienia...
Witam, Zapętliłem się do tego stopnia, że mając prostą pętlę czytającą wiersze między skoroszytami, ni w ząb nie potrafię jeszcze ugryźć jak sądzę funkcji IF - dla podanego na wstępie warunku sprawdzenia (tutaj w przykładzie "cyfry miesiąca") i przepisania wiersza jeśli ten warunek został spełniony - jeżeli nie, kod ma czytać dalej aż znajdzie i kolejny...
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...
Dla wygody, bez względu na to, czy aktywny skoroszyt "BAZA" warto na początku Dim baza as Range .... a następnie set baza = .Sheets("TLP").Range("A1:S" & zakres) usfWESOP.ListBox1.List=baza.Value ..... baza(ListBox1.ListIndex+1, k + 1)=...
Zastosowałem kilka razy wskazywanie zakresów, ale mi się nie spodobało. Obecnie unikam tego jak ognia. Czy nie byłoby lepiej przygotować gdzieś (w określonym, stałym miejscu - przynajmniej początek) tablicę nazw arkuszy do wyeksportowania i nią się posłużyć? W ostateczności można przecież zbudować taką tablicę dynamicznie, po otwarciu skoroszytu.
Witam, Kolejny raz potrzebuję pomocy w zakresie kodu ale po kolei mam skoroszyt składający się z 41 arkuszy ( nazwy np. 1. ; 2. po kolei ; 3. itd.) potrzebuję zsumować wartość komórki AD3 arkusza 9. z wartością komórki T9 arkusza 10. który jest aktualnie otwarty (aktywny) a suma pojawia się w komórce AD3 arkusza 10. napisałem linijkę kodu : If ActiveSheet.Name...
Dziękuję bardzo :) Działa super. Powstała jeszcze jedna kwestia do rozwiązania. Próbowałem określić zasięg działania kodu ustalając dodatkowo range aktywnego skoroszytu. [syntax=vbscript] ... With ActiveSheet.Range("A1:H16") ... [/syntax] Powstaje błąd: Run time error 438 Potrzebuję aby była możliwość użycia kilku takich tabel w jednym arkuszu. Bez...
Ja bym jeszcze na końcu onej procedury dodał zwolnienie zmiennych obiektowych w stylu: Set "NazwaZmiennej" = Nothing I nie piszę tego tylko po to żeby się czepiać. Ostatnio miałem problem z bardzo rozbudowanym skoroszytem, gdzie autor zapomniał o tym drobnym szczególe. :D VBA raczej samo ich nie zwolni.
Opcja widok/podziel jest do podzielenia jednego arkusza na wiele widoków. Jeśli chcesz wyświetlić wiele arkuszy to jedyna opcja to Widok/Nowe okno. Okna możesz rozmieścić automatycznie tak że będzie to wyglądało jak podział widoków. Pytanie do czego Ci to potrzebne? Może skopiuj po prostu wszystkie arkusze do jednego arkusza ale różne zakresy komórek....
Witam Mam skoroszyt w nim 12 arkuszy.Każdy z arkuszy jest chroniony hasłem W każdym z nich jest tabela o zakresie D4:AH24.Ten zakres nie ma zablokowanych komórek bo wpisuje dane,pozostałe są zablokowane bo mam ukryte formuły.Jak ukryć menu podręczne EXcela i utworzyć swoje menu w którym byłyby takie pozycje: UW, WD, CH,które byłoby aktywne w zakresie...
Dzień dobry, Czy jest jakiś sposób, żeby pobrać dane z innego skoroszytu Excel z wieloma arkuszami na podstawie parametru? Chciałbym, zeby kod/funkcja przeszukała konkrenty zakres wierszy w danej kolumnie, i jeśli tam znajdzie się odpowiednie słowo, zwróciła mi odpowiednie komórki znajdujące się w tym wierszu. Konkretny przykład: W miesięcznym rozliczeniu...
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
Nie cytuj siebie tylko zmieniaj - nie będzie powtarzać. ...Zresztą to nie mój kalendarz ... Jeżeli byś umiał sam "wpaść" na obliczenie daty wielkanocy zapewne nie pytał byś się jak co robic w excelu :) A kalendarz jak kalendarz do najbliższych lat może być. Jednak tak prosta funkcja wyliczająca wielkanoc ma pare błedów np rok 2079 pokazuje 16.04 a powinna...
Dlatego się "nie zmienia" bo wszystko masz powiązane z jedną komórką celu. Ale to i tak by nic nie dało gdyż obliczenia na "karta" dotyczą tylko jednego pracownika na raz (czyli tylko jednej listy rozwijalnej), więc nie zobaczyłbyś nic więcej (byś musiał pod każdą listę robić oddzielny arkusz "dublujący" arkusz "Karta"). Wydaje mi się że nie do końca...
Przecież ten skrypt/makro jest skopiowany i dokładnie opisany na: https://www.extendoffice.com/documents/e... Czy asia.asia oczekuje na pomoc czy chce aby ją ktoś wyręczył z trudu przeczytania i zrozumienia gotowca? Odkrywanie rzeczy nowych może być pasjonujące. Proponuje przeczytać wcześniejszą moją...
Chciałabym stworzyć makro które będzie uruchomiane podczas otwierania skoroszytu. W arkuszu1 w komórce J1 znajduje się formuła dziś() W arkuszu2 w kolumnie C1:C20 znajdują się daty i tak jeżeli data z komórki J1 znajduje się w zakresie C1:C20 to pokaż komunikat "......", a jeżeli nie to nie rób nic Czy ktoś mógłby mi pomóc ułożyć makro. Mniej więcej...
zamykanie skoroszytu zamknięcie skoroszytu excel makro kopiowanie skoroszytu
alarm concept astra dystanse zapis pamięci eeprom
hulajnoga elektryczna hulajnoga elektryczna
Sprzęgło w starszych koparkoładowarkach JCB 3CX Lokalizacja czujnika cofania w silniku AHT