Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 62201 Skopiuj do schowka Formularz edycji danych palety
Autor Wiadomość
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 04-08-2018, 17:48   Formularz edycji danych palety

Witam ponownie w temacie kontynuacji tworzenia pliku o nazwie REJESTR.
Tym razem chciałbym prosić o pomoc w utworzeniu 3 formularza do edycji wpisanych danych.
To co mogłem to zrobiłem sam, tzn. skopiowałem userform2 i na jego podstawie powstał userform3, w którym dokonałem małych zmian - w kodzie dodałem opcję wyświetlania danych dla okienek textbox i combobox. Dodałem do niego też okienka, które były w userform1 tak żeby była możliwość poprawienia wszystkich danych dla wybranej palety.
To z czym sobie nie umiałem poradzić opisałem w pliku, w arkuszu "koment".
Czy mogę prosić o rozwiązanie moich problemów?

REJESTR_edycja.xlsm
Pobierz Plik ściągnięto 31 raz(y) 81.28 KB

ID posta: 350582 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1549 razy
Posty: 4902
Wysłany: 05-08-2018, 08:21   

Możesz. Zobacz w załączniku.

REJESTR_edycja - Kopia.xlsm
Pobierz Plik ściągnięto 37 raz(y) 95.73 KB

ID posta: 350591 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 05-08-2018, 17:45   

Tadek, jak zwykle można na Ciebie liczyć. DZIĘKUJĘ.
W arkuszu "koment" zielonym kolorem napisałem co jeszcze mi nie gra.
Proszę zadziałaj.

REJESTR_edycja.xlsm
Pobierz Plik ściągnięto 30 raz(y) 91.43 KB

ID posta: 350614 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1549 razy
Posty: 4902
Wysłany: 06-08-2018, 08:01   

Załącznik.

REJESTR_edycja (2).xlsm
Pobierz Plik ściągnięto 30 raz(y) 92.97 KB

ID posta: 350633 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 06-08-2018, 18:32   

DZIĘKUJĘ
Prośba jeszcze o modyfikację w userform3 okienka WYRÓB, żeby był 6-cyfrowy tak samo jak w userform1. Próbowałem to zrobić sam - skopiowałem z userform1 dwa kody dotyczące tego okienka, ale nadal nie działa ono tak jak w pierwszym formularzu. Proszę zerknij na tą sytuację.

REJESTR_edycja (2).xlsm
Pobierz Plik ściągnięto 29 raz(y) 100.07 KB

ID posta: 350679 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 331 razy
Posty: 1779
Wysłany: 06-08-2018, 21:30   

VBA > Userform3 > TextBox41 > MaxLength > ustaw 6.
https://msdn.microsoft.com/pl-pl/library/system.windows.controls.textbox.maxlength(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
I dbajmy - proszę - o poprawną polszczyznę.
ID posta: 350688 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 06-08-2018, 22:00   

DZIĘKUJĘ - formularz działa już tak jak chciałem.
ID posta: 350691 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 07-08-2018, 18:47   

Tadek,
zauważyłem jedną nieprawidłowość w userform2 i userform3 w okienku "Faktyczna ilość na palecie".
Powinno się w obydwu formularzach wyświetlać według warunku:
Jeżeli faktyczna ilość na palecie w kolumnie Q jest puste to pokaż dane z kolumny H (ilość sztuk na palecie), a jeżeli jest jakakolwiek wartość w kolumnie Q, to ta wartość powinna być pokazana w okienku "Faktyczna ilość na palecie".
Próbowałem sam napisać kod IF, ale nie wychodzi mi.
Czy mógłbyś podpowiedzieć jak napisać ten kod?

REJESTR_pobierz dane.xlsm
Pobierz Plik ściągnięto 31 raz(y) 67.87 KB

ID posta: 350751 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1549 razy
Posty: 4902
Wysłany: 08-08-2018, 08:13   

W makrze: Private Sub CB28_Change()
ten fragment kodu:
Kod:
    TextBox3 = .Cells(wiersz, "H").Value
zamień na taki:
Kod:
  If .Cells(wiersz, "Q") = "" Then
        TextBox3 = .Cells(wiersz, "H").Value
        Else
        TextBox3 = .Cells(wiersz, "Q").Value
    End If


