Napisać kod w VBA z obsługą błędów. Niech makro jedynie wywołuje ten kod.
[syntax=vbscript]Sub MW() Sheets("Arkuszgłówny").Select ow = Cells(Rows.Count, "F").End(xlUp).Row m = 19 w = 19 For x = 16 To ow a = Cells(x, "F") Select Case a Case "M" m = m + 1 Range(Cells(x, "H"), Cells(x, "I")).Copy Sheets("Tylko M").Cells(m, 1) Case "W" w = w + 1 Range(Cells(x, "H"), Cells(x, "I")).Copy Sheets("Tylko W").Cells(w, 1) End Select...
Zlitowalem się nad VBA i wyrzuciłem formatowanie komórek/zakresu poza ostatnią pętlę, bo pierwotnie było wewnątrz. Reszty już nie poprawiałem. Trzeba jeszcze zwrócić uwagę na E1, bo sumowało daty (??)...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160829 Const xRg As String = "A1:DA18000" Dim strOld As String Dim strNew As String Dim strCmt As String Dim xLen As Long With Target(1) If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub strNew = .Text Application.EnableEvents = False Application.Undo...
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
A czy można i jak zapisać aby działało w całej kolumnie? W kolumnie, wierszu, zakresie, poza zakresem. Jak sobie życzysz. Po wpisaniu 'Target' i postawieniu kropki w edytowanym kodzie, otworzy się lista rozwijalna z własnościami i metodami. M.in. Address, Column, Range, Row, itp. W niemal każdym przypadku będzie nieco inna składnia zapisu. Można o...
Witam Ja dodam od siebie pozbądź się wszystkich selectów kieruj bezpośrednio do komórki np ten zapis można skrócić z [syntax=vbnet]Arkusz4.Activate Range("A6").Select 'Selection.End(xlDown).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("roboczy").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False[/syntax]...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Target.Offset(0, -2) = Date Target.Offset(0, -1) = Year(Date) & "/" & Target.Row - 1 End If End Sub
Nie chce mi się pisać od początku, więc przerobie to twoje :) Dla takiego układu, jak w załączniku [syntax=vbscript]Sub nazwiska() Dim wsP As Worksheet, ws1 As Worksheet Dim i&, d&, k& Set wsP = Sheets("Wykaz pracowników") For a = 2 To Sheets.Count Set ws1 = Sheets(a) k = 3 c = 3 + d b = 12 + d For i = c To b ws1.Cells(7, k).Value = wsP.Cells(i, 1).Value...
Po pierwsze - musisz zapisać plik jako "Excel Macro-Enabled Workbook". Tak na marginesie - do tego nie trzeba VBA, ale skoro chcesz: [syntax=vb]Sub aaa() Range("I1") = 0 Range("I2:I250").FormulaR1C1 = "=RC[-3]/R[-1]C[-3]-1" End Sub [/syntax]
Może napisanie makra w excelu rozwiąże sprawę.
Spróbuj czegoś takiego: [syntax=vbscript]Sub Rozwiñ6_Zmienianie() Dim rn As Range Application.ScreenUpdating = False 'Range("a1").Value = InputBox("które dane pokazac") 'Range("a1").Value = Range("b3").Value Range("c502:c800").EntireRow.Hidden = False Dim rng As Range For Each rn In Range("c502:c800") If rn = Range("A492") Then If Not rng Is Nothing...
Na początku procedury wyłącz odświeżanie (1), na końcu włącz. Jeśli masz oprogramowane zdarzenia arkusza lub funkcje użytkownika w arkuszu, to wyłącz także zdarzenia (2). [syntax=vb]Application.ScreenUpdating = False '1 Application.EnableEvents = False '2 i = 1 Do ... Loop Application.EnableEvents = True Application.ScreenUpdating = True[/syntax]
Tak jak pisał kolega PeteSh - spróbuj zmienić poziom zabezpieczeń makr w samym Excelu. Mam E2003 pod ręką, więc podpowiem: MENU Narzędzia -> Opcje -> Zabezpieczenia -> (przycisk) Bezpieczeństwo Makr Poziom średni będzie odpowiedni (otwierając plik z makrem można decydować, czy makra będą działać). Jeśli się tego nie da zrobić, to jednak pozostanie Ci...
Można np. tak:[syntax=vbscript]If WorksheetFunction.CountIf(Columns("D"), "001/2015") > 0 Then If MsgBox("Numer istnieje. Kontynuować?", vbQuestion + vbYesNo) = vbNo Then MsgBox "Przerywam" Exit Sub End If End If MsgBox "Dalej..."[/syntax]
[syntax=vbnet]Sub Pobieranie_IL2() 'otwieranie pliku źródłowego Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*;...
Przy otwieraniu trzeba dodać parametr [syntax=vbscript]Local:=True[/syntax]Sta... VBA oczekuje angielskiej wersji pliku .csv z przecinkami, więc średników nie traktuje jak separatory. [syntax=vbscript]Workbooks.Open ThisWorkbook.Path & "\" & "1.csv", Local:=True[/syntax]
Jak załączysz plik wtedy można zerknąć i poprawić makro. Przynajmniej wklej kod makra które ma za zadanie wkleić (przenieść) dane. Do zamiany tekstu w cyfrę w kodzie VBA należy wartość z okienka zamknąć w poleceniu-konwerterze VAL() np Cells.(5,i).Value = Val(Forms1.Textbox1.Value) Ale proponuje to na ślepo bo nie mam pojęcia jaki jest kod makra.
... [syntax=vbscript]Else MsgBox "Duplikat", vbExclamation, "Etykieta wprowadzona" a = Application.Match(Target, Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) ActiveSheet.Unprotect Application.EnableEvents = False Rows(a).Delete Target = "" Application.EnableEvents = True ActiveSheet.Protect End If[/syntax]
Jak kolega wyżej - nie da się ;) Zerknij[url=http://www.elektroda.pl/rtvf... tutaj. Może takie rozwiązanie będzie właściwe (miniaturkę możesz upchać w komórce).
Wykonanie makra EXCEL tylko w dzień roboczy
Brawo. To teraz będziesz też wiedzieć, jak nagrać makro. [url=https://www.youtube.com/results?sea...
Makra VBA są wbudowane w outlook? Nie tylko w Excel'a :) Od tej strony będzie znacznie łatwiej moim zdaniem.
[syntax=vbscript]Image1.Picture = LoadPicture(sciezka & "\Dokumenty\Podpisy\" & nazwa & ".jpg")[/syntax]
A skąd ja mam wiedzieć, czy tak ma być?:) To Ty piszesz to makro. Możesz też tak, jak w załączniku.
Jeżeli pytasz o rozszerzanie tabeli to tak: wszystko wpisane zaraz obok i zaraz pod będzie rozszerzało tabele, a tabela przestawna będzie automatycznie rozszerzała zakres. Jeżeli masz n plików, które są takie same czyli mają spis części na każdą maszynę to warto by było liznąć trochę Power Query. To pozwoli Ci połączyć dane z wielu plików w jedną tabelę...
Wyszukiwanie wartości / vba z guzikiem
Proponuję takie proste makro:[syntax=vbscript]Sub Przenoszenie() Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Arkusz1") Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Arkusz2") Dim tbl As Variant Dim lr As Long tbl = ws1.[e5:z5] With ws2 lr = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(lr, 3) = .Cells(lr - 1, 3).Value + 1 .Cells(lr,...
dziennie może być od 30-60 i do każdego będzie osobne rozliczenie Jeśli tak :cry: to proponuję inne rozwiązanie budowy pliku z arkuszami oznaczonymi nazwą (lub kodem) klienta i datą ważenia :D po wypełnieniu tabelki danymi - makro (uruchamiane skrótem ctrl+r ) zrobi raport dla tego arkusza oznaczy go stosowną nazwą i przygotuje następny szablon do...
Powyżej około 300 wierszy potrzebuje trochę czasu na przeliczenia. Wiem bo korzystam codzienie z podobnego makra
Zacznij to opisywać trochę bardziej formalnie, np Y i N to w Excelu kolumny a nie komórki. Chcesz stworzyć makro, ale gdzie? Makro samo nie zadziała musi być w jakimś pliku. Co to znaczy "automatycznie"? Ma się samo odpalać (np według zegara), czy użytkownik ma je odpalać? Zrozumiałem, że makro powinno przenieść dane z jednego pliku do drugiego, dopisując...
Witaj. To jest bardzo trudne. Składnia jest zupełnie inny. Rejestrowanie makra w Libre i zobacz.
Mialbym prosbe o wyjasnienie dzialania ponizszego zapisu (dodatkowo dodano rysunek) W pomocy Excela nie moglem znalesc odpowiednich opisow. https://obrazki.elektroda.pl/8058282500_... Sub Makro2() ' ' Makro2 Makro ' Makro zarejestrowane 2012-02-26, autor XXX ' ' Klawisz skrótu: Ctrl+a ' Dim pierwsza Dim ostatnia pierwsza = Range("D3").Column...
Zarejestruj jakieś makro, wejdź w jego edycję i wstaw tam swój kod. Jak jest poprawny to będzie działał.
bo nie zakończyłeś "With" cały blok musi się kończyć "End With".
Witam, rozumiem twoje pytanie, ale tak jak napisałem "świadomie chce to usunąć" moje makro otwiera plik do momentu kiedy przestaje być aktywny tryb "tylko do odczytu" i zapisuje dane niestety z końcowym komunikatem nieświadomy użytkownik klika "Do odczytu i zapisu" i dupa użytkownik otwiera plik i może dowolnie edytować dane a moim zamiarem jest ochrona...
Oj, coś słabo Kolega google przetrząsał ;) Z jakiego pliku te dane? O stałej nazwie? Skoro obojętne to rozumiem że ktoś je tam wpisuje ręcznie? Jeśli tak to niech wpisuje do xls'a a wykres to już chyba sobie dorobisz? :) Próbowałeś nagrać makro w Excelu i podpatrzeć kod?
Witam. Jak zmusić excela do uruchomienia makra przy zmianie danych w komórkach ? Potrafię to zrobić gdy dana zmieniana jest "z ręki" Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = wiersz And Target.Column = kolumna Then 'Tu procedura do wykonania End If End Sub Jak zrobić to samo w sytuacji gdy dana zmienia się...
Witam Mam już gotowe makro ale ma ono zasięg tylko do 12 kolumny w dół chciałbym to zwiększyć . Jestem w kropce, jeśli ktoś potrafi mi pomóc to bardzo prosze. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Value <> 0 Then If Not Intersect(Target, Range("rngPlus")) Is Nothing Then If Target.Offset(0, -1)...
Nie umiem robić makra w Excelu. Domyślam się, że ten program sam Pan zrobił. Czy możemy się jakość dogadać w kwestii udostępnienia?
Jak zrobisz już te różne makra, które się mają uruchamiać warunkowo to wrzuć tutaj. Pointeresuj się trochę edytorem makr i językiem VBA. Formularze to nie tylko przyciski którym się przypisuje nagrane makra. Makra są zapisywane w języku VBA. Można je pisać samodzielnie bez nagrywania, lub nagrywać i dowolnie edytować (np. wstawić jakieś warunki "if")....
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Tam zapewne brakuje Else (nie testowałem): [syntax=vbnet]Sub Printing() Target = Sheets("Centrum").Range("G7").Value If Target = "All" Then For Each s In Sheets(Array("GREEN", "BLUE", "YELLOW", "GREY", "BLACK")) s.Visible = True s.PageSetup.PrintGridlines = True s.PrintOut Copies:=1, Collate:=True s.Visible = False Next Else With Sheets(Target) .Visible...
Jest zdecydowanie prostszy sposób. Jezeli Rs232 jest obsługiwany kontrolką MSCOMM32.ocx to można przypisać zdarzenie do wykrycia np dtr enable albo rts...czyli piny sterowania transmisją samego rs232 mogą to robić... W razie problemów proszę pisać na maila
Witam. Modyfikacja nowa
a potrzebuję szybko tego makra Na szybko, to można ukrywać bez makra...
Powinno być na końcu, ale po dodaniu wszystko jest tak samo. Wykonuje komórka po komórce:(
Nie. W makrze w pliku b dodajesz parametr który przyjmuje procedura makra. gdy makro wywołujesz z pliku A to ustawiasz ją na True a gdy z B na False. Można też ustawić parametr jako optional i wartość domyślną na false, wtedy bez jego podania będzie miał false...
Witam, chcialbym aby przy kazdym ponownym uzyciu makra adres komorki do ktorej wpisuje dane zwiekszal sie o jeden. Range("B2").Value = 1 I przy nast. uruchomieniu adres poiwnien wynosic B3 ;
Najprawdopodobniej Makro nie jest zapisane w tym skoroszycie i dlatego nie działa na innym komputerze.
Witam. :arrow: Korek_123 Ponieważ Excel >=2007 zapisuje w formacie xml, następnie ukrytych wierszy i kolumn dla każdej linii ponad milion jest zapis "ukryte = 1 " i jest coś innego. Spróbuj zapisać w formacie binarnym. Ale różnica jest mała. P.S. Osobiście używam Excel97, maksymalno 2003. W każdym razie mój projekt, inny Excel otworzy. Edit: Ale spójrz...
Zamiast Private Sub , zostaw "zwykłe" Sub, a na samej górze wpisz Option Private Module Wszystkie makra w tym module "znikną" z listy.
Efekt "uporządkowania" - jak na zrzucie 951257 danych zapisanych w arkuszu 1 (u Ciebie "przed") można uzyskać poprzez przekształcenie tabeli do arkusza 2 (u Ciebie "po") przy pomocy makra (uruchamianego skrótem ctrl+b) - jak w załączonym pliku. 951258
Witam wszystkich Chciałbym stworzyć plik w Excelu, do skanowania przesyłek (paletyzowania). A mianowicie wyglądałoby to tak: Jest 7 kierunków, które z linii głównej automat dzieli przesyłki na 5 zjazdów, dzieli je po unikatowym numerze zaznaczonym na zdjęciu, Paczki są przeze mnie paletyzowane i tu potrzebuję kontroli w postaci skanu na paletę, abym...
Ale na czym właściwie polega problem? Makro1 zawiera metodę Add i powinno działać w wersji 2010 i późniejszych i u mnie działa w 2010 i w 365. Makro2 zawiera nowszą metodę Add2, która nie dziala w wersji 2010, ale tu jest niepotrzebna. Więc używaj Makra1, chyba że są jakieś inne problemy, których nie wskazałeś.
No, ale skądś się ta lista w kol.A wzięła. Jeśli jest wynikiem działania makra, być może łatwiej/szybciej byłoby to makro zmodyfikować (uzupełnić w podprocedury)...
No dobra ;) Generalnie każdą formułę można wstawić makrem, wystarczy ją nagrać macro recorderem i troszkę zmodyfikować. Dla WYSZUKAJ.PIONOWO jest to coś takiego: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Arkusz1") ost_wiersz = .Range("A"...
Kolega moderator (przy całym szacunku dla rozwiązania) mija się z prawdą. To nie tylko makro, ale i kod VBA - prawda? Być może nieświadomie. Makra zawsze wiązałem z programowaniem w VBA (lub rejestrowaniem, co w wyniku daje również kod VBA). Jeśli da się realizować makra w excelu inaczej niż przez VBA to chętnie się dowiem jak :)
Przeczytaj w pomocy VBA Union
[syntax=vb] Sub sub_OpenFolder() Dim str_folder As String str_folder = "C:\Temp" ' folder do otwarcia Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub [/syntax]
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Wyłącz makra w Excelu i uruchom plik wtedy...
W Excelu Makra odpalasz? Że co? Przepraszam, jeżeli cię nie zrozumiałem, ale pisz jak człowiek w jakimś IDE, nie Excelu. Jak ci się tak Excel podoba, to po prostu napisz te makra od nowa lol
Dodano po 5 w A1 zmieni się pod wpływem formuły [syntax=vb]Private Sub Worksheet_Calculate() zk = Range("A1") = 1 With Range("A2") n = Len(.Text) k = n \ 2 .Characters(Start:=1, Length:=k).Font.Strikethrough = zk .Characters(Start:=k + 1, Length:=n - k).Font.Strikethrough = Not zk End With End Sub [/syntax]
Przed nagraniem makra zaznacz opcję "Użyj odwołań względnych". Jeśli zarejestrowane makro nie będzie działać tak jak chcesz, załącz tu plik przykładowy z nagranym makrem i opisem, co jest nie tak. Twój opis jest za mało precyzyjny, żeby go odtworzyć bez bazowego arkusza.
makro Makro.:)
Wykorzystaj dwie kolumny. W pierwszej nazwisko, w drugiej nazwa/indeks przydzielonego arkusza. Reszta w załączniku. Makro przy każdej aktywacji robi porządek z hiperłączami i ukrywa arkusze.
W sumie nie wiem co to makro miało by robić. Kolorować kody w kolumnie B i A jeśli w kolumnie C jest wartość? Można do tego użyć formatowania warunkowego zaaplikowanego dla kolumn A i B w zalezności od wartości C
Wszystko zależy jak masz ustawiony w systemie odczyt i wydruk plików *.pdf Zerknij na ten temat https://www.elektroda.pl/rtvforum/topic3... Sam wydruk pliku *.pdf z Excela można uzyskać np. komendą Shell druk = Shell("c:\sciezka do programu\Acrobat.exe /t d:\sciezka\plik.pdf") To oczywiście duże uproszczenie, trzeba...
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
Witaj. Skróć to wszystko do: Sheets("Dane").Range... Teoretycznie nie powinien wtedy zmieniać arkusza ani obecnie zaznaczonej komórki.
Wstawiam plik z rozwiązaniem problemu, tak jak ja go zrozumiałem. W kodzie makra nie wstawiałem objaśnień, bo zmienne nazwałem aż naddto opisowo. Jeśli czegoś nie rozumiesz z procedury, korzystaj z F1 ustawiając kursor na nieznanym Ci "słowie". Aha, nie zapomnij włączyć makr w Excelu, najlepiej na stale. Dostęp do edytora VBA to chyba wiesz: Alt + F11...
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Witaj :) Nie trzeba do tego makra. W Excelu 2003 w menu Narzędzia jest Formatowanie Warunkowe. Tam możesz zdefiniować format (kolor tła, czcionkę, jej styl i kolor) w zależności od warunków. W Excelu 2007 zapewne też jest, ale nie podpowiem dokładnie gdzie.
Nie, to nie to. A masz włączone "Ufaj dostępowi do..."? http://obrazki.elektroda.pl/7869021300_1...
W załączniku masz plik z Makrem - żeby go uruchomić musisz włączyć Makra, następnie wciśnij ctrl + Q Makro zrobione w excelu 2000 (bo takiego mam) więc mogą się pojawić problemy z kompatybilnością, wtedy ci to przepiszę na nowszą wersje, jak będę w pracy i znajdę chwilkę wolnego. Wyrzuciłem wiersze z błędną wartością w kolumnie G (było ich sporo) bo...
A gdzie wstawiłeś ten kod? W załączniku widzę jakiś przycisk na formie, ale już samej formy w kodzie nie widzę... Nie prościej zamieścić plik Excela? Po pierwsze primo: żeby makra działały, plik musi być zapisany w formacie .xlsm lub xls Po drugie primo: w opcjach programu Excel -> Centrum zaufania musi być włączona obsługa makr w Excelu, masz ją włączoną?
Ale co Ci nie jeździ, bo nie bardzo rozumiem. Ten kod początkowo kopiuje wszystko, a te wiersze z zerami są usuwane dopiero później, kolejną częścią kodu. Ja nic w logice Twojego kodu nie zmieniałem.
Sortowanie zrealizujesz pisząc ogólną procedurkę: Sub Sortowanie(Klucz As String) Selection.Sort Key1:=Range(Klucz), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub i wywołując ją w obsłudze przycisku z odpowiednim adresem. Dla Nazwisko będzie: Sub Makro3()...
Hmm... U mnie (Office 2010), nie wiedzieć czemu, zwraca błąd niezdefiniowanego typu. Czyżby należało włączyć jakieś referencje? Po drugie: czy takie nazwy pliku sa w folderze i jego podfolderach A powyższa funkcja przeszukuje tylko podfoldery. Nie testowaliście tow... znaczy kolego PRL Byłoby również wskazane wyłączyć rozróżnianie wielkości liter (compare...
Za pomocą modułu Atmega
Ani raz nie napisał makra(kod)? Sub blok() msgbox "opcje kopiuj wklej sa zablokowane " End Sub
To pewien "mankament" VB dla VB liczba z przecinkiem jest "ciągiem" a z kropką jest wartością. W związku z tym trzeba takie przecinki zamieniać "ręcznie" Poniżej kod [syntax=vb]Sub ChgInfo() Dim WS As Worksheet Dim Search, Search2, Replacement, Prompt, Title, Zakres As String Dim MatchCase As Boolean Dim Kom As Range Dim Stara, Nowa As Double Zakres...
No to z prawej go [syntax=vb]Sub ostSpacja() tekst = "proba " tekst = RTrim(tekst) End Sub[/syntax]
Nagraj makro zakładania i zdejmowania ochrony... Zaczynasz zdejmowaniem, wykonujesz akcje i zakładasz na końcu makra.
Hej, Jest możliwość napisania makra, które przy zamykaniu programu (excel) będzie sprawdzało nam dane (w jednej lub kilku komórkach) i wysyłało maila jeśli warunek nie będzie spełniony?
Możesz napisać makro w excelu do lpta. Excel od razu wykresy narysuje, nie trzeba innego języka.
Sprobuj na początku makra Application.ScreenUpdating = False na koniec Application.ScreenUpdating = True Ale to jest OK, ponieważ w tabeli 1 indeksy zapewniają wszędzie, musimy przejść przez całą listę dla każdego indeksu tabel 2. w tabeli 1 w kolumnie B poszukiwana wartość może być ukryta w tekście Jeśli nie to, można spróbować innej metody. Dodano...
Rozumiem że w jednym pliku excela jest zapisane makro i otwierasz w excelu następny plik wykonujesz makro i chcesz zapisać zmiany w drugim pliku, otworzyć następny, wykonać makro i zapisać zmiany. Jeśli tak to ostatnia linijka powinna mieć postać ActiveWorkbook.SaveCopyAs Filename:=katalogZapisu & "\" & Format(Date, "DD-MM-YYYY") & "_" & ActiveWorkbook.Name...
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:
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
Poprawione makro PRL [syntax=vb]Sub Auto_Open() Dim tblTxt() As String ow = Cells(Rows.Count, "A").End(xlUp).Row Open "K:\PobierzZtxt\Test.txt" For Input As #1 For x = 1 To 4 Line Input #1, a tblTxt() = Split(a, "; ") Range(Cells(ow + x, 1), Cells(ow + x, 1).Offset(0, UBound(tblTxt()))).Value = tblTxt() Next Close #1 End Sub[/syntax]
A makra w Excelu masz włączone?? Wstaw sobie [syntax=vb]MsgBox "Test"[/syntax] w różne miejsca w kodzie i zobacz, czy się wiadomość wyświetli... Rozumiem, że wkleiłaś makro do arkusza Opis??
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Dzięki vieleicht ale mam jeszcze pytanie jak to przerobić gdy stopnie, minuty i sekundy mam w jednej kolumnie w formie np. 57°22'40.8"N ? Pod warunkiem, że cyfr będzie zawsze tyle co w podanym przez ciebie przykładzie to powinna zadziałać formuła: =LEWY(A2;2)+((FRAGMENT.TEKSTU(A2;4;2)/60... (w komórce...
Chyba się spóźniłem i mnie s95 wyprzedził :-) Ale w razie problemów pisz na mejla. Podeślę przykład w excelu do makra, które zamieściłem.
Dokładnie, też bym wolał, aby było możliwe napisanie makra w excelu z kwerendą SQL która by już przygotowała dane dla pivottable... jest prościej, ale jeśli nie można to trzeba kombinować z danymi zastanymi i z nich zbudować informacje ;) Poczekajmy aż autor wątku się odezwie.
Mam pytan ie, moze ktos bedzie mogl mi pomoc :) Potrzebuje makra w excelu które bedzie zaciagalo do bazowego pliku do konkretnej zakladki i komórki dane z pliku zewnetrznego. Czy ktos moze wie jak to zrobic ? Pozdrawawiam
JRV ma racje - pokoloruje wszystkie które są większe od zera niezależnie czy mają wartości te same czy różne. Co znaczy powtarzające się? Czy np mogą pojawić się trzy 5 i dwie 2? Kolor zielony ma ustawić dla obu? Czy musisz wyszukać w całym zakresie które się powtarzają i tak skompletowane ustawić na zielono?
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.
makra uruchamiające makra tabelki excelu kalendarz excelu
sprawdzić tranzystor 2n3055 minolta czujnik papieru głośniki creative gniazdo słuchawkowe
perfecta versa integra renault df101
Brak świateł mijania w Citroën Berlingo 2006 1.6 HDI Odpowietrzanie sprzęgła i pompy w VW LT 2.5