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...
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
Przeglądam ten kod i widzę że nie muszę do daty dodawać ten jeden dzień. Wystarczy tylko równe dwa lata, bo dodanie równych dwóch lat dodaje ten jeden potrzebny mi dzień, czyli jeśli do daty 3.11.2014 dodam dwa lata to dostanę wynik 4.11.2016
: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...
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...
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...
Mam w oknie TextBox które służy mi do dodawania daty kod jak poniżej. Kod sprawdza czy dobrze zadałem format daty. Jednak czy można zrobić tak żeby kod zawsze brał pod uwagę jeden format daty niezależnie od regionu? Tz. chcę żeby kod zawsze zwracał datę w formacie 'dd.mm.yyyy'. Chodzi o to że mój plik często uruchamiam na czeskim komputerze a tam właśnie...
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?
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.
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....
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
Sprawdź, czy o to chodziło.
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006” adresy email. Chciałbym aby pętla do każdego...
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ę...
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...
https://obrazki.elektroda.pl/3950732000_... Dzięki za odp. Nie, są tylko kropki, ale nawet jakbym nie dodawał zmiennej, w której jest data to również pokaże błąd Wpisuję to do textboxa przy użyciu funkcji Date() Podrzucam obrazek.
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...
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...
Proszę powiedzcie mi w jaki sposób mogę z powrotem załadować danego pracownik z listy aby móc go prze edytować lub usunąć? Z samą opcją dodawania nowego pracownika poradziłem sobie. Może krótko opiszę jak to zrobiłem (zrobiłem to po swojemu tak jak potrafiłem). Jak już wprowadzę wszystkie dane pracownika to w przycisku 'Dodaj' mam kod: http://obrazki.elektroda.pl/1653474000_1...
Zrobiłem dodanie daty jak poniżej , gdzie danY to rok danM to miesiąc a danD to dzień. Data się dodaje ale dlaczego jak wpiszę do TextBoxów datę 9.8.2015 to do komórki dodaje się data 1905-01-08? I czy mogę datę dodać tylko z jednego TextBoxa? [syntax=vb].Cells(ostWrs + 1, "L") = DateSerial(Year(danY), Month(danM), Day(danD))[/syntax]
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...
Witam, wielokrotnie już mi pomogliście jednak znowu muszę was prosić o pomoc ponieważ zadanie przerasta moje (obecne) możliwości. Tak więc zaczynajmy. Muszę zrobić aplikację która będzie dawała mi możliwość dodawania różnych kwot gotówki (opłaty) a następnie pozwoli mi podzielić całą kwotę na raty (wpisana wartość raty będzie w Textboxie). Ogólnie będzie...
excel textbox dodawać wartość textbox dodawać excel
philips ustawić godzina sterownik ducati ibiza uszczelniacz
moduł komfort termet skoda felicia
UPS Ever Duo 2 nie włącza się po powrocie zasilania - przyczyny i rozwiązania Kolory przewodów w piekarniku Whirlpool - faza i neutralny