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: 62435 Skopiuj do schowka Formularz wysłania raportu z rejestru
Autor Wiadomość
RafiG41
Stały bywalec Excelforum


Posty: 396
Wysłany: 01-09-2018, 10:42   Formularz wysłania raportu z rejestru

Witam,
Chciałbym rozpocząć nowy wątek, tym razem dotyczący utworzenia formularza poprzez który będzie wysyłany codzienny raport zmianowy.
Przygotowałem userform7 i na początek prosiłbym o pomoc z dwoma okienkami - data i komentarz.

REJESTR_wyslanie raportu.xlsm
Pobierz Plik ściągnięto 31 raz(y) 275.57 KB

ID posta: 351955 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 104 razy
Posty: 447
Wysłany: 01-09-2018, 11:39   

Co do daty - wybrałeś taki a nie inny sposób zdefiniowania listy dla comboboxa i to co widzisz jest tego efektem. Ja poszedłbym w makro tworzące listę, której format można by zdefiniować, ale żeby nie mieszać, w combobox1 wmontowałem obejście:
Kod:
Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1.Value, "yyyy-mm-dd")
End Sub


Komentarz - we właściwości textbox wystarczy ustawić MultiLine na true, WordWrap domyślnie jest na true (gdyby był przestawiony trzeba poprawić).

11 żółtych okienek - przestawiłem im Enabled na False - teraz nawet nie da się w nie kliknąć. Można zamiast tego ustawić Locked na True. Wtedy w textboxie możesz ustawić kursor, możesz skopiować wartość pola, ale nie możesz jej zmienić.

Kolor tła - Jesteś pewny, że oczo :// ny czerwony, żółty, lila, seledynek to dobry pomysł? Na tym mają ludzie pracować. Miej dla nich litość!

REJESTR_wyslanie raportu.xlsm
Pobierz Plik ściągnięto 26 raz(y) 248.04 KB

ID posta: 351956 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1416 razy
Posty: 4625
Wysłany: 01-09-2018, 17:11   

Załącznik.

REJESTR_wyslanie raportu.xlsm
Pobierz Plik ściągnięto 33 raz(y) 242.77 KB

ID posta: 351966 Skopiuj do schowka
 
 
Tajan


Pomógł: 4239 razy
Posty: 9438
Wysłany: 01-09-2018, 18:56   

Proponowałbym raczej:
Kod:
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "Short Date")
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Value = Format(Date, "Short Date")
End Sub
z uwagi na to, że właściwość Style dla ComboBox jest ustawiona na fmStyleDropDownList i kod będzie się krzaczyć gdy w systemie będzie zastosowany inny format daty niż "yyyy-mm-dd".
ID posta: 351970 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 396
Wysłany: 03-09-2018, 18:45   

Panowie dziękuję za Wasze odpowiedzi.
Moje uwagi i dalsze prośby opisałem w pliku zielonym kolorem.
Jeden temat wydaje mi się nadal nie rozwiązany - ten dotyczący komentarza i przechodzenia w nim poprzez ENTER - być może nie da się tak zrobić.
Opisałem kilka okienek obliczanych jak chciałbym żeby działały.
Nawodniłem bazę danymi dla dni 2018-08-15 i 2018-08-14 i na tych dniach bazujmy w userform7.
Wszystkie punkty za pomoc chciałbym przyznać wszystkim osobom po zakończeniu wątku.

REJESTR_wyslanie raportu.xlsm
Pobierz Plik ściągnięto 28 raz(y) 326.63 KB

ID posta: 352040 Skopiuj do schowka
 
 
Tajan


Pomógł: 4239 razy
Posty: 9438
Wysłany: 03-09-2018, 19:53   

Za przechodzenie do nowego wiersza enterem odpowiada właściwość EnterKeyBehavior ustawiona na wartość True.
Zwracam uwagę, że jeżeli działamy w ten sposób:
RafiG41 napisał/a:
Nawodniłem bazę danymi dla dni 2018-08-15 i 2018-08-14 i na tych dniach bazujmy w userform7.

To należałoby zmienić w UserForm_Initialize linię:
Kod:
ComboBox1.Value = Format(Date, "Short Date")
np. na:
Kod:
ComboBox1.Value = Format([Data].Cells(1, 1), "Short Date")
gdyż styl ComboBox'a nie pozwala wstawiać do niego wartości spoza listy, w tym przypadku daty bieżącej.
ID posta: 352044 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1416 razy
Posty: 4625
Wysłany: 04-09-2018, 08:16   

Załącznik.

