oo dzięki wielkie :) A dało by się dołożyć do tego makra funkcję żeby od razu w nowo powstałym arkuszu wklejał całą tabelę (wraz z treścią i odpowiednimi wymiarami komórek) z arkusza o nazwie "1"?
To[syntax=vbscript]For Each Wks In ThisWorkbook.Sheets If Wks.Name <> "Źródło" Then Wks.Delete Next Wks[/syntax]wyrzuć
Sprawdź [syntax=vbscript]Sub wplata() Dim objSheet As Worksheet Dim i&, a&, b& With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With For Each objSheet In Worksheets With objSheet a = .Cells(2, Columns.Count).End(xlToLeft).Column .Cells(13, 1).Resize(, a).Interior.ColorIndex = xlNone If Application.CountIf(.Cells(13,...
Kreska jest błędem, natomiast makro działa jak należy. Makro jest uruchamiane przez przycisk, który należy dodać do arkusza lub przez menu Narzędzia.Makro.Makro.. Uruchom.
Był błąd - chyba go poprawiłem. Zmieniłem trochę całość - eksportowałem jako moduł bas - dołącz do swojego projektu i użyj. Również zamieszczam arkusz testowy z importowanym modułem. Użycie jest proste - zaznaczasz zakres komórek, na którym chcesz przeprowadzić zmiany i w menu Narzędzia -> Makro -> Makra uruchamiasz jedyne makro, jakie jest - zrób_gwiazdki....
Oczywiście, przy założeniu, że wiesz co znaczy "ostatni dodany" i "następny". Jeżeli masz wyłącznie arkusze nazwane: 2020, 2021, ... to wszystko jasne, ale jeżeli są też Arkusz1, itp. to sam widzisz. Musisz zatem napisać procedurę wyznaczającą ostatni arkusz: przeglądasz wszystkie i (ewentualnie pomijasz niepasujące do wzorca - metoda dowolna, nawet...
musisz dodać jeszcze wybór arkusza: Sheets(arkusz).Select
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 -...
Dodałem opcję czyszczenia.
Oczywiście pozamieniałeś rozszerzenie pliku xlsm nie tam gdzie powinieneś :cunning: Umieść załączony plik w jakimś folderze testowym i wykonaj umieszczone tam makro :!: 982520
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
Tak na szybko, sprawdź czy o to chodziło. Skoro piszesz, że to przykład to nie dodałem warunków zabezpieczających makro przed błędem. np po wpisaniu litery zamiast liczby do B8 Jak pisał "paweliw" to dość niewygodny sposób dodawania danych do arkusza.
Witam. Nie mogę poradzić sobie ze stworzeniem makra... Chciałabym aby makro łączyło tekst z komórek z zakresu C13:C21 ( z pominięciem pustych) z zachowaniem formatowania i wstawiało do komórki w innym arkuszu. Plik przykładowy z makrem. Jak dołączyć do makra, które mam makro, które połączy zakresy C13:C21 z arkusza "dodaj dane" do jednej komórki w innym...
Makra w module1 i w arkuszu: "Dispatch" przy zdarzeniu 'SelectionChange'. Ewentualnie można dodać przycisk... P.S. Dopuszczasz wartości ujemne w kolumnie A? Edit: 21:05 zmieniłem załącznik (pomyłka) :)
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...
Niech makro "DODAJ" nie odblokowuje, makro Private Sub Workbook_Open() ActiveSheet.Protect UserInterfaceOnly:=True End Sub udostępnia zablokowane TYLKO dla makro
Jak miałoby to wyglądać? Od daty do daty? Wyłączając opłacone? Zgodnie z zasadami księgowości nota odsetkowa tyczy się faktur już zapłaconych, ale poza terminem. Czyli za czas spóźnienia. Może się tyczyć tych jeszcze nie opłaconych (na dzień sporządzenia noty) ale wtedy jest "kłopot" z wyliczeniem wartości odsetek za zwłokę bo dzień sporządzenia noty...
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))....
Witam, stworzyłem makro, które pomaga mi w pracy przy obróbce arkuszy kalkulacyjnych i mam w związku z tym pytanie: - czy można na stałe przypisać makro do excela, bądź też dodać osobne menu z tym makrem? Chciałbym uniknąć ciągłego kopiowania makra do nowego arkusza. Pozdrawiam
Proponuję dodać do menu przycisk, który uruchamia makro, a w nim: - dodać nowy arkusz, - zmienić jego nazwę, - i co tylko wymyślisz. Myślę, że każda pani Jadzia nauczy się klikać w przycisk w menu...
To jest przechowywany w katalogu i zamyka. po prostu otwórz go Dodano po 3 lub zniszczyć ciąg z makro: ActiveWorkbook.Close
Trzeba tylko pamiętać, że po umieszczeniu makra w Personalu jest ono dostępne tylko na tym kompie na którym jest ów plik. Jeżeli więc wyślesz komuś swój skoroszyt z niego korzystający, a makro ma wykonywać jakieś operacje na jego arkuszach to nie będzie działało. Jak to mówią: "Każdy kij ma dwa końce" i trzeba wybrać mniejsze zło. :cry:
Lzep :arrow: Z fotki wynika wszystko jasno, chyba że ktoś nie miał do czynienia z Excelem i dartem ... tomi1972 :arrow: Excel działa domyślnie w trybie natychmiastowego przeliczania formuł. Bez odpowiedniego makra nie da się zrobić tego co oczekujesz. Usuwając sumy pośrednie (F2 i J2) wartość zawsze będzie "wracać" do 501. Napisałem proste makro sumujące...
Przecież pod linkiem jest składnia. Cytuję przykład dodania arkusza przed obecnie aktywnym: [syntax=vbscript]ActiveWorkbook.Sheets.A... Before:=Worksheets(Worksheets.Count) [/syntax]
A jeżeli jest taka możliwość, to fajnie aby stworzył nowy skoroszyt z tymi arkuszami (ważne i mniej_ważne), a jeżeli nie ma takiej możliwości to tak ja wcześniej pisałem aby makro po prostu dodało te dwa arkusze do już istniejącego skoroszytu.
Czy makro może dotyczyć odniesionych komórek? Ponieważ w arkuszu drugim gdzieś ma działać makro są odniesienai tylko do komórek z pierwszego arkusza ? O jak zrobić aby uruchamiało się automatycznie vpo dodaniu daty w pierwszym arkuszu
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Dodano po 3 W załączniku. Kalendarz dodaje poprzez prawoklik na okienku z formantami formularza.
Dziękuję za pomoc. Najlepszym rozwiązaniem okazało się zrobienie makra, które kopiuje automatycznie zawartość pierwszych trzech kolumn do nowego arkusza. Dodano po 1 Nagrałem makro kopiujące potrzebne dane do nowego arkusza
Ilosc arkuszy jest Sheets.Count Sheets(4).Rows(2)Jest to druga linia czwartego arkusza (po lewej) Sheets(2).Cells(3,1) -komorka A3 na Arkusz2 Dodaj zewnętrzna petla za arkuszy.
Tą metodą się nie da, bo zamażesz dane wejściowe i funkcja nie będzie miała skąd pobrać danych. Możesz ewentualnie dodać nowy arkusz i tam zapisać w komórkach tą funkcję z odwołaniem do konkretnego arkusza. Później metodą kopiuj i wklej możesz wynik nadpisać do komórek źródłowych. Pamiętaj tylko, że po tej operacji w arkuszu dodanym, w którym będą odbywały...
potrzebujesz pomocy z kodem w VBA czy szukasz kogoś kto napisze całe makro? Dodano po 1 Przygotowałem w zasadzie bardzo proste makro: Kopiuje Twój arkusz "x1" (nazwałem go "Template") i w nim zmieniam tylko dane. Nazwę nowego arkusza biorę z arkusza "Wyświetlenie odczytów" z kolumny A czyli "Lp." ale idzie to łatwo zmienić w kodzie (dodałem tam komentarz)...
Popieram kolegę adamasa. Można tez po podziale ale przed przypisaniem do konkretnych komórek arkusza do drugiego członu (tego z zerami) na początku dodawać apostrof - ale nie wiem jak jest zrobione makro dzielące główną daną więc ciężko doradzać.
Po Next dodać [syntax=vb] .Cells(w,1).value = .Cells(w-1,1).value + 1[/syntax] Powinno działać. Pamiętaj tylko, że gdy w = 1 dostaniesz error, bo spróbujesz się odnieść do Row = 0. Oraz, jeśli ta komórka nad nie będzie liczbą(bądź pusta), a spróbujesz do niej dodać 1. Można temu zapobiec dodając kilka If'ów. Jednakże myślę, że nie jest to takie znów...
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Dobra już widzę. Nie doczytałem postów. Muszę dodać nazwę arkusza. Teraz działa
Jeśli makro ma się uruchamiać automatycznie przy każdej zmianie to można do wydarzenia "change" w arkuszu dodać kod uruchamiający to makro, jeśli zmieni się zawartość komórki na "paid": [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Target.Value) = "PAID" Then wyczysc() End Sub[/syntax]
zmodyfikować 1 arkusz i dodać daty
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 No oczywiście otwiera się na konkretnej stronie - ale ja nie mogę zobaczyć Twojego makra.Czy to specjalnie ?? Mniejsza o to - najważniejsze nie wiem dlaczego nie możesz otworzyć mojego pliku ????? Jest z małą zmianą taki sam jak ten wyżej - a jego otwierali !! No chyba że dlatego że jest utworzony w 2007-demce. A co z tym dźwiękowym plikiem -...
Nie jestem orłem z Excel ale myśle że zrobie Makro Pozdrawiam i dziekuje za podpowiedz Dodano po 30 Makro
Makro działa prawidłowo dopóki nie przeniosłem go do makr osobistym, z uwagi na to, że jest mi potrzebne do przenoszenia arkuszy z innych skoroszytów. Niestety, po przeniesieniu, pojawia się wcześniej pokazany komunikat i makro się zatrzymuje. Oczywiście, tak jak wskazujesz, w tych swoich skoroszytach mam dodany arkusz o nazwie "Ostatni".
zmieńcie rozszerzenie na .xlsm - nie chciał dodać załączniak
Czasami się może zdarzyć że nie będzie np jednej współrzędnej np Z lub innej dowolnej: *110001+0000000000000056 81..10+0000000000587659 82..10-0000000000548326 Pasowałoby aby odpowiednia komórka pozostała pusta. Jeżeli są dwie współrzędne, to skąd wiadomo, której X, Y, czy Z brakuje??? Żeby uruchomić makro wystarczy dodać na arkuszu przycisk. Dodano...
Witaj Lista wartości jest gdzieś na arkuszu, lub musi być wykonane makro?
Witam aby w kolumnie D dodało ilość danego produktu do istniejącej już liczby nawet, jeśli inny kolor i kod2? aby wpisało do kolumny b i c (arkusza 1) wartości z odpowiedniego wiersza z arkusza 2 tak samo?
Jeżeli dobrze zrozumiałem intencje autora to tutaj raczej bez makra się nie obędzie. Oczywiście można użyć opcji wklej specjalnie->dodaj ale będzie to bardzo uciążliwe. W załączniku proste makro wykorzystujące zdarzenie Change arkusza , bez obsługi błędów i sprawdzania rodzaju danych wpisywanych do kolumny.
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
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...
sh.PivotTables("PivotTable1").RefreshTab... Dodano po 3 Jeśli arkusz ma więcej niż jednu tabelu For Each sh In ThisWorkbook.Sheets for each ppp in sh.PivotTables ppp.RefreshTable next next
Witam, chciałem przerobić pewne makro ale jakoś mi nie idzie :/ Chodzi o to by dodać takie polecenie aby makro przenosiło dane do odpowiedniego arkusza w odpowiednie pole. Czyli jeśłi w komórce A1 wpiszę "Arkusz10" to dane z pól C1 oraz D1 zostaną przeniesione do tego właśnie rkusza w odpowiedni wiersz który jest w polu B1 Jest to wykonalne ?
Ja zaproponuje takie wskazówki: Proponuję dodać jeszcze jeden arkusz (później ukryty) np o nazwie słownik. W arkuszu tym stworzył bym za np pomocą funkcji jeżeli(), licz.jeżeli(), max() i wyszukaj.pionowo() "aktywny" słownik firm na podstawie danych z arkusza "lista...". Tak zrobioną listę/słownik powiązałbym z pierwszym okienkiem wyboru w arkuszu głównym....
Przeglądałem, ale jakiś czas temu, po rejestracji (kilka miesięcy temu, z tego co pamiętam) :) Korzystam z forum po raz pierwszy. I mocno przeceniłem swoje umiejętności pisania makr w Excelu, a także okazuje się że również definiowania problemów :/ Dodano po 18 zamotałem się trochę :/ mam makro, które po wciśnięciu Przycisku CommandButton dodaje arkusz...
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...
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Koledzy potrzebuje makra, które będzie łączyło/dzieliło tekst w kolumnie. W pliku o nazwie "format_0" mamy dane liczbowe, zaczynające się od liczby zero lub bez liczby zero i potrzebuje aby makro dodało tą liczbę zero na początek lub usunęło ta liczbę zero z początku, wszystko zależy od potrzeb. Wzór w arkuszach o nazwie "Dane". Makro ma zadanie dodać...
Nie wiem jak dziękować! Działa! Trochę poprzerabiałam pod mój arkusz i żeby nie było przycisku kopiuj tylko makro uruchamia z automatu ale działa! Serdecznie dziękuję:) Dodano po 3 Użytkownik PRL pomógł
Excel 2016 Dodano po 1 A może makro zastosować?
a proszę zerknąć na screena co tak naprawdę kod zrobił Myślałem że to zamierzone (bo nie znam całego kodu) - choć jak się teraz okazuje nieświadomie. (więcej szczęścia :) ) Użyłeś odwołań względnych - poza tym formatowanie warunkowe ma pewne mankamenty jeżeli chodzi o adresowanie bo odwołuje się do zaznaczonej wcześniej komórki (a w makro nie ma żadnego...
Bardzo dziekuje, dziala! Jeszcze tylko potrzebowałabym zmienić to makro tak, aby dzialalo w każdym z arkuszy, a nie tylko w jednym, aktualnym, tak, żeby nie musiec podpinac go za każdym razem, w przypadku dodania do pliku nowego arkusza..
Nie zaznaczam zbiorczo wszystkich arkuszy i tak drukuje. Sytuacja ma miejsce jeśli wybiorę ręcznie jakieś określone arkusze i dam drukuj aktywne arkusze to drukuje dwustronnie. W moim makro nie ma aktywnych arkuszy więc może to jest przyczyną wydruku pojedynczego. Jutro wypróbuję twoje makro i się odezwę. Dodano po 15 Niestety makro "zbiorczo" nie działa....
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...
Na arkuszu "Nowa Hala Cyl." przypisać jedną komórkę dla indeksu, np. O1 Na arkuszu "Etykieta" w komorkach odwolania do arkuszu "Nowa Hala Cyl." np. dla C29 =INDEKS('Nowa Hala Cyl.'!H:H; 'Nowa Hala Cyl.'!O1) W kodzie arkusza 'Nowa Hala Cyl.' wpisz kod Dodano po 27 Edit Umieść kursor w wierszu, który chcesz wydrukować i kliknij przycisk
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
To jak ten kod bym całkiem uprościł. Jeżeli staniesz na dowolnej komórce a makro "cos" podepniesz pod przycisk (lub kod ze środka procedury cos przekleisz do procedury przycisku) to po przyciśnięciu albo ci napisze że nie ma arkusza albo przerzuci do danego arkusza. Wtedy też funkcja "Last" nie jest potrzebna. Sub cos() Dim Nazwa As String Nazwa...
Makro tworzy listę produktów (jeśli trzeba dodaj sortowanie), następnie sprawdza arkusze od 7-go wiersza i 3-ciej kolumny. Jeśli zmieniasz układ, wyjdzie... bałagan. Przeanalizuj, dostosuj do własnych potrzeb. Makra w Excelu oczywiście włączone.
Kod który podesłał kolega PRL nie działa nic nie kopiuje Proszę uzasadnić. P.S. W załączniku dodałem przycisk, żebyś wiedział, jak użyć makro...
Super bardzo fajnie to działa sprawdziłem dodałem kolejne zdublowane makro ze zmienioną nazwą arkusza i działa. Jest jeszcze pytanie jeśli zmieniłem nazwy wszystkich arkuszy makrem na podstawie listy z arkusza1 poprzez dodanie w menadżerze nazw pod nazwą ListaArkuszy formułę [syntax=vbscript]=ZASTĄP(O.SKOROSZYCIE(1...
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
A czy zadziała to w wesji Open Office? Nie. W OO nałeży napisać inne makro. Dodano po 1 tak mam To jak myślisz, dlaczego makro nie zadziałało? ;) Nie odpowiedziałaś na pytanie o wersję Excela!
jeszcze jedno pytanie - a jak je przerobic zeby dzialalo nie na arkuszach na ktorych zostalo uruchomione ale jako czesc duzego makra tworzacego nowy skoroszyt i usuwajacym z tego nowego skortoszytu te arkusze Dodano po 7 dzieki za pomoc, juz zrobione pozdrawiam Marek :)
Ok, dziękuję za objaśnienei! :) A czemu wyrzuca mnie z Excela kiedy odwołuję się do makra Nowy_skoroszyt_1(), które samodzielnie działa poprawnie? Set my = Workbooks("Truck.xls").Sheets("Aero") wyrzuca mi błąd Run-time error "13": Type mismatch :( Błąd typu zmiennych - niezgodność typów. Duże pole do gdybania, bez "materiału porównawczego". Może to...
Witam. Próbuję do kontroli kontrolki ActiveX (foto) w arkuszu dodać foto z jakiejś lokalizacji przez makro. Nie potrafię sobie z tym poradzić, proszę o pomoc jak to zrobić. W załączniku dodaję plik e którym próbuję t zrobić
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Witam. W której części wiersza? makro które kopiuje wybrane wiersze z innego arkusza Jak go zobaczyć?
:) To działą bez makr - sprawdź - tylko że po dodaniu/wykasowaniu kodu w kolumnie zwroty należy w arkuszu dane i kolumnie pomoc w autofiltrze wcisnąć jeszcze raz pokaź tylko X tu nie ma automatyki tzn. automatycznie pojawi się X przy danej umowie ale niestety autofiltr nie jest automatyczny.
Witam Część mojego makra w pętli otwiera pliki, kopiuje z nich kolumny, wkleja i wkleja do arkuszy w pliku z makrem [syntax=vbscript] For i = 1 To .SelectedItems.Count Set wkb2 = Workbooks.Open(.SelectedItems(i)) 'TU wytępuje ostatni raz With wkb1.Sheets(tblArkusze(i - 1)) .Visible = True End With With wkb2.Sheets(1) .AutoFilterMode = False .Columns("A:N").Copy...
Chcialem dołaczyc plik ale nie mogłem zaraz sprobuje jeszcze raz wraz z opisem o co mi chodzi. Niestety po kliknieciu dodaj zalacznik nic sie nie dzieje.
Wystarczy w module wpisać Sub cyk() Calculate Application.OnTime Now + TimeValue("00:00:01&quo... "cyk" End Sub w jakiejkolwiek komórce arkusza wpisać =teraz() (sformatować żeby było widać sekundy) i uruchomić makro cyk a zacznie pokazywać "na bieżąco" bieżący czas A czas w różnych miastach: Dodaj/odejmij do komórki...
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")...
Na tej samej. Czyli na tej 'arkImport.Copy after:=arkImport' Wychodzi na to, że to wina sieci, żeby zadziałało makro to musi utworzyć sobie plik tymczasowy, zobacz czy masz wszystkie uprawnienia dodane.
Witam, chciałbym napisać makro które gdy klikniemy button zapisze arkusz pod nazwą podaną w komórce a2 i przed zapisem w komórce a3 doda datę a w komórce a4 godzinę zapisu oraz dodatkowo ustawi brak możliwości edycji komórki a3 i a4 - chronione hasłem. Jest taka możliwość??? Proszę o pomoc
makro zapętla nieskończenie tworzenie arkuszy Dodano po 4 działa!!!! Dziękuję bardzo. Posiedzę teraz i popracuję nad formatowaniem itd :) Dodano po 6 Jeszcze mam pytanie, a jak zrobić aby wyliczało średnią dla każdej linii, tzn dla komorek Arkusz1 D1, Arkusz2 D2 itd. I tak dla każdego wiersza. Wartość średniej aby była zwracana do Arkusza 1
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...
Dzień dobry, Napisałem Panu makro o nazwie Konta, które powinno robić to co Pan chciał. Sprawdza ono kolumnę z nazwami i kończy pracę gdy tam będzie puste pole. Wywołanie tej procedury dodałem na końcu makra, które ma Pan przypisane do przycisku. Gdyby chciał Pan je wywoływać niezależnie może Pan sobie zdefiniować drugi przycisk. Próbowałem to makro...
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...
Proste Makro pięknie działa, ale po przypisaniu do wydarzenia arkusza,chyba się zapętla,(nie mogę dojść dlaczego?)Kombinowałem już na wiele sposobów Główny problem to jest uruchomienie makra przez aktywację arkusza "ZALEGŁOŚCI" A gdzie jest ten magiczny 'aktywujący' kod dla arkusza "ZALEGŁOŚCI"? Dodano po 58 Zadałem Koledze pytanie o zasłyszanym 'select'....
To z makro. trochę długo się reaguje, ale to jest możliwe w celu zoptymalizowania Aj... dodano jeden arkusz, nie wiem czy dobrze będzie w polskiej wersji Excel
1. Jakie są przeszkody, aby umieścić wszystkie trzy Tabeli na jednym arkuszu? Dodano po 11 2. Sprobuj do exportu ActiveSheet.PageSetup.Orientation = xlLandscape
Witam Dziękuje za makro. pkt poszył.zamykam temat. Dodano po 38 Temat rozwiązany
Można uzyskiwać również dostęp do danych w plikach zamkniętych Przecież wyszukaj.pionowo działa na zamkniętych skoroszytach i nie trzeba cudować z makroexcel4. Jak pominąć to otwierające się okno, aby makro samo otwierało plik i pobierało wartość? Masz źle zrobione odwołanie do skoroszytu (baza), oprócz samego pliku musisz jeszcze dodać z którego arkusza...
Najpierw należy wybrać arkusza(np. Sheets(2).Select), a następnie komórki - Range("C1").Select Dodano po 1 albo Application.Goto Sheets(2).Range("C1")
Witam, Potrzebuje wykonać makro, które usprawni mi pracę :) Chce uzyskać: - po wpisaniu numeru zwrotu w osobnym arkuszu otrzymuje zestawienie zwrotów towarowych( zwrotów jest kilka). W arkuszu 1 wpisuje interesujące mnie zwroty - w arkuszu 2 jest baza danych (sklep, index, WZ, powód zwrotu, numer zwrotu,termin przydatności, ilość)- nie koniecznie wszystkie...
w takich przypadkach używam 'PODAJ.POZYCJĘ' i 'INDEKS' w linii w przypadku, gdy nie ma błędu(jest dane), pracują na zamkniętych arkuszach. Dodano po 3 takiego makra VBA ,które przyśpieszyło by to wyszukiwanie ? funkcje arkusza zawsze szybciej niż makro
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
Tak najprościej: On Error Resume Next 'wyłącza błąd jeżeli wpiszesz daną której nie ma w arkuszu 2 a = Sheets(1).Range("a1&quo... 'pobranie ciągu znaków z komórki A1 pierwszego arkusza w excelu kol = Sheets(2).Cells.Find(What... ' numer kolumny wpisanego ciągu znajdujacego się w drugim arkuszy excela...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Wstawiłem CheckBox z zakładki Formanty ActiveX Dodano po 4 Co to znaczy podlinkowanie do sąsiednich komórek?
Zauważyłem pewną zależność, w pliku zlecenie Cent znajduje się przycisk zmiana zlecenia, ma on za zadanie dodanie nowego arkusza i takie tam ale jedną z rzeczy które wykonuje to podmiana makra pod przyciskiem "zakończ zlecenie". I w tym momencie gdy wywołam makro o nazwie "zakończ zlecenie pozmianowe" rejestr na samym końcu wysypuje się, gdy wywołam...
No panie strzał w dziesiątkę. Dzięki. Dodano po 1 Problem rozwiązany zamykam.
makro nazwa arkusza makro zmiana arkusza makro kopiowanie arkusza
uszkodzi czujnik spaliny wykorzystanie zasilacza drukarki siemens spieniacz mleko
hewalex sterownik hewalex sterownik
Aktualizacja dekodera Viva Max - jak sprawdzić? Jak podłączyć licznik motogodzin w traktorze?