Do takich celów lepiej wykorzystaj kreator korespondencji seryjnej utwórz formularz w Wordzie i wstaw pola bazy danych jako bazę danych wykorzystaj arkusz Excela i wtedy możesz automatycznie generować dokumenty seryjne.
Wstaw w kod arkusza "Wydatki" i kliknij w "Zapisz" [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ostWrs As Long 'warunkiem działania makra jest adres scalonej komórki (tej z tekstem "Zapisz") 'zwrócony przez zmienną Target If Target.Address(0, 0) = "E18:E19" Then 'sprawdzamy, czy wymagane pola są wypełnione /przy okazji...
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...
To chyba przez sposób w jaki IE wyświetla puste komórki. Widzę że nie używasz CSSa, a szkoda, polecam zaznajomić się z czym to się je, to Ci znacznie życie ułatwi... Póki co wstaw gdzieś między znaczniki HEAD taki wewnętrzny arkusz stylów (dodaje obramowanie dla tabeli i komórki + dodatkowo 3px padding): [syntax=html4strict]<style type="text/css">...
[syntax=vb]Sub CoMinute() y = 1 Sheets("Pomiary").Select ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ostw Step 60 Sheets("Wykres").Cells(y, 1) = Cells(x, 2) 'napięcie Sheets("Wykres").Cells(y,2) = Cells(x,3) 'natężenie y = y + 1 Next x End Sub[/syntax] Arkusz z pomiarami nazwij 'Pomiary", a arkusz, gdzie pojawią się dane do wykresu, nazwij...
Dzięki za tak szybką reakcję. Właściwie powinienem skakać z radości, bo to jest rozwiązanie o które prosiłem, ale ... jak to czasem w życiu bywa nie do końca za pierwszym razem jest dokładnie to o co chodzi (a przynajmniej przydałaby się jakaś mała korekta). Wina leży całkowicie po mojej stronie, bo nie wyłuszczyłem sprawy do końca, bo myślałem, że...
Usuń dane i wstaw arkusz z makrem. Będzie łatwiej pomóc
zamiast tego: Należy użyć narzędzia Przytnij (Crop) w Excelu: Wstaw zdjęcie do Excela (Wstaw → Obraz). Kliknij zdjęcie → Format obrazu → Przytnij. Przytnij zdjęcie do wybranego fragmentu. Jeśli chcesz "skopiować" fragment, duplikuj obraz (Ctrl + C → Ctrl + V) przed przycięciem. Dodano po 12 Capture robi screna czyli straci się jakość do ocr to ważne...
Poszukaj "excel filtr zaawansowany", wstaw arkusz na forum.
Nie nie nie, dlaczego się kurczowo trzymasz tych temp poniżej 20* przecież to Ty się pytasz ciągle o przypadki temperatur poniżej możliwości technicznych kotła. Ja Tobie tylko tłumaczę że są nierealne dla ciągłej pracy kotła. Na przyszłość bądź bardziej precyzyjny w swoich pytaniach. Czyli jak chcę mieć 30* to krzywą mam mieć niższą niż dla 20*. Tak,...
Mnie natomiast chodzi o pokazanie całej strony internetowej np. z google grafika z wpisaną frazą w okienku typu pop up po najechaniu myszką na link coś w rodzaju nie wiem takiej mini przeglądarki Wstaw sobie w arkusz kontrolkę "microsoft web browser"
Ciężko to zrozumieć. W ostatnim skoroszycie jest tylko jeden arkusz. Nie wiem czy o takie liczenie chodzi. Wstaw oryginalny arkusz z zakresem np do 50 wierszy, usuń dane wrażliwe a zostaw tylko cyfry może coś się wyjaśni. Dodaj do niego arkusz z opisem co chcesz uzyskać. Nie wiem czy o takie coś ci chodzi
Wstaw arkusz z danymi.
Wstaw arkusz jako załącznik.
(at)ElektrodaBot Potrzebuję pomocy z siecią dopasowującą Wstępna ocena dostępnych informacji Z wcześniejszych dyskusji wynika, że planujesz zaprojektować wzmacniacz niskoszumowy (LNA) obejmujący pasmo 0,1 GHz-1,1 GHz, o wzmocnieniu 10 dB i współczynniku szumów 3 dB, wykorzystujący tranzystor Infineon BFP740 w konfiguracji ze wspólnym emiterem. W szczególności...
Wstaw arkusz z tym co już masz, będzie łatwiej. Gdzie ma się wyświetlać wynik wyszukiwania? W arkuszu czy w formie komunikatu?
Wstaw lepiej arkusz - będzie łatwiej pomóc.
Widzę iż wkładu pracy własnej ZERO a pomoc ma polegać na zrobieniu tego za ciebie :( Wstaw arkusz który zrobisz a na pewno pomogę ci go udoskonalić!!
Witam, Mam arkusz kalkulacyjny a w nim w kolumnie A spis rysunków, np.: A1: AW-17.00.00 A2: AW-17.01.00 A3: AW-17.02.00 itd. .... W miejscu gnie znajduje się plik EXCEL mam folder ze skanami rysunków. Skany rysunków są nazwane tak sam jak w arkusz kalkulacyjnym, a więc C:\\Nowy_folder\Skany\AW-17.00.00.jpg C:\\Nowy_folder\Skany\AW-17.01.00.jpg C:\\Nowy_folder\Skany\AW-17.02.00.jpg...
Przy tylu osobach nie stosuje się Excela tylko konkretne programy kadrowo-księgowe. Niemniej bez problemu to rozwiążesz za pomocą formatowania warunkowego. Wstaw przykładowy arkusz i swoją propozycje rozwiązania.
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
U mnie (Excel 2007) nie działają formuły (_xlfn). Jaką wersję używasz? Może zrób zrzuty ekranu i wstaw obrazki. Być może jest to arkusz utworzony w wersji subskrybowanej (Office 365)...
Nie baw się w makra, tylko wydziel sobie arkusz i wstaw w nim 50 łączy do plików. W arkuszu "raport" oblicz tylko sumę... Z drugiej strony: jeśli już koniecznie VBA, to bez wstawiania łączy i otwierania plików zrobisz to wygodnie za pomocą ExecuteExcel4Macro z odpowiednimi argumentami.
W podanym linku jest gotowe makro do wklepania, z tym że nie wiesz gdzie go wkleić. Zrób arkusz wstaw jakieś liczby w komórki, dodaj przycisk, dodaj kod reagujący na ten przycisk w którym wstaw tylko komentarz że tu trzeba wywołać coś aby wymieszać komórki w zakresie A1:A3
(at)pantarhey Jeśli możesz, zapamiętaj jaki miałeś arkusz czy coś i wstaw to tutaj przed 12 ;) Z góry dzięki
Witam Wszystkich, Postanowiłem napisać od początku do końca rozwiązanie problemu ze zliczaniem kolorów "dla zielonych". Być może komuś na przyszłość się to przyda. 1. Otwórz Arkusz excel 2. Wejdz w Plik/Zapisz jako tutaj wybierz z listy Zapisz jako typ: Skoroszyt programu Excel z obsługą makr i wpisz nazwę swojego pliku. Następnie zapisz go w dowolnym...
Żeby wszystko było jasne: Zainteresowany jesteś, by arkusz w zakresie B3:D7 miał stały format (obrazek) bez względu na operacje arkuszowe wstaw wiersz/kolumna. Tak/Nie* niepotrzebne skreślić (zdaje się, że formatowanie warunkowe załatwiłoby sprawę bez VBA). Jeśli 'Nie', to wg czego orientujesz się w arkuszu?
To dlatego że trochę zamieszałeś z opisem ;) Pisałeś o podziale według dwóch kolumn A i B - przy takim założeniu musiały by to być niepowtarzające się pary. Póki co linijkę: If tabl(i, 1) = c And tabl(i, 2) = druga_kolumna Then zamień na: If tabl(i, 1) = c Then i powiedz czy to jest to, o co Ci chodzi? Jeżeli chodzi o dynamiczna...
przeinstalowanie Office`a względnie samego Excel`a. ????? a cóż to za porada ??? Jeżeli nie wiesz co napisać to nie pisz nic. U mnie działa ThisWorkbook.Worksheets("xxx&qu... Destination:=Workbooks("ww....
...jak kliknę w Excel na pasku to pojawia się cały arkusz - czy nie da się zablokować tej możliwości ? Chodzi mi o to, aby nie można było pokazać arkusza. Najprościej zminimalizowany plik Excela ukryć. Rozszerz procedurę UserForm_Initialize o linijkę kodu wykorzystującą właściwość "Visible" [syntax=vb]Private Sub UserForm_Initialize() Application.WindowState...
Spróbuje uporządkować bo chyba przestajemy się rozumieć. Janusz, koledzy przedstawili ci dwa rozwiązania problemu oba ciekawe. Możesz to zrobić za pomocą "Wstaw obiekt" (pomysł kolegi walka) Poprzez "zwykłe" menu excela wybierasz wstaw - obiekt i tam wybierasz obiekt muzyczny i wskazujesz swój plik z instrukcją. (spójrz na kod makra Graj w Module który...
No i nie przeczytałeś dokładnie tego co napisałem. Indeksu użyj w pętli. W wolnym tłumaczeniu: Sheets(1).Activate Tu możesz użyć "nazwy arkusza" zamiast 1 . natomiast tu: Sheets("ZEST").Select zamiast "ZEST" wstaw i . Jest jeszcze jedno ale... musisz mieć minimum 10 arkuszy coby makro się nie wysypało. Edit: Pyta się czy zamienić...
Witajcie Mam dwa pytania co do Excela 2003. czy ktoś wie, jak to ogarnąć - bo to trochę dziwne w VBA: 1) w makrze do automatycznej konsolidacji wszystkich arkuszy w pliku do nowego arkusza. Konkretnie: jak wrzucić do tablicy funkcji [syntax=vb]Selection.Consolidate Sources:=Array([/syntax] -> i tutaj wszystkie arkusze na zasadzie: [syntax=vb]For...
Hej sorry za mało konkretów. Naprawiam błąd. Chodzi mniej więcej o taka tabelę, gdzie są handlowcy, produkt i ilość. Jeśli w 3 kolumnie ilość będzie wynosić 3, to wstawić 3 wiersze pod 3. Dane w kolumnie ilość są wstawiane ręcznie. W kolumnie produkt są puste wiersze, tak wygląda tabela, tego nie można zmienić. Tak, racja, arkusz się rozrośnie do dziwnych...
To to się robi inaczej. w Wordzie (2003) menu wstaw - obiekt ... - zakładka "utwórz z pliku" Poprzez przeglądaj wskaż plik i zaznacz ptaszkiem połącz z plikiem. Wtedy też dwukrotne kliknięcie zedytuje tabelę w excelu.
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
Kliknij na zakładkę "Programy narzędziowe" najedź kursorem "Dane zasadnicze" i z prawej strony pojawi się menu. W nim masz do wyboru: Biblioteka symboli Symbol Arkusz normowy Formularz W każdym z nich masz opcję Otwórz. Arkusz normowy to tabelka na dole z danymi i obramowanie ( kolumny i wiersze). Formularz to między innymi strona tytułowa. Po wybraniu...
Jeżeli chodzi o arkusz źródłowy to wstaw w pętle przepisująca dane np to: [syntax=vbnet]If Worksheets(zrodlo).Cells(pr_wrs + x, 8) = "OW1" Or Worksheets(zrodlo).Cells(pr_wrs + x, 8) = "OW2" Then Worksheets(zrodlo).Cells(pr_wrs + x, 33) = 1[/syntax] Czyli: [syntax=vbnet]Sub Przeksztalc() Dim pr_wrs As Integer Dim ost_wrs As Long, x As Long Dim nowy_arkusz...
nie wiem jak pociągnąć temat aby wrzucił to co mam potwierdzony w main do baza Ale Ty kolego "kręcisz" i kombinujesz :cunning: muszą być dwa pliki. Plik baza jest plikiem który posiada wszystkie wpisy (z potwierdzeniem OK i bez). Ja do tej pory robiłem filtrowanie w pliku baza które wiersze nie maja potwierdzenia i wrzucałem je do pliku Main aby wiedzieć...
Ale A15 z J15, A16 z J16 itd, czy może A15 z całym zakresem, czy może cały zakres z całym zakresem (czyli jeśli gdziekolwiek w zakresie A15:A209 znajduje się 1 oraz w całym zakresie J15:J209 znajduje się 2...)? Dopisz do przykładu, jak ma wyglądać wynik (np. wstaw w kolumnę opis - 'tutaj ma się coś pojawić, bo Ax=1 i Jy=2'). Napisz kilka przykładowych...
(at)e-mega , masz rację, arkusz jest tajny/ poufne :D Krzty komórki nie mogę nawet na przykładzie dać do rozważania. Dlatego dałem algorytm, który moim zdaniem jest łatwiej zrozumieć niż przykład ;) Przypomnę: A) kolumna $A Arkusza2 - data (rok-msc-dz) B) kolumna $AA Arkusza1 - dni tygodnia lub puste komórki (Pn, Wt, itd) C) kolumna $Z Arkusza1 gdzie...
Usunąłem kolumnę F . To co się wpisze w dodatkowe okienko pojawi się w tej samej kolumnie co główny wpis (E) za "wpisem głównym" Wprowadziłem w funduszu remontowym i danych że jeżeli (iif) wartość 0 to "" Co do czyszczenia usunąłeś jeden arkusz dlatego makro "zgłupiało". Zmieniłem kod i uzależniłem "czyszczenie" od nazwy arkusza a nie od jego numeru....
Jednym z rozwiązań jest zmiana formatu wyświetlanych liczb na niestandardowy z typem: [syntax=text]rrrr-mm-dd;;;[/syntax] albo formuła (przykład dla komórki I6 arkusza "pełne dane"): [syntax=text]=JEŻELI(CZY.PUSTA(wczasy!C5...
W miejsce 'Sheets("Sheet2").Select' umieść wstawianie arkusza (Sheets.Add) i nadanie nazwy (Activesheet.Name). Jeśli wartości w kopiowanych komórkach nie są unikatowe, musisz najpierw sprawdzić czy arkusz z taką nazwą istnieje.
Wstaw odpowiednie procedury do kodów danego arkusza jako Private :D np dla arkusza 2 jak na zrzucie: 929206
Witam! Mam problem z drukarką canon iP1900. Wymieniłam w niej czarny tusz a dalej pisze ,że jest pusty i nie czyta go w ogóle, wszytko zostało wyczyszczone i dalej nic. Na dodatek drukuje na żółto mimo tego ze ustawiony jest na czarno biał wydruk. Co zrobić? Co się z nią dzieje? Czy da się jakoś ustawić tusze? prosze o pomoc. Po włączeniu drukarki...
Dla podsumowania A formuła będzie wyglądać tak: =ADR.POŚR("'"&TEKST($A... & "!B13") (wstaw do komórki B2 arkusza podsumowanie roku) Z B i C, analogicznie - chyba sobie poradzisz?
Proponuję na początek rozłożyć cały projekt na kilka etapów i poszczególne mechanizmy automatyzacji wprowadzać stopniowo :idea: zainstalowanie dni świątecznych z arkusza "DNI ŚWIATECZNE" do już wstawionego formatowania warunkowego Najłatwiejszy element :D można go wprowadzić tak jak na zrzucie :spoko: 1167764
VBA nie obsługuje polskich nazw formuł, tylko ich angielskie odpowiedniki. Najprościej zrobisz to tak, że włączasz rejestrator makr, wpisujesz w Excelu formułę i kończysz rejestrowanie. Potem przechodzisz Alt+F11 do kodu, wchodzisz w moduł i odnajdujesz ostatnie zarejestrowane makro. Z niego kopiujesz wspomnianą formułę, ewentualnie poprawiając jej...
Wypada zacząć od tego, że Excel nie jest twierdzą szyfrów i wszystkie zabezpieczenia są tu raczej symboliczne, to znaczy mają uświadomić użytkownikowi, że robi coś, czego robić nie powinien. Natomiast jeśli użytkownik jest zdeterminowany, to zawsze może znaleźć obejście, żeby coś niedozwolonego zrobić. W przypadku gdy zabezpieczenie bazuje na VBA, wystarczy...
Menu>wstaw>hiperłącze>dokument>cel w dokumencie Będzie chyba najprościej...
Musisz napisać swój kod w JS w edytorze Apps Script (menu Extensions -> Apps scripts). Nazwę, którą nadasz funkcji wpisujesz bezpośrednio w komórkach arkusza, np. =kwota_slownie(123) https://obrazki.elektroda.pl/5530570000_... natomiast w Apps Script editorze piszesz: [syntax=javascript] function kwota_slownie(value) { var result =...
Bez makr, to najprościej ;) : Wstaw nowy arkusz, w A1 wklej =ADR.POŚR("Arkusz1!"&ADRES... i skopiuj/przeciągnij w dół. Następnie możesz zaznaczyć kolumnę wynikową i przez...
Czyli chcesz bez 'inputboxa'? Jeżeli tak to za niego wstaw [syntax=vbscript]shName = Range("E7")[/syntax]
Dobra zgodnie z zapowiedzią mały porządek w poście. Jak widać na załączonym obrazku procedura wreszcie mi działa tak jak trzeba. Problemy wynikały z mojej sklerozy :yes: , procedury tego typu pisałem jakieś 2 lata temu i się zapomniało to i owo o BASCOM. http://obrazki.elektroda.net/46_12498402... A oto kod samej procedury: 'zmienne const null...
Może więc takie rozwiązanie jak w załączniku? Menu kontekstowe PPM jest zablokowane, ale jeśli nawet ktoś je wywoła, to nie może wykorzystać wklejania: http://obrazki.elektroda.pl/7679986700_1... Na wstążce zablokowane są funkcje przycisków: http://obrazki.elektroda.pl/8622171000_1... Cały czas jednak mam wrażenie, że takie całkowite...
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
Musisz się zdecydować albo wpisujesz godziny jako tekst (wtedy w cudzysłowiu) albo jako liczby. Jeżeli chcesz to dalej np. sumować to proponuję konsekwentnie jako liczby. Z tym że trzeba pamiętać, że wpisane 8:00 to liczba równa 0,333.. a tylko prezentowana w formacie godzinowym. Czyli np. 12:00 to 0,5 (część doby), 6:00 to (0,25 część) doby. Do obliczeń...
Mam problem z dopisaniem do Arkusza1 (WuZetka) do komórki E9 kontrahenta wybranego z Comboboxa. Pewnie dlatego, że pod przyciskiem WSTAW nie masz żadnego kodu... ;) Wstaw go - kod będzie podobny do tego, który podałem jako ostatni, a nawet prostszy, bo znasz adres komórki, do której chcesz wstawiać. Dlaczego lista kontrahentów jest inna niż towarów....
Może jakaś mała podpowiedź, Prosze :D 1079786
Z rysunku w pierwszym poście wynika, że chodzi o procedurę 'Sub Dodaj' (masz ją w module, uruchamiana jest przyciskiem [Dodaj]). [syntax=vbscript]Sub Dodaj() Administrator = UserForm1.CheckBox1.Value Kablowiec = UserForm1.CheckBox2.Value Kierowca = UserForm1.CheckBox3.Value Lp = UserForm1.TextBox1.Value stopien = UserForm1.TextBox2.Value Imie = UserForm1.TextBox3.Value...
NIE MA !!! Tak się kończy inwestowanie w prowizorkę JackuCZ, strasznieś nerwowy. Że Ty nie umiesz to nie znaczy że się nie da. Kolego jatoKacper, musisz sobie uzmysłowić do czego służy ta opcja. Gdyby nie dało się w kilku pracować na jednym pliku, jak sugeruje kolega JacekCZ, funkcja udostępniania skoroszytu nie miałaby kompletnie żadnego sensu. A...
To wstaw funkcję która poda ostatni wypełniony wiersz a nie określaj zakresu na sztywno.
Proponuję taką procedurę: [syntax=vba]Public Sub Wydruk() Dim i As Long Dim IleKopii As Long Dim IleStart As Long Dim IleStop As Long IleKopii = 20000 With Worksheets("baza") IleStart = .Range("U3") IleStop = IleStart + 100 If IleStop > IleKopii Then IleStop = IleKopii For i = IleStart To IleStart + 100 .PrintOut .Range("U3") = i Next i End With End...
jezeli bedzie to robic na na jednym i tym samym kompturze to pocelam scriptit, mam kilka "programow" w tym napisanych np: nowy word, wstaw ze schowka, wstaw date, ustaw drukarke oraz strone, wydrukuj ...
Nie robiłeś dokładnie "tak", bo w kodzie masz After:=Workbooks("wczyt.xlsm"), co jest składniowo bez sensu: "wstaw nowy arkusz za plik wczyt.xlsm". Ja tylko dodam, że składnia [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh... nie zadziała jak trzeba, bo po otwarciu pliku, jak w przykładzie, aktywnym jest nowootwarty...
Jak umieścić w konkretnym arkuszu Przycisk polecenia (formant ActiveX) tak aby odpalał makro z Modułu Z toolboxa (v.2007^ ;) menu 'Wstaw' na karcie developer (dolna grupa kontrolek), następnie "wyświetl kod" i wpisujesz: Call NazwaMakra
Przykładowe rozwiązanie z funkcją HIPERŁĄCZE w załączniku.
Ciezko sie trochu domyslec o co dokladnie pytasz, ale jesli dobrze zrozumialem to w arkuszu rok2005 w dowolnej komorce wstaw: =JEŻELI(Rok2000!AI3=1;Rok2000!AP3;"") i bedzie kopiowalo zawartosc AP3 pod warunkiem wartosci "1" w AI3, Prawie to samo co wyzej tyle ze nawiasy gdze indziej.
Przecież pod linkiem jest składnia. Cytuję przykład dodania arkusza przed obecnie aktywnym: [syntax=vbscript]ActiveWorkbook.Sheets.A... Before:=Worksheets(Worksheets.Count) [/syntax]
Nie jest potrzebne makro. Wystarczyłaby funkcja SUMA.WARUNKÓW, gdyby nazwy z listy "typ_aktywności" były zgodne z nagłówkami tabeli (wiersz Nr2 arkusza "Rozliczenie tygodniowe"). Chodzi o Np "spotkania" / "spotkanie" etc.
Można to zrobić na wiele sposobów - mniej lub bardziej elegancko. Np. obszary danych w arkuszach źródłowych oznaczasz nazwami, powiedzmy Z1_A1, Z1_A2, Z1_A3, Z2_A4, Z2_A5, Z2_A6 (zaznaczyć obszar, później Wstaw/Nazwa/Definiuj). Tworzysz pusty skoroszyt Zeszyt3.xls z arkuszami Arkusz1 .. Arkusz6. W kolejnych arkuszach wstawiasz w pierwszej komórce obszaru...
W takim razie w arkuszu z tą komórką wstaw taki fragment: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$9" Then Call myCopy End If End Sub[/syntax] Nazwa makra - copy() - nie jest zbyt fortunna, bo pokrywa się z poleceniem VBA o takim samym tytule. Lepiej zmień ją np. na myCopy
To dokładnie tak jak napisałem : (Alt +F11) - pojawia się okno VBA. Wskazujesz po lewej (klikasz 2 razy) na nazwie arkusza, w którym chcesz zrobić taką zależność. i tutaj zrobiłem (przyznaje się) mały błąd. Kod umieściłem w This Workbook - a nie w konkretnym arkuszu. Kod w arkuszu (np. w Arkusz1) wyglądać ma tak: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal...
Na początku skryptu wstaw: [syntax=vb]Application.ScreenUpdating = False[/syntax], a na końcu: [syntax=vb]Application.ScreenUpdating = True[/syntax] To spowoduje wyłączenie odświeżania ekranu na czas wykonywania makra.
Przed linią Target.ClearContents wstaw jeszcze Target.Select :spoko:
Używałem tej opcji ale tylko dla "zwykłych tabel" czyli komórek obramowanych itp. Jak w Excel mam wstawione table przez "wstaw tabele" to nie ma możliwości wykonywania operacji na więcej niż jednym arkuszu w obszarze tabeli (opcja wstaw kolumny jest nie aktywna).
same polskie, klawiaturowe Ś, Ź, Ć, itp. - jest to polskie, wstaw w VBA - jak wyświetla? Latwiej porownanie userName na arkuszu(działa Unicode) np. If Application.CountIf(Range("users"), Lcase(Environ("UserName")))=0 Then Application.Calculation = xlManual users - nazwa zakresu gdzie te 4 osoby, np. Z1:Z4
Jeśli chcesz, żeby po zaznaczeniu więcej niż 1 komórki była brana pod uwagę tylko pierwsza z zaznaczonych, to możesz dodać linię: [syntax=vbscript]If Target.CountLarge > 1 Then Set Target = Target(1)[/syntax]przed tą linią, którą masz zaznaczoną na żółto. Całościowa propozycja w załączniku. Zasady są nieco inne. Zasięg działania w arkuszu nie jest ograniczony,...
Jeśli indeks arkusza, czyli jego nr położenia w zeszycie, to np. tak: [syntax=vba]Option Explicit Sub wstaw_nr_arkusza_w1() Dim ark As Worksheet For Each ark In ThisWorkbook.Worksheets ark.Range("a5").Value = ark.Index Next End Sub [/syntax] Można to powiązać np. z procedurą otwarcia zeszytu 'Workbook_Open': [syntax=vba]Private Sub Workbook_Open() Call...
Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...
A jak by można to zapisać jeśli kolumny nie są obok siebie ? Nie są ABC tylko MPT. W przypadku mojej formuły wystarczy wpisać właściwe komórki. W przypadku proponowanym przez Kolegę cbrman najprościej w nieużywanym miejscu arkusza zrobić tablicę wpisując obok siebie odniesienia do właściwych komórek i ukryć ten obszar lub wyłączyć wyświetlanie w tym...
Wstaw swój arkusz, żeby można było widzieć, na czym pracujesz.
Dzień dobry, Mój problem jest następujący Mam arkusz "A", gdzie z jednej zakładki importuję przy pomocy IMPORTRANGE do arkusza "B" zakres A2:E. W arkuszu B w kolumnie F przypisuję wartości i te wartości wpisywane są ręcznie i nie ma w tej kolumnie żadnej formuły. Problem zaczyna się gdy w arkuszu "A" musze wstawić wiersz. W tej sytuacji w arkuszu "B"...
Inaczej się nie da. Ewentualnie wklej tabele z worda do excela do drugiego arkusza. W miejsca gdzie powinny być dane z excela wstaw odwołania do komórek z pierwszego arkusza (zakładam że tam są te specyficzne dane) a następnie skopiuj całą tabelę z excela (tą co wcześniej skopiowałeś z worda i została uzupełniona formułami w excelu) i wklej do worda...
Wklej w kod arkusza (nie w moduł) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "N7" Then If Target.Value <> Empty Then Rows(7).Insert Shift:=xlDown End If End Sub[/syntax]
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
Zobacz tak: [syntax=vbscript]Sub Kopiuj_MG() Dim x As Long, n As Long Application.ScreenUpdating = False Sheets("Arkusz1").Select x = 2 Do While Range("A" & x).Value <> vbNullString If Cells(x, "C") > 1 Then Range("A" & x & ":C" & x).Copy n = Range("C" & x).Value Range("A" & x & ":C" & x + n - 2).Insert xlShiftDown...
Podobne rozwiązanie wraz z implementacją w Kolegi arkuszu. Do mojej funkcji jako parametry trzeba przekazać zakres ignorowanych i datę, po której chcemy wygenerować kolejny dzień roboczy (czyli pon-sob i spoza listy).
tabelki bedą sie róznic opisami poza zółtymi polami i jak nacisnę wstaw b2 to wstawi z arkusza tabelka_b2 i analogicznie z F
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
Prześledziłem kod na Twoim pliku i wygląda na to, że działa poprawnie, jedynie trzeba usunąć poprawność danych z wstawionej kolumny czyli, po: [syntax=vb].Range(Cells(iFrstRw, "I"), .Cells(lLstRw, "I")).Insert shift:=xlToRight[/syntax] wstawić jeszcze: [syntax=vb]Range(.Cells(iFrstRw, "I").Offset(1, 0), .Cells(lLstRw, "I")).Validation.Delete[/syntax]...
Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excela",...
Po stworzeniu nowego arkusza wstaw w nim odwołania do poprzedniego arkusza do pola z którego pobierasz dane. Dla przykładu w arkuszu: 30.09.22 0900 w polu D5 wstaw formułę ='29.09.22 0800'!D5 29.09.22 0900 w polu D5 wstaw formułę ='28.9.22 08.00'!D5 Możesz też skopiować konkretne wartości jeśli nie chcesz by były one dynamicznie aktualizowane.
Po Bożemu powinniśmy zastosować pętlę, ale w przykładzie trzymam się pierwotnych założeń. Jeśli nagłówki są stałe, to można zastosować wyszukiwanie i przypisać zmiennym Nr kolumny odszukanego stringu. Cała sprawa bierze w łeb, jeśli nagłówki nie będą unikatowe. Zwróć uwagę na różnicę w sposobie wpisywania formuły do komórki. Składnia: "FormulaR1C1"...
Podmień na [syntax=vbscript]Sheets("TEST_2").ListOb... colStart), Cells(row, colEnd)).Value = Sheets("DoPowołania").Range("L1").Value[... lub [syntax=vbscript]Sheets("TEST_2").ListOb... colStart).Resize(, colEnd).Value = Sheets("DoPowołania").Range("L1").Value[...
W mojej ocenie w Twoim pliku widać, że w ogóle nie panujesz nad tym co drukujesz :cry: Ustaw sobie właściwie obszar drukowania, spójrz na widok podział stron, ustaw właściwe skale. W większości arkuszy masz ustawione: szerokość jedna strona i wysokość jedna strona i normalnie te dwa obrazki się nie mieszczą "w drukarce" :D Proponuje albo zmodyfikować...
Jeżeli w komórce ma się "pojawić" napis "Nie dotyczy" a w innym przypadku masz wprowadzać datę to tak jak sam napisałeś w pierwszym poście: tylko proste makro to załatwi. Niestety funkcja jeżeli w tym przypadku to za mało. Kłopot polega że nie masz pojęcia o makrach (jak sam mówisz), a makro trzeba ustawić w "modułach zdarzeniowych" arkusza. Np. takie:...
W kolumnie "D" arkusza "TOYO1" (gdzie procedura otwiera formularz) jest formuła zwracająca "#ADR!". Zdaje się, że odwołuje się do czegoś, czego brakuje w załączniku (inny plik, usunięty arkusz). Popraw lub wstaw wartości "z palca"...
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
wstaw username elektroda wstaw wstaw wiersz
moduł skandynawski mlynek saeco małe obroty wentylatora
Odkamienianie dywerytera baterii prysznicowej – jak naprawić przełącznik strumienia w Grohe, Hansgrohe, Omnires Fiat Panda II 1.1 2004 – centralny zamek z pilota, czy potrzebny siłownik drzwi?
