Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Wywołaj w kodzie arkusza 'Kredyty' (makro 'ListaZb' w module) [syntax=vb]Private Sub Worksheet_Activate() ListaZb 'nazwa uruchamianego makra End Sub[/syntax]
nazwy firm w zależności od statusu tylko na dzień dzisiejszy :?: Jeśli ten warunek jest istotny :?: to te nazwy firm będą jedynie w jednym wierszu (dane dla dnia dzisiejszego :D ) np. tak jak na zrzucie i w załączonym pliku :ok: 1088589 1088592 Jeśli koleżanka preferuje rozwiązania oparte o VBA :?: to można tu zastosować kod, który przy otwarciu pliku...
Przy okacji trochę mi sie koncepcja zmieniła - gdybym musiał wykluczyć więcej niż jeden arkusz - to dałoby się? Można wykluczać arkusze, można też uwzględnić tylko te z listy... Wykluczanie generalnie można zrobić tak: - wykluczasz Arkusz1, Arkusz2 i Arkusz3, drukujesz pozostałe[syntax=vbscript]If ws.Name <> Arkusz1.Name And ws.Name <>...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
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...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Ale nie rozumiem jak jest z zapisem liczby z kalkulatora do jakieś komórki w arkuszu Jak można nie rozumieć, że ty sam napisałes? To znaczy: Z pierwszego arusza "Sheets(1)" odczytaj komórkę A1 i dodaj do niej liczbę z TextBox1 ("TextBox1.Value" = przekształć tekst na liczbę). Wynik zapisz do pierwszego arkusza "Sheets(1)" do komórki A1 = "Range("A1")...
Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Nie do końca. Makro "start" odświeża 3 tabele i planuje jednorazowe uruchomienie makra "button3". Żeby działało co zadany czas musisz wywołać procedurę "start" w "button3". Co może być nie tak? makro czasem działa, czasem nie. Wpisz jawnie nazwę arkusza, w którym znajduje się...
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
Witam, Czy ktoś jest w stanie pomóc mi w napisaniu makra które tworzyło by nowe arkusze w pliku każdemu z nich nadając nazwę z kolejnej komórki kolumny istniejacego arkusza (kolumna G dane zaczynąją się od G4). Z samym wstawieniem odpowiedniej ilości arkuszy byłbym wstanie sobie poradzić ale nadawanie nazw mnie przerosło. z góry dzięki. pozdrawiam,
1. Każdy plik ma unikalną nazwę. 2. W każdym pliku są 2 arkusze o nazwach (ORYGINAL i KOPIA). Chciałbym, żeby nazwa arkusza była taka sama jak pliku. Czyli dla pierwszego skoroszytu: Arkusz1 = nazwa pliku Arkusz 2 = nazwa pliku(2) lub nazwa pliku(K)
Teraz działa wszystko jak w zegarku, a to jeszcze jedno pytanko czy można kopiować dane z ukrytego arkusza?, a jeszcze jedno czy część nazwy pliku może być pobrana z nazwy arkusza ?
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.
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Te arkusze mają za każdym razem te same nazwy w jakiś powtarzalny sposób czy losowe? Tak,docelowo chciałbym,żeby nazwe zlecenia z komórki pobierało do nazwy arkusza + zawsze powtarzalna nazwa do danego arkusza.:) np. B2 + Obróbka_naczepa (czyli A/15684 Obróbka_naczepa.pdf)
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
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())...
A Twoje makro mi nie poszło, mam info "subscript out of range". Masz otwarte obydwa pliki? Nie zmieniałeś ich nazw, ani nazw arkuszy?
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Worksheets("nazwa arkusza") Taki zapis będzie stosowany do istniejącego arkusza o nazwie 'nazwa arkusza', którego zapewne nie ma w skoroszycie.
Jeśli dobrze "odczytałem" Twoje rysunki i opisy :crazyeyes: to efekt taki jak na zrzucie :spoko: 979159 można uzyskać poprzez makro powiel w załączonym pliku 979160 Jeśli będziesz chciał mieć plik "wielokrotnego" użytku :please: to każdorazowo musisz go "odświeżyć" poprzez oczyszczenie makrem Usun :!: z poprzednich arkuszy (bo nie może być 2 arkuszy...
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ć...
Dopisałem definicję formatowania warunkowego w VBA. Formatowanie odtwarza się automatycznie przy otwieraniu skoroszytu. Szerokość zakresu formatowania jest określona przez zawartość trzeciego wiersza w każdym arkuszu. Wiersze zakresu formatowania są ustalone na stałe. Skoroszyt nie może zawierać innych formatowań warunkowych. Gdyby zawierał, trzeba...
Proszę o pomoc!! Jak mam użyć tego makra? Próbuje na wszystkie sposoby i nie liczy. Pliki źródłowe ma m na dysku E w katalogu "j" nazwy skoroszytów to "a" i "b" nazwy arkuszy to "Arkusz1"
Witam ,chociaż już po Świetach to życzę zdrówka wszystkim. A co do problemu z jakim się zwracam to potrzebuję do pliku załączonego aby dołożył ktoś makro lub formułe, w zależności czym będzie lepiej uzyskać efekt ,który przydałby mi się na co dzień. Mianowicie w skoroszycie mam kilka arkuszy z nazwą powtarzającą się w kolumnach "B". Po otwarciu skoroszytu...
Niby spoko ale czasochłonne dla mnie :cunning: Widać, że masz niewiele doświadczenia z Excelem i nie potrafisz nawet wykorzystać natywnych możliwości programu :cry: Pierwsze 6 wierszy (te z kryteriami filtrowania) możesz zawsze ukryć przed użyszkodnikami :D tego arkusza. Warunki filtrowania zapisane są w postaci samo aktualizujących się formuł więc...
Rozumiem, że chcesz to zrobić w tym samym arkuszu. Załóż filtr na kolumnę, zobacz to: http://www.teachexcel.com/excel-tutorial... Bo możesz jeszcze wybrać interesujące Cię wiersze i przekopiować do nowego arkusza.
Ten plik, który załączam na forum, jest przykładowy. Tamten właściwy jest bardziej rozbudowany. Tak, dane się dublują w kilku arkuszach, ponieważ formuła została rozbudowana o dodatkowe kolumny, a wyświetlane mają być różne w zależności od arkusza. Dlatego potrzebuję takiej samej listy z hiperłączami w kilku arkuszach. Próbuję zastosować funkcję pętli,...
Witam, potrzebuję funkcję, która będzie zliczać teks (z tym problemu nie ma CZY.TEKST) w arkusz, którego nazwa będzie zapisane w pewnej komórce. Przykład W Aruszu1 komórce A1 zostaje zapisana nazwa nowo utworzonego Arkusza np 10 o nazwie np "GŁÓWNY". W arkuszu tym będą zapisywane nazwy różnych podzespołów. Chciałbym by funkcja odnalazła Arkusz po nazwie...
Pewnie makro masz w kodzie arkusza. Musi być w module... Jeśli to procedura zdarzeniowa, wywołaj je po nazwie (Call NazwaMakraInModule)
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...
Proponuję, żeby Kolega (zakładając, że nie ma Kolega pojęciu o VBA) zaczął od zarejestrowania makro, w którym doda sobie Kolega arkusz, określi jego nazwę i kliknie sobie w dwie komórki po sobie. Potem może sobie Kolega obejrzeć kod makro, które zostało nagrane i wszystko powinno być jasne. Jeśli będzie miał Kolega problem z jakimś fragmentem kodu -...
Wklej kod w zdarzenie arkusza. Stringi masz podstawione pod zmienne, więc ActiveWorkbook.SaveAs FileName:=Path & "\" & Name Nie wiem, czy Excel nie zjeży się na te nazwy. Zmień na polskie: Sciezka, Nazwa . Usuń te dwie linie rozpoczynające się od "Set", są zbędne. Jeśli to ma być kopia oryginału (obie zapisane), to pierwsza linia Thisworkbook.Save...
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Jeśli makro zdarzeniowe ma działać w konkretnym arkuszu, to powinno być zdefiniowane w module kodu tego arkusza. Jeśli takie samo makro ma działać w kilku arkuszach, to można alternatywnie zdefiniować makro skoroszytu w module Ten_skoroszyt (ThisWorkbook). Te makra mają trochę inne nazwy, trzeba wybrać odpowiednie makro z listy.
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Zapewne masz już bałagan z nazwami... Sprawdź (Name) we właściwościach ComboBox.
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
potrzebowałbym makro które łączy ze sobą pliki excel w jednym katalogu na pulpicie i zmienia nazwy arikuszy na arkusz 1.[nazwa 1 pliku] , arkusz 2.[nazwa 2 pliku] a jeżeli arkusz jest pusty to go nie łaczy
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...
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
automatyczne nadawanie nazw zapisywanym arkuszom tak aby po każdym zapisaniu generował się kolejny numer i zapisywał jako plik w wybranym folderze Chodzi o automatycznie nadawane nazwy arkuszom, czy plikom? Według jakiego wzorca?
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...
Dopisz apostrofy do nazwy arkusza:[syntax=vb] ActiveCell.FormulaR1C1 = "='" & wsh.Name & "'!RC[-2]" [/syntax]
Co do przycisku wywołujacego makro. Jeżeli masz więcej arkuszy i będzie to w nich wykorzystywane to kod umieść w module. Menu - Widok - paski narzędzi - Visual Basic. Na tym pasku wciśnij Edytor Visual Basic. Otworzy ci się edytor makr. Po lewej stronie będzie okienko "project -VBA project" . Znajdź pogrubioną nazwę twojego skoroszytu i prawokliknij...
Prościej chyba zastosować formułę niż makro. Np: http://obrazki.elektroda.pl/1848695100_1... Uzupełnić w JEŻELI(CZY.BŁĄD i stosowny tekst w przypadku błędu i będzie elegancko.
Nie wiem jaka jest Twoja wiedza w VBA i czy oczekujesz gotowego rozwiązania czy algorytmu, ale mimo wszystko dobrze byłoby jeszcze sprecyzować: 1. Czy po przekopiowaniu do nowego arkusza wszystkie takie łańcuchy tekstowe mają znaleźć się w jednej kolumnie? 2. Czy nowy arkusz będzie zdefiniowany(nazwa), czy za każdym razem kiedy takie makro będzie wywoływane...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
Takie proste makro powinno załatwić sprawę: [syntax=vb]Application.ScreenUpdating = False Set wssuma = Worksheets("Suma") ost_wiersz_sumy = wssuma.Cells(wssuma.Rows.Count, 1).End(xlUp).Row For i = 2 To ost_wiersz_sumy With Worksheets(wssuma.Cells(i, 1).Value) ost_wiersz_arkusza = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("B" & ost_wiersz_arkusza +...
Bardzo ciekawie zrobiona aplikacja. Przesyłam wzór wydruku etykiety. Prześlę makro do wydruku ale jest pewien problem. Niejednoznaczne są używane nazwy wyrobów, na jednym arkuszu jest to np.Sałatka drobiowa a na drugim Drobiowa. Należy stworzyć słownik nazw wyrobów i tylko takimi się posługiwać. Zrobię swoją propozycję zmian do przedyskutowania.
Witaj Alt+F11 Menu - Insert - Module Kliknij dwukrotnie na Modul1 Skopiować makro(post#1). Po prawej stronie wklej. W Excel Alt+F8 Uruchamiając makra Splitbook
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...
Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
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.
Nie ma uniwersalnego rozwiązania w takim przypadku. Można oczywiście zapisać plik z makrem jako dodatek i aktywować go w oknie "dodatki", ALE: jeśli ktoś zmieni nazwy, kolejność indeksów arkuszy (jeśli nie nazwy) to kicha. Spróbuj może w ten sposób: 1. Dostajesz plik z logami (gdzieś trzeba by go zapisać). Tutaj arkusz z danymi musi być rozpoznawalny....
Jedynie odwołując się do indeksów arkuszy zamiast do nazw. Np po kolejności komórek w kolumnie. [syntax=vb]Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) arg = Split(Target.SubAddress, "!") sh = Target.Parent.Row - 1 'link w 4 wierszu dot Sheets(3) adr = arg(1) With Sheets(sh) .Visible = True .Activate .Range(adr).Select End With End...
Jeśli to wszystko jest w jednym skoroszycie, to możesz użyć też funkcji ADR.POŚR. Jej argument podaje się w formie tekstu, więc można go złożyć z kawałków. Ale użycie tego spowalnia trochę działanie funkcji, więc zależy ile masz tych danych do przeliczenia. Mogłoby to wyglądać np. tak: [syntax=text]=WYSZUKAJ.POZIOMO(D3;ADR.PO... " & A1 & "'!36:62");2;FAŁSZ)[/syntax]...
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
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.
Próbowałem pozmieniać nazwy arkuszy na "ActiveSheet" A tak? [syntax=vbscript]Sub Sort1() With ActiveSheet .Range("F607:J617").Select .Sort.SortFields.Clear .Sort.SortFields.Add Key:=Range( _ "H607:H617"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal End With With ActiveSheet.Sort .SetRange Range("F607:J617") .Header = xlGuess...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
Nie nazywałbym tego hobby. Potrzebuję, aby jakikolwiek laik mógł zajrzeć do odpowiedniego arkusza nie przeglądając, gdzie on się znajduje. Wszystko mi działa, lecz problemem jest pobranie wszystkich nazw arkuszy do listy. Chcę, aby działo się to automatem. Uruchamiam plik, uruchamia się makro, pobiera nazwy arkusuzy, umieszcza je w liście, ja ją przeglądam...
Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...
Możesz użyć: Private Sub Workbook_Open() Sheets("DD").EnableOut... = True End Sub Dodane 2009-07-16: Oczywiście w przypadku chronionego arkusza należy przed zabiegiem ochronę zdjąć a po założyć. Private Sub Workbook_Open() With Worksheets("DD") .Unprotect [color=red](XXXXXX)[...
A jak dokładnie są nazwane arkusze? Cała data, czy tylko numer dnia? Jeżeli cała data to: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name End Sub przy numerze dnia: Sub NazwaArkusza() Range("a2") = ActiveSheet.Name & ".02.2011" End Sub To jest tylko dla jednego arkusza. Dla większej ilości...
Nie sądzę ... podsumujmy zatem, na podstawie kodu, co mamy: 1. Arkusz zbiorczy nazywa się "Aktywność" 2. Tabela zbiorcza znajduje się w zakresie "B18:O2000" 3. Nagłówki tabeli zbiorczej znajdują się w zakresie "B18:O18" 4. Tabele źródłowe w plikach dawców znajdują się w arkuszach nazwanych "Aktywność" 5. Tabele źródłowe w plikach dawców mają nagłówek...
W przedstawionej procedurze eksportujesz (czy raczej usiłujesz ? :D ) do PDF dwa pliki komputer.xlsx i porto.xlsx :?: Planujesz zmieniać nazwy tylko plików komputer ? poprzez wprowadzenie do nazwy daty eksportu - formatowanej właśnie w takim stylu "yy.mm.dd" :?: czy też koniecznie oznaczyć datą z komórki A1 arkusza z makrem ? Proszę o wyjaśnienie
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
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...
Tak, próbowałem i wszystko byłoby ok, tylko że w nim jest wskazana nazwa otwartego przez makro pliku, a teoretycznie jej nie znam.
Najprościej wrzucić wszystko do jednego arkusza "Bazy". Można zrobić to formułami, patrz kolumna A i C w "Dane" + dynamiczna nazwa, patrz "Część_rys". Jeśli tych arkuszy jest więcej (niż powiedzmy 5), sugeruję napisać makro.
Dzięki, makro jest bardzo dobre. Niestety przeszukuje tylko ten arkusz w którym je uruchomię. Bardzo proszę o jeszcze jedną modyfikację: Aby makro przeszukało arkusz pierwszy o nazwie 2010, później arkusz drugi o nazwie 2011 i arkusz trzeci o nazwie 2012. Po przeszukaniu każdego arkusza niech kopiuje wiersze jeden pod drugim do arkusza o nazwie RAZEM,...
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...
Witam, Jak przekazać wyniki filtrowania do makra? W arkuszu jest tabela z danymi z włączonym filtrowaniem kolumn. Chcę w makrze uzyskać dostęp do wyników filtrowania, tj. adresów komórek, które są widoczne po włączeniu filtra lub ewentualnie po prostu zawartości tych komórek. Czy jest wbudowana jakaś zmienna lub funkcja do tego? Nie mogę znaleźć, proszę...
Witam, potrzebuję utworzyć makro w Excelu tworzące pliki na podstawie listy znajdującej się w innym pliku Excel, Skoroszyt docelowy zawiera kilka arkuszy o różnej budowie i określonych nazwach, chciałbym te nazwy również importować z pliku zawierającego listę. Dodatkowo chciałbym aby była możliwość wstawienia z listy określonych wartości w konkretnej...
Akurat to jakoś skomplikowane nie jest, jeżeli tylko arkusze nazwiesz kolejnymi nazwami miesięcy, to możesz odwołać się do skoroszytu przez jego nazwę z F3. A do wyszukiwania Janusza użyć jednej z licznych funkcji wyszukujących, np. Find [syntax=vbscript]Set w = Sheets(Range("F3").Value).Columns("A").F... lookAt:=xlWhole) Sheets(Range("F3").Value).Cells(w.Row,.....
A gdzie ma być to makro zapisane? Tak jak miałeś zrobione, to wszystkie arkusze zostałyby przeniesione do nowych skoroszytów (bez makr), a ten skoroszyt źródłowy zniknąłby wraz z makrem, bo nie byłoby w nim arkuszy. Musisz mieć przynajmniej 1 arkusz (ja go nazwałem Ostatni), który zostanie w skoroszycie i wraz z nim makro. Ten skoroszyt możesz sobie...
Chciałbym mieć formułę lub makro, które pozwoliłoby mi wyszukać w kolumnie A prawidłową nazwę przedmiotu na podstawie czterech pierwszych znaków w innym arkuszu
Dzieje się tak, ponieważ każda zmienna jest domyślnie widoczna tylko w obrębie danej procedury. Nie możesz w CommandButton1_Click() przypisać Set wb = Workbooks.Open(sciezka), a próbować ją odczytać w innej: CommandButton2_Click(). Żeby nie kombinować ze zmiennymi globalnymi: 1. Albo w CommandButton1_Click() w miejscu komentarza '.......dalsza część...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
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...
W pliku "uzupełnianie" mamy arkusze o nazwach BAZA I RAPORT. Makro ma zadanie uzupełnić dane w arkuszu BAZA z arkusza RAPORT. Porównujemy kolumnę A miedzy tymi arkuszami. widać to we wzorze jaki zrobiłem -arkuszu WZOR
dzień dobry, w związku z tym, że jestem słaby w VBA, mam prośbę czy ktoś może pokazać mi przykładowy/ podobny lub fragment kodu w vba , który wykonywałby następujące zadanie : - makro w danym folderze i podfolderach przeszukuje wybrane pliki excel (pliki wybierane są wg nazw , która zawiera oznaczony fragment tekstu) , - w tych wybranych plikach przeszukuje...
po kliknięciu nazwy obrazka w komórce A1 Tam będzie kilka takich nazww? Jeśli tylko jedna w A1, to nie ma znaczenia, czy jest nazwa, obrazek będzie tylko jedyn. p.s. Obrazek może być na pierwszym arkuszu, tylko nie widoczne.
Witam, Mam 2 problemy z jednym z arkuszy (plik załączam): 1) Aby nazwy przewoźników kopiowały się z nazw arkuszy w kolumnie "Przewoźnik" (lista rozwijana -> Przew. A, Przew. B, Przew. C). 2) Druga sprawa nieco bardziej skomplikowana. Wybieram trasę, wybieram przewoźnika i chciałbym, aby wartość z komórki odpowiadająca danej stawce danego przewoźnika...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
Napisz to jaśniej i załącz przykładowy plik. Jeśli plik źródłowy jest otwarty (w tej samej instancji Excela), to nie jest potrzebna ścieżka, wystarczy nazwa pliku. Co to znaczy: "Wprowadzenie odwołania do innego (otwartego pliku)"? Gdzie ma być wprowadzone to odwołanie? Do komórki arkusza? Do jakiegoś okna dialogowego wyświetlonego przez makro? Czy...
Komórki z nazwami nie muszą być warunkowe. Wystarczy =Menu!C10, =Menu!C12, itd. lub wpisz "z palca". Nazwę zakresu też już masz. Skopiuj makro "Druknij" i zmień: .PrintOut Copies:=1 na .PrintPreview Dla przykładu najpierw podmień sobie w "Druknij" i zobacz efekt.
W tym przypadku zdecydował się makro. A i B - różne pliki lub różnych arkuszy w skoroszycie? Jeśli różne pliki, które należy do Ciebie(zakładać, że A)? Arkusze mają nazwy?
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Z zamieszczonego fragmentu można wywnioskować, że chcesz kopiować z arkuszy o identycznym fragmencie nazwy (- 4 ostatnie znaki). Wnioski: 1. Gałąź 'Else' jest zbędna (dlaczego chciałeś w niej zerować licznik?) 2. Brakuje najważniejszego: co chcesz kopiować (jaki zakres mogą zajmować dane)? 3. Najprościej wydzielić arkusz i po wszystkim skopiować/przenieść...
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...
makro nazwa arkusza excel makro nazwa arkusza excel makro nazwa arkusza komórki
miernik uszkodzony pomiar rezystancji access filtrowanie formularz airlive reset
T-REX Vulc. B: Klej do wulkanizacji na zimno - instrukcja i zastosowanie TCL 32S615 MT21X Main Board Schematic – Where to Find Service Manual PDF