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...
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje Jestem za tym, żeby sprawdzić obecność takiego pliku przez: If Dir(Thisworkbook.path & "\" & nazwa)<>"" then ... i podjąć dalsze działania (zapisać plik, podać komunikat, itp.)
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 <>...
[syntax=vbscript]nazwa = ActiveCell.Value With ThisWorkbook .Sheets("wzor rodzinne").Copy ActiveWorkbook.SaveAs .Path & "\rodzinne\" & _ nazwa & ".xls" ActiveWorkbook.Close End With[/syntax]
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...
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")...
A co w przypadku, gdy wartości się powtarzają (G4, G5)?
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())...
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)
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...
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...
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.
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...
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?
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ć...
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
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))....
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()...
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...
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.
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...
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...
Zapewne masz już bałagan z nazwami... Sprawdź (Name) we właściwościach ComboBox.
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...
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...
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...
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"
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.
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...
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...
automatyczne nadawanie nazw plikom tak aby po zapisaniu bazowego pliku generował się jego kolejny numer (x+1)+nazwa z komórki a1
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
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,...
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 to chcesz napisać hobbystycznie?? Przecież prawie to samo masz włączając w Opcjach widok paska Karty arkuszy.
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...
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...
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...
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...
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.
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 -...
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ść...
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.
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...
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...
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...
Dopisz apostrofy do nazwy arkusza:[syntax=vb] ActiveCell.FormulaR1C1 = "='" & wsh.Name & "'!RC[-2]" [/syntax]
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 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...
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...
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.
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)[...
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...
To nie było gotowe rozwiązanie, ale schemat podzielenia nazwy pliku, oczywiście w ten sposób możesz też podzielić nazwę pliku. Tak, potrzebna jest pętla. Mniej więcej taki algorytm musisz pomyśleć gdzie to wkleić, bo część już masz zrobione 1. Wyszukujesz plik są różne sposoby wyszukania i w związku z tym różne konstrukcje pętli. 2. Jeżeli jest plik...
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.
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...
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
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...
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]...
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...
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...
[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?
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...
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
Zdaje się, że gubi źródło. Spróbuj w funkcji zapodać pełne adresy: Workbooks("nazwa").Sheets("arkusz")...
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.
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ć.
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...
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.
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,.....
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
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,...
Tutaj For Each c In Worksheets(" Masz.600+NEW S .").Range(" G4:G23 ") podstaw swoje argumenty (nazwa arkusza z rozpiską, zakres), zamknij w dodatkowej instrukcji warunkowej [syntax=vbscript]If c.Value <> "" Then 'dopisz to tutaj If Not Zawiera(c.Value, arkusze) Then End If End If 'oraz toto[/syntax]i powinno działać.
Jedyne co przychodzi mi do głowy to makro z wykorzystaniem kolumny z prawidłowymi nazwami. W przykładzie zamiana polskich liter, porównanie, podstawienie. Trochę długo trwa, należałoby pewnie dopracować, ale działa (w arkuszu autora). Sub zamien() Dim i As Long, kom As Range, tekst As String For i = 2 To Range("B65536").End...
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ę...
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.
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ęść...
Witam. Proszę o pomoc w stworzeniu programu w języku VBA. Będzie to makro Excela. Program ten będzie częścią mojej pracy licencjackiej. Program będzie analizował zapisy partii szachowych w formacie pgn. Na początku musi zaimportować z pliku/plików tekstowych zapisy partii. Następnie będzie analizował dane pod różnymi aspektami, to znaczy: policzy liczbę...
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
Witam, czy istnieje możliwość, żeby makro VBA wykonało się w drugiej zakładce wszystkich arkuszy w podanym katalogu ? Mam kilkadziesiąt arkuszy o nieregularnych nazwach. Druga zakładka w każdym z nich też ma inną nazwę. W każdej (drugiej zakładce) potrzebuję zrobić kilka wykresów na podstawie danych, które szczęśliwie są już w tych samych zakresach...
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...
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...
Proszę o konkrety: - nazwy folderów, - nazwy plików, - nazwy arkuszy. Jeżeli Kolega ma na przykład foldery z nazwami miesięcy, a w nich pliki z nazwami magazynów, a w takim pliku arkusze z nazwami magazynierów, to trzeba napisać nowe makro.:) Obecne makro działa dla wielu plików z różnych lokalizacji, ale zakłada, że w każdym z plików źródłowych istnieje...
makro nazwa arkusz excel makro nazwa arkusz excel makro nazwa arkusz komórka
intel celeron t3500 grzałka prostownica satel czujka pożarowa
mikrokomputer cobra1 mikrokomputer cobra1
Zabezpieczenia prądowe w szlifierkach Ferrex TCL 40-MT21X7-MPA2HG Power Board Schematic Availability and Compatible Models