Wybierz gdzieś komórka dla nazwy arkusza. (np. arkusz3!Z1) [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("arkusz3!Z1") = ActiveSheet.Name End Sub Private Sub Workbook_Open() Sheets(Range("arkusz3!Z1")).Activate End Sub [/syntax]
Nie rozumiem skąd błąd.... w komórce C2 jest dobra nazwa. Nie spojrzałem wcześniej na rysunek. [syntax=vbscript]Set wsDocelowy = wbDocelowy.Sheets(Range("C2").Value)[/sy... Będziesz mieć błąd bo, gdy otwierasz skoroszyt staje się aktywny i w tym aktywny w C2 pewnie nic nie masz. Jak nazywa się ten arkusz z załączonego obrazka? wtedy [syntax=vbscript]Set...
Wciskasz F9 i ci przelicza ale jak chcesz koniecznie makrem to wystarczy Calculate lub ActiveSheet.Calculate Czyli Sub Przelicz() Calculate Sub End a sam arkusz Sub Przelicz_Ark() ActiveSheet.Calculate Sub End Jeszcze przypomnienie ze skrótów klawiszowych excela: F9 oblicza wszystkie arkusze we wszystkich otwartych skoroszytach. Kombinacja...
Dzień dobry, A co w tym kodzie oznacza "ark"? Czy nie jest to arkusz aktywny (ActiveSheet)? Poza tym czy 6 to stała? Jeśli tak, to po co tak komplikować ten adres, wystarczy [syntax=vbscript]ark.Range("E6:F" & dstW)[/syntax]Poza tym, jak często zmienia się wartość "dstW"? W sumie można makrem uruchomić też sprawdzanie poprawności danych, tylko tę procedurę...
Bez załącznika i możliwości przetestowania kodu, to jest błądzenie po omacku. W Twoim kodzie nie wiadomo, co oznaczają: [syntax=vbscript]cCellYTD, measures[/syntax]Nie wiadomo, który arkusz jest aktywny w momencie wykonywania kodu. Oznaczenie YTD, jeśli ma być użyte jak zaproponowałem, musi być pojedynczym tekstem formuły, a nie tablicą. W tej formule,...
Nie robiłeś dokładnie "tak", bo w kodzie masz After:=Workbooks("wczyt.xlsm"), co jest składniowo bez sensu: "wstaw nowy arkusz za plik wczyt.xlsm". Ja tylko dodam, że składnia [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh... nie zadziała jak trzeba, bo po otwarciu pliku, jak w przykładzie, aktywnym jest nowootwarty...
Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...
https://obrazki.elektroda.pl/1533250900_... BK7231T/BK7231N to popularny SoC WiFi i Bluetooth, szeroko stosowany w produktach Tuya Smart. BK7231 można znaleźć w inteligentnych gniazdach, inteligentnych żarówkach LED, inteligentnych przełącznikach itp. BK7231 zwykle występuje w postaci modułów, które są pin-to-pin kompatybilne z modułami...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
a może znasz inną metodę zapisu arkusza do pliku TXT tak by przy zapisie nie było "" "ciapek" Nie wiem, o której wersji mówisz, ale 2007, [syntax=vb]ActiveWorkbook.SaveAs Filename:="D:\Moje dokumenty\Desktop\Zeszyt1.csv", FileFormat:=xlCSV, CreateBackup:=False[/syntax] zapisuje bez cudzysłowów.
Bez makra tak się nie da. Najprościej to rozdzielić na 3 pliki. Jeden do obliczeń i dwa na dane. W tym pliku do obliczeń daj ścieżkę do innego pliku z danymi. Oba pliki z danymi muszą mieć tą samą nazwę umieszczone roboczo w dwóch różnych folderach. Po wprowadzeniu danych i zapisaniu kopiujesz plik z danymi tam gdzie podałeś ścieżkę w pliku do obliczeń....
W obu przypadkach jest to aktywny arkusz aktywnego skoroszytu. Ale dla pewności dopisz: [syntax=vbscript]n.ActiveSheet.Name = "Nazwa"[/syntax] za instrukcją warunkową.
Mam Makro, które pobierając dane z Arkusza zapisuje aktywny arkusz w lokalizacji określonej w komórce arkusza pod nazwą również pobieraną z komórki. Ograniczeniem jest to, że zapisywany jest aktywny arkusz. Co dopisać, aby do pdf były zapisywane arkusze, których nazwy również byłyby pobierane z komórki wskazanego arkusza? [syntax=vbscript]sub Export_to_pdf()...
Coś pokręciłaś z tym hasłem. Odblokować trzeba ten arkusz, do którego dane będą kopiowane, czyli: [syntax=vbscript]Worksheets(2).Unprotect Password:="123"[/syntax]Potem analogicznie zablokować. Oczywiści można też z Activesheet pod warunkiem, że ten arkusz (docelowy) będzie aktywny. Arkusz źródłowy może być chroniony. Odblokowana musi być w nim tylko...
Zestaw aktywny Mackie SRM450 v2 potrzebuję ustalić wartości rezystorów: R243 i R245 z oryginalnej PCB, gdyż schemat który jest dostępny odnośnie tej wersji nie ma naniesionych ostatecznych modyfikacji... Bezpośrednia odpowiedź - R243 = 560 kΩ (sekcja zasilacza/SMPS, strona “AMP-0029446‑XX Rev. H00”, arkusz 5). Źródło: schemat SRM450v2 (LOUD Technologies)....
https://obrazki.elektroda.pl/8674072300_... LN882H to układ SOC z procesorem Cortex M4F obsługujący 802.11b/g/n (Wi-Fi 2,4 GHz) i Bluetooth 5.1 (LE). LN882H oferuje 296KB RAM / 128KB ROM, 512KB~4MB Flash dla kodu aplikacji XIP i interfejs debugowania SWD. Peryferia LN882H obejmują 20 GPIO (QFN32) lub 12 GPIO (QFN24), interfejsy SPI/I2S/I2C/SDIO/UART,...
W Module1 jest makro. Zrobić aktywny arkusz z kolumny, naciśnij klawisz Alt-F8, wybierz 'kokos' i uruchomić
Bez makra: - zaznaczasz arkusze w których mają być wprowadzone zmiany (CTRL+LPM na kolejnych nazwach arkusza "zakładkach" lub mając aktywny pierwszy arkusz w którym mają być przeprowadzone zmiany, trzymając SHIFT klikasz na nazwę ostatniego arkusza do zmian i zaznacza Ci się "zakres" arkuszy) - mając zaznaczone arkusze, w aktywnym arkuszu dokonujesz...
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, żeby w danym zakresie czyściło zawartość ale z wyjątkiem...
aktywny
Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...
No bo dla niego cells(3,16) i cells(2,17) oznacza komórkę w aktywnym arkuszu uzupełnij to o Worksheets("license")
j - Jest to zmienna lokalna, nawet jeśli globalny, wciąż mówi się j=9 j = ActiveCell.Row - tak chce jeśli aktywny arkusz jest "Wypozyczenia" na jakim arkuszu je ComboBox ?
W skoroszycie znajduję się wiele arkuszy i z poziomu każdego z nich aktywuję arkusz "Menu" w ten sposób: [syntax=vbscript]Worksheets("Menu").Acti... I chciałbym w tym arkuszu mieć przycisk, który zareaguje tak jak opisałem powyżej, czyli: Mam już aktywny arkusz "Menu" klikam w przycisk, przenosi mnie do arkusza "A" wykonuje makro, przechodzi...
No tak if omija mi aktywny arkusz ..moge tu teżź podać nazwę konkretna..a jak wpisać do kolumny A z góry na dół np nazwy wszystkich arkuszy ktory znajdują sie w kazdym arkuszy na pozycji B2 czyli utworzyc taką liste
Jeżeli podczas działania makra aktywnym arkuszem jest "Arkusz uzgodnieniowy" to Twój kod pomimo tych błędów zadziała prawidłowo, ale jeśli aktywny jest inny arkusz, to kod nie zadziała. No właśnie i z tym wiąże się kolejny problem - ogólnie to makro wczytuje plik z określonej ścieżki poleceniem "GetOpenFilename" Tylko w ten sposób ma być wczytywane...
Witam Mam następujący programik do kopiowania wierszy który działa dobrze. Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza. Nie wiem jak rozumieć "G20" - którym się ustawia arkusz z którego ma być kopiowanie?? Public Arkusz_Nazwa As String Sub ewidencja_ksiegowa() End Sub Sub czysc() 'kopiowanie()' 'miejsce z kąd kopiowane...
Bo robi się ciemno. Jeśli podgląd wydruku jest ok, a błąd wydruku występuje w połączeniu z drukarką zewnętrzną spróbuj zapisać aktywny arkusz jako plik pdf a następnie wydrukować z dowolnego programu do wyświetlania lub edycji pdf (np. Acrobat reader).
Witam, Napotkałem dzisiaj dzwiny błąd i nie mam pojęcia jak go wyeliminować. W moim arkuszu mam 3 pzyciski do których podpiete są makra. Dzisiaj potrzebowałem zobić makro które duplikuje mi aktywny arkusz w tym samym skoroszycie i zmienia jego nazwe. Napisane makro w pełni mnie zadowala i spełnia oczekiwania, ale jest jeden problem gdy uruchamiam makro...
Dzięki wielkie. Teraz drukowanie jest już funkcjonalne. Na dziś zadam jeszcze dwa pytanka i dam se już spokój bo rano wczas trzeba wstać do roboty. Czy w sposób jaki zrobiłem zaznaczanie i odznaczanie wydruków da rady wykorzystać dodatkowy przycisk do zaznaczania i odznaczania jednocześnie wszystkich szychtownic tak żeby działało? Bo za nic nie mogę...
Moim zdaniem przyczyną problemu jest brak kwalifikowanego adresu komórki w funkcji umieszczonej w module ogólnym. Range("Q5") odwołuje się do komórki Q5 w arkuszu aktywnym. Jeśli przejdziemy do innego arkusza niż "pacjent", a funkcja się przeliczy, to będzie chciała pobrać dane z komórki Q5 w aktualnie aktywnym arkuszu, a tam ich nie znajdzie, więc...
Przepraszam, ale musiałam zmienić nicka, nie mogłam na starym zrobić odpowiedzi. Zrobiłam wzór. W arkuszu Etykieta maja być uzupełnione dane z arkusza BAZA, powiązanie danych przypisałam kolorami. Arkusz aktywny niech będzie Etykieta.
Dzień dobry, Proszę spróbować zastosować takie makro: [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim s As Long, n As Long, i As Long With ActiveSheet.UsedRange s = .Row n = .Rows.Count For i = 1 To n If .Cells(i, "A") > 0 And .Cells(i, "K") = "" Then .Cells(i, "K").Activate MsgBox ("Komórka K" & i + s - 1 & " nie została wypełniona."...
dobra a jak ustawić aby w pętli było podane lub przednia zdefiniowane wskazanie ktory to aktywny arkusz. Mam trzy Arkusze tj. Arkusz1 Arkusz 2 i Arkusz3 W arkuszu 1 mam dane które chce kopiować do Arkusza 2. bo po tej pętli chce realizować ten kod Sub copy1500() Dim r&, rw& Dim bs As Range, bw As Range Set bs = Sheets(1).Range("A:B") Set bw = Sheets(3).Range("A:B")...
If k <= Date Then Cells(k.Row, k.Column) = "" A jeżeli zakres nie jest w aktywnym arkuszu?
Alt + F11 Insert Modul tam to wklej [syntax=vb] Sub a_b() Application.ScreenUpdating = False For b = 1 To 1000 For a = 1 To 1000 Cells(a + 1000 * (b - 1), 3) = Cells(a, 1) & " " & Cells(b, 2) Next Next Application.ScreenUpdating = True End Sub [/syntax] Z makrami miał do czynienia? Aktywny arkusz musi być tem, gdzie Twóje A i B
Jak dla mnie śp. pamięci "kozak vba" "Charles Pearson" http://www.cpearson.com/excel/optimize.h... Ciekawa lektura, na trochę dogłębniejszą analizę. Kiedyś Piotr Majcher (pmsocho na YT) w jednym ze swoich filmików pokazał zastosowanie "Miernika do szybkości wykonywania się formuł w Excelu" (https://youtu.be/fWI8kHAyFtg). Więc z chęcią kiedyś potestuję...
Istnieja trzy sposoby. Z pomocą VBA ( pisanie kodu ), Formularzy lub Sprawdzanie poprawności. VBA pominiemy. Jezeli dane ( zebrane w kolumnie ) sa w tym samym aktywnym, arkuszu, mozna je szybko wybierać, edytować, za pomocą Sprawdzania poprawności. Recepta: 1. menu Dane/Sprawdzanie poprawności 2. Dozwolone/Lista 3.Żródło - wskazać zakres danych w kolumnie...
instrukcja "With" nie wpływa w ogóle Jeszcze jak wpływa np. With Sheets(1) .Cells(1,1) =5 'jest komorka A1 pierwszego arkusza Cells(1,1) = 5 jest A1 aktywnego arkusza End With
Witam. Mam napisaną aplikację w Excelu służącą do „pełnej” obsługi małego zakładu szklarskiego. Czyli pozwala na spisanie i wykazanie materiałów oraz prac wykonanych dla klienta, w oparciu o te dane – wystawienie faktury, pozwala na prowadzenie gospodarki materiałowej, archiwizuje faktury, prowadzi małą księgowość, posiada wykaz klientów...
Powiem tak: Nie spotkałem się z takim problemem ze "zwykłymi" plikami excela. Jednak wystarczy jeden plik z nieodpowiednio napisanym makrem który "rozwala" wszystko. Ktoś pisząc makro np. nie przewidział, że może być aktywny inny arkusz niż zamierzony w kodzie makra lub nie przewidział wyłączenia uruchomionej jakiejś procedury która może czeka na jakąś...
Hmm, z tym się jeszcze nie spotkałem. Na pewno aktywny masz arkusz NIE moduł (dwuklik, browser z lewej)? Jaką masz wersję Excela? Wrzuć zrzut ekranu informacji. Np u mnie: http://obrazki.elektroda.net/52_12895136...
Metoda PrintOut z klasy workshet nie powiodła się Uruchamiasz makro z aktywnego arkusza "formularz" :!: a drukujesz inny arkusz "oswiadczenie" :idea: Twój wcześniejszy kod jest jednoznaczny :D tj. ActiveWindow. Selected Sheets
Przesyłam jeszcze raz kod z komentarzami przy instrukcjach, które dopisałem lub zmieniłem. [syntax=vbscript]Sub zapisywanie() Dim zlec As Worksheet Set zlec = ActiveSheet 'zapamiętaj aktywny arkusz w zmiennej zlec Dim FindString As String FindString = ActiveSheet.Range("F3").Text 'zapamiętaj numer zlecenia ' należy użyć właściwości Text ze względu na...
Nie bardzo rozumiem o co właściwie pytasz. Ten kod, który cytujesz wyłącza funkcję autouzupełniania w momencie aktywacji arkusza. W zależności od tego, który arkusz jest aktywowany, możesz tę funkcję włączać lub wyłączać. Problem jest tylko z pierwszym arkuszem (tym który jest aktywny zaraz po otwarciu pliku), bo on nie jest aktywowany i dla niego to...
Chodzi o to, że cały arkusz musi być aktywny do edycji (będą wprowadzane dane). Dopiero po wciśnięciu blokady komórka ma zostać zablokowana tak, aby nikt nie mógł zmienić jej zawartości. Z góry dziękuję za pomoc.
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...
Witam ponownie. Jako że z poprzednim problemikiem sobie juz jakoś poradzilem, pojawił się niestety nowy. Posiadam wiele plików *.xls o różnych nazwach które posiadają identyczne nazwy arkuszy w tej samej kolejności. Chciałbym zamontować przycisk, który kopiowałby zawartość arkuszy o nazwie "Zrzut" z tych plików do nowego czystego arkusza. Dodam również,...
W tym przypadku to przejdzie, ale nie zawsze Jak nie będzie takiego przypadku szczególnego :D to proponuję Ci makro "wyszukajdaty", które uruchamiane skrótem ctrl+w wypisze w aktywnym arkuszu w jednej kolumnie pierwsze daty, a w drugiej - drugie daty :spoko: - tak jak na zrzucie i w załączonym pliku. 1054371 1054372
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
aktywny arkusz makro excel makro aktywny arkusz excel kopiować arkusz arkusz
dekoder spalony zamknięcie instalacji otwartej krzywe grzewcze pieca
prostownik tyrystor elektrownia wiatrowa
Serwisy magnetofonów kasetowych w Polsce: adresy i informacje Harczenie głośników z kartą Sweex SC016 - przyczyny i rozwiązania
