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...
Można zdefiniować tablicę z nazwami arkuszy w których mają być dokonywane zmiany i przejść pętlą po arkuszach wpisanych do tej tablicy: [syntax=vb]Sub zz() Dim tblArkusze() Dim i& Dim rngTmp As Excel.Range tblArkusze() = Array("I L", "II L", "III L") 'nazwy arkuszy w których mają być wykonane zmiany For i = LBound(tblArkusze()) To UBound(tblArkusze())...
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
Nie wiem czy to zadziała na Excelu 2002, ale możesz sprawdzić przykład z załącznika. Oparty na "zwykłych" formantach formularza - checkboxach. Jak klikniesz prawym -> Formatuj formant to we właściwościach masz Łącze Komórki, gdzie możesz ustawić powiązanie formantu z komórką - to ta pierwsza część. Druga - do checkboxa można przypisać makro, które zaznaczy...
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Dzień dobry, Wydaje mi się, że niepotrzebnie się Pan obraża, bo moje pytanie chyba jednak było zasadne - w nowej wersji usunął Pan to godzinowe formatowanie i teraz wiadomo, że chodziło Panu o liczby całkowite. Lepiej wyjaśnić wątpliwości zawczasu aniżeli zrobić coś nie tak i później poprawiać. Pana problem wcale nie jest banalny i pewnie dlatego nikt...
Witam, sprawa zapewne jest prosta,ale nie wiem jak ją ominąć lub zdefiniować. Mam schemat otwierania pliku i on działa , lecz potrzebuję zrobić zabezpieczenie takie, aby nazwa pliku otwieranego była sprawdzana. Plik ma na na przykład nazwę KWS 13-01-2012.xlsx ( gdzie data może być zmienna np. KWS 14-01-2013, KWS 31-01-2013 itp itd natomiast początek...
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ę...
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Ręcznie mogę zapisywać pliki, ale dalej nie zapisuje z poziomu makro :/ Sprawdzałem ustawienia excela i wszystko zdaje się być ok. Dla testów odpal to i przez 'getsave' wybierz pulpit. [syntax=vbscript]Sub t() plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") 'pobieranie nazwy z komórki If...
Każdy wiersz w bazie OUTPUT odpowiada innemu plikowi (dla przykładu załączyłem tylko jeden) Makro powinno pobrać zakres z kolumny D z pliku 1 671 913 2.xlsx i porównać go z wierszem 2 w pliku Input_Output_813_804_823_824_v11.xlsx Jeśli np. "EW2 "= D2 to w arkuszu OUTPUT kolor tła w danej komórce powinien zmienić się na zielony, a jeśli dane się nie...
(at)dt1 Jak dla mnie to porady na forum ELEKTRODA odnośnie Excela VBA nie powinny mieć miejsca. Jest to w pewny sposób wykorzystywanie umiejętności informatycznych ludzi, którzy kiedyś musieli nauczyć się od zera VBA, a teraz maja podawać kawę na ławę zatrudnionym pseudo informatykom pracującym w biurze i przeważnie na posadach państwowych lub w dużych...
Musisz jednoznacznie nazwać te obrazki, ja w przykładzie nazwałem je pic1 i pic2 (klikasz na obrazek w arkuszu i w lewo od paska formuły wpisujesz nazwę, jak w moim przykładzie klikniesz na obrazek to znajdziesz). Do tego makro, które przy każdej zmianie arkusza DANE będzie sprawdzać zakres komórek D14:D19 (oczywiście zakres ten możesz rozszerzyć, jeśli...
Witam, Próbuję stworzyć makro, które będzie zrzucało plik excela do PDF. W zależności od opcji wybranej w ComboBox2 , plik powinien zmieniać nazwę w wydruku i jednocześnie pokazywać zmiany w kalkulacjach itd. ComboBox2 znajduje się w kilku arkuszach. Z założenia przy zmianie ComboBox2 na jednym arkuszu, wartość ComboBox2 na innych powinna się zmieniać....
(at)PRL - uważaj na kaczki! :-) . Żartowałem. Dobrze zrozumiałeś moje potrzeby , ale niestety w dalszym wyciągu to nie wychodzi do końca tak jak trzeba. Tabeli pięknie się kopiują , ale bez obramowania , dane z formuł mają więcej niż dwa miejsca dziesiętne. Zmieniłem nazwę klienta2 na klient000002 a w arkuszu skopiowały się dane klienta20. http://obrazki.elektroda.pl/4853344500_1...
Witam, Firma składająca się z kilku Oddziałów, które dzielą się na Zakłady ma do wprowadzenia pewne standardy korporacyjne. Polega to na tym, że na zadane pytanie każdy Zakład lub cały Oddział musi odpowiedzieć "tak". Jeśli wszystkie Zakłady odpowiedzą "tak" to w pliku zbiorczym zaznacza się,że dana rzecz jest zrobiona w całej firmie. Zaznaczanie, że...
To makro będzie w miarę proste, wystarczy w pętli sprawdzać kolejne komórki w pogrupowanej kolumnie, a jak dwie kolejne się różnią - skopiować zakres od...do: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Set wsdane = ThisWorkbook.Worksheets("dane") 'nazwa arkusza z danymi ost_wiersz = wsdane.Cells(Rows.Count,...
Cześć, bardzo dziękuje za pomoc :) Efekt końcowy jest prawie taki jak chcieliśmy uzyskać. Nie mam zastrzeżeń, do działania bo wszystko działa tak jak trzeba, lecz: 1. Zamienione są dane Firma 1 (t) z numerem karty. Firma 1 (t) - to wartość wyrażana w tonach, czyli MASA z dokumentu WZ Numer karty - to ta górna wartość z dokumentu WZ, nr karty/przepustki...
Należy rozumieć, że ta "baza danych" też jest w Excelu ? i wypróbowałeś już wszystkie "zwykłe" metody odwołań i łączy :?: Tak, baza to po prostu arkusz w excelu. Wydaje mi się, że próbowałem już wszystkiego i nic nie zapewnia takiej funkcjonalności jaka byłaby optymalna. Tak jak pisałem, mam w tej chwili formuły które dają radę to wyciągać (z użyciem...
Witam, Podaję makro: Sub Logoeps() ' Logoeps Makro ' Option Explicit Dim x As Double Dim y As Double Dim obraz As String Dim kom As Range Dim fd As Object Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ActiveWorkbook.path & "\" & Range("M68") .AllowMultiSelect = False .Filters.Clear .Filters.Add "Picture Files", "*.png;...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
makro które będzie pobierać z pliku Excel. xls : ( ... swobodna kombinacja przedalpejska ... nawet nazw tych kolumn nie znamy ... może z wyjątkiej jednej "Index" ... makro też nie od początku zapodane, tylko jakieś takie jak po spotkaniu z samurajem .. : ( ... ogólnie to na niewiedzę informacji cierpimy, ale spróbuj ... moooże będzie działać (?): [syntax=vbscript]Option...
Musiałoby być cos takiego, sprawdź Sub CopyCount() Const wrt01 As Single = 72 Const wrt02 As Single = 15 Const wrt03 As Single = 13 Dim i As Integer, licznik As Integer, ark As String ark = "Arkusz2" ' nazwa arkusza docelowego licznik = 2 'pierwszy wiersz ark docelowego Sheets(ark).Range("A2... & Range("A2").End(xl...
o JEŻELI jak byś mi napisał i też szczegółowo wyjaśnił będę bardzo wdzięczny Lenistwo... ... czy niewiedza? Po naciśnięciu F1 w Excelu zobaczysz: JEŻELI Zobacz też Podaje w wyniku jedną wartość, jeśli argument logiczna_test zostanie obliczony jako PRAWDA lub inną, jeśli wartością tą będzie FAŁSZ. Istnieją dwie postaci składni dla funkcji JEŻELI. Składni...
Mały arkusz przykładowy masz w załączniku - wykorzystuje proste kopiowanie wierszy w pętli z arkusza źródłowego do docelowego. W pełni zgadzam się z przedmówcą, że tych przycisków coś za dużo - ba, sama idea kopiowania obrazków nie bardzo mi się podoba - wszak masz potem ten sam obrazek w dwóch miejscach... A znając tendencję niektórych ludzi do wklejania...
Winna była spacja. Dzięki. Skupiałem się na sprawdzaniu nazwy pliku, sciezki a spacja mi się nie rzucała w oczy. Masakra ... Teraz mam coś takiego : Sub Makro3() ' ' Makro3 Makro ' ' Dim i As Integer For i = 1 To 10 ChDir "D:\wodociagi\dane z ankiet\zbiorcze" Workbooks.Open Filename:="D:\wodociagi\dane z ankiet\zbiorcze\za15.xlsx.xlsx" Dim zbiorcze...
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Musisz dodać jeszcze pętle sprawdzającą nazwy arkuszy. A co jak klikniesz makro w danym dniu 3x razy?
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
jesli wszystkie beda nosic ta sama nazwe to petla bedzie "przeszukiwac" wszystkie True. Musisz rozróżniać dwa pojęcia: każda kontrolka ma wiele parametrów, m.in. TYP oraz NAZWĘ. Każdy z tych 30 checkboxów o których piszesz ma ZAWSZE typ "Checkbox", czyli ten fragment pętli MUSI być taki: grupa1 , trzem grupa2 , sześciu grupa3 etc. Wtedy możesz zmienić...
W przykładowym arkuszu: 1. Usuń "Przycisk 339" (jest wysoki na 1pkt.) Najprościej zaznacz widoczny przycisk i przesuwaj się tabulatorem. 2. Podmień makro, tu dobrze kombinujesz :) (porównaj sobie z tym co jest. Przyda się na przyszłość), ale trzeba szukać 4 elementów. [syntax=vb]Sub Usun2() Dim knyps As Boolean knyps = False For i = 1 To Shapes.Count...
Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation = ... Przez to na pewno wolniej działa. Wyrób sobie dobry...
Wygląda OK. 1004 to zwykle błąd nazwy, braku obiektu, etc. Sprawdzałeś?
A nie lepiej (szybciej) jest zrobić kopię pliku abc.xls i go tylko inaczej nazwać? Przecież na to samo wychodzi. Na kopiowanie pełnych arkuszy z formatami nie ma funkcji. Da się to zrobić jedynie za pomocą makra [tylko nie wiem po co - patrz kopiowanie pliku]. No ale ludzie różnych chcą rzeczy. Dodatkowe pytanie do głównego "zadania" czy jest ustalona...
Andie, póki co makra to magia dla mnie, ale czy Twój kod działa tylko kiedy w kol. 1 są wartości takie jak sa w przykładzie, czyli 1, 2 ... itp ? Bo kiedy sprawdzam je na innej tabeli która ma już konkretne nazwy w kolumnie 1 i jest tych zakresów o wiele więcej to mi coś nie bardzo idzie...
Witam, mam problem z napisaniem makra w VBA. Mam plik o nazwie "program" w którym znajduje się tabelka (zał.3.). Mam początek kodu (zał.4.), ale nie umiem ruszyć dalej. Makro ma pozwolić na otwarcie dowolnej ilości plików Excela. Te pliki mają różne nazwy i nie da się określić jednej ścieżki do nich. Następnie w otwartych plikach we wszystkich arkuszach...
makro zmiana nazwy arkusza makro zmian nazwy arkusza excel makro wydruk arkusza
pracuje silnik wyjęciu kluczyka peugeot modulator antenowy impulsy synchronizacji
mondeo convers service schematic
Honda Civic gaśnie na zimnym silniku - przyczyny i rozwiązania Piekarnik słabo grzeje - możliwe przyczyny i rozwiązania