REJESTR_pobierz dane (2).xlsm
Pobierz Plik ściągnięto 33 raz(y) 71.15 KB

ID posta: 350769 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 02-01-2019, 18:04   

Tadek,
Czy można zmodyfikować kod pod przyciskiem POPRAW DANE tak, żeby:
Jeżeli wyświetlony status wybranej palety jest inny niż NOWA to działanie kodu tak jak teraz, czyli, że obowiązkowo trzeba wypełnić wszystkie szare pola, zaznaczyć czy była naprawa i nacisnąć Oblicz (na przykład numer zlecenia 226554 i paleta numer 1).
Natomiast jeżeli status wybranej palety jest NOWA to żeby można było poprawić tylko te pola: klient, kod produktu, wyrób, rodzaj produktu, po maszynie, faktyczna ilość na palecie (na przykład numer zlecenia 126555 i paleta numer 5).
Z góry dziękuję

REJESTR.xlsm
Pobierz Plik ściągnięto 20 raz(y) 452.94 KB

ID posta: 359487 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1549 razy
Posty: 4902
Wysłany: 03-01-2019, 09:29   

Załącznik.

REJESTR - Kopia.xlsm
Pobierz Plik ściągnięto 19 raz(y) 414.41 KB

ID posta: 359531 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 03-01-2019, 18:18   

Tadek,
Po tej zmianie:
jak wpisze numer zlecenia, którego pierwsza paleta ma status NOWA to nie mogę wybrać innej palety niż 1 (na przykład zlecenie numer 126555).
Pola które chciałem żeby dla palet ze statusem NOWA były zablokowane, to na tych z wyborem z listy - nie mogę nic wybrać, ale jak stanę na te pole i coś wpisze z klawiatury to wybiera (na przykład w okienku zmiana wpisze literkę "d" to wyświetla się "poranna").
A gdy nacisnę przycisk WYCZYŚĆ DANE w formularzu to nie mogę potem wpisać nawet numeru zlecenia.

Warunek że jeżeli paleta ma status NOWA to mogę poprawić tylko te pola które wymieniłem w poprzednim poście nie pozwala mi poprawić tylko tych pól, a nadal każe uzupełnić pozostałe szare pola. Na przykład w zleceniu numer 126555 na palecie numer 1 chciałbym poprawić tylko faktyczną ilość sztuk na palecie że nie było 100 tylko 80, to po naciśnięciu przycisku POPRAW DANE wyświetla się komunikat żebym uzupełnił pozostałe szare pola i nie dokonuje tej poprawy. A chciałbym, żeby właśnie takie poprawy mógł zrobić.
ID posta: 359588 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1549 razy
Posty: 4902
Wysłany: 04-01-2019, 08:53   

Oj marudzisz, pomyśl trochę sam, przeanalizuj makra. :niee
Pola, które mają być zablokowane ustalasz w makrze "ZablokujKontrolki".
Załącznik.

REJESTR - Kopia2.xlsm
Pobierz Plik ściągnięto 25 raz(y) 434.26 KB

ID posta: 359639 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 414
Wysłany: 04-01-2019, 18:06   

Tadek,
Dziękuję i przepraszam za marudzenie.
Sam dodałem jeszcze blokowanie combobox10 - tak żeby nie można było zmienić statusu palety dla palety NOWA, a podpowiesz mi jeszcze jak do zablokowanych okienek dodać optionbutton1 i optionbutton2? Próbowałem w tym miejscu makra ZablokujKontrolki, ale nie działa:
Kod:
And kontrl.Name <> "TextBox3" And kontrl.Name <> "OptionButton1" And kontrl.Name <> "OptionButton2" And kontrl.Name <> "ComboBox11" _
And kontrl.Name <> "ComboBox12" Then
   If TypeName(kontrl) = "TextBox" Or TypeName(kontrl) = "ComboBox" Or TypeName(kontrl) = "OptionButton" Then
    kontrl.Locked = True
ID posta: 359688 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1549 razy
Posty: 4902
Wysłany: 04-01-2019, 20:22   

Nie może działać bo najpierw wykluczasz z blokowania, a później blokujesz.
Wystarczy tylko to:
Kod:
   If TypeName(kontrl) = "TextBox" Or TypeName(kontrl) = "ComboBox" Or TypeName(kontrl) = "OptionButton" Then
ID posta: 359699 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe