Nie mam jeszcze zrobionego tego pliku tak jak powinien być, ale próbowałem na surowym arkuszu to zrobić i nie wychodzi mi. Załaczam przykładowy plik, który zrobiłem do wypróbowania makra
Witam Wszystkich, Zwracam sie z prośbą o pomoc w rozwązaniu małego problemu związanego z wprowadzaniem danych przez operatora na linii produkcyjnej. Operator zobowiązany jest do wprowadzenia czasu rozpoczęcia (B2) oraz czasu zakończenia (C2) na swoim stanowisku pracy. (+ dodatkowo ilości ktore wyprodukował,...
Ok. a więc teraz jak już się da wpisywać w kolejnych wierszach kolumny A, to niestety nie blokuje komórki sąsiadującej, gdy w komórce z kolumny A wpisuje "nie". Kasuje tylko, jeśli wprowadzone było najpierw tak a potem zedytowane na nie Zanim wprowadziłam makro, zaznaczyłam komórki i zaznaczyłam w...
Rozumiem, że ustawiam wtedy taką komórkę jako zablokowaną i przypisuję zdarzenie Worksheet_Change? Szczerze to nie mam o nim zielonego pojęcia, no ale to już poszukam w googlach. Wolałbym rozwiązać to bez makr, ale zdaję sobie sprawę, że jest to dość skomplikowane. Dzięki za pomoc. Pozdrawiam.
niestety nie wchodzi mi (czy ja tu muszę inną składnię zrobić ?) Private Sub Workbook_Open() Sheets("DT").Unprotect "aaa" ok = Cells(1, Columns.Count).End(xlToLeft).Column For x = 1 To ok If Cells(2, x) < Date Then Columns(x).EntireColumn.Locked = True If Cells(2, x) =...
W zasadzie jest to nowy arkusz który nie ma na tą chwile żadnej skomplikowanej funkcji i makra bo go od tego roku prowadzę od nowa. i dopiero będę za jakiś czas wprowadzał te daty itd. chciałem na razie wmontować tą blokadę żeby mi serwisanci w kulki nie lecieli :D a upilnować 20 jest kiepsko :D ...
Jak wybrzydzać, to wybrzydzać. Podobno nie ma programów bezbłędnych, są tylko niewystarczająco dokładnie przetestowane. Proponuję jeszcze podmienić linijkę: [syntax=vbscript]If Target = Range("A1") Then Range("A2").Select[/syntax] na [syntax=vbscript]If Not Intersect(Target, Range("A1")) Is Nothing...
dzięki, makro działa dokładnie tak jak chciałam .
Sub makro1() ' ' makro1 Makro ' blokowanie komórek i ochrona arkusza' ' Klawisz skrótu: Ctrl+r ' Cells.Select Range("C3").Activate Selection.Locked = True Selection.FormulaHidden = False Range("C9:F13").Select Selection.Locked = False Selection.FormulaHidden =...
Dzień dobry, Funkcja TRANSPONUJ działa bezbłędnie, ale ma też swoje wady. Tablica jest duża i wyniki trzeba gdzieś umieścić. Potem będzie je Pan chciał dalej przetwarzać. Po użyciu TRANSPONUJ traci Pan kontrolę nad źródłem danych, bo w każdej komórce widzi Pan tylko TRANSPONUJ i adres, poza tym nie...
Witam. Od dłuższego czasu szukam i nie znalazłem nic co w pełni spełniałoby moje oczekiwania. Poszukuję opcji (pewnie makra) które działałoby i blokowało możliwość wklejania wyciętej komórki/komórek. O ile to możliwe najlepiej było by aby w chwili wyboru opcji "wytnij" zadziałała opcja "kopiuj" i...
Może takie makro zdarzeniowe w module skoroszytu (jeśli ma działać we wszystkich arkuszach) lub w module arkusza (jeśli tylko w jednym arkuszu): [syntax=vbscript]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim tval Application.EnableEvents = False If Application.CutCopyMode...
[url=]Link [url=]Link
Witam, chciałbym stworzyć makro, które pozwoli mi na blokowanie możliwości wklejania i kopiowania danych z komórek przez użytkownika - z zastrzeżeniem, że blokada ma mieć miejsce tylko w jednym arkuszu w danym pliku, a nie w obrębie całego pliku; mam tu na myśli taką 'fizyczną' blokadę jak w niniejszym...
Do tego nie jest potrzebna znajomość VBA. Excel ma funkcję blokowania komórek - zaznaczamy komórki do zablokowania, blokujemy i włączamy ochronę arkusza. W momencie włączenia ochrony Excel zapyta o hasło. Trzeba sobie włączyć widoczność paska narzędzi "ochrona" Tak zgadzam się z tobą ale problem...
Potrzebuję stworzyć makro, które będzie blokowało do edycji dany zakres komórek - jeśli w jakiejś innej komórce nie z tego zakresu będzie określona wartość dajmy na to 2. Prośba o pomoc.
Po wpisaniu w tą pętlę kodu - faktycznie chroni arkusz - ale tylko podczas otworzenia arkusza DANE, i próbę wpisu w niepowołane rubryki. Natomiast w czasie działania programu i wpisywania kwoty - da się wpisać w każdą kolumnę... To jest niemożliwe żeby nie chroniło. Chyba że nie w tym miejscu...
Myślę, że jak dołączysz plik którego ma to dotyczyć i określisz na jakiej zasadzie chcesz zabezpieczyć określone komórki byłoby łatwiej. Możesz też włączyć nagrywanie makr i zapisać które komórki chcesz blokować a później przypisać tak stworzone makro do jakiegoś przycisku lub skrótu klawiatury.
Może najpierw funkcja, która zaznaczy komórki żółte, a potem je zabezpieczy przed zmianą. Plik z możliwością działania makr (xlsm, xls) :idea: w arkuszu roboczym wprowadź taki kod makra :spoko: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Unprotect "a" Target.Interior.ColorIndex...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue ...
Witam Swojego czasu udało mi się napisać taki mały program w Excel-u mianowicie drukuje się kod kreskowy okleja materiał i skanuje do bazy ta z kolei sprawdza czy taki kod już nie jest w bazie po czym blokuje dany kod i podlicza stany oraz metry kwadratowe. Z czym sobie nie potrafię dać radę : 1...
Pobierasz dane poprzez kwerendę (dane zewnętrzne) czy poprzez odwołanie do konkretnych komórek innego skoroszytu? W drugim przypadku nie powinieneś mieć kłopotu z komórkami chronionymi. W pierwszym przypadku excel nie pozwoli bo metoda z odświeżaniem danych polega na wprowadzeniu nowych danych...
Witam mam taki problem potrzebuje w excelu zrobić taki arkusz że komórki z danych kolumn są zablokowane do edycji, i wpisanie danych do konkretnej kolumny odblokuje dostęp do innej. W moim przypadku uzupełnienie kolumny E (konkretnie od E6 w dół) pozwoli wpisać cokolwiek do kolumn F i G (od F6 i...
Używam excel'a w pracy i chciałbym mieć możliwość ukrywania pewnego obszaru danych (wścibscy współpracownicy) poprzez zamianę jego koloru na czarny uzyskiwanym przez naciśnięcie przycisku z makrem. Problem w tym że "gdy się uspokoi" chciałbym tym samym przyciskiem powrócić do stanu poprzedniego - widzialnego....
Co do tego ze można dla każdego utworzyć kartę to powiedzmy że wiedziałem. Trochę obycia w tym programie mam, ale jak miał bym policzyć każdą osobę z osobna skoro po wybraniu z listy wszystko się zmienia na tego co wybiorę. Sprawdzałem na arkuszu 2 tak było dlatego tam jest tak wiele list wyboru ,bo...
Dzień dobry, Tak to jest jak się nie pisze dokładnie o co chodzi. Trzeba było napisać od razu, że chodzi o kopiowanie, a nie wpisywanie lub że o jedno lub drugie. Proszę wypróbować takie makro, reagujące na wprowadzanie danych w dowolny sposób (zdarzenie Change). Ma działać w kolumnach H, J i K (osobno)....
bo nikt nie siedzi w mojej głowie Dobrze to ująłeś.:) Może spróbuj w krokach opisać kolejne zdarzenia i ich skutki, to zamieni się to na VBA. Arkusz usuwanie: Wpisujemy kod do komórki 1A Skrypt sprawdza czy jest ten kod w arkuszu wstawianie A:A jeśli jest usuwa go z arkusza wstawianie (najlepiej...
Nie dokładnie o to mi chodziło kod blokuje mi tylko wiersz tej jeden w którym jest coś aktualnie wpisanie (zaznaczenie). Chciałbym aby blokował wszystkie wiersze powyżej, które w jednej z kolumn w danym wierszu mają wartość (dla mnie zapis "m" lub "p" lub "c") takie blokowanie warunkowe. Np. warunkową...
...Próbuję rozwiązać problem - w jaki sposób podając NIP , ewentualnie nazwisko w arkuszu z WZOREM FAKTURY, można z arkusza z listą danych osobowych klientów, przenieść wszystkie dane tego klienta do wzoru faktury? Jeżeli NIP (nazwisko) jest w tym samym wierszu co reszta danych to możesz to zrobić...
Pomijając to że autor pisze że jest zielony i ciekawe czy sobie poradzi :) z kodem ja zasugerował bym (jak i tak muszą być makra) dać przyciski (nie poprzez Worksheet_SelectionChange). Innymi słowy zablokować wszystkie komórki Przycisk "start" (odblokowujący pierwszy wiersz) ..... Przycisk...
Cześć, Taaaka sprawa: mam zrobioną listę 10 pozycji, z czego użytkownik ma zaznaczyć tylko 4 z nich, nie więcej. Jeżeli chciałby zaznaczyć 5, wyskoczy mu alert. Jak to ująć makrem? Jest jakiś "block" czy coś w tym rodzaju którego mogę użyć? Z góry dzięki za info,
Dziękuję za pomoc. Uświadomiłem sobie, że nie wiem jak to się robi bo nigdy tego nie robiłem. Kupiłem kursik VBA za ok 60zł (nie będę reklamował skąd) i po obejrzeniu zaledwie wstępu już wiedziałem co źle robiłem. (na pewno cały obejrzę:-)) adamas_nt dzięki za zainteresowanie - nagrałem kod jednak...
Zakładając, że formuła jest w B1 i odnosi się do A1: [syntax=text]=JEŻELI(A1="Naprawiony... to działało w ustawieniach arkusza musi być włączona zgoda na obliczenia iteracyjne. W momencie wpisywania tej formuły do B1 w komórce A1 nie powinno być wpisane "Naprawiony",...
Cześć, Potrzebowałbym jakieś rozwiązanie do pliku Excel, a mianowicie czy jest możliwość utworzenia takiego makra lub może jest jakaś opcja, gdzie będąc w pliku wpisuje dane, po zapisaniu i wyjściu z pliku, komórki z danymi blokują się, a po ponownym wejściu mogę kontynuować wpisywanie w wolnych komórkach,...
Teoretycznie - "tak", ale praktycznie to nie wiem czy byłbyś zadowolony, wiązałoby się to bowiem z zakładaniem ochrony na cały arkusz, przy wskazywaniu jednocześnie, które komórki mają być zablokowane, a które nie. Trudno dociec co tam jeszcze masz w arkuszu, co powiino być chronione/blokowane, a co...
Chcesz odblokować tylko formatowanie tekstu w komórkach ? (dane nie zmieniac) Kod w post #2 odblokuje wszystko... Ale... te makra do przyciskow(Pobierz_Arkusz1, Usuñ_Arkusz1) to odblokowanie usune. Uzyj przy blokowaniu kod ActiveSheet.Protect Password:="x", AllowFormattingCells:=True...
W Excel 2007 wykorzystuje w podobnej sytuacji drobne makro, które blokuje hasłem niepuste komórki przy zamykaniu skoroszytu :D [syntax=vbscript]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cell As Range ActiveSheet.Unprotect Password:="haslo" For Each cell In ActiveSheet.UsedRange If...
Sory, żle to tłumacze :( Chodzi o to aby tak jak w arkuszu1, po wpisaniu daty, blokowała się edycja komórek do danej daty. To makro działa na jednym arkuszu a chciałbym aby dzialalo na kilku...
Wariant z blokowaniem zakresu komórek przy otwieraniu i zamykaniu zeszytu. 1. Na wszelki wypadek w procedurze 'Private Sub WorkSheet_Change(ByVal Target As Range)', w danym arkuszu, zmienić deklarację zmiennej z 'Dim i As Integer ' na 'Dim i As Long ' 2. W module 'ThisWorkbook' wkleić kod: 885619...
Czy Tobie nie chodzi przypadkiem o blokowanie kolumn? Zaznaczasz całą kolumnę B i z menu wybierasz: Okno -> Zablokuj okienka (jeżeli używasz offica 2003). Potem suwak poziomy przesuwa wszystkie kolumny oprócz tych na lewo od zablokowanej. Aby odblokować - wybierasz "Odblokuj okienka". Można też napisać...
Ale co chcesz osiągnąć? Nawet gdyby szło przewijać, zmiana wartości komórki w arkuszu nie zmieni wartości pola tekstowego. Musiałbyś wczytać ponownie... Jakimś sposobem byłoby umieścić ukrywanie formularza pod przyciskiem (UserForm.Hide), a w Thisworkbook_Open przypisać kombinację klawiszy uruchamiania...
Jeśli nadal chcesz szukać rozwiązania w makrach to poczytaj wątek [url=]Blokowanie komórek po spełnionym warunku :idea:
Możesz wypróbować taki kod: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim WorkRng As Range, Rng As Range Application.EnableEvents = False Set WorkRng = Intersect(Range("B:I"), Target) If Not WorkRng Is Nothing Then If WorkRng.Rows.Count > 1 Then ...
Dziękuję, właśnie o to chodziło. Problem pojawia się jedynie ze scalonymi komórkami, ale ich nie muszę obejmować ochroną. Pozdrawiam
Witam serdecznie, Bardzo poproszę o pomoc - mam kalendarz, który wykorzystuje makra, w którym chciałbym zablokować do edycji część kolumn/komórek/formuł. Gdy to robię to cały arkusz mam zablokowany do edycji. Gdy te same czynności powtarzam dla pliku bez makr, to zablokowane do edycji sa tylko te,...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz...
Witam, przeszukałem już cały portal i nie znalazłem odpowiedzi. mam kod obsługi 3 x DS18X20 z numerami układów zapisanymi w EEPROM i jeżeli chcę odczytać właściwy ROM to muszę użyć sekwencji jak w kodzie w sekcji 1 (bez skoku do podprogramu) 'program odczytujący obecność układów 1WIRE i sprawdzający...
U mnie w każdym skoroszycie działa makro blokujące wszystkie formuły na stałe, oraz pozostałe komórki, po wprowadzeniu danych w komórce automatycznie jest ona blokowana, do tego obligują mnie przepisy akredytacyjne które wymagają, że wszystkie dane zapisywane w formie elektronicznej powinny być zabezpieczone...
Witam, mam arkusz, w którym muszę zastosować kilka makr, większość przeskoczyłem ale na dwóch się zawiesiłem i stąd mój wpis. 1. Czy w Excel2013 da się makrem ukrywać wstążkę tak jak dało się to zrobić w Excel2007 bo coś mi zadziałać makro, które kiedyś stworzyłem, a wiem że było sprawne oraz...
---> kolumny automatycznie się dostosowywały do zawartości (tutaj chyba użyteczna będzie Columns ("1:18").AutoFit); ---> włączenie opcji zawijania tekstu . ---> Każda komórka była obramowana jak w pliku źródłowym ---> kolumna R zsumowała wartości z kolumn L, N, O i była zapisana w formacie księgowym....
Z frajdą dołączę się do dyskusji (na dole podam powód), ale musimy mocno rozdzielić targety, które się rozmazują: a) Na ARM-y w zasadzie rdzeń każdego języka da się przenieść b) na 8bit tylko wybrane (tzn nie interesują mnie, choć jestem stary javoviec, np java która co z tego że da się pokazać z...
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ę,...
O ile dobrze zrozumiałem to może to wyglądać jakoś tak, jak w załączniku. Do arkusza jest dodane makro (więc trzeba zezwolić na uruchamianie makr). zdefiniowana jest funkcja SP, która przyjmuje dwa parametry: cały zakres do sprawdzania oraz sprawdzany wiersz. Będzie to widać w załączonym przykładzie....
Witam ponownie :) Międzyczasie, wpadłem na inne rozwiązanie. Porzuciłem listę rozwijaną i napisałem takiego oto makro: Sub Raportowanie_kompletacji() Dim Zlecenie As String, i, j As Long, Status As String, Komponent As String j = 0 'odblokowanie arkusza ActiveSheet.Unprotect Zlecen...
Kurcze dziwne... Dokładnie ten fragment kodu odpowiedzialny jest za blokowanie wszystkich komórek (poza tymi edytowalnymi) przy każdej zmianie edytowalnej wartości. Muszę nad tym posiedzieć. Ale to dziwne=/ Po usunięciu tego fragmentu nadal są jakieś problemy? On występuje w 2 czy 3 miejscach (nie kojarzę...
Witam! Mam dwa makra, pierwsze sprawdzające czy któryś z plików nie jest otwarty przez innego użytkownika: [syntax=vbscript] Publi... Function CanOpenAllReports() Dim canOpen As Boolean Dim fileName As Workbook Dim path As String Dim tempString As String Application.DisplayAlerts...
Witam, od kilku dni mam problem ze stworzeniem listy rozwijanej, chodzi konkretnie o możliwość widoku na elementy w wybieraniu w liście, tzn. lista odwołuje się do kolejnych liter alfabetu pewnej czcionki, po rozwinięciu listy mają się wyświetlać litery alfabetu tej specjalnej czcionki (nie domoślnej),...
Witam! Chiciałbym zapisać w VBA kolejność przemieszczania kursora. Czyli np, mam komorkę A2 po naćiścnieciu ENTER przesuwa się do A6 z A6 do C8 czyli zgodnie z wymaganą kolejnością. Blokowanie nie zdaje egzaminu ponieważ mam nagrane makro oraz funkcje jeżeli , przesuniecie pinowe vba itp. te komórki...
Mając do dyspozycji jedną matrycę 8x8 czerwonych diod LED o boku 60,2mm oraz mikrokontroler ATtiny861 pozostałe po innych projektach postanowiłem zbudować to, co każdy elektronik chociaż raz w życiu zbudować musi: zegar ;). Ze względu na charakter wyświetlacza miał to być zegar binarny, ale W...
Witam! Nie mogę poradzić sobie z wyłączaniem na chwilę (na czas dodawania wpisu) ochrony arkusza excel, który został udostępniony. Mam 4 komórki do których klient wpisuje dane. Poniżej tych komórek jest tabela. Tabela jest zablokowana. Po wpisaniu swoich danych klient klika przycisk DODAJ następuje...
