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: 61806 Skopiuj do schowka formularz makro
Autor Wiadomość
RafiG41
Stały bywalec Excelforum


Posty: 416
Wysłany: 06-07-2018, 20:08   

Tadek,

Dane wstawiłem formularzem, a czerwoną strzałką zaznaczyłem o co chodzi - wartość dla końcówki niepotrzebnie pojawia się w polu wyrobu.

REJESTR_przykład.xlsm
Pobierz Plik ściągnięto 42 raz(y) 31.07 KB

ID posta: 348874 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 404 razy
Posty: 1185
Wysłany: 06-07-2018, 22:43   

Drobna poprawka, zobacz teraz

REJESTR_przykład_1.xlsm
Pobierz Plik ściągnięto 38 raz(y) 31.18 KB

ID posta: 348877 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1561 razy
Posty: 4916
Wysłany: 07-07-2018, 07:52   

Rafig nie wstawiłeś do makr makra, które sprawdza czy wyrób jest liczbą 6-cyfrową.
A błąd, o którym piszesz mógłbyś poprawić sam.
W załączniku plik ze wszystkimi uzupełnieniami.

rejestr_4.xlsm
Pobierz Plik ściągnięto 41 raz(y) 30.24 KB

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


Posty: 416
Wysłany: 14-12-2018, 18:02   

Witajcie,

Wszystko działało super i coś przestało..
Po naciśnięciu przycisku DODAJ ZLECENIE, gdy w formularzu nie uzupełnię ostatniego okienka "Rozpocznij od palety numer" to pojawia się błąd kodu VBA w tej linii:
Kod:
.Cells(ost + k, 7).Value = k + Me.TextBox8.Value - 1

dane wpisują się do bazy (a nie powinny) i zdejmowana jest ochrona arkusza (a nie powinna).
To pole jest obowiązkowe do wypełnienia i powinien pojawić się komunikat, że nie uzupełniono wymaganych pól i nie pozwolić zapisać danych w bazie.
Ponadto po dodaniu już zlecenia do bazy widok przesuwał się do ostatniego dodanego wiersza, a teraz tego nie ma.
Czy możecie sprawdzić ten kod i podpowiedzieć mi co trzeba zmienić żeby działało prawidłowo?
Z góry dziękuję

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

ID posta: 358414 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1561 razy
Posty: 4916
Wysłany: 15-12-2018, 08:02   

Załącznik.

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

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


Posty: 416
Wysłany: 15-12-2018, 19:16   

Tadek bardzo Ci dziękuję.
Teraz jest dużo lepiej, ale czy można przerobić kod tak, aby pole "ilość sztuk na ostatniej palecie" nie było obowiązkowe do wypełnienia?
I po dodaniu już zlecenia do bazy widok żeby przesuwał się do ostatniego dodanego wiersza?
Z góry dziękuję

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

ID posta: 358464 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1561 razy
Posty: 4916
Wysłany: 16-12-2018, 08:05   

Załącznik

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

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


Posty: 416
Wysłany: 16-12-2018, 10:56   

Tadek wielkie dzięki. w tej części rejestr działa już idealnie.
ID posta: 358497 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 416
Wysłany: 05-01-2019, 10:22   

Tadek,

Przy dodawaniu nowego zlecenia do bazy, po dodaniu widok ucieka bardzo daleko w dół.
Czy można poprawić tak, żeby po dodaniu zlecenia do bazy widok był na ostatniej dodanej linii?
Spróbuj coś dodać w pliku i zobaczysz o co mi chodzi.

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

ID posta: 359740 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1561 razy
Posty: 4916
Wysłany: 05-01-2019, 11:55   

Pokombinuj w tym fragmencie makra:
Kod:
If ost < 20 Then
    ActiveWindow.SmallScroll Down:=20
    Else
    ActiveWindow.SmallScroll Down:=ost - 20
    End If

Ps. dlaczego pracujesz na dwóch różnych plikach na to samo?
Zdecyduj się na jeden, proponuje ten w załączniku.

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

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


Posty: 416
Wysłany: 05-01-2019, 18:55   

Tadek, próbowałem w podanym przez Ciebie fragmencie kodu zmieniać wartości z 20 na różne kombinacje w górę i w dół i nie pomaga - nadal widok przesuwa się daleko w dół. Podpowiesz coś więcej?
Pracuje na ostatnim pliku, na którym zostały wykonane jakiekolwiek poprawki - na najbardziej aktualnym.
ID posta: 359773 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1561 razy
Posty: 4916
Wysłany: 06-01-2019, 08:07   

Wcześniej piszesz tak:
Cytat:
I po dodaniu już zlecenia do bazy widok żeby przesuwał się do ostatniego dodanego wiersza?
teraz tak:
Cytat:
nadal widok przesuwa się daleko w dół.

Po dodaniu nowego zlecenia widocznych jest kilkanaście ostatnich wierszy i wybrana komórka w ostatnim wierszu.
Wobec powyższych zdań nie rozumiem o co Ci w końcu chodzi?
Podłącz załącznik i pokaż jak to ma wyglądać po dodaniu nowego zlecenia (dla klienta "nowy")

Ps. Nie kieruj pytań do Tatka, tylko ogólnie do uczestników Forum :!:
ID posta: 359787 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 416
Wysłany: 06-01-2019, 11:25   

Przyjmuję Twoje uwagi, bo jest mi ciężko opisać słowami to czego oczekuję.
Podłączam dwa pliki:
Pierwszy plik o nazwie "REJESTR_złe dodanie" - stojąc w komórce K100 nacisnąłem przycisk DODAJ ZLECENIE i wpisałem dane dla klienta NOWY i nacisnąłem przycisk DODAJ. Po zamknięciu formularza widok wygląda tak, że jest daleko na dole i tak nie chcę żeby było.
Drugi plik o nazwie "REJESTR_dobre dodanie" - stojąc w komórce A10 nacisnąłem przycisk DODAJ ZLECENIE i wpisałem dane dla klienta NOWY i nacisnąłem przycisk DODAJ. Po zamknięciu formularza widok wygląda tak jak chce żeby wyglądał.
Chodzi mi o to, żeby nie ważne w której komórce się stoi i doda się zlecenie, to żeby po dodaniu widok był taki jak w drugim pliku.

REJESTR_złe dodanie.xlsm
Pobierz Plik ściągnięto 22 raz(y) 453.5 KB

REJESTR_dobre dodanie.xlsm
Pobierz Plik ściągnięto 24 raz(y) 453.49 KB

ID posta: 359794 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1561 razy
Posty: 4916
Wysłany: 08-01-2019, 06:54   

Po prostu zastosuj makro na ukrywanie niepotrzebnych wierszy.
ID posta: 359953 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 416
Wysłany: 08-01-2019, 20:24   

Na jednej ze stron znalazłem takie oto makro na ukrywanie pustych wierszy:

Kod:
Sub HideRowsInCol()
 
  Dim lastRow
  lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
  Dim v_column

  v_column = 1
 
  For i = 1 To lastRow
 
    If (StrComp(Cells(i, v_column).Value, "", vbTextCompare) = 0) Then
        Cells(i, v_column).EntireRow.Hidden = True
    Else
        Cells(i, v_column).EntireRow.Hidden = False
    End If
   
  Next i
 
End Sub


ale gdy podpiąłem je w moim pliku to wyrzuca mi błąd w tym miejscu:
Kod:
For i = 1 To lastRow


Czy to makro nadaje się do mojego przykładu?
ID posta: 360015 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