W załączniku rozwiązanie. Nie wiem, czy to wszystko. zeby sie pojawialo zestawienie na najblizsze 3 miesiace Jesteś w stanie przygotować wzór tego zestawienia?
Kod VBA działa, więc problem tylko z harmonogramem. Może do innego działu?
Wklej w kod arkusza :[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "C47" Then If LCase(Target.Text) = "przelew" Then 'Przelew, PRZELEW, przelew Rows("48:49").EntireRow.Hidden = False Else Rows("48:49").EntireRow.Hidden = True End If ElseIf Target.Address(0, 0) = "C47:E47" Then 'jeśli pusta też ma odkrywać to...
Chciałabym, aby odpowiednie komórki automatycznie uzupełnić odpowiednimi odniesieniami do sąsiedniego arkusza. VBA fajna rzecz - warto się poduczyć :D , lecz póki co dla Twoich celów wystarczy wykorzystać prostą funkcję :spoko: 897374 3 formuły jak na zrzucie możesz kopiować do następnych kart.
Można to prosto zrobić na funkcjach + formatowanie warunkowe, jak zaproponował adamas_nt . Gdybyś jednak upierał się przy VBA - też można: [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False ost_data = Cells(Rows.Count, 2).End(xlUp).Row 'wyczyszczenie starych danych With Range(Cells(1, 3), Cells(Rows.Count, Columns.Count))...
[syntax=vbscript]Sub dodaj() ThisWorkbook.VBProject.References.AddFro... _ "{0002E157-0000-0000-C000-000000000046}"... 2, 0 End Sub[/syntax]
Panowie liczę na waszą pomoc. Doliczyłeś się.
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
Przede wszystkim powinnaś załączyć plik Excela a nie obrazek. Na obrazku nie da się nic policzyć ani sprawdzić. A merytorycznie - po co tu makro? To ma być jakaś wprawka w pisaniu makr? Do tego typu obliczeń służą funkcje lub formuły - wystarczą funkcje wbudowane, ale jeśli ktoś woli, to może sobie napisać własną funkcję w VBA, tzw. funkcję UDF (user...
Natomiast mam pytanie. Ponieważ gdy chce drukować ten dokument zawsze dostaję informacje że marginesy są błędnie ustawione i czy chce kontynuować wydruk Podmień makro do drukowania i zobacz. [syntax=vbscript]Sub PrintToSpecificPrinter() Dim PrinterName As String PrinterName = "STL-TE100" ' Save the current active printer Dim currentPrinter As String...
Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...
Mi jednak chodzi o to by makro się samo uruchamiało. Tu masz makro, które monitoruje określony zakres pod kątem zmiany. Dodaj do tego kod swojego makra sortującego. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set...
Można do tego wykorzystać makro zdarzeniowe, na przykład takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range Application.EnableEvents = False For Each cel In Target If Len(cel) > 0 Then If Left(cel, 1) <> "'" Then cel.Value = "'" & cel.Value End If Next cel Application.EnableEvents = True End Sub...
HiFi-Man , powinieneś odróżniać makra (makroinstrukcje) od funkcji, bo Twoje pytanie jest przez to niezrozumiałe. Makro to działanie wykonywane jednorazowo, doraźnie. Po wykonaniu wynik ma najczęściej formę stałej (liczby lub tekstu). Makro można powiązać ze skrótem klawiaturowym i uruchamiać go za pomocą tego skrótu. Z kolei funkcja (lub w tym przypadku...
dla przycisku tak daj takie samo makro tylko zamień True na False
jakies makro tez bylo by spoko moze nawet lepsze
Excel nie jest, i nikt w MS nie obiecywał, nie jest narzędziem do developmentu oprogramowania, np sieciowego
Zamalować wszystkie owale czarnym recznie. Dodano po 1 następnie makro wszystko zrobi
Przetestuj makro z załącznika.
Ale makro działa , a co to ten 'CommandBoxa'?
Jeśli tylko ukryć wartości, to najprościej "zabielić" czcionkę za pomocą formatowania warunkowego. Jeśli wynik formuły, to warunek podobny do numerowania wyżej. Jeśli zablokować przed edycją, to jedynie makro w procedurze zdarzeniowej.
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierw szy wolny wiersz Proponuję przeanalizować podobne (archiwizujące :D ) makro z postu :idea: https://www.elektroda.pl/rtvforum/viewto...
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Kurczę .. dopiero teraz przez to przebrnąłem a i tak nie jestem zadowolony do końca z efektu. Dwa dni nad prostym makrem - łał. Niby basic ale za małą mam wiedzę. Poniżej przykład w OpenOffice Działa podobnie jak w excelu Nie moge wyrównać do prawej okienka ilości. Pomimo zaznaczania do prawej w edytorze po zapisie i ponownym otworzeniu znów jest do...
W momencie pisania posta nie widziałem Twojego przykładu ... Po drobnych poprawkach makro dostosowałem do Twoich potrzeb. Łącza formantów znajdują się w arkuszu2.
Dla zakładki z kamerą nadajesz nazwę etykiety (właściwości zakładki). Potem.. konfigurujesz wyzwalacze (po lewej stronie w drzewie projektu). Tworzysz wyzwolenie z konkretnego wejścia i przypisujesz do niego makro. Makro to zawiera opcję "Przełączenie zakładki". Następnie tylko podajesz nazwę tej zakładki (z etykiety). To powinno wystarczyć.
Nagraj makro w exelu jak wysyłasz wiadomość outlukiem, krok po kroku. Adres do wysłania bierzesz z komórki exela i wszystko co potrzebujesz. Będziesz miał kod. Potem można pozamieniać co trzeba aby działało np. tak że podajesz wiersz z adresem i samo wysyła. Tu też masz opis: https://support.microsoft.com/pl-pl/offi...
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
Czemu jak już zrobiłeś przykład nie załączyłeś go do postu? (spakuj na przyszłość zipem i załącz) Po prostu wykorzystaj funkcję wyszukaj.pionowo() Zamknąłem w pętli i sprawdza po kolumnie M czy wysłano (dlatego tez na końcu pyta czy wysłałeś. Poniżej z paroma "wodotryskami". Makro nie sprawdza poprawności adresu mailowego więc jeżeli będzie zły a ty...
Potrzebuję makra które sprawdzi czy dla tego samego numeru są 3 następujące po sobie daty. No to makro koleżanka już ma od kolegi (at)dt1 :D Moim zdaniem takie zadanie można wykonać przy pomocy kilku formuł w arkuszu analitycznym :idea: 1014985 i stworzyć łącza automatyczne w arkuszach klienckich do ustaleń analitycznych :spoko: 1014986 W załączonym...
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....
Hmm, wywołują mnie tu do tablicy :) Rozumiem, że już jakieś makro działa... Z tego wynika, o czym już kolega Tommy82 wspomniał, że należy do makra dopisać instrukcję warunkową. A właściwie umieścić Twoje makro w gałęzi Else. Schemat: If IsNumeric([A]) then [X]=[B].value Else tu Twoje makro End If Jesli makro jest w innym skoroszycie wywołujesz...
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
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...
Tak, dokładnie o coś takiego chodziło. Tylko Skąd i Dokąd bym na dwie kolumny rozbił (zakładając że chcesz je mieć potem w raporcie). Nazwy mają się powtarzać. Teraz możesz np. zrobić tabelę przestawną jak w załączniku: http://obrazki.elektroda.pl/2261331300_1... popróbować z różnymi funkcjami czy nawet próbować jakieś makro napisać,...
Podmień linijkę wklejania. Podaję cały blok copy-paste dla porównania kolRight = Range("d2").End(xl... Range(Cells(wrsLeftTop, 4), Cells(wrsLeftTop + 1, kolRight)).Copy Range(Target.Address).Offset(... 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode...
A może być w dodatkowym arkuszu cała "baza" nazwisk i przypisanych im specjalności - i tam byś wpisywał nowych a w przedstawionym arkuszu wybierał byś tylko nazwisko. Czy jednak to ma działać ściśle tak jak napisałeś czyli jeżeli wcześniej wystąpiło nazwisko to ma się pojawić obok specjalność jak nie to czyste pole oczekujące na wpis. - jeżeli tylko...
Takie makro w gruncie rzeczy jest banalnie proste: [syntax=vb]Columns("F:F").ClearContents ost_w = Cells(Rows.Count, 1).End(xlUp).Row poz = 2 For i = 2 To ost_w For j = Cells(i, 2).Value To Cells(i, 3).Value Cells(poz, 6).Value = Cells(i, 1).Value & j poz = poz + 1 Next j Next i[/syntax]
https://obrazki.elektroda.pl/8567963000_... Witam i przedstawiam kolejny mój projekt. Tym razem z obszaru innych moich zainteresowań. Stacker dla osób, które nie są w temacie pozwala na robienie serii zdjęć makro. W zależności od obiektu mogą to być zdjęcia makro robione typowym obiektywem ze skalą odwzorowania 1:1, np. grzybów, kwiatów...
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
A jaki windows? Bo to nie jest normalne - normalnie zostaje w tle. Jeśli okno z excelem znajduje się nad oknem programu fakturującego to normalnym jest to, że po przejściu do okna z programem fakturującym Excel schowa się pod spodem. Wydaje mi się, że autor po prostu pomylił minimalizowanie z zasadą "zawsze na wierzchu". (at)wojtas_73 - spróbuj do...
... 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...
teraz juz jest plik:) a Access 2010 - popatrze co tam podeslales...
hmmm może dałoby się napisać jakieś makro w programie AutoIt ping 2 komp jak odpowiada znaczy że włączony wtedy uruchom netlimiter http://www.autoitscript.com/autoit3/ z tym ,że włączałby ci dzielenie łącza niezależnie czy tamten obciąża łącze czy nie Dodano po 57 znalazłem taki programik Netlistener http://eng.somebytes.de/netlistener.php o ile dobrz...
To zależy ile docelowo przewidujesz wierszy w tabelce. Jeśli nieokreśloną, to tylko VBA...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
A po co do tego makro? Można to zrobić prostą formułą w kolumnie I: =if(isblank(h1);na();now()) Kolumnę formatujesz jako "czas" i tyle.
Witam. Owszem jest to do zrobienia...mało z tego całkiem prosto :D... Zacząć nalezy od makra, które tworzy nowy arkusz...nastepnie wklejane są dane i numer...nastepnie wydruk arkusza o numerze [ilosc arkuszy]...nastepnie zamkniecie arkusza o tym samym numerze... a wszystko w pętli aż do natrafienia na pusty wiersz - bez danych
Witam, Używam raportu w EXCEL (querying microsoft sql server 2012) który zaciąga dane z serwera zewnętrznego. PO wyłączeniu raportu i włączeniu ponownie dane są zaciągane, tak samo sytuacja ma się jak kliknę na ikonę "Refresh Sheet" HistClient w zakładce "HISTORIAN". Chciałbym dowiedzieć się czy jest możliwość stworzenia programu w makro który będzie...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
automatyczne makro zakładka makro automatyczne excel makro automatyczne uruchamianie
kalkulator telefonu tosca programator canon router
ustawienie falownika anenji ustawienie falownika anenji
Ustawienie krzywej grzania Buderus - zmiana początku Błąd 00537 - Regulacja czujnika lambda w VAG
