[syntax=vbscript]Private Sub CommandButton1_Click() Dim W As Workbook Set W = Workbooks.Open("C:\PlikiExcela\Zeszyt1.x... W.Sheets(1).Range("A1") = Me.TextBox1 W.Close vbYes End Sub[/syntax]
Super pewnie ale troszke nie wiem jak z tego skorzystać jak przekopiowuje do module to nie moge odpalic dacie jakas podpowiedz W swoim 'userform' musisz wywołać funkcje 'pastepicture' i w zależności od posiadanej wersji systemu będzie to win32 lub win64. (patrz co podał ci (at)adamas_nt chociaż on ładuje obraz do 'ramki')
[syntax=vb] Dim i as Integer For i = 3 to 36 OLEObjects("cmd" & i).Enabled = True Next i[/syntax] Kolekcją dla obiektów ActiveX jest OLEObjects, a nie jak to ma miejsce w UserForm - Controls. Co właśnie znalazłem, a czego nie wiedziałem. ;) Może się komuś przyda taka wiedza. ;) Edit: Tak to jest, jak się nie kopiuje, tylko pisze. ;)Zrobiłem literówkę...
Jak wyżej. W tym przypadku należy oprogramować zdarzenie ramki. Poniżej przykład dla Frame_Exit. Jednym z minusów jest to, że ramka "odezwie" się także przy zamykaniu formularza. Dlatego dodatkowy warunek i czyszczenie zawartości. Jeśli ramka służy tylko celom estetycznym, prościej będzie zamiast niej wstawić pusty Label z obramowaniem... [syntax=vb]Private...
Cells(NextRow, 1) = Cells(NextRow -1, 1) + 1
Proponuje zmienić nazwy zmiennych "placowka, podzespol" aby były różne dla każdego ComboBox. np. tak: [syntax=vbscript] Private Sub UserForm_Initialize() Dim ost As Long With Arkusz1 ost = .Cells(.Rows.count, "C").End(xlUp).Row If ost = 2 Then ComboBox1.AddItem .Range("C3").Value ElseIf ost > 2 Then placowka = .Range("C3:C" & ost).Value ComboBox1.List...
Tak, schodząc do poziomu bibliotek systemowych, klas bazowych i komunikatów Windows można zrobić z oknem wszystko. Dobre ćwierć wieku nie oglądałem już WM_MESSAGE :)
Trzeba odpowiednio sformatować wynik. Załącz przykładowy plik, a nie obrazki.
Czyżby taki prosty błąd?[syntax=vb] For i = 3 To ostWrs If (InStr(1, etat, "| " & .Cells(i, 5) & " |") > 0 Or .Cells(i, 5) Like etat) And _ (InStr(1, firma, "| " & .Cells(i, 9) & " |") > 0 Or .Cells(i, 9) Like firma) And _ (InStr(1, szef, "| " & .Cells(i, 10) & " |") > 0 Or .Cells(i, 10) Like szef) And _ (InStr(1, kopalnia, "| " & .Cells(i, 11) & "...
Nie, w UserForm, w sekcji UserForm_Initialize: Private Sub UserForm_Initialize() MultiPage1.Value = 0 DTPicker1.Value = Date MultiPage1.Value = 1 DTPicker2.Value = Date MultiPage1.Value = 2 DTPicker3.Value = Date End Sub
Listy dla pola kombi nie sortuj poza arkuszem, nie pozbierasz się z indeksami. Nie rozumiem natomiast dlaczego uparłeś się biegać przez ogródek, jeśli do furtki dwa kroki...
Wklej to w userforma [syntax=vb]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True MsgBox "Blokada" End If End Sub[/syntax]
[syntax=vbscript]Private Sub CommandButton1_Click() Sheets("Test").Select nw = Cells(Rows.Count, "E").End(xlUp).Row + 1 For x = 5 To 17 t = "TextBox" & x - 4 Cells(nw, x) = Me.Controls(t) Me.Controls(t) = "" Next End Sub [/syntax]
hmmm Rzeczywiście, coś tu jest nie tak
W tym wypadku zwykłe [syntax=vb]UserForm3.Show[/syntax] wystarczy. PS. Słowo "stworzyłem kalendarz" jest nieco na wyrost - po prostu użyłeś gotowej kontrolki, która w dodatku potrafi być problematyczna przy innych wersjach Excela. Jeżeli chciałbyś naprawdę stworzyć kalendarz od podstaw, proponuję zapoznać się z [url=http://www.elektroda.pl/rtvforum/to...
Tutaj [url=http://www.tek-tips.com/faqs.cfm?fi... gdzie jest opisane co i jak. W załączniku: zastosowanie w Twoim przypadku. Dorobiłem i podstawiłem do wywołania nową procedurkę.
Witaj, Zgaduję, że chodzi o Excela? Spróbuj zmieniać parametr Top i Left: UserForm1.Top=100 UserForm1.Left=100 Jeśli chcesz ustalać pozycję względną w stosunku do okna aplikacji macierzystej, możesz spróbować: UserForm1.Top=Application.Top+100 UserForm1.Left=Application.Left+100
Przy podwójnym kliknięciu to będzie coś takiego: [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 2 And Target.Column < 6 Then UserForm1.Show End If End Sub [/syntax]
Tu dodałem jeszcze usuwanie wiersza z pewnymi zabezpieczeniami edit: Teraz mi przyszło że zamiast przycisku edytuj kod z pod tego przycisku można umieścić na podwójnym kliknieciu w listbox (na danym wierszu) wtedy dane się zczytają do okienek edycyjnych. Podmieniłem załącznik
Może tak...
W arkuszu 2 komórki latwiej nie są scalone, ale tylko szeroki, łatwiej zarządzać nimi. Ocena to średnia ważona każdego parametru z jego wagą Z kazdego parametru wybierame tylko 1 wartosc. Z czego ta 'średnia ważona '. Napisz przyklad, jak liczyc ta 'średnia'
Na Twoim przykładzie dla przycisków '< ' a '> ' na arkuszach nie powinna oddzielne makra. Wystarczy dla dwóch. Dla '<' [syntax=vb] If ActiveSheet.Index >1 Then Activesheet.Previous.Activate [/syntax] Dla '>' [syntax=vb] If ActiveSheet.Index <9 Then Activesheet.Next.Activate [/syntax]
Chyba najprościej będzie wykorzystując UserForm(ik) z pętelką.
A tak może być?
Witam [syntax=vb]Dim tb As Control Dim wiz As Boolean wiz = Not (Index = "") For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Visible = wiz Next [/syntax] Jeśli jest to widoczne, ale zablokowany [syntax=vb]wiz = Index = "" For Each tb In UserForm1.Controls If tb.Name Like "txt*" Then tb.Locked = wiz Next [/syntax] nie zaleca się używania...
Witam, Możesz to zrobić prościej - przekazując referencję do kontrolki jako argument funkcji. Przykład: [syntax=vb]Private Sub TextBox1_Change() Call Wiadomosc(TextBox1) End Sub Private Sub TextBox2_Change() Call Wiadomosc(TextBox2) End Sub Private Sub TextBox3_Change() Call Wiadomosc(TextBox3) End Sub Private Sub Wiadomosc(ByRef sender As MSForms.TextBox)...
Poniżej przykład do pierwszej zakładki. Resztę zrobisz sobie analogicznie.
Może(w jednym programie ). Nie może w tym samym UserForm kilka UserForm_Initialize lub UserForm_Activate etc.
Pierwsza metoda - zdefiniować niektóre zmienne globalne i używać ich do przekazywania danych w innej formie
Podana odpowiedź nie rozwiązała problemu. Rozwiązanie problemu znalazłem za pomocą Google - www.onlinepclearning.com/excel-userform-...
google -> VBA pętla for Linków tam od groma :)
A jak to ma działać. Czy w tabeli mają się pojawiać kolejne wiersze po każdym wpisaniu danych do UserForm, czy też mają się kasować wpisy i pojawiać nowe w tym samym miejscu. Będzie mi wygodniej dokonać korekt jeżeli zamieścisz plik Excelowski ze wspomnianym UserForm i Makrem jako załącznik i zaznaczysz że za ściągnięcie nie pobierasz punktów.
zamiast exit sub daj pustą funkcję albo przypisanie jakiejś zmiennej do samej siebie
Pokaż co zrobiłeś do tej pory, załącz przykładowy plik (xlm spakuj do zip ).
miał na myśli przykładowy plik programu Excel z tym UserForm
Już znalazłem błędy - temat od zamknęcia
Witam, załączyłem poprawny plik z userformami
Zerknij do załącznika. Kod w arkuszu + UserForm. Kod uruchamia dwuklik w zakresie E2-E22 ;)
Witam Potrzebuję rady czy jest możliwość wydruku z UserForm Wstawiłem przycisk i podstawiłem kod UserForm2.PrintForm Drukuje cały panel, czy jest możliwość zmiany wydruku aby nie drukowało przycisków tylko wybrane miejsce i zarazem orientacja papieru do wydruku
okno userform wywołuję tak: Private Sub Workbook_Open() WYDRUK_ETYKIET.Show End Sub w moim przypadku najpierw włącza się excel - potem userform - następnie arkusze się minimalizują a skoroszyt nie - a chodzi mi o to aby cały arkusz włączał się zminimalizowany a userform zmaksymalizowane
Witam, Posiadam programik (nie ja go pisałem) który zmienia format liczby w zależności od podania ilości liczb znaczących oraz rozdzielczości liczby. Programik działa idealnie. Programik jest przypisany do Worksheet Arkusza1. Natomiast chciałbym program ten połączyć z UserForm wraz z textboxami. Podanie w textboxach liczby cyfr, rozdzielczości oraz...
Jeżeli masz zainstalowanego Adobe Readera, to po prostu zarejestruj makro w Excel-u, dodając na ekran nowy object : http://obrazki.elektroda.pl/9498049200_1... I zobacz co się zapisze. Potem możesz modyfikować ustawienia. Poszukaj w Google takiej frazy : "adobe pdf reader activex control vba".
Mam je wstawione na UserForm
gdzie dokładnie podmieniłeś ten skrypt?
Rozumiem, że chodzi o to, że nie ma formuły w dopisywanym wierszu. Dobrze myślę? Jak już masz formularz to możesz wyznaczać ten status VBA podczas zapisywania. Możesz też makrem wpisać tam kod formuły w tym dopisywanym wierszu. To nawet lepsze bo status staje się dynamiczny, będzie się zmieniał w czasie, ale użytkownik może zepsuć formułę.
Witaj A1...A30, ......G1...G30 co to jest? Objekty? (TextBox, Combo, Button, UserForm) ?
Próbowałem od nowa stworzyć aplikację i dalej ta sama sytuacja. Może jak mówi adamas_nt zastosować funkcję TimeSerial :?: Ale jak to zapisać :?: Pomóżcie, mam na poniedziałek oddać już tą aplikację :!:
Super właśnie tak chciałem żeby to działało. Wielkie dzięki. Mam jeszcze jedno pytanie czy jest jeszcze możliwość żeby na tym UserForm dodać przycisk "POWIĘKSZ" po kliknięciu którego otworzy się okno z powiększoną grafiką z pierwszego userform????
Jestem początkujący w temacie VBA więc nie wszystko zrozumiałem. Poprawiłem typ Change na Click i nic to nie dało /wręcz pogorszyło ponieważ dane w UserForm mogę teraz zmieniać/ dalej szukając np. nowak i wychodząc przyciskiem wyjście makro działa w tle bo nie kończy pętli. Działanie pętli powinno być przerwane po naciśnięciu /zlecenie, faktura, wyjście...
Dzień dobry, mam utworzony excel z userformem. Skoroszyt działa w ten sposób, że podczas włączenia pliku w pierwszej kolejności pojawia się User Form. Użytkownik loguje się. Po zalogowaniu uruchamia się makro, które zmienia poszczególne zakładki z veryhidden na visible. Użytkownik wprowadza dane w odkryte zakładki, zapisuje plik i później wchodzi tak...
jak go przesunąć lub zmienić wygląd etc. PPM nie działa Karta "Deweloper" > Tryb projektowania P.S. Jest to przycisk AciveX, wywołujący UserForm ;)
możliwość modyfikacji userform np zmienić nazwe w pasu okna lub zmienic jego kolor itp? Możesz odwoływać się do prawie wszystkich właściwości widocznych w okienku "Properties" formularza przy dowolnym zdarzeniu (kontrolek włącznie). Np Private Sub UserForm_Initialize() With UserForm1 .BackColor = RGB(255, 255, 0) .Caption = "kehn"...
Idealnie. Bardzo dziekuje!
Z tym pierwszym.
Mogłbyś prościej wytłumaczyć? Wchodzę do Visual Basic Excel tworzę nowy Userform, Wlkejam do Code ten kod z VB i co dalej? Na pasku znalazłem View-->Object ale to chyba nie to..
Udało mi się uporać z usuwaniem wybranej pozycji. Natomiast nadal jest problem z dodawaniem, tzn. dopóki dodaję kolejne pozycje do bazy i nie zamknę userforma z dodawaniem jest prawie ok. Prawie, bo baza nie zawsze na bieżąco aktualizuje listboxa. Większy problem pojawia się wtedy kiedy zamknę userforma odpowiadającego za dodawanie firmy do bazy i włącze...
Łatwiej będzie Umieść swój przykład Userform z kontrolami, komentarz gdzie i jak należy przekazać dane. Zależy, Unload lub Hide formy. I Twója drogę rozwiązywania.
zobacz to [syntax=vb]Private Sub UserForm_Initialize() ost = Worksheets("Kolor").Cells(Rows.Count, 1).End(xlUp).Row userform.SMkolor.rowsource = "Kolor!A1:A" & ost End Sub[/syntax]
też zmieniam na jeden userform Jeszcze jakbyś pożegnał Excel jako magazyn danych, na rzecz prawidłowo użytego SQL Programiści na normalnych narzędziach (upraszczając) mają gdzieś ilość stanowisk, ilość miesięcy itd. Zaprezentowanie "usług wg stanowiska i miesiąca" to jest tylko widok, okno (okno w sensie wycinka tabeli / wycinka czasu) z JEDNEJ tabeli...
Na forum umieściłem plik bez makr bo nie w nich jest problem lecz w userform1. Z makrami czy bez i tak się wiesza.
Trochę odgrzebuję temat, ale nie bardzo sobie potrafię poradzić z wykorzystaniem podanego rozwiązania do moich potrzeb. Pytanie jest takie: w jaki sposób można połączyć wyszukiwanie poprzez zawężanie zakresu? Innymi słowy, jeśli w polu "nr sali" wpisze jakaś wartość, to chciałbym, aby wpisując wartość w "Opis sali" wyszukiwał w zakresie już zawężonym...
problemem jest to ze data wyswietlana w listbox jest w amerykanskim formacie Bez obrazy, ale stwierdzam, że "leń patentowany" jesteś ... :-) ... "Rozwiązanie" masz pod nosem i sam się w pewnym sensie nim posługiwałeś. Właściwość " List " ... dlaczego nie sprawdziłeś składni tej właściwości ? " object.List(row, column) " Gdybyś zerknął w pomoc podręczną,...
Teraz wiem w czym problem. Twoja podpowiedź dotyczy trybu projektowania z poziomu arkusza excel. Moje pytanie dotyczy listbox'a umieszczonego na formatce userform.
Słowem: korekta OstW (walek33) i UserForm zamiast MsgBox (marek003)...
Panie Macieju, wrzucam plik. Makro jest w UserForm w przycisku "Zaloguj" Login: Jan1 Hasło: 12
W v.2007 działa (jeszcze) otwieranie w nowej instancji. Spróbuj [syntax=vbscript]Dim oExcel As Excel.Application Set oExcel = CreateObject("Excel.Application") oExcel.Workbooks.Open Filename:="c:\plik.xls" oExcel.Visible = True 'albo nie (domyślnie jest False) jeśli tylko pobierasz dane i zamykasz oExcel.Workbooks(1).Close SaveChanges:=False oExcel.Quit...
Witaj. Tak w tym stylu, ale : -z możliwością wybierania lub dodawania kolejnych arkuszy -wprowadzania danych kolejno po sobie z poziomu jednego wiersza coś w rodzaju formularza do wprowadzania danych. Mógłby to być po prostu jeden wiersz na Arkuszu1. http://www.coderscity.pl/ftopic862-0-asc... tu znalazłem Userform do wprowadzania danych i było...
Dzięki za podpowiedz, może powinienem załączyć plik od razu pewnie było by łatwiej, Pytam się o ten kod ponieważ jestem kompletnym laikiem w projektowaniu VBA (jeszcze 2 m-ce temu nie wiedziałem co to jest userform :)), Pozdrawiam
A u mnie działa ;) Podeślij plik.
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
Prośba o pomoc. Potrzebuję rozwiązać taki problem: mam utworzony userform z dwoma textboxami. Jak napisać procedurę aby po wpisaniu tekstu do textbox1 w drugim textbox2 wyświetlana była wartość przypisana w bazie do wartości w textbox1. Innymi słowy, jeśli w arkusz1 komórce A1 jest wartość "ZORRO" a w komórce B1 jest wartość 23 to chciałbym aby po wpisaniu...
Mam jeszcze jedno pytanie- mam w userform pola tekstowe textbox oraz przycisk. Chciałabym, aby po jego przyciśnięciu wszystkie pola były puste, bez tekstu. Ale tych pól mam dość sporo i nie chcialabym do każdego pisać oddzielnie komend txtBox1.Text= Empty bo zajęłoby mi to mnóstwo miejsca. Czy jest jakaś mozliwośc by w krótszej komendzie objąć zakres...
a jak uruchomię UserForm to na liście nic się nie pojawia ;/ Zmień zdarzenie Private Sub UserForm_Initialize()
Nie, do UserForm. For Each to znaczy "Dla kazdego"
Po analizie Twojego nowego załącznika spróbuje coś podpowiedzieć więcej. Wprawdzie autor postu nie odpowiada na szczegółowe pytania - ale "słowo się rzekło - kobyłka u płota" :D Plik przeanalizowałem i wg mnie takie funkcjonalności jakie opisywał m4xon zależy mi żeby makro zawierało listę funduszy (kodów), które można powiększać o kolejne nowe lub...
Kolega cbrman rzucił dobrą myśl. W przykładzie poszedłem ciut dalej. Lista w UserForm uruchamiana podwójnym kliknięciem. Spróbuj...
próbowałam coś z User Form Powinna koleżanka spróbować coś ze zdarzeniem arkusza 'Worksheet_SelectionChange'. To co nie wychodziło w UserForm, powinno tu zadziałać.
Jak już piszemy o różnych rozwiązaniach, to zaproponuję takie: Witam, mam pytanie. Jak zrobić i gdzie zapisać kod aby działał w momencie gdy w pliku stworzymy drugą zakładkę i pomalujemy zakres na żółto. Żeby wtedy userform się odpalał.
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
Jeśli ListBox wypełniasz przez RowSource, to przepisz listę do tablicy tymczasowej, wyzeruj i przypisz tablicę. Coś takiego: [syntax=vbscript]Private Sub UserForm_Initialize() Dim tbTemp() tbTemp = ListBox1.List ListBox1.RowSource = "" ListBox1.List = tbTemp End Sub[/syntax] Wtedy możesz dodawać przez AddItem. W innym przypadku będzie komunikat "Permission...
pozostaje mi pusty Excel bez skoroszytu poniewaz Private Sub dFinish_Click() ThisWorkbook.Save ThisWorkbook.Close End Sub Przypadkiem nie Excel 2007?
Poprawione, przepraszam za nieporozumienie
Witam Może coś takiego [syntax=vbnet]Private Sub ComboBox1_Change() obszar = "B1:T" & Cells(Rows.Count, "B").End(xlUp).Row TextBox1.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 2, 0) TextBox2.Text = Application.VLookup(ComboBox1.Value, Sheets("Arkusz1").Range(obszar), 3, 0) TextBox3.Text = Application.VLookup(ComboBox1.Value,...
Jakie pliki : Za pomocą UserForm otwieram inne pliki excel bądź foldery z takimi plikami W jakim celu: w celu znacznego przyspieszenia pracy, nie muszę bawić się w skróty, hiperłącza itp. tylko mam wszystko w jednym okienku Po co ukrywam: Bo chcę mieć tylko widoczne okienko UserForm - (które wygląda jak osobna aplikacja) i tylko ten plik excela, który...
Witajcie. Po aktualizacji z 14-go lutego, nie mogę uruchomić aplikacji w VBA. Dosyć rozbudowana aplikacja oparta na userformach z dynamiczną budową kontrolek. Pewne dane są czytane z nazwanych tabel. Excel 2016 .... działa wszystko bez zarzutu. Czy ktoś miał podobny problem??
Ad.1 Zerknij do ostatniej linii UserForm_Initialize. Tam jest przypisanie listy ComboBox'a do tablicy. Odwróciłbym to. Wykorzystałbym tę tablicę globalnie, z wypełnieniem jej już przy otwarciu pliku. W UserForm2 zamiast dodawania wartości do listy ComboBox'a w pętli, przypisywałbym tablicę. Plik co prawda będzie się otwierał ciut dłużej, za to inicjacja...
Excel nie ma kontrolek typu linia w zasobniku. Kod, który pokazałeś nie jest tym, czego szukasz. Owszem wyrysujesz linię na ekranie, ale nie jest to linia na formie. Pozostaje skorzystanie z autokształtów. Zobacz [url=http://www.andypope.info/vba/userfo... Do ściągnięcia pożyteczny w takich przypadkach dodatek (UFDrawer.xla) z formularzem...
Me.Hide ukrywa mi Ps3 kupno i otwiera userform do dodania gry
w TextBox wpisywana jest wartość raz z lewej strony a raz z prawej Zdaje się, że kolega Marek003 już z tym walczył. Co wywalczył, nie pamiętam, trzeba by poszukać tematu. Co do stawki. Wszystko jedno czy będziesz pobierał ją z label.caption, czy przypisywał do zmiennej. Jeśli do zmiennej, to poskładaj label.caption (jest typy String) przy UserForm.Initialize.
Dzień dobry, mam problem z bazą stworzoną w Excel z wykorzystaniem VBA. Baza zawiera 3 formularze UserForm (o różnym stopniu rozbudowania) , gdzie w zależności od potrzeb wprowadza się różne dane do bazy. Dane są zapisywane w odpowiednio przygotowanych tabelach, które na potrzeby działania poszczególnych UserForm pobierane są do tablic dynamicznych...
Można to zrobić np w ten sposób:[syntax=vb] Dim Nazwane_zakresy(2) Private Sub UserForm_Initialize() Nazwane_zakresy(0) = "zakres1" Nazwane_zakresy(1) = "zakres2" Nazwane_zakresy(2) = "zakres3" ComboBox1.List() = Nazwane_zakresy ComboBox1.ListIndex = 0 End Sub Private Sub ComboBox1_Change() ListBox1.RowSource = ComboBox1.List(ComboBox1.ListIndex) End...
Witam Pliki musisz pakować rar/zip itp. Co do ładowania danych do comboboxa odpowiedzialna jest część j.n musisz dopisać z jakiej zakładki są pobierane dane czyli [syntax=vbnet]Private Sub UserForm_Initialize() Dim i As Long i = 2 'bez nagłówka 'zapisanie do tablicy Do While Sheets("Articles").Cells(i, 1) <> "" AddItem Sheets("Articles").Cells(i,...
Witam, W ostatnich dniach stworzyłem UserFrom, którego zadaniem jest wysyłanie maila przy użyciu CDO Windows. Jeśli chodzi o efektywność, to kod działa poprawnie na komputerze z Windows 10 przy użyciu portu "25". Problem zaczyna się w momencie, kiedy plik zostaje przegrany na serwer Windows 2008. Otrzymuje ciągle informacje z błędem. https://obrazki.elektroda.pl/5947218100_...
Witam raz jeszcze, Mam nadzieję, że piszę już po raz ostatni w tym temacie, ale nie daje mi on spokoju, ponieważ makro traktuje wszystkie procedury jako True. A sądząc z warunku If, jeśli nie znajdzie odpowiedniego wymiaru w tabeli, to powinno być False. Nie wiem też czemu po podświetleniu w kodzie słowa knyps, zawsze wyświetla się knyps=True, a moim...
Dzień dobry, Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.N... ]. Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox: [syntax=vbscript]...
Dzięki. Już zdążyłem to znaleźć w międzyczasie. I ile zauważyłem to drukarka zmienia sie w Office 2010 w 2013 już nie. Korzystam z userform. Pzdr.
...ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Ten sposób ListView2.ListItems = "'BAAN 3'!G8:K97" ładowania danych NIE JEST poprawny dla ListView, zapomnij o nim. To działa tylko z ListBox'em. USUŃ z formy wszystkie ListBoxy które tam miałeś... Zamiast nich wstaw i skonfiguruj...
Witam, dodałem Application.Visible = False tak, żeby pokazywało tylko okno UserForm a nie pokazywało pliku Excela ale teraz nie mam jak zedytować teraz tego pliku bo jest ciągle ukryty a nie mam możliwości tego odkryć z tego UserForm, który mi się wyświetla. Jak to rozwiązać? Dziękuję z góry
... vba działa tak jak powinno ale po przeniesieniu do właściwego pliku i zmianie zakresów przestaje pokazywać miejsce docelowe jeszcze nie wiem o co chodzi ... ... :) ... warunki graniczne ... :) ... jak się je zmieni, to będzie działać dla innych ... :) ... to był tylko 'przykład', jak ten poniżej , dla całego arkusza w zakresie komórek: 65536 wierszy...
Przeglądałem. Na jeden wątek znalazłem już rozwiązanie co do pkt. z odświeżaniem. Po prostu dołączyłem do kodu uruchamiającego formularz w arkuszu 1 wiersz: "Call UserForm2.UserForm_Initialize" Cały kod uruchamiający: [syntax=vbscript]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 And Not Intersect(Target, Range("Description"))...
userform excel userform textbox excel userform excel lista
sterownik dogrzewacza oporność kabel antenowy wartość skuteczna napięcia tętnień
piaskownica windows lodówka haier a3fe742cmj
Toyota RAV4 – brak wyświetlania przebiegu po ustawieniu TISP, licznik nie pokazuje kilometrów Samsung F8000 (EF8000) TV Board Schematics: Service Manuals, BN44, BN94, Access Tips