Witam mam dwie listy rozwijalne i dodane makro które miało czyścić jeśli w pierwszej liście zajdzie jakaś zmiana wtedy druga jest pusta, makro działa ale przy obróbce danych w arkuszu makro się "wykrzacza" dlaczego tak się dzieję co w nim należy zmienić. Proszę o pomoc ! użyty kod makra Private...
Dwie rzeczy na pierwszy rzut oka można uprościć: - zamiast wypisywania kilku warunków dla których linijka ma być ignorowana, przed wejściem w pętlę odczytu pliku zdefiniuj sobie tablicę z tymi wartościami, coś w stylu: zawsze jest to nadmiarowe i niepotrzebna, bo dwie kolejne linijki można ściągnąć...
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Spróbuj coś w ten deseń [syntax=vbscript]Sub ods() Dim zakres As Range, kom As Range Set zakres = Sheets("mapa").Range("A1:DH860") 'rozmiar mapy On Error Resume Next 'żeby się nie wysypało gdy nie znajdzie (literówka, czeski błąd, itp) For Each kom In zakres If kom.Value > 0 Then kom.Interior.Color...
Cześć! Stworzyłem makro, które z arkuszy odpowiadających kolejnym dniom kopiuje z zadanych zakresów wartości i formaty komórek (kolory, formatowania warunkowe itd.) do arkusza głównego. Niestety formatowania warunkowe nie nadpisują się w głównym arkuszu i po kilkukrotnym wykonaniu tej operacji plik...
Ja myślałem że należy skopiować wszystkie arkusze, tak od jednego użytkownika jest arkusz 1, ale jeśli następnie to są tej samej nazwy + 2...3 i itp. zapytał o to, ale nie otrzymał odpowiedzi Dodano po 2 ale teraz rozumiem, o co idze Dodano po 14 Ponieważ Total jest plik z powszechnego...
Witam Mam taki mały problem potrzebuję zrobić makro które po wywołaniu będzie kopiowało zawartość z "Arkusz" od A3 do G30 do "Arkusza3" i po przekopiowaniu automatycznie będzie czyściło zawartość kolumny B3:B30 w "Arkusz", następnie po kolejnym uruchomieniu makra będzie wykonywało tą samą czynność tylko...
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn...
Rzeczywiście na bieżącą chwilę w kodzie "czysc" jest parę błędów i niepotrzebnych rozwiązań. (może coś się zmieniło w stosunku do pierwszych rozwiązań np. 13 arkuszów lub nie zablokowany arkusz DANE) Wejdź w edytor VBA w Module1 kod makra czyść powinien być taki: nie zamknąłem w okienku kodu...
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.....
Przerobilem to makro tak, ze powinno juz dzialac tak jak chce. Kod ponizej [syntax=vb] Dim myPath As String Dim myFile As String Dim myPass As String Dim mySfrom As String Dim mySto As String Dim oExcel As Excel.Application Dim k As Integer Dim row As Integer On Error GoTo qInst ...
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...
Dokładnie tak, a warunek jest dlatego taki bo wyszukane wyniki podświetlam kolorkiem tzn jeśli chodziło mi o zmianę koloru to chodzi mi o kolor tła komórki a właściwie wierszy :) Chciałbym wykonywać to tak 1. w pierwszym arkuszu daję aby mi wyszukało i podświetliło na dany kolor // to mam już...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536")....
Witam Nie rozumiem tylko co to jest za skoroszyt Windows("Za+é¦ůcznik nr 2 rachunku umowy zlecenie.xls").Activate? Makro masz w jednym otwierasz drugi i kopiujesz do trzeciego pliku? Przepraszam może to jest mało zrozumiałe, ale ja próbuję metodą prób i błędów. Poniżej częściowy kod mojego...
Udoskonalając dalej swój arkusz zastanawiam się czy jest możliwe utworzenie rozwiązania dla poniższego problemu: W swoim skoroszycie posiadam arkusz pt."Zestawienie ogólne" , który jest listą wszystkich arkuszy towarowych, arkuszy towarowych może być nieskończoność. Arkusz towarowy jest listą produktów...
Nie czyścisz całego fragmentu (ceny), powinno być: [syntax=vb]wscel.Range("A2:E" & ost_wiersz_celu).ClearContents[/syntax] ... tym polecam wyłączyć odświeżanie ekranu. Jakaś obsługa błędów też by była na miejscu :), czyli: [syntax=vb]Private Sub CommandButton1_Click() Application.Scre...
Poprawiłem trochę kod aktualizacji. Unieazleżniłem go bardziej od dodawania nowych arkuszy (chodzi o czyszczenie i autorozszerzanie) Ponieważ wiersz pierwszy jest inny w każdym z arkuszy trzeba było zrobić też trochę innych poprawek. Z wiersz + 2 też się trochę nie zrozumieliśmy, ale już wszystko...
A nie gubisz CutCopy mode przez to, że czyścisz komórki? Zmień kolejność... Spróbuj [syntax=vb] Worksheets("Working").Range("a1:iv65536"... 'tu copy, którego nie wkleiłeś ' i dopiero select dla paste Worksheets("Working").Select ...
Jak zmodyfikować kod, by mógł pobierać dane ze skoroszytu, który mam aktualnie otwarty i nie chcę go zamykać Zakładając, że rozpoczynasz od makra (makro w module), spróbuj tak: 1. Usuń zamykanie pliku i czyszczenie zmiennej 'wb' 2. Deklarację zmiennej 'wb' przenieś do nagłówka modułu 3. Zamknij...
Nie ma potrzeby sprawdzania czy dane nie będą się powtarzać. Zakres kopiowany z arkusza źródłowego będzie zawsze wklejany do arkusza docelowego i nadpisze stare dane z ostatniego kopiowania a w międzyczasie wierszy przybędzie. łoj ! :) ... "ażem" se narobił roboty ... :) ... Zrobiłem makro, które...
Polecam zaprzyjaźnić się z debuugerem. Pomaga na zgryzoty :D Wstawiasz break ("czerwone kółko") na początku obu funkcji, ale nie przy deklaracji zmiennych (klikając na szarym polu po lewej stronie kodu). Potem robisz jakąś akcję w excelu, np. zmieniasz arkusze, i kiedy program zatrzyma wykonywanie...
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006”...
W tym skoroszycie już tak masz namieszane z tym Twoim ukrywaniem arkuszy i zakresów komórek, że do momentu uzyskania stabilnego działania makr powinieneś odpuścić wszystkie komplikacje. Pamiętaj o czyszczeniu całego zakresu "wynikowego" przed nowym wyszukiwaniem np po wydruku lub przed wejściem do nowego...
A może zablokować pozostałe komórki żeby nie dało się ich edytować i wtedy po prostu pracownik musi wykasować wszystkie pozostałe komórki? Excel pozwala chronić arkusz z wyłączeniem konkretnych obszarów. Możesz te obszary zaznaczyć innym kolorem, żeby wiedzieli co mają wykasować.
Wszystko OK, tylko nadal nie znikają wartości pól które mają znikać. Chodzi konkretnie o to że, wybieram po kolei Wał -> Odkuwka -> Dokładna -> Wały krótkie, stopniowane, bez otworu osiowego -> S1 -> M1 , po czym zmieniam zdanie i zmianiam Wał na Tarcza to S1, M1, Wały krótkie, stopniowane, bez...
Tak jak kolega Aldrin zauważył błędnie były nazwy kolumn w stosunku do zwracanych danych. Ja powiększyłem iolość kolumn tak by i "uwagi" były widoczne. Dodatkowo zmieniłem opis (i wyliczenia) do drugiej kolumny by pokazywało liczbę porządkowa danego arkusza a nie wiersz. Wg mnie jest to logiczniejsze...
Och, aż tak skomplikowane toto nie jest ;) [syntax=vbscript]'przykład dla kopiowania w tym samym arkuszu z 1-szej do 11-tej Columns(11).ClearContents 'czyścimy dane w kolumnie docelowej Do While Cells(w, 1) <> "" temp = Split(Cells(w, 1), "||") For i = 0 To UBound(temp) ...
Kazda godzina paportu ma 4 kolumny W celu nie czyszczenia 'Produkt' - myslim ze rodzaj ich jest mniej-wjac staly od 0 do 7 = 8 razy 4 kolumny = 32 kolumny jedna zmiana Dodano po 4 Wejdz w menager nazw - wybierz np. zm_1 - ustaw kursor w dolu na formule - bedzie widac na arkuszu ten zakres. offset...
Nie wytrzymałem i zajrzałem jeszcze na forum :) Wielkie dzięki działa super!!! W prowadziłem maleńką kosmetykę: Sub FORUM2() Sheets("Arkus... NumerWiersza As Integer Dim NumerKolumny As Integer Do While Arkusz1.Range("A2") <>...
Witam, mam napisane makro na kopiowanie całych arkuszy z jednego pliku do nowego. Wszystko mi działa i funkcjonuje poza jednym. W pewnym momencie wyskakuje mi informacja, że zasoby fizyczne do obliczeń są za małe i wyskakuje błąd. Spowodowane to jest tym, że z pliku głównego, gdzie są kopiowane...
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację...
Witam, borykam się z następującym problemem. Nagrałam makro do przycisku, które kopiuje arkusz (zawsze ten sam, nie ten aktywny - niestety). Po skopiowaniu arkusza następuje usunięcie wszystkich wprowadzonych danych, żeby znowu mieć pustą formatkę na nowy tydzień. Jak wprowadzić w tym kodzie warunek,...
Sama się o to prosisz (.UsedRange = zakres, gdzie zakres=Empty). Dalej nie rozumiem: jak chcesz to realizować? UsedRange to zakres, w którym znajdują się dane. Albo określisz wspólny PrintArea dla wszystkich arkuszy, lub chociaż ostatni wiersz, albo tablica dla każdego arkusza z zapisanym adresem zakresu...
Ad.2 Kopiowanie wiersza z przysikiem, to żaden problem. Problemy zaczynaja sie przy usuwaniu wierszy, bo przycisk zostaje i zwykle nakłada się na następny. Po jakimś czasie może być ich mnóstwo "na kupce" Ad.1 Napisać makro wg Twojego opisu, to, na oko, żaden problem. Sugerowałbym którąś z procedur...
DZIAŁA! hura! wielkie dzięki! ale chyba jeszcze tu napisze, bo mam problem z kolei z wyświetlaniem liczb. Zamiast np. 1,8 to zwraca 1,7453256 i jak wpisuje formułe zaokr() to niby jest ok, ale z kolei źle przelicza. Tak się zastanawiam czy makrem nie potraktować całego arkusza.
To informacja o czasach wykonania makra. Trzeba wejść do edytora vba (Alt + F11), a potem Ctrl + G i można zobaczyć wyjściowe komunikaty o czasie wykonania dla poszczególnych arkuszy i całościowo. To tylko poglądowo, linie te można usunąć (oraz deklarację i przypisanie zmiennej czas), są zbędne.
Najprawdopodobniej co jest możliwe, aby to zrobić za pomocą formuły tablicowej. Ale po prostu zrobić, ich funkcja lub makro do rozwiązania. Jak już powiedziałem, specjalista w dziedzinie funkcji tablicowych, a następnie Maciej Gonet. Ja również jestem samoukiem i lubię makra. Specjalne literatury...
Cześć szukam podpowiedzi jak w osobnych arkuszach excela umieścić tablice ze strony www, na której publikowane są dane co 1 godzinę. Interesują mnie tablice co godzinę na dobę wstecz. Obecnie mam kod, który pobiera dane z godziny 6:00 za dzień uruchomienia makra i dzień poprzedni. [syntax=vb]Sub...
Witam chociaż nie znam VBA zrobiłem sobie program w C który wylicza dane a w exellu robi wykres moje makro wygląda tak [syntax=vb]Private Sub CommandButton1_Click() Set fd = Application.FileDialog(msoFileDialogOpen... With fd .Filters.Clear .Filters.Add "Pliki txt", "*.tx**;...
Witam. Poniższy kod z VB Excel potrzebuję przerobić na C# tak by wyświetlał się w datagirdview. Zadaniem kodu jest zliczanie wierszy o takiej samej nazwie w kolumnach A:B, sumowanie wierszy w kolumnie D, usunięcie policzonego wiersza. [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane...
Mam taki problem z UserForm3: Jest przycisk Otwórz plik -> otwiera plik Następnie lista arkuszy z tego pliku w ListBox1 -> użytkownik wybiera ręcznie które arkusze chce przeliczać (może wybrać kilka) Następnie W userform1 jest stworzony listbox1, do którego wrzucam normalną pętlą poszczególne...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów...
Gotowe makro napisane pod Excel 2003: [syntax=vb] Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-09-22, autor sidsysunia ' ' Klawisz skrótu: Ctrl+q ' Sheets("zestawienie").Select p = Range("c1") 'tu sprawdza ile masz pozycji Range("a2:b" & p).Select ' tu...
... Co do pytania czy odnajduje sie w kodzie, to w końcu sam go napisałem i dla mnie jest czytelny, choć wygląda na zagmatwany przez ilośc zmiennych i funkcji if, to spełnia swoja rolę idealnie ... ... Program działa bez zarzutu, tak jak pisałem wcześniej ... Wybacz mój "sceptycyzm", ale wątpię. W...
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ść...
Dziękuję za makro działa bardzo dobrze wymaga jednak małej poprawki. Skoroszyt w którym je zamiesciłem oprócz danych odnośnie towaru w poszczególnych sklepach posiada również inne arkusze dotyczące finansów itd. Po kliknięciu w którykolwiek arkusz makro zaczyna szukać odpowiednich danych. Jeśli klikniemy...
Kiedyś ktoś z tego forum obdarował mnie poniższym kodem. Wszystko działa ale dość wolno. Muszę skopiować zakres danych ok. 2500 wierszy z 60 skoroszytów do jednego. Jak mogę podrasować to makro ? Wiem że mogę przyrównać zakresy ale jak to zrobić gdy ilość skoroszytów w lokalizacji jest zmienna ? [syntax=vbnet] Sub...
Trzeba przechować w jakimś miejscu licznik utworzonych protokołów - wybieramy komórkę w arkuszu. Proponuję utworzyć/zarejestrować makro o nazwie Auto_Open: 1. zwiększamy wartość licznika o 1 2. zapisujemy plik (licznik zostanie zapamiętany) 3. Plik -> zapisz jako (powstanie nowy plik) ... 3a)...
Witam. Na początek dodam, że chciałbym kontynuować ten temat: Potrzebuję coś takiego stworzyć u siebie ale zanim wezmę się za naukę tworzenia skomplikowanego makra ma kilka pytań. 1. To jak sprawić aby taka dodatkowa lista tworzyła się na innym a dokładnie 3 Arkuszu, mi na to nie pozwala system...
Witam, Jestem początkujący w excelu stąd moje pewnie proste pytanie a mianowicie mając w arkuszu kilka tabel potrzebuję napisać makro, które czyściło by parametry wpisywane w tabeli. Problem jest w tym, iż makro to samo powinno szukać, które dane ma wyczyścić i powinno to wyglądać mniej więcej tak: szukaj...
Z całym szacunkiem ale nie prosiłem o sprawdzanie poprawności formatowania mojego arkusza, dość dobrze sobie z tym radze i to jest na razie tylko wersja robocza gdzie co dzień poprawiam co innego. Powyższe pytanie proszę potraktować jako nieaktualne - poradziłem sobie w inny sposób bez makra. TERAZ...
Bez makr, przy pomocy funkcji LOS oraz kilku kolumn pomocniczych, wychodzi jak na obrazkach. Ze względu na formuły tablicowe, przeliczanie trwa 2-3 sekundy: przemyśl jeszcze ;) Jeśli makro, to () sprawdzanie w pętli wartości z kolumny B, zapisywanie w tablicy aż do zmiany i wylosowanie...
Problem jest kiedy zamiast kiedy chce zwiększyć ilość danych do pobrania z 3 do 4 lub 5 Zmienna "r" to zmienna "pośrednio" wskazująca ilość "pobieranych danych". Jest to numer wiersza, od którego zaczyna się pobieranie danych z zeszytu "Dane.xlsx". Naturalnym jest to, że jeśli przy 20 wierszach, zaczniemy...
Przed zmianą wyboru w komórce A3 należy wyczyścić komórki J3:L3. Wtedy formuła wykorzysta dane z tabelki. To czyszczenie można ewentualnie zautomatyzować makrem zdarzeniowym reagującym na zmianę w komórce A3. To makro jest w module arkusza Zabudowa, ale jest w tej chwili zapisane tylko dla komórki A3....
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy...
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 ...
ok - bardzo ciekawa opcja jeżeli rozchodzi się o brak VBA. jednak jak by to wyglądało gdybym chciał to wmieszać w język VBA ? Ponieważ w przypadku dużej ilości danych wersja bez makra będzie powodowała dużą ilość formuł oraz zwiększanie się wielkości pliku excel. Przykład w załączniku zgrywania...
Witam! Zacząłem swoją przygodę z VBA i na początek postanowiłem napisać (nagrać) prostą aplikację w Excelu. Po krótce można opisać jej działanie tak: Uruchomić makro, które otworzy, wyczyści schowek i załaduje do niego kilka ciągów znaków tekstowych, a następnie zamknie ten arkusz. Arkusz wraz z...
W edytorze makro w danym arkuszu (worksheets) w sekcji Change wpisz: Private Sub Worksheet_Change(ByVal Target As Range) If Range("c11").Value <> "" And Range("b11").Value = "" Then Range("d11").Value...
Niestety, ja jedyne co Ci mogę podrzucić to makro odpalane z przycisku albo uruchamiane "zieloną strzałką": Public Sub KopiujMnie() Range("C3").Select Selection.Copy Range("E5").Select ActiveSheet.Paste Application.CutCopyMode =...
.jpg)
