Czy w w gotowym makropoleceniu nazwy np. arkuszy/plików się zgadzają? Tu może być problem. Ewentualnie z późniejszej wersji chcesz wkleić do wcześniejszej gdzie np. jest różnica (starsze wersie Excela tj. Excel 2003 oraz starsze wersje) mają ograniczenie do 65 536 wierszy i 256 kolumn. A jeżeli korzystasz z wersji 2007 lub nowszej to plik może mieć...
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
hallo, tak próbowałem dziękuje... pokazuje błąd w zapisie "Selection.AutoFill Destination:=Range("A" & pw & ":A" & pw + ow - 1), Type:=xlFill" Kopiuje tylko nazwę 2 arkusza.
Dzięki wielkie za naprowadzenie lanzul ;) Function Totalcost(zakres As Variant, rate As Variant) As Double Dim i, j As Integer For i = 1 To zakres.Rows.Count j = 1 Totalcost = Totalcost + ((zakres.Cells(i, j) + zakres.Cells(i, j + zakres.Columns.Count - 1)) * 1.5) * rate.Cells(i, 1) For j = 1 To zakres.Columns.Count...
Odwołanie, tak aby przy zmianie danych w kolumnie pierwszego arkusza, zmieniały się dane w komórkach A1. Nazwy arkuszy: Arkusz pierwszy: "zestawienie" w tym są dane do kopiowania kolejne arkusze: 9A 01, 9A 02 itd do 9A 120. Czy tworzenie takiego makra nie jest bardziej pracochłonne od ręcznego wstawiania odwołania w każdym arkuszu?
Witaj. Bez względu na to, co potem już liczbą będzie tekstem(1,5s)? Makro należy znać nazwy arkuszy i werszy-kolumny źródłowe i docelowy. w przeciwnym razie sam cos takiego: [syntax=vb] For r=pierwszWersz To OstatWersz If Cells(r,2) >1500 then ' Tu kopiowanie, dzieląc wartość przez 1000, a przypisanie s. End If Next [/syntax]
Cześć, od razu chcę poinformować, że jestem totalnie zielony 😉 tworzę plik w którym w Arkusz1 mam wzór raportu w którym w odpowiednich polach zmieniają się dane na podstawie wybranego dnia, a następnie drukowany do PDF. W Arkusz2 mam bazę danych na podstawie której wypełniany jest raport w Arkusz1. Każdy dzień w bazie to osobna kolumna. Takich raportów...
Witam wszystkich forumowiczów! Jestem absolutnie początkujący jeśli chodzi o programowanie w VBA w Excelu, a potrzebne mi jest makro, które (po jego aktywowaniu np. kombinacją klawiszy) wytnie jeden wiersz z jednego arkusza i wstawi go do drugiego, w pierwsze wolne miejsce. Skoroszyt będzie się składać z 3 Arkuszy. Chciałbym, aby była możliwość przenoszenia...
Pętlę możesz utworzyć na różny sposób, np. Sub Kopia_co_5() Application.ScreenUpdating = False Dim x As Long For x = 1 To 1000 ' na początek wstaw np. 50 zamiast 1000 Sheets("Arkusz1").Select Rows(5 * x).Select Selection.Copy Sheets("Arkusz2").Select Rows(x).Select ActiveSheet.Paste Sheets("Arkusz1").Select Next x Range("A" & x).Select Application.CutCopyMode...
Wstaw na początku makra [syntax=vb]Application.ScreenUpdating = False[/syntax]a na końcu, przed wiadomością: [syntax=vb]Application.ScreenUpdating = True[/syntax]Dzięki temu unikniesz przeskakiwania między arkuszami. Druga sprawa: cały taki przykładowy fragment: [syntax=vb]Sheets("instrukcja").Select Range("b11").Select Selection.Copy Sheets("czas pracy").Select...
Nie wiem czy dobrze zrozumiałem myśl użytkownika "krzys.kas" Znawcy vba pewnie mnie wyśmieją za kod poniżej: Dodano po 1 Coś ala Nie mam drukarki. Jutro sprawdzę twój kod. Jestem przekonany że będzie działał. :D Dodano po 7 Zapomniałem podać że wartość TAK będzie zmienna. Nie jest wartością stała-przypisaną do arkusza. W jednym przypadku będzie 6 arkuszy...
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
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...
Witam potrzebuje kilku porad odnośnie excela 1. Formułę lub makro do automatycznego wstawiania formuły przy kopiowaniu arkusza. Przykład: w arkuszu2 w polu B2 jest formuła =DANE!H5 czyli przenosi mi wartość z arkusza DANE pola H5 i teraz przy kopiowaniu arkusza2 i zmianie nazwy na arkusz3 chce żeby w polu B2 była formuła =DANE!H6 itd. 2. formułę lub...
Przy kilku listach w kilku arkuszach proponowałbym jedno makro w module arkusza ThisWorkbook (Mój_skoroszyt), coś w tym stylu: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wks As Worksheet If Target.Count > 1 Then Exit Sub If Intersect(Target, Union([A1], [C1], [E1])) Is Nothing Then Exit Sub Application.EnableEvents...
Witam. Znalazłem w sieci Marko które wykorzystuje do scalania danych z wielu skoroszytów do zbiorczego. działa wyśmienicie (scala dane z pierwszego arkusza skoroszytów) ale pojawiła się potrzeba scalenia arkuszy z rożnych plików po nazwie arkusza czyli mam 10 plików źródłowych z arkuszami "Arkusz1", "Arkusz2","Arkusz3","Arkusz4".............. chciałbym...
Można w poniższy sposób, wpisując w tablicy "arkusze" wszystkie nazwy arkuszy, w których kod ma się wykonać. [syntax=vbscript]Sub Wstaw() Dim arkusze, arkusz arkusze = Array("Arkusz1", "Arkusz2", "Arkusz3") For Each arkusz In arkusze Worksheets(arkusz).Rows(5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next End Sub[/syntax] andie
Pliku xlsm nie mogę załączyć Zawsze możesz załączyć plik w formacie .xls albo skompresować swój plik np. do .zip i w tej postaci załączyć. Plik tekstowy też jest OK, ale nie można go uruchomić bez danych, więc można coś przeoczyć. Nie wiadomo z którego arkusza uruchamiasz makro. Zaraz na początku obliczasz numer ostatniego wiersza w kolumnie 18. arkusza...
witam, czy ktoś pomoże mi w takim oto problemie. mam dwa pliki excella, w jednym mam dane sprzedaży dla danych osób a arkusze są nazwane jako data, w drugim pliku robię podsumowanie dla tej sprzedaży, kopiuję dane z pierwszego pliku do drugiego za pomocą kopiowania adresu ścieżki, ale żeby skopiować formułę dla kolejnych dni muszę zaznaczyć formułę...
Witam. Znów mam problem z Excelem. Mianowicie w firmie gdzie pracuje człowiek człowiekowi wilkiem przy wysyłaniu zbiorczego planu dostaw przewoźnicy się burzą że jeden ma lepiej drugi gorzej. Że ktoś jest bardziej faworyzowany inny mniej. Wpadłem na pomysł żeby skombinować makro, które dzieli plan dostaw na oddzielne pliki, takie, w których przewoźnik...
cienki jestem w programowaniu. Przedstawie sytuacje: -otwieram plik *.xls -w nim jest 30 arkuszy o nazwach od arkusz1 do arkusz30 -aktywnym arkuszem jest arkusz1 , -daje Narzędzia > makro> rejestruj nowe makro , daje ok i zaczyna mi "nagrywac" czynności -jako ze chodzi mi o ogólną zasade dzialania , czynnością jaką rejestruje makro jest "wstaw wykres"...
Witam. Przeglądałem kilka tematów tu na forum które dotyczyły mojego problemu niestety żaden nie tyczył dokładnie tego co mnie interesuje. Pracuje jako specjalista ds. transportu w niewielkiej sieci marketów i tworząc plan transportowy dla samochodów musze po skończeniu wpisać tzw zwroty (puste palety, kartony, kosze z butelkami etc). Sklepy zgłaszają...
Wierszy by było około 5tys. i są to podobne wartości (raport kasowy) Jeżeli wszystkich 5 tys wierszy to nie ma sprawy. Excel ma w jednym arkuszu 65.635 wierszy w każdej kolumnie. Jeżeli w każdym arkuszu masz po 5 tys to razem 600.000 wierszy więc jeżeli już to trzeba to będzie rozdzielić na parę kolumn. Kolumn jest w 2007 do IV czyli 256. A tak już...
Witajcie, Potrzebuje wykonać makro które: Będąc w Arkuszu1 po zastosowaniu makra, zapisywało wszystkie niepuste komórki Arkusza2 (zakres A:A) o nazwie pobranej z komórki (B3) Arkusza3 do pliku tekstowego który zostanie utworzony w tej samej lokalizacji co otwarty dokument excela z obsługą makra. Po wykonaniu makra w Arkuszu1 np. w komórce C5 pojawia...
Rozwiązaniem będzie: zainteresować się funkcją Dir Tak właśnie jest zrobione w powyższym pliku: Nie bardzo rozumiem co tam jest napisane. Z tego co widzę to podaję ścieżkę w kodzie, a kod jest zbudowany tak że jeszcze muszę wybrać jakiś folder i tego nie rozumiem. Udało mi się przerobić swoje tak żeby pobierało dane na razie statycznie i bardzo źle....
Witam mam taki problem z wczytywanie plików txt do Excela. Chce zrobić makro, które wczytuje wszystkie pliki txt do jednego arkusza. Mam katalog z pomiarami. Każda seria pomiarów zapisuje się w innym katalogu. Teraz chce, żeby makro tworzyło arkusz z nazwą katalogu, a potem do tego arkusza wrzucało wszystkie wyniki pomiarów jeden pod drugim. Poniżej...
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Przeglądałem, ale jakiś czas temu, po rejestracji (kilka miesięcy temu, z tego co pamiętam) :) Korzystam z forum po raz pierwszy. I mocno przeceniłem swoje umiejętności pisania makr w Excelu, a także okazuje się że również definiowania problemów :/ Dodano po 18 zamotałem się trochę :/ mam makro, które po wciśnięciu Przycisku CommandButton dodaje arkusz...
..Najprościej nazwać arkusze i odpowiednio ustawić je na pasku zakładek.. Myślałem o tym rozwiązaniu ale zmusza ono do pilnowania pewnego porządku. Autor problemu nie określił, będzie tylko on używał arkusza, czy inne osoby też. W przypadku większej ilości użytkowników istnieje konieczność pilnowania porządku w arkuszach. Dlatego jestem zwolennikiem...
Tylko czemu wynik jest dopiero od 435 wiersza? Najprawdopodobniej masz jakieś puste wiersze, które makro widzi jako puste wartości. Spróbuj dopisać klauzulę WHERE. przypuśćmy,że mam jeszcze jedną tabelę tylko z dwoma kolumnami: material no( z nr komponentów-nie powtarzają się) i stock( ze stanami zapasów). W jaki sposób mogę połączyć teraz te dwie...
Excel ma wbudowane mechanizmy automatycznego przeliczania, które są z reguły wystarczające. Bardzo rzadko potrzebne jest dodatkowe przeliczanie. Oczywiście to jest możliwe. Poczytaj sobie w Helpie o metodzie Calculate i jeszcze kilku metodach podobnych. Ale takie dodatkowe przeliczanie spowalnia działanie arkusza, szczególnie gdy jest rozbudowany, więc...
Na wstępie mała uwaga. Pisanie makr z pomocą rejestratora, to katastrofa, takimi metodami nigdy nie pojmiesz VBA. A teraz krótko: 1. nazwy nadawane - definiowane, to rzecz święta w pracy z Excelem 2. skoro arkusz2 nosi nazwę "Karta" to dlaczego jej nie stosujesz w kodzie tylko pakujesz "Arkusz2" 3. nie bardzo rozumiem do czego jest Ci potrzebne kopiowanie...
Proszę o pomoc. Potrzebuję napisać makro do kopiowania danych z plików excela, które umieszczone są w danym folderze. W taki sposób, aby następnie dało się w pliku zbiorczym zrobić listę "nazw". W każdym pliku mam "nazwy", które mają przyporządkowane poszczególne numery. Cześć z tych numerów się powtarza. A ja potrzebuję zrobić listę wszystkich numerów...
Witam, Parę godzin szukania i nic, więc postanowiłem się poradzić. Potrzebuję stworzyć następujący arkusz: W Arkuszu1 w poszczególnych komórkach będą znajdowały się nazwy kolejnych arkuszy. Na Arkuszu1 będzie przycisk, który po przyciśnięciu przejdzie do tego arkuszu, którego nazwa będzie 'podświetlona'. Czyli po kliknięciu na komórkę z nawą arkusza...
Witam serdecznie Jestem nowy na tym forum. Potrzebował bym pomocy przy makrze, które by kopiowało komórki z jednego głównego arkusza gdzie codziennie wpisuję dane do kilku innych arkuszy. Poszperałem troszkę w necie i znalazłem makro napisane przez pana Tomasza Gawęda które prawie odpowiada moim oczekiwaniom. [syntax=actionscript] Option Explicit Sub...
Witam. Bardzo proszę o pomoc. W oparciu o zamieszczone przykłady na forum, tworzyłem formularz zawierający m.in. ramki. Do formularza dodałem makro. Ramka powinny się ukrywać jeżeli w przypisanej jej komórce będzie Fałsz. Poniższy kod pisałem w excelu 2013. [syntax=vb]Private Sub CommandButton2_Click() Dim mojFrame As MSForms.Frame Dim pierwszyWiersz...
Jest to makro czyli program napisany w języku Visual Basic. [syntax=vbscript] Function kwota_slownie(kwota As Double) As String Dim do_konwersji As String, kwota_groszy As String Dim zlote As String, cala_kwota As String cala_kwota = Application.WorksheetFunction.Text(kwota... "#####0.00") Select Case Len(cala_kwota) Case 4 If Left(cala_kwota, 1) = "0"...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
Tak na szybko spróbuj : Sub Makro1() arkuszdane = InputBox("podaj nazwę arkusza z danymi") kol = CInt(InputBox("Podaj kolumne z danymi")) wier = CInt(InputBox("Podaj pierwszy wiersz z danymi")) ile = CInt(InputBox("Podaj ile jest wierszy z danymi"))...
Tu zaczynają się cuda. To może podrzucę kanister z wodą? :) Poważnie: Umieść oba makra w module i precyzyjnie "wskaż" Excelowi, którego arkusza dotyczy kod. Przykład z kopiowaniem[syntax=vb]With Sheets("Arkusz3") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues 'pozostałe mają ustawienia domyślne Application.CutCopyMode...
Nie chcę za bardzo wchodzić w pomysł kolegi adamasa bo nie wiem co było głównym celem i dlaczego to zrobił tak a nie inaczej. Zaproponuje trochę inne rozwiązanie, ale ponieważ nie znam całego kodu i intencji arkusza może być kłopot z działaniem (np wcześniejsza ochrona arkusza) Zakładam jak piszesz, że nazwiska w danych kolumnach są posortowane a właściwie...
Witam! Mam prośbę o pomoc przy kolejnym kodzie. Niestety Excel u mnie w firmie napotyka błąd z zapisywaniem skoroszytów, które zawierają obrazy pobrane z innego skoroszytu. Nie są w stanie tego naprawić i muszę ominąć błąd. Mam zamiar zrobić to w ten sposób: *mam do dyspozycji prezentację z opisanymi obiektami na rynku i chciałbym z niej pobrać slajdy...
Cześć wszystkim, Z góry uprzedzam, ze moja wiedza w zakresie VBA jest znikoma - ogranicza się jedynie do pętli, odwołań do komórek, tworzenia mało skomplikowanych funkcji czy makr. Niektórym z was mój problem może wydać się prosty. Przeszukałem parę stron w poszukiwaniu odpowiednich makr lub przerobieniu istniejących, jednak było to bezowocne. Chciałbym...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
Witam. Mam napisaną aplikację w Excelu służącą do „pełnej” obsługi małego zakładu szklarskiego. Czyli pozwala na spisanie i wykazanie materiałów oraz prac wykonanych dla klienta, w oparciu o te dane – wystawienie faktury, pozwala na prowadzenie gospodarki materiałowej, archiwizuje faktury, prowadzi małą księgowość, posiada wykaz klientów...
Witam Mam w arkuszu nr 2 takie oto makro Sub Sort1() ' ' Sort1 Makro ' ' Range("F607:J617")... ActiveWorkbook.Worksheets("Arku... ActiveWorkbook.Worksheets("Arku... Key:=Range( _ "H607:H617"), SortOn:=xlSortOnValues,...
Przetestuj poniższy kod: [syntax=vb]Sub Rozdziel_Pivota() Dim pvTbl As PivotTable Dim pvFld As PivotField Dim pvItm As PivotItem Dim shArkPvTbl As Excel.Worksheet Dim shArkList As Excel.Worksheet Dim lLstRwList& Dim rngList As Excel.Range Dim rngCp As Excel.Range Dim wbkDest As Excel.Workbook Dim shDest As Excel.Worksheet Dim sItem$ Dim oWSShell As...
Cześć potrzebuję pomocy. Mam napisane krótkie makro polegające na tym, że przed wydrukowaniem program automatycznie zapisuje plik excel pod nazwą wskazaną w konkretnej komórce w arkuszu. W danym skoroszycie mam 30 takich arkuszy i celem jest aby w zależności od tego w jakim arkuszu jestem pobierało wartość komórki z danego arkusza. Poniżej dotychczasowy...
Witam Może ktoś pomoże. W 2 excelach mam arkusz o tej samej nazwie PAGE W jednym z nich (nazwijmy-Analityczny), mam prócz PAGE dodatkowy arkusz z wygenerowaną tabelę przestawną, która wykonuje potrzebną, analityczną filtrację danych z PAGE. Chcę zrobić macro, które spowoduje następującą reakcję. Otwarty jest Excel Analityczny oraz druga kopia z Nowym...
Przykład kopiowania danych dla wykresu z arkusza "baza-a.xls". Zostawiłem tę samą nazwę, żeby nie było potrzeby przerabiać później kodu. Makro szuka pliku "baza-a.xls" w tej samej lokalizacji, jeśli jest inaczej trzeba zmienić 3 linijkę kodu (podpowiedź w makrze) W pliku "baza-a" do filtrowania i kopiowania makro wykorzystuje kolumnę "O" i "Arkusz2"...
Witam, Próbuję napisać swoje pierwsze MAKRO w VBA i ugrzązłem w połowie pracy. Dlatego też proszę o pomoc w celu naprowadzenia na rozwiązanie problemu. Celem programu jest przetwarzanie danych z jednego skoroszytu i zapisywanie ich w drugim. Na dane składają się uszeregowane w interwałach miesięcznych dane spółek notowanych na GPW z uwzględnieniem kryterium...
Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej dziedzinie nie potrafie poradzic sobie z ulepszeniem mojego...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym przykładzie jest to Arkusz1 o nazwie Arkusz 1 i jak...
Dziękuję JRV :) Szczerze mówiąc trochę mnie przytkało że kilka linijek kodu może robić taką robotę, tym bardziej ochota na start nauki VBA. Przetestowałem kilka zmian które będę musiał wykonać i wszystko działa szybko i zgodnie z założeniem. W sumie nawet lepiej niż w pomyśle 1, bo makro kopiuje dane bezpośrednio z plików "zrodlo", plik zbiorczy służy...
Witam, jestem całkiem zielony w arkuszach kalkulacyjny jeśli chodzi o makra i potrzebuję pomocy. Utworzyłem skoroszyt w którym są trzy arkusze. Pierwszy to tabela przestawna, drugi to arkusz zbiorczy a trzeci to raport o nazwie '01'. Potrzebuję napisać następujące makro po włączeniu którego wartości z komórek od AS5 do BU5 z raportu będą kopiowane do...
Dzień dobry, korzystam z kodu, który kopiuje mi wybrane komórki ze skoroszytu (o zmiennej nazwie) i konkretnego arkusza w tym skoroszycie (nazwa arkusza jest zawsze stała) do skoroszytu "zbiorczego" o stałej nazwie (w tym wypadku ZEST_ZAM.xlsx). W kodzie mam wpisaną "na sztywno" nazwę skoroszytu, z którego komórki są kopiowane i nie umiem tego zastąpić...
A mógłbyś mi trochę podpowiedzieć w którym miejscu mam umieścić dany kod? W Module czy w kodzie z UserForm - akcja po naciśnięciu przycisku? Sorry za takie "głupie' pytania ale jestem totalnie zielony. Modules-> Formularz: [syntax=vbscript]Sub Zapisywanie() ActiveWorkbook.Save 'Metoda Save zapisuje obiekt, nasz kod powoduje zapisanie zmian w aktywnym...
Witam serdecznie Kolegów. Mój problem polega na stworzeniu makra do excela, który kopiuje konkretne komórki do nowego arkusza. Nie są to całe wiersze czy kolumny, ale wybrane według pewnego algorytmu. W pierwszym arkuszu (cennik) znajdują się kolumny: A-nazwa usługi B-cena netto C-ilość szt. z VAT 8% D-ilość szt. z VAT 23% Załóżmy, że w wierszach znajdują...
Mam makro, które wykonuje zapytanie SQL na pewnym arkuszu i to działa. Zamieniam Arkusz na nazwany obszar i ... nie działa. Nazwa istnieje, mogę wykonać Select, ale motor bazy go nie widzi. Dotyczy to tylko tego jednego obszaru, inne działają. Co może być nie tak? Całego pliku niestety nie mogę pokazać.
Bez pliku ciężko pisać kod. w "Spis końcówek lotów" jako ZŁOM Domyślam się, że 'spis końcówek...', to nazwa arkusza. Ale co to 'złom', to nie mam pojęcia.
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Witam, Potrzebuję pomocy w napisaniu makra, zapisującego wybrane komórki z arkusza do pliku .txt. Mam Arkusz1 i chciał bym aby z komórek od A7 do komórki A30 pobrało dane i zapisało je do pliku .txt jako kolejne rekordy. Zapisany plik miał by mieć nazwę pobraną z Arkusza1 z komórki B2. Na koniec jeszcze rozszerzenie pliku miało by się zmienić na .dxf....
Użyłem Select Case, żeby nie zapisać pół strony instrukcją IfThenElse. Teraz jaśniej? Dobra, już tłumaczę. 1. Takie (zgodne z VB) a nie inne pole kombi, bo zdarzenie "Przy zmianie" reaguje tylko na zmianę wartości. Gdybyś chciał wpisać te same oceny raz za razem, to zmiana by nie nastąpiła. Należało użyć innego zdarzenia, o które kombi formularza jest...
Witam, Potrzebuję napisac makro ktore: 1 - stworzy nowy plik excela np. na dysku D:/ o nazwie np. "plik" 2 - z pliku z ktorego wykonuje makro, skopiuje zawartość arkusza (tylko wartosci i formaty), do nowo utworzonego pliku 3 - (ewentualnie zmieni nazwę arkusza z arkusz1 na "tabela" Początek mam taki, ale nie wiem jakie polecenie tworzy nowy plik: Sub...
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu zaznacza wszystkie pozycje bez nagłówka Range("a2:b" & p).Copy 'kopiowanie Sheets("przeliczanie").Select...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Można wstawić formułę makrem, zmieniając tylko nazwę miesiąca która jest np. w jakiejś komórce. Przykład na jedną komórkę: [syntax=vb]miesiac = Range("A1").Value Range("B2").Formula = "='C:\Documents and Settings\username\Desktop\[" & miesiac & ".xls]Arkusz2'!$D$3"[/syntax] Można to wstawić do pętli która wcześniej podałem, wstawiając formułę w odpowiedni...
Witam, staram się napisać mój pierwszy program w VBA. Ma on za zadanie automatyzację ewidencji sprawozdań. Jedną z cech tego programu, musi być zdolność do kopiowania zawartości określonych komórek z każdego arkusza dokumentu i wklejanie ich kolejno do oddzielnego pliku. Żeby nauczyć się samej pętli napisałem coś takiego: [syntax=vb] Sub dzialanie_na_wielu_arkuszach()...
tylko że nie mam pojęcia większego o VBA i nie wiem jak zrobić lub jakiego hasła poszukać dla wyboru lub dodawania arkusza pytanie czy makro z openoffica zadziała: Sub WstawNazwanyArkusz() Dim Nazwa As Variant Nazwa = InputBox("Wpisz nazwę dla nowego arkusza:", "Nazwa nowego arkusza") If Nazwa = "" Then GoTo brak Else Sheets.Add.Name = Nazwa Exit Sub...
Dziękuję z góry wszystkim za chęć pomocy. Potrzebuje pomocy w edycji prostego makra, ktore dziala w Excelu - niestety, jestem laikiem jeśli chodzi o programowanie... Moze ktos znajdzie chwile i pomoze? Moj problem wyglada tak. Mam plik excela w którym w kolejnych arkuszach są dane dla kolejnych dni miesiaca. Każdy dzień ma ten sam układ danych, czyli...
Witam! Mam w excelu arkusz "Template" i chciałbym utworzyć makro, które dodawałoby nowy arkusz ze skopiowaną zawartością arkusza "Template" i z nazwą "projekt+1". Uściślę, może o co mi chodzi w przypadku nazwy "projekt+1". Chodzi mi o to, żeby każda kolejna zakładka została nazwana jako "projekt" z kolejnym numerem. Np. W pliku są już dwie zakładki...
Witam Pracuję codziennie z takim samym plikiem excell posiadającym jeden arkusz, aczkolwiek za każdym razem nazwa tego arkusza się zmienia. Aby zautomatyzować sobie dalszą obróbkę danych potrzebuję makra, które zmieniałoby tę nazwę na nazwę wybraną przeze mnie. Dzieki
Witam , Posiadam wiele takich samych plików które zawierają harmonogramy z wierszami zawierającymi status, operacje i czas. Dane znajdują się w zakresie od H14 do BA312 tak jak w załączonym pliku. Potrzebuje zebrać ze wszystkich plików dane do jednego pliku w Formie Sumy czasu dla danej operacji która jest zakończona, wydana i do wydania (""); każda...
Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: [syntax=vb]Sub zz() Dim tblArkusze() Dim i& Dim rngTmp As Excel.Range tblArkusze() = Array("I L", "II L", "III L") 'nazwy arkuszy w których mają być wykonane zmiany For i = LBound(tblArkusze()) To UBound(tblArkusze())...
Mam parę problemów z kodem poniższy kod kopiuje wszystkie dane w wybranego pliku do pliku z makrem, problem polega na tym że po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się automatycznie zamknąć po skopiowaniu [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma...
"dodawanie" (Arkusz 3, G2) dodawało go automatycznie do listy do Arkusz1 jako kolejną pozycję Tylko, że musisz zablokować makro, które tam występuje (Blokada). Zmiana nazw zakładek: ''Arkusz3''=>''Odczyt skanerem''; ''Odczyt skanerem''=>''Lista'' 885424
Nazwa kierowca i firma to są makra które działają. Chodzi mi tylko o to żeby oba polecenia połączyć. Żeby to było jedno makro. Ponieważ dwa w jednym arkuszu nie działają.
Witam Mam plik " Wzor" i z niego muszę dokonać drukowania określonych arkuszy. Makro ma zadanie wydrukować najpierw arkusz o nazwie "AAA"; potem arkusz "BBB". Drukowanie jest wysyłane na domyślną drukarkę i drukowanie dwustronne. :idea: Jak ja to bym widziała :D : W arkuszu "MENU" w komórce "F5" makro wstawia liczbę "1". Wtedy zadziałają funkcje Excel...
Tak na szybko masz tu makro, które chyba robi to co chciałeś. założenia - pliki są w katalogu C:\dane - pobierasz nazwę do szukania z komórki B3 - szukasz takiego produktu w kolumnie B - w obu plikach arkusze nazywają się Dane - zakres poszukiwania w kolumnie B jest ograniczony do 30 - wartość dotycząca szukanego produktu jest pobierana z komórki sąsiedniej...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
Można to robić i makrem ale może wystarczy skorzystać tylko z ... "zamień" Bo przecież chodzi tylko o zmianę nazwy pliku źródłowego w formułach (tak to zrozumiałem). Otwierasz plik w którym są już formuły do skoroszytu z poprzedniego miesiąca. Zaznaczasz wszystko (Ctrl+A) na arkuszu. Wciskasz Ctrl+H (lub z menu Edycja wybierasz "zamień..."). W okienku...
Witam, Firma składająca się z kilku Oddziałów, które dzielą się na Zakłady ma do wprowadzenia pewne standardy korporacyjne. Polega to na tym, że na zadane pytanie każdy Zakład lub cały Oddział musi odpowiedzieć "tak". Jeśli wszystkie Zakłady odpowiedzą "tak" to w pliku zbiorczym zaznacza się,że dana rzecz jest zrobiona w całej firmie. Zaznaczanie, że...
Dzięki za pomysł ale ja zacząłem myśleć o czymś innym.Może po prostu umieścić w SMARA NETHERLANDS gdzieś indziej osobno wyniki dla braku zapinki i brak woreczka, a później swykłą sumą umieścić je w komórce B5. Żeby nie było jednak za łatwo, zauważyłem dopiero teraz,że wyszukiwanie poprzez ("Paprika*") nie działa.Pewnie dlatego,że excel szuka w komórce...
Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne hasło ochrony VBA. Przy zamknięciu ustawić na...
Dla zasady #NAZWA to nie format tylko błąd obliczeń - excel nie zna funkcji o danej nazwie (nazwa po - ). Aczkolwiek dziwne bo u mnie pomimo myślnika nie zmusza excela do obliczeń (chyba że na wstępie jest znak równości ( = ). Formatowanie arkusza jest na ogólne a wkleja wartości ale ... Sama zmiana formatu komórek właściwie nic nie da bo i tak jak...
Witam ponownie. Wrócę do tematu ponieważ mam z nim jeszcze jeden mały problem. Ogólnie to chodzi o to że teraz już wiem jak zablokować możliwość dodawania nowych arkuszy i edytowania ich nazw ale problem w tym że po załączeniu tej opcji nie działają makra które zawiera plik, ogólnie nic w tej sytuacji nie działa. Czy można jakoś zrobić tak żeby nie...
Cóż. Tabela przestawna pokaże Ci wszystko, ale dalej trzeba bystrego oka, żeby zauważyć różnice. Można zastosować "konkurencyjne rozwiązanie" we wszystkich arkuszach. W ostateczności napisać makro, które "wydłubie" wszystkie unikatowe indeksy/nazwy towarów z 3 arkuszy, oznaczy różnice w cenach, etc. i wpisze do osobnego arkusza wynikowego.
W takim razie nie plik tylko arkusz kod to np. (w zależności od nazwy arkusza) Sheets("Arkusz2").Acti... 'aktywowanie arkusza Range("A100").Select 'zaznaczenike/przejście do danej komórki nagrywanie makr jest w zakładce deweloper (excel 2007 i wyżej) Jeżeli nie masz jej widocznej to ją włącz w opcjach. W niższych...
Witam, Mam problem z modyfikacją makra, które zapisuje mi każdy arkusz jako oddzielny plik .xlsx nazywając go jednocześnie nazwą arkusza, mianowicie potrzebuję przeróbki tego makro, aby zapisywało mi pliki w formacie .pdf. Poniżej skopiowany kod z VBA, bardzo proszę o pomoc :) Sub przeniesienie_arkusza() Dim Arkusz As Worksheet For Each Arkusz In ThisWorkbook.Worksheets...
Dzień dobry, Napisałem Panu makro o nazwie Konta, które powinno robić to co Pan chciał. Sprawdza ono kolumnę z nazwami i kończy pracę gdy tam będzie puste pole. Wywołanie tej procedury dodałem na końcu makra, które ma Pan przypisane do przycisku. Gdyby chciał Pan je wywoływać niezależnie może Pan sobie zdefiniować drugi przycisk. Próbowałem to makro...
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...
Poniżej rozwiązanie z wykorzystaniem VBA Kliknij prawym przyciskiem na nazwie arkusza, z menu kontekstowego wybierz "wyświetl kod". W edytorze VBA wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = "x" Then Range("C1") = Range("B1") Else Range("C1") = "" End If End If End Sub Zapisz plik w formacie...
Witam, bardzo proszę o pomoc.W zakładce suma mam imiona osób. Chcę posortować całość po innych arkuszach tak aby każda osoba miała swój arkusz. Jeżeli w arkuszu suma w kolumnie A jest wpisane imię Dariusz to ta linia powinna zostać przekopiowana do arkusza o nazwie Dariusz. Aktualnie robię to funkcją Jezeli i Komórka. Gdy nazwa arkusza równa jest wartości...
:) Widzę że kolega tele3 jest fanatykiem stosowania VBA :) Można i tak :) Ja jednak jestem przy "klasyce": "Moje" sortowanie z kolumną pomocniczą (żółtą) i sortowanie bąbelkowe w VBA na to samo wychodzi. No prawie: różnica dotyczy tych samych ilości defektów. W VBA ustawia je "od tyłu" (od końca występowania) - jeżeli tak ma być w przypadku funkcji...
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,...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...