Niestety, nie działa. Mam błąd. Chciałbym mieć taki format: dd-miesiąc słownie ale wpisując do textbox'a muszę użyć też roku bo domyślnie wstawi mi 2011. Może przedstawię o co mi chodzi. Mam Userform na którym mam listview odczytujący dane z arkusza i w jednej kolumnie są same daty. Te daty w arkuszu są w formacie dd-miesiąc (słownie) a listview odczytuje...
To prawda, chodzi o prawidłowe formatowanie. W moim przypadku problem w tym że ja pracuję w Czechach i próbowałem to rozwiązać na polskim komputerze. Ostatecznie sprawdziłem poniższy kod na czeskim komputerze i działa jak najbardziej poprawnie: [syntax=vb]txtGornik = Format(DateAdd("yyyy", txtGornik3, txtGornik2), "d.m.yyyy")[/syntax] ...wykorzystałem...
Jeden z options - create objekt EXCEL - zrobić kopię z arkusz1 - Liczba wierszy i dodać kolumnę z datami. Następnie zaimportować w Access. Można inaczej. Po każdym imprtcie (jak teraz) - UPDATE <table> SET data_od WITH <data z TextBox> WHERE data_od IS NULL kolumny data_od data_do musi już być w bazie danych przed tym
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...
Ad.1 Czyścić i dodawać pasujące (odświeżyć) dane do listy ComboBox'a przy zdarzeniu Exit TextBox'a Ad.2 To zależy jak to ma być przedstawione. Np pomiędzy datami: 1-07-2015 i 30-06-2015 ile jest różnicy? 0, 1, czy może 0,03? Ad.3 WorksheetFunction.VlookUp(tu argumenty jak w arkuszowej), Range().Find, lub w klasycznej pętli.
:arrow: kehn Wg mnie powinno działać. Dla pewności przed każdym "Else" możesz dopisać "Exit Sub". Sprawdziłem początek Twojej procedury i u mnie działa. DTPicker jest kontrolką formularza (podobnie jak TextBox, ListBox, CommandButton) służącą do wybierania daty z kalendarza. :arrow: walek33 Proszę nie wprowadzać zamieszania. Nie ma żadnego logicznego...
Moje pytanie: czy można usunąć focus z TextBoxu po wykonaniu makra bez konieczności używania innego makra który przeniesie focus gdzie indziej? Ale nie musisz mieć makra żeby przenieś fokus dodajesz tylko np. jak masz inną kontrolkę kontrolka.setfocus
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...
Napisz coś co bardziej rozjaśni problem. W tytule piszesz że, chcesz dodawać nowy wiersz do arkusza a w treści że, będziesz dopisywał dane. To co w końcu? Jak pobierasz zmienne z UserForm i co z nimi robisz? Pozdrówka Chodzi o dodawanie informacji o nowym filmie, czyli wpisanie liczby porządkowej, tytułu, rozmiaru, czasu trwania, lokalizacji i informacji...
Witam, piszę program dodający studentów do bazy, ale nie wiem jakiej pętli użyć, aby po wciśnięciu Następny student dane zapisywały się w kolejnym wierszu, a pola textbox czyściły się. Myślę,że a=a+1 i zapis "Worksheets("arkusz1").Range("b" & a).Value = TextBox2.Text" będzie skutkował zapisem w kolejnym wierszu? Jeszcze jest problem pętli - teraz jest...
tak jak pisał kolega JRV OK. To działa poprawnie, wprowadzam to co chcę, klikam ENTER, dniówka zostaje dodana do arkusza i przeskakuje na następnego pracownika, ale Focus ucieka mi z tego TextBox-a (A1), a ja potrzebuję aby Focus pozostał w tym oknie. Dodaję do kodu A1.SetFocus ale to nie pomaga, w dalszym ciągu ucieka mi Focus Dodano po 6 Może zakłócać...
Hej, dzięki za pomoc, a czy podpowiesz jeszcze w którym miejscu dodawać te kopiowanie?
Zobacz Dim so As Long so = Sheets("Start").Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(so, 1) = so- 1 Cells(so, 2) = textbox1 Cells(so, 3) = textbox2 Cells(so, 4) = textbox3
Dodaję załącznik z plikiem oczywiście dane zostały zmienione. Gdy wchodzi się do pliku pojawia się na start userform wybieramy pierwszą opcję dodawania do magazynu. Gdy już będzie widoczny arkusz do wprowadzania danych to wpisujemy datę, z listboxa wybieramy selekcję następnie wpisujemy ilość w zielony textbox (jeżeli chcemy coś dodać) lub czerwony...
Witam Chciałbym prosić o wyjaśnienie przyczyny pewnego błędu. W mojej procedurze wykorzystuje metodę AddItem dla dodania nowej pozycji listy w kontrolce ComboBox. Wszystko jest ok gdy dodaję do listy kolejną pozycję problem pojawia się gdy na liście nie ma jeszcze żadnych pozycji, czyli gdy dodaję pierwszą pozycję. Fragment kodu wygląda tak: [syntax=vb]...
Jeśli chodzi o nagłówki. VBA jest "ślepy" jeśli przypisujesz listę inaczej niż przez RowSource... Po mojemu rozwiązanie z labelem jest wystarczające (i pewniejsze). Wyłącz nagłówki, dla labela ustaw Height=10 i Top=62 i będzie ładnie. Czyli pierwszy pomysł najlepszy. Ok Rozbudowałam formularz dodając ikonę z kalendarzem i Checkbox-y z dniami tygodnia....
Sprawdź, czy o to chodziło.
Ok. Jeśli chodzi o dodawanie pustych wierszy to wszystko jest już jasne. Mam kolejny dylemat związany oknem 'Ankieta'. Z tym już borykam się od dawna i niestety ja tego nie potrafię rozwiązać. W oknie jest filtr którym mogę sterować wyświetlaną listę pracowników. Na początku taki filtr wystarczał mi ale w trakcie mojej pracy okazało się że muszę się...
Próbuję dodać kolejne text boxy kopiując ten kod: Private Sub TextBox2_Change() If Len(TextBox2.Value) = 0 Then Arkusz1.AutoFilterMode = False Else If Arkusz1.AutoFilterMode = True Then Arkusz1.AutoFilterMode = False End If Arkusz1.Range("E3:F" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*" End If End Sub czyli dodając 3 wklejam...
Dzień Dobry Jestem bardzo początkującym użytkownikiem i nie mogę poradzić sobie z problemem, zrobiłem arkusz w którym rejestruję wjazdy samochodów do firmy, wszystko ładnie działa tylko jeszcze te samochody wyjeżdżają i chciałbym odnaleźć wcześniej dodany wpis o wjeździe auta na zakład i po np godzinie odnaleźć ten wpis i jak będzie wyjeżdżał to zrobić...
Cześć mam taki problem. W moim userformie mam dwa textboxy które miały by pokazywać daty. z tym ze: textbox5 pokazuje dzisiejszą datę ( i to działa) textbox6 miałby pokazywać datę w zależności od wartości z innego textboxa..(w którym pokazuje się wartość dzięki funkcji vlookup. (interesuje mnie głównie opcja zmiany daty o rok albo 2) dodam że samo dodawanie...
może ktoś będzie w stanie pomóc Spróbuj "pomóc sobie sam" :D W Twoim pliku xlsm spróbuj nagrać dodatkowe makra, które będą rejestrować cały pełny cykl poszczególnych działań (szukanie, dodawanie itp). Jak zaczniesz je analizować to powinieneś dostrzec zasadniczą różnicę :idea: Makra będą cały czas przerzucały aktywność pomiędzy poszczególnymi plikami...
Ojojoj! Toż to trzeba oprogramować ponownie od podstaw... Zaczynając od "lista = Range("Baza!B:B").Value" - tablica ma rozmiar = ilości wierszy w arkuszu = 1 048 576 w Excel 2007. Rozumiem, że do 'TextBox1' wpisywane będą kryteria do filtrowania listy 'ListBox2' zawierającą listę artykułów z "Bazy". Filtrowanie listy wielokolumnowej realizował kiedyś...
Witam, Przygotowuje narzędzie dzięki któremu druga osoba będzie mogła w prosty sposób dodać albo usunąć dane z arkusza. Dodawanie jest proste, gorzej z usuwaniem Stworzyłem UserForm a w nim TextBox1 gdzie użytkownik wpisuje wartość, którą chce usunąć. Po wpisaniu tej wartości w ListBox1 wyświetla się ta wartość lub sugeruje odpowiedź. Przykład: Użytkownik...
W momencie wyszukiwania w UserForm Daty w Listbox Pomijając kwestię wyszukiwania samej daty (odpowiedź już padła dwa razy), to: 1. Co to jest " myDate " ? Pojawia się w deklaracji, a potem od razu w funkcji "Format", nie ma żadnego przypisania, a więc tylko wartość "żadną" - "Me.ListBox1 = Format( myDate , "dd/mm/yyyy")" 2. Po co kasować pole listy...
Witajcie po raz kolejny potrzebuje waszej pomocy Szczerze mowiac to nawet nie za bardzo wiem jak opisac ten przypadek , ale sprobuje. W userform1 wpisuje kwote zakupu ktora jest przerzucana do userform11 jako label58 oraz textbox_punkty, nastepnie w TextBox_Klient wyszukuje klienta i po podwojnym kliknieciu dodaje punkty dla danej osoby w zaleznosci...
excel textbox dodawać wartość textbox dodawać excel
skraplacz ariston linek sprząc regulacja aktywna barwa dźwięku
generator sygnału stereo hotpoint ariston zmywarka
Części zamienne do tokarek MTP - gdzie szukać? Instalacja elektryczna Barton Sprint vs Falcon: różnice i podobieństwa