REJESTR_wyslanie raportu2.xlsm
Pobierz Plik ściągnięto 22 raz(y) 274.75 KB

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


Posty: 396
Wysłany: 04-09-2018, 18:12   

Panowie dziękuję za plik i uwagi.
W arkuszu "koment" opisałem działanie pozostałych okienek w userform7.

REJESTR_wyslanie raportu2.xlsm
Pobierz Plik ściągnięto 21 raz(y) 268.14 KB

ID posta: 352103 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1416 razy
Posty: 4625
Wysłany: 05-09-2018, 08:12   

Załącznik

REJESTR_wyslanie raportu3.xlsm
Pobierz Plik ściągnięto 25 raz(y) 266.82 KB

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


Posty: 396
Wysłany: 05-09-2018, 17:00   

Tadek dziękuję.
Userform7 jest już przygotowany dobrze.
Teraz chciałbym prosić o przygotowanie przycisku PRZYGOTUJ RAPORT.
Po jego naciśnięciu chciałbym aby stworzył się nowy plik Excelowy z danymi z userform7 oraz danymi dla wybranego dnia i zmiany z bazy.
W załączeniu oprócz REJESTRU przesyłam także wzór jak chciałbym aby wyglądał ten plik-raport. Natomiast w REJESTRZE w arkuszu "koment do raportu" opisałem informacje do tego pliku.
Czy da się coś takiego zrobić?

REJESTR_wyslanie raportu3.xlsm
Pobierz Plik ściągnięto 24 raz(y) 268.35 KB

Raport_2018-08-15_1.xlsx
Pobierz Plik ściągnięto 24 raz(y) 12.19 KB

ID posta: 352175 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1416 razy
Posty: 4625
Wysłany: 08-09-2018, 07:28   

Cytat:
Teraz chciałbym prosić o przygotowanie przycisku PRZYGOTUJ RAPORT.
Po jego naciśnięciu chciałbym aby stworzył się nowy plik Excelowy z danymi z userform7 oraz danymi dla wybranego dnia i zmiany z bazy.
Ja to widzę tak:
1) pod przycisk podpiąłem makro, które przygotowuje raport w dodatkowym arkuszu "Raport",
2) Ty poszukasz na forum (było tego dużo) makro, które otworzy nowy plik i skopiuje do niego arkusz "Raport".

REJESTR_wyslanie raportu3 - Kopia.xlsm
Pobierz Plik ściągnięto 26 raz(y) 275.55 KB

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


Posty: 396
Wysłany: 08-09-2018, 19:35   

Tadek, dziękuję.
Twój pomysł jest dobry, ale z realizacją punktu drugiego mam problem.
Znalazłem takie makro jak poniżej, ale nie działa ono jak bym chciał:
Kod:

Sub copyreport()
Workbooks("REJESTR").Activate
Worksheets("Raport").Select
Selection.Copy
Workbooks("raport").Activate
Range("A1").PasteSpecial
End Sub


Edit: Zefirek
Proszę stosować znaczniki [code] przy wstawianiu kodów makr, kwerend i formuł, Regulamin 3.1
ID posta: 352376 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1416 razy
Posty: 4625
Wysłany: 09-09-2018, 06:46   

To szukaj dalej.
Zobacz tu: http://www.excelforum.pl/viewtopic.php?t=62203

i tu: http://www.excelforum.pl/viewtopic.php?t=62477
ID posta: 352393 Skopiuj do schowka
 
 
RafiG41
Stały bywalec Excelforum


Posty: 396
Wysłany: 11-09-2018, 17:36   

Tadek, trochę poszukałem i znalazłem prawie takie rozwiązanie jakie mi odpowiada, ale chciałbym Cie prosić o lekką modyfikację, aby w nazwie utworzonego pliku po tekście Raport pojawiała się data i zmiana z userform7 - żeby tytuł wyglądał tak: Raport_2018-08-15_poranna.
Nie wiem też jak podpiąć te makro pod przycisk PRZYGOTUJ RAPORT w uerform7. Czy mógłbyś podpowiedzieć jak umieścić ten kod we właściwym pliku REJESTR?

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

REJESTR_wyslanie raportu3.xlsm
Pobierz Plik ściągnięto 24 raz(y) 278.28 KB

ID posta: 352523 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1416 razy
Posty: 4625
Wysłany: 13-09-2018, 15:27   

Załącznik

REJESTR_wyslanie raportu_4.xlsm
Pobierz Plik ściągnięto 29 raz(y) 274.35 KB

ID posta: 352701 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