Przycisk wywołuje procedurę zamieszczoną w module Arkusza1, dlatego program chce wykonać poniższe polecenie właśnie w Arkuszu1: [syntax=vbscript]Range("c5:c1000").Selec... Nie może tego jednak uczynić, ponieważ aktywny jest Arkusz2. Musisz zatem wskazać, że chcesz to zaznaczenie wykonać w Arkuszu2: [syntax=vbscript]Sheets("Arkusz2").Range...
Coś pokręciłaś z tym hasłem. Odblokować trzeba ten arkusz, do którego dane będą kopiowane, czyli: [syntax=vbscript]Worksheets(2).Unprotect Password:="123"[/syntax]Potem analogicznie zablokować. Oczywiści można też z Activesheet pod warunkiem, że ten arkusz (docelowy) będzie aktywny. Arkusz źródłowy może być chroniony. Odblokowana musi być w nim tylko...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
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"...
Jeśli aktywnym jest "Arkusz1", a z tego co piszesz jest, to zachowaj kolejność. Najpierw wybierz arkusz, następnie zakres [syntax=vb]Sheets("Arkusz2").Select Range(Columns(4), Columns(8)).Select[/syntax]Select dla zakresów nie działa na nieaktywnym arkuszu...
Nie jest dla mnie to jasne. O ile kryteria stworzenia arkusza są jasne (bo jest on tworzony na podstawie formularza - i podejrzewam że arkuszy może być kilka) - to na jakiej podstawie ma być wybierany arkusz? Też na podstawie nazwy z formularza? W każdym razie FormulaR1C1 albo Value możesz zastosować do komórki w dowolnym arkuszu, nie tylko bieżącym:...
Mam makro pobierające dane z plików *xlsx w katalogu i wkleja je do aktywnego arkusza. Większość danych pobierana jest z arkusza o nazwie "Arkusz1". Co zrobić aby pobierał dane z arkusza o dowolnej nazwie. Zazwyczaj arkusz wypełniony danymi jest tylko jeden ale czasem zdarza się, że są trzy aktywne arkusze ale tylko pierwszy zawiera dane. [syntax=vbscript]Sub...
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...
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Twojego nie mam czym otworzyć. W moim masz przykład automatycznego otwierania z aktywnym trzecim arkuszem. Zamiast indeksu możesz użyć nazwy arkusza.
Niestety mam problem z VBA po wielu próbach nie mogę sobie poradzić z tematem. Mam listę którą przypisałem do Comboboxa i dane w niej zawarte chciałem aby się wpisywały do aktywnej komórki w arkusza (aktywnego). Proste jest to z poziomu arkusza ale z VBA nie potrafię proszę o pomoc.
Dzień dobry. Jestem początkujący w VBA i mam pytanie do Szanownego Grona Specjalsów od VBA. Morduje się z pętlą, żeby wyszukała mi wyraz w kilku arkuszach i go podświetliła gdy znajdzie. Może być podświetlenie samego szukanego wyrazu lub wiersza w którym występuje szukana fraza. Załączam kod, który na razie szuka mi wyraz w arkuszach i podświetla go...
Mam coś takiego, działa umozliwia mi wybranie jednego pliku i wstawienie w aktywnym arkuszu. Jakaś podpowiedź co dodać żebym mógł wybierać kilka plików i zostały otwarte w osobnych arkuszach? Sub OpenCloseWorkbook() Dim MonthlyWB As Variant Dim FileName As String MonthlyWB = Application.GetOpenFilename( _ FileFilter:="Microsoft...
Witam, Jaki parametr należy wpisać do Find i Replace by makro wyszukiwało /zamieniało/ dane w zależności od potrzeb w całym skoroszycie lub tylko w aktywnym arkuszu.
=SUMA.ILOCZYNÓW(--('23500'!$A$1:$A$49=$F... Dlaczego kolumna z dostawcą(firmą) = mHD? 1. Uwaga generalna jeżeli w odniesieniu do jakiegoś zakresu nie jest podana nazwa arkusza -to takie odniesienie dotyczy aktualnie aktywnego arkusza (w którym wyliczana jest dana formuła) - tzn. konkretnie tutaj, że dana formuła sprawdza, które wiersze w kolumnie...
Twój kod nie działa. Myślałem, że wiesz o tym, a jak nie wierzysz to porównaj co robi Twoje makro, a co jest mi potrzebne. W pole A2 wpisuje datę z dniem równym nazwie aktywnego arkusza..... Drwiny z 31 lutego to...żenua, wobec tego, że mam arkusz taki sam na 12 miesięcy roku.
Masz rację, zmieniłam na kopiowanie od 2 wiersza. Docelowo w kolumnie I w pliku bazowym będą wagi, w jaki sposób mogę podsumować kolumnę I w każdym aktywnym arkuszu- od arkusza o nazwie"1" do ostatniego?
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
prosiłbym o pomoc w znalezieniu błędu w kodzie, dysponuję takim oto napisanym przez siebie kodem. [syntax=vbscript] Private Sub Workbook_Open() Dim Wydano, Dzis As String 'wprowadzenie dzisiejszej daty do komórki P2 Worksheets("licence").Cells(2, 16).Select ActiveCell.FormulaR1C1 = "=TODAY()" Wydano = Worksheets("licence").Cells(1, 16) Dzis = Worksheets("licence").Cells(2,...
Dokładnie takiego samego to chyba nie znajdziesz (czyjaś praca). Mnie się udało znaleźć jeden podobny arkusz (aktywny do wypełnienia) ale to też jest czyjaś praca. Tak że szukaj w internecie aktywnego arkusz .xlsx i sam dostosuj do swoich potrzeb.
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...
jak coś napiszesz to spróbuj przeczytać kod tak jak to robi makro Range("D6:H10").Select - zaznacz komórki D6:H10 Selection.Copy - skopiuj selekcję Sheets("X2").Select - zaznacz arkusz X2 ActiveSheet.Cells(6, 4).Select - w akrtwnym skoroszycie zaznacz D6 (ponieważ wyżej zaznaczyłeś arkusz X2 więc on będzie aktywny) ActiveSheet.Paste - w aktywnym arkuszu...
dobra a jak ustawić aby w pętli było podane lub przednia zdefiniowane wskazanie ktory to aktywny arkusz. Mam trzy Arkusze tj. Arkusz1 Arkusz 2 i Arkusz3 W arkuszu 1 mam dane które chce kopiować do Arkusza 2. bo po tej pętli chce realizować ten kod Sub copy1500() Dim r&, rw& Dim bs As Range, bw As Range Set bs = Sheets(1).Range("A:B") Set bw = Sheets(3).Range("A:B")...
Witam wszystkich Potrzebuje zrobić makro w vba tak by otwierało dowolny plik xlsx. Następnie kopiuje całą zawartość otwartego pliku do tego pliku gdzie jest makro tylko do nowych arkuszy ( no i właśnie w tym miejscu mi się wykrzacza) Poniżej kod [syntax=vb]Sub Makro() Dim pl As Variant Dim plik As Workbook pl = Application.GetOpenFilename() If pl =...
Witam potrzebuje pomocy, a mianowicie - Mam makro, które zapisuje mi ładnie tak jak chce aktywny arkusz do pliku csv. Tylko zapisuje mi do pliku w konkretnym miejscu wpisany w kodzie z konkretną nazwą, a ja chciałbym wybierać miejsce zapisu i nazwę pliku. Próbował skorzystać z InputBox ale wywala jakiś błąd. Jak zmienić poniższy kod tak by zapisywał...
Pięknie Panu dziękuje to jest to o co mi chodziło :) mam jeszcze jedno pytanie. Dopisałem do tego kodu zwracanie wartości z komórki która znajduje sie w aktywnym arkuszu : Sheets("lista").Cells&... 3) = ActiveSheet.Cells(3, 3) Powstał problem że poszukiwane wartości z komórki ("c3") mogą znajdować sie również w innym...
Witam, Napotkałem dzisiaj dzwiny błąd i nie mam pojęcia jak go wyeliminować. W moim arkuszu mam 3 pzyciski do których podpiete są makra. Dzisiaj potrzebowałem zobić makro które duplikuje mi aktywny arkusz w tym samym skoroszycie i zmienia jego nazwe. Napisane makro w pełni mnie zadowala i spełnia oczekiwania, ale jest jeden problem gdy uruchamiam makro...
Witam, mam następującą zagwozdkę. Mam kilkanaście plików. Jeden z nich ma kontrolować czy są wypełnione dane komórki w pozostałych plikach. W plikach, które wypełniają pracownicy jest makro, które powoduje po kliknięciu przycisku powstanie nowego arkusza z pustą tabelą o nazwie "przekazanie zmiany" &date i ukrycie poprzedniego arkusza. Oba pliki chciałam...
Witam, Z góry przepraszam jeżeli temat już się kiedyś pojawił czy jest to rzecz błaha bo jestem kompletnym amatorem jeżeli chodzi o excel. Chciałem zapytać, czy istnieje funkcja która wyświetlała by dane w zależności od tego, który Arkusz otworze? Przykład: Mam w Arkuszu 2 i 3 zmienne zależne od danych w tabelce Arkusza 1. Chciałbym, aby nie trzeba...
Witam Mam makro (wstawianieprocedury), które wstawia procedurę (Makro2) do aktywnego skoroszytu. Przy okazji jest tworzony przycisk w aktywnym arkuszu, który miałby uruchamiać tą wstawioną procedurę z Makra2. Problem w tym, że przycisk nie próbuje się odwoływać do Makro2 z aktywnego skoroszytu, ale do tego skoroszytu w którym jest makro wstawianieprocedury....
Witam. Jak makrem usunąć wszystkie formatowania warunkowe, wszystkie znaczy ze wszystkich arkuszy pliku? Mam taki kod jak poniżej ale on usuwa tylko formatowania z aktywnego arkusza: [syntax=vbnet]Cells.FormatConditions.Del...
Witam. Mam taką zagwózdkę, że chcę aby makro zapisało mi w sumie 3 pliki o jednakowej nazwie. Mam skoroszyt z wieloma arkuszami. Do zapisania są dwa arkusze. Pierwszy arkusz zapisuje się w dwóch formatach (xls i pdf) i mają identyczne nazwy (poza rozszerzeniami oczywiście). Z tymi dwoma plikami w jednym folderze sobie poradziłem. Ale jeśli chodzi o...
Witam próbuje napisać makro kopiujące zawartość komórki aktywnego arkusza z komórki M2 do arkusza A komórki b1 ale jeśli b1 jest zajęte żeby wprowadziło dane do komórki b2 i tak coraz niżej .
To znaczy, że coś nie zgadza się z założeniami. Prawdopodobnie nazwy plików. Zapuść takie makro (aktywny arkusz z przyciskiem) [syntax=vb]Sub sprawdz() sciezka = Range("G11") plik = Dir(sciezka & "*.xls") While plik <> "" licz = Len(plik) - Len(Replace(plik, " ", "")) If licz > 1 Then MsgBox "plik " & plik & " ma w nazwie " &...
Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...
Pojawia mi się błąd next without for a bez next a stosuje tylko do aktywnego arkusza
j - Jest to zmienna lokalna, nawet jeśli globalny, wciąż mówi się j=9 j = ActiveCell.Row - tak chce jeśli aktywny arkusz jest "Wypozyczenia" na jakim arkuszu je ComboBox ?
Odwołanie do aktywnego arkusza może rozwiąże problem.
Dzień dobry, Nie wiem dokładnie co to makro miałoby robić, jeśli odwołuje się do obiektów z docelowego arkusza to można całość objąć instrukcją With: With Worksheets("Arkusz2") 'tu nazwa docelowego arkusza ' .... kod makra End With W kodzie makra nazwy tych obiektów, które odnoszą się do arkusza docelowego należy poprzedzić kropką, to znaczy np. .Range("A2")...
Witam Wszystkich; Za pomocą komendy Workbooks.Add tworzę nowy plik, chcę skopiować wszystkie arkusze z poprzedniego do nowo utworzonego. Próbuję zrobić to tak: [syntax=vb]Sub PRSONALZapisCustomerFile() ' Zapisuje plik estimate 'deklaracja zmiennych Dim wiersz As Long Dim z1 As Long Dim z2 As Long Dim myName As String Dim myPath As String Dim sh As Worksheet...
Cześć, przejrzałam podobne tematy do mojego problemu ale niestety nie potrafię tego odzwierciedlić w moim zadaniu. Chodzi o to że mam dwa pliki A i B. Plik A jest aktywny i w nim chcę żeby działało makro, które ma na celu: -otworzyć plik B Arkusz2 i wyszukać liczb które znajdują się w plikuA w kolumnie A. Jeśli je znajdzie to przekopiować z tego samego...
Witam, Mam do przygotowania plik składający się z 2 arkuszy. Pierwszy z nich jest roboczy i służy do przygotowania listy rozwijanej w drugim arkuszu. Mam wykonać makro, w którym po określeniu zakresu dat (zakres będzie zmienny, raz będzie to 7 dni, innym razem 30 dni) powinien generować się arkusz, który będzie zawierał wyłącznie te wiersze, w których...
Dziękuję za sugestie. Dodano po 16 Z kopiowaniem sobie poradziłam. Jednak mam problem z automatycznym stworzeniem arkuszy dla wszystkich osób z listy. Dla jednej osoby, pojedynczej aktywnej komórki wiem jak stworzyć. A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie...
W ty, nowym pliku xls przydałoby się podmienić nazwę (obecnie kopiuje z pierwotnego xlsx) na np "Arkusz1" a mógłby kopiować tylko to co jest aktywne (bez tego co ukrywaję filtry) Trzeba kopiować tylko widoczne komórki i wklejać je potem jako wartości i formaty. Wymaga to jednak zmiany sposobu tworzenia nowego arkusza. Przy okazji czemu: Worksheets("Nazwa...
Rozumiem, że jest tam jakaś nawigacja ale przy 30 zakładkach bądź nawet więcej dalej to będzie na zasadzie szukania ich, a ja chciałbym jakieś rozwiązania, które pozwoli tylko wpisać nazwę arkusza i on wtedy się wyświetli jako aktywny. Na przykład jeżeli otwieram plik, chciałbym okno w którym wpisuje nazwę interesujacej mnie zakładki np. "KKS" i odrazu...
Witam. W Excel'u ustawiasz aktywna komorke. Jej gorna i lewa krawedz to miejsca gdzie bedzie podzielony arkusz. Nastepnie menu Okno=>Zablokuj okienka. Pozdrawiam tomi140
... było pieknie, ładnie dopóki był "Maj", a teraz jesrt "Czerwiec" a mi sie log uzupełnia znowu na maj... Ale jest pięknie ... dość ładna pogoda przecież ... :) ... przynajmniej w Polsce Wschodnio-Środkowej-Północnej ... :) ... no i na Karaibach oczywiście ... : Form ' - i wtedy sprawdzanie byłoby podwójne: i po miesiącu wpisanym w arkuszu ' log '...
Powinieneś załączyć plik z przykładem, a nie skrawki kodu, bo nie wiadomo jakie tam masz jeszcze błędy. W Twoim zapisie jest błąd polegający na tym, że mieszasz odwołania do różnych arkuszy. Zarówno obiekt Range, jak i właściwość Cells odnoszą się do konkretnego arkusza. Pisząc w kodzie: [syntax=vbscript]Sheets(2).Range(Cells(1... 11), Cells(1, KolumnaK))[/syntax]obiekt...
Przyznam że pomimo że lubię excel nie lubię korzystać z tablic przestawnych. Owszem dla "chwilowego" wyniku jest ok, jednak wydrukowane dane z tabeli "drażnią" każdego zwierzchnika (który nie ma pojęcia o excelu) ilością zmiennych. Wiadomo że dochodzi tu "ilość i skomplikowaność" danych) A wracając do autora Jeżeli chodziło o sumę miesięcy nie było...
To by było OK, ale muszę mieć Gravity Forms - niestety kosztuje $39 :( Poszukam jeszcze w Google, można znajdę taką wtyczkę. Do tego sprawdzę jeszcze te formularze Google, bo oglądałem filmik na YT o nich i wychodzi na to, że faktycznie - mogło by zbierać dane do arkusza, ale jeszcze musiałbym zobaczyć, jak jest z wydrukiem wypełnionego arkusza.
Próbowałem kiedyś termotransferem ale zawsze zostaje biało-szary nalot pozostałości kredy/papieru na tonerze i po wyschnięciu nadruk jest szary. rozumiem że z tym papierem tego problemu niema ;) Tak więc zaryzykuję zakup kilku arkuszy.
Na przykład druga linijka w instrukcji With [syntax=vbscript].Range(Selection, .cells(3000, Selection.Column)).Select [/syntax] Albo inaczej: [syntax=vbscript]Selection.Resize(3001 - Selection.Row).Select[/syntax]Z tym, że instrukcji Select możesz używać tylko w arkuszu aktywnym.
Twój plik działa jednak nie mogę podejrzeć tego przycisku. Klikam na niego prawy i nic się nie dziej. Cały górny pasek robisz się szary nie aktywny. Mam Offica 2010. Dziękuję za pomoc.
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...
Witaj, Takie makro może zrobić chyba to, o co Ci chodzi z przepisywaniem danych do KP: [syntax=vb]Sub Makro2() Const X0 = 1 Const Y0 = 5 Dim imnaz, zaco, mies As String Dim kwota As Double If Val(ActiveCell.Value) > 0 Then kwota = Val(ActiveCell.Value) mies = ActiveCell.Offset(Y0 - ActiveCell.Row, 0).Value zaco = ActiveCell.Offset(0, X0 - ActiveCell.Column...
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...
Witam i potrzebuję pomocy doświadczonych w tym temacie. Poniżej mój kod zmodefikowany z kilku opcji:sprawdzanie wypełnionych komórek,tworzenie kopi zapasowej z zapisanie we wskazanej lokalizacji i zapisanie przed przypadkowym zamknięciem skorozytu. Działa i spełnia swoją rolę lecz jest małe utrudnienie,mianowicie mam kilka arkuszy w tym skoroszycie,gdy...
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.
BK7231T/BK7231N to popularny SoC WiFi i Bluetooth, szeroko stosowany w produktach Tuya Smart. BK7231 można znaleźć w inteligentnych gniazdach, inteligentnych żarówkach LED, inteligentnych przełącznikach itp. BK7231 zwykle występuje w postaci modułów, które są pin-to-pin kompatybilne z modułami ESP (TYWE2S, TYWE3S, ESP12 itp.). Urządzenia BK7231 można...
Re, kosmita, skoro jak sam piszesz że masz ileś tam skoroszytów powiaząnych ze sobą ( samo przez się jest zrozumiałe że funkcje działaja w tle ) to zmiany w jednym powodują aktualizacje w innych ( wcale nie musza byc aktywne w danej sesji pozostałe skoroszyty sic!, taki chwyt z aktualizacja danych mozna wykonac z pomoca VBA ), poza tym, jak cos jest...
Przejrzałem broszurę do której Pan odsyła i jeśli chodzi o budowę tego urządzenia to mogłem zobaczyć to: Może zechce Pan szerzej omówić budowę urządzenia, bo z tego rysunku niewiele wynika. Patrząc na zdjęcia, odnoszę wrażenie, że ścianka boczna jest wykonana z metalu. Czy to prawda? Co macie na myśli pisząc: ostrza elementów metalowych i półprzewodnikowych...
Po mojemu powinno być coś takiego. Sub ReadDataFromSheets() Dim colxls As New Collection Dim path As String, filtr As String, plik As String, i As Long Dim wynik As Long, SheetName As String Dim kom As Range, rg As Range Dim shAct As Worksheet, sh As Worksheet, wb As Workbook Dim p As Long path = ThisWorkbook.path & Application.PathSeparator...
"Jaki sens ma deklarowanie zmiennej obiektowej typu Workbook w obrębie jednego skoroszytu (jak wynika z Twojego kodu)?" Moja odpowiedź dla naszego początkującego kolegi ma mieć walory edukacyjne, dlatego zastosowałem taką konstrukcję. Może się wydawać trochę bez sensu w tak prostym przypadku, ale przy złożonych aplikacjach mających setki może tysiące...
Hmm, to makro przed edycją, działa w miarę poprawnie. Dodałem tylko "*" by działało dla każdego wersji arkusza xls. * " Then[/syntax] [syntax=vb]Sub otworz_pliki2() Dim MyFile As String, arkusz As Worksheet, wkb As Workbook Dim wrs As Long wrs = 1 MyPath = "D:\Dane" MyFile = Dir(MyPath) Application.DisplayAlerts = False 'wyłączymy pytania o schowek,...
W drugim pliku arkusze mają nazwy dni tygodnia Poniedziałek, wtorek, środa...... Kiedy pracuję na pierwszym pliku (zestawieniu) np tydzień40.xls/poniedziałek to z drugiego pliku potrzebuję danych z pliku Zalegle39.xls/piątek W drugim pliku są dane z poprzedniego roboczego dnia pracy. Jeśli piątek jest dniem wolnym od pracy to dane z drugiego pliku będę...
Witam, mam problem związany ze zobrazowaniem wartości komórek innego arkusza w danym skoroszycie w czasie gdy otwarty jest UserForm. Załączony arkusz jest "okrojony" w celu udokumentowania problemu , który napotkałem. Pytanie brzmi: Czy można tak określić reguły UserForm aby uzyskać taki efekt jaki zamieściłem w na załączonym obrazku ? (jest to sytuacja...
instrukcja "With" nie wpływa w ogóle Jeszcze jak wpływa np. With Sheets(1) .Cells(1,1) =5 'jest komorka A1 pierwszego arkusza Cells(1,1) = 5 jest A1 aktywnego arkusza End With
Cześć! Jest aktywna zakładka Bezpieczne stąd odwołanie do arkusza aero. Tak, liczba wierszy może się zmieniać, stąd odwołanie do ostatniej pustej. Variant, bo n jest zmienną. Long, gdyż p to kolumna wyczytałam, że tak powinna byc oznaczona. Sumy nie zadeklarowałam tylko określiłam ją jako =0, wylicza poprawnie, mimo wszystko trzeba ją zadeklarować?...
Siema, Mam napisane makro vba, żeby kopiowało mi dane z komórki zawartej w aktywnym pliku excel do drugiego aktywnego. Pisałem to na dwa sposoby i za każdym razem wywala mi błąd. Poradźcie proszę. Będę wdzięczny za każdą pomoc! 1. Tutaj wywala błąd - Compile Error: Sub or Function not defined. Sub screen() ' ' screen Macro ' ' Workbook(cale.xls).Activate...
Czy można zmodyfikować poniższe makro Pewnie można ... jak się komuś będzie "chciało chcieć" ... : ) ... ale wpierw parę uwag dla przyszłych twoich "modyfikacji": 1. xlOpenXMLWorkbook - podawałbym kody liczbowe (w tym przypadku jest to 51) zamiast nazwy stałych, będzie bezpieczniej jeśli plik będzie otwierany w różnych wersjach excela: Function CopyDataRangeP...
Dzień dobry, od dłuższego czasu szukam sposobu na zaznaczanie w Excelu wiersza i kolumny aktywnej komórki. Internet jest pełny rozwiązań wykorzystujących formatowanie warunkowe lub wprost kolorujących te wiersze i kolumny, znalazłem jednak leciwy już, ale fenomenalny w swojej istocie kod, który zamiast kolorowania po prostu zaznacza wiersz i kolumnę...
Po pierwsze to zastanawiam się nad zyskiem z automatyzacji wypełniania tej daty, przecież wystarczy przeciągnąć myszką. A problem można rozwiązać całkiem zgrabnie: wykorzystując zdarzenie Change arkusza pobrać położenie aktualnej komórki, jej wartość i wypełnić tą wartością wszystkie puste w dół jeżeli w "B" jest jakaś wartość. Dodano po 11 Po pierwsze...
Jeżeli to arkusz ukryty, to daj tym komórkom jakiś kolor wypełnienia, a później czyść wszystkie, które mają taki kolor. Jak w arkuszu widocznym to daj tło np: .Color = 16711422, myślę, że nie odróżnisz od białego ;) To arkusz roboczy, aktywny, który częściowo ma ukryte wiersze, które też powinny się czyścić. Ale tak, ma czyścić pola, które może wypełnić...
Nie pomogło - ale dziękuję za pochylenie się nad tematem. Drukuje dobrze czyli tylko te arkusze, w których w komórce d21 jest wartość > 0 (pomijając wskazane arkusze), ale problemem jest zapis tych arkuszy wg nazwy z komórki F7 (nazwa inna w każdym arkuszu). Aktualnie zadziałało to w ten sposób, że wydrukowało OK, zapisało tyle pików w ilu jest wartość...
Co do forniru to niestety musiałem oklejać z dwóch osobno łączonych części.. W województwie fornir jest nieuchwytny (Świętokrzyskie). Udało mi się go znaleźć jedynie w Radomiu gdzie był w formie arkuszy o grubości bodaj 20 cm. Obudowa w każdym miejscu ma więcej więc zmuszony byłem "sztukować" z dwóch części ;(. A co do zastosowania tego głośnika w obudowie...
Masz źle zapisany kompletny kod najwyraźniej. Czy kod z aktywnego okna jest w ogóle potrzebny do czegoś? Jeśli tak, to powinien chyba znaleźć się w procedurze (sub) a nie w części deklaracyjnej.
:arrow: martinek - mam wrażenie, że piszesz aby pośmiać się z nas... Piszesz zdawkowo, od niechcenia. Punktów masz mało ? Nie wykonujesz co ci radzimy. Moja ostateczna rada - radź sobie sam ! Do treści postu poniżej: Czy ty nie potrafisz kliknąć 2x na pliku excela 2003, aby zobaczyć czy się uruchamia ?! Jak masz nieaktywne menu kontekstowe to zaloguj...
Tak, właśnie robie, tylko mi chodzi o to by razem sie przekopiował autofiltr. Bo po wklejeniu - autofiltr znika, a ja chce zeby takze był. (wiem ze mozna nałożyć znowu autofiltr - ale czy to jedyne wyjście ?) Ciut nie zrozumiale napisałem pierwszy post. Po chłopsku, chodzi mi o to by zastosowany autofiltr(te strzałeczki) po skopiowaniu do nowego arkusza...
Wiesz, trochę łatwiej działałoby się na jakimś przykładowym pliku. Dodane: Który z arkuszy jest aktywny na początku procedury?
Załączam plik ale nie ze wszystkimi arkuszami bo jest ich bardzo dużo. Ale to co chcem zrobić dotyczy tylko tych arkuszy. Chciałbym żeby przechodząc po zakładkach w multipage przechodził po kolejnych arkuszach. OK jedna jest aktywna ale jak przejdę do drugiej zakładki to powinna byc druga aktywna itd.
Witam. Czy ktoś może mi powiedzieć, jak stworzyć procedurę MsgBox która informuje o nazwach wszystkich kolejnych arkuszy w aktywnym skoroszycie?
Tak się raczej nie da, bo Excel bez żadnego arkusza jest jakby nieaktywny (przynajmniej moja wersja) - nie można nawet w opcje wejść. Sprawdź jeszcze tę metodę - ja nie mogę, bo nie mam tej wersji.
Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i "druknie" x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout Coś na wzór (kod w module):[syntax=vb]Sub PrnForm() Dim arkPrn As Worksheet Set arkPrn = Sheets("Wydruk") With ActiveSheet wrs = ActiveCell.Row arkPrn.Range("d7") = .Cells(wrs, 1) 'Nr...
Dzięki wielkie. Po wklejeniu poniższego kodu lista numeruje się prawidłowo: Mam jeszcze jedno pytanko związane z tym samym plikiem. Po wklejeniu listy pracowników do arkusza muszę dodać jeszcze w komórkach obok nazwisk pewne symbole (tak jak na screenie). Po wklejeniu listy automatycznie aktywuje się komórka przy pierwszym nazwisku (C3) otwiera się...
Są dwie wi fi i karta broadcom netlink everest pokazuje to samo F8- to samo nie sa aktywne ( sa blade) przyciski własciwości zainstaluj i odinstaluj pod skłądnikami sieci róznica pomiedzy mna a zakladajacym temat, jest tak ze ja chce zminic na static i nie niemoge. DHCP działa.
Jeżeli jednak chcesz wpisać do aktywnej komórki formułę łączącą dane z arkusza wsh, z ostatniego wiersza i kolumny 9 to należy to zapisać następująco:[syntax=vb] Row_komorki = ActiveCell.Row Column_komorki = ActiveCell.Column ActiveCell.FormulaR1C1 = "='" & wsh.Name & _ "'!R[" & ost_w - Row_komorki & "]C[" & 9 - Column_komorki & "]"[/syntax]
Wyłącz event'y [syntax=vb]Private Sub Worksheet_Activate() Application.EnableEvents = False przeliczAZ Application.EnableEvents = True End Sub[/syntax]Bo jeśli wykonasz [syntax=vb]Sheets("wpłatyH").Visible = False[/syntax]Aktywnym staje się "ZALEGŁOŚCI" i masz pętlę.
Witam Nie znam się zbytnio na Makrach, a postawiłem sobie cel - stworzenie makra.. który nie mogę osiągnąć. Problem polega na tym że mam 9 plików, w którym koledzy wpisują co tydzień informacje. Ja chciałbym co tydzień otwierać swój plik i klikając "AKTUALIZUJ" ściągać informacje jakie oni wpisali w jeden zbiorczy plik. Stworzyłem makro, które to robi...
Zakresy komórek tabel należy połączyć funkcją Union(). Zdarzenie Worksheet_SelectionChange dla określonego arkusza, występuje jeden raz, nie dwa.
Naukowcy pracują nad rozwinięciem 'robotycznej' tkaniny, która mogłaby poruszać się i zmieniać swoją objętość wraz z wbudowanymi w nią sensorami. Podejście to pozwoliłoby na stworzenie "aktywnej odzieży", nowej klasy miękkich robotów. Taka elastyczna technologia mogłaby wyposażyć istniejące roboty w 'skórę' z sensorami, ale także pozwolić wyprodukować...
Dzięki troszkę sobie je jeszcze przerobiłem wygląda tak [syntax=vb] Sub Kopiowanie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Application.ScreenUpdating = False Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False...
Witam! Może problem dość trywialny, ale zależy mi na najprostszej i dość uniwersalnej pętli która otworzy X skoroszytów skopiuje dane ( wszystkie ze wskazanej zakładki (nazwa taka sama, lub pierwsza aktywna )) i wklei do nowego arkusza ( na zasadzie znajdź pierwszą wolną lub coś lepszego bo czasem może być jakieś puste miejsce ). Czyli tak żeby z 12...
Udało się utrafić w wartość, która zapisuje jak potrzeba dane. Tylko powiedzcie czy można ją ustawić powiedzmy na sztywny teraz na "-5" a potem zmniejszać ją za każdym dodaniem nowego wpisu? sprawdzanie pola czas coś nie trybi [syntax=vb]Private Sub dodaj_Click() Dim lp As Integer Dim a As Integer If czas Like "##:##:##" Then MsgBox "Podaj czas trwania...
Witam! Niedawno założyłem konto, aby ściągnąć kilka zadań z egzaminu zawodowego na Technika Elektryka na kwalifikację E.08. Po kilku ruchach okazało się, że nie mam punktów. Dostałem od kogoś 10 punktów. Nie wiem jak mam podziękować, jak być aktywnym, jak to wszystko działa. Bardzo proszą, aby ktoś mnie pokierował lub wytłumaczył jak to wszystko działa....
1. Jest to drugi plik - z_którego_kopiuje.xls (26.5KB) - (niesteety nie załapały się polskie znaki) 2. Imiona będą się powtarzały dla każdej czynności. Nie przewiduję, żeby w zakresie wystepowała pusta komórka. Jeżeli tak się stanie to chciałbym, żeby kopiowało mi do ostatniego imienia. Tzn. Jeżeli komórka C4 będzie pusta to chciałbym, żeby mi tak czy...
Trochę pogrzebałem i zorientowałem się, że cały ten fragment obwodu z LinkSwitch'em to dość wymyślna przetwornica napięcia z wyjściem ok. +12VDC (w naszym wypadku ma dawać +15VDC). Na stronie producenta tego scalaka: znalazłem różne arkusze kalkulacyjne służące do obliczenia parametrów elementów pasywnych w aplikacji. Dobierając odpowiednio indukcyjność...
A może założyć trigger na kolumnie J z eventem Worksheet_change, w chwili zmiany komórki w kolumnie J przenieść wiersz z aktywnego wiersza do Zestawienia Wydatków. Edit. RADU23
Przecież pod linkiem jest składnia. Cytuję przykład dodania arkusza przed obecnie aktywnym: [syntax=vbscript]ActiveWorkbook.Sheets.A... Before:=Worksheets(Worksheets.Count) [/syntax]
Gdzie ? w twoim arkuszu ? a nie masz otarty ten dokument w trybie tylko do odczytu ?
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.