napisał:  toczi1
postów: 75
 umieszczony:
24 lipca 2016
20:39
 edytowany:
25 lipca 2016
14:07
|
|
Trebor
Potestowałem i trochę zmodyfikowałem. Wysyłanie email chodzi dobrze zmieniłem ze podbiera osobę z kolumny B z arkusza 2 i wysyła ok tylko czy się da żeby nie potwierdzać wyślij żeby automatycznie wysyłało wiadomość bez potwierdzania w poczcie wyślij
Z modyfikowałem trochę przyciski i tak:
Działanie korygujące AZUP:
Jeśli klikasz podajesz numer AZUP i szukasz potem na to klikasz co wyszukało i wciskasz przycisk Dodaj działania i chciałbym ze jak wciśniesz dodaj działania wyskakuje okienko do wpisania działań korygujących kolumna J i jeśli zatwierdzisz to żeby zmieniało status na W TOKU i wysyłało email do osób z kolumny E i H z tego nr AZUP czyli z tego wiersza.
Zamknij AZUP:
Jeśli klikasz Zamknij AZUP podajesz numer AZUP z emaila i szukasz potem na to klikasz co wyszukało i wciskasz przycisk Zamknij AZUP i wtedy żeby wpisywało datę wprowadzenia w kolumne K i zmieniało status na Zamkniete i wysyłało email do osób z kolumny E i H z tego nr AZUP czyli z tego wiersza.
Tak bym to widział chyba wiesz o co mi chodzi
 |
|
|
napisał: Trebor
postów: 1209
umieszczony:
23 lipca 2016
17:41
|
|
Potestuj 1 część. Trochę ostatnio brakuje czasu. |
|
|
napisał: toczi1
postów: 75
umieszczony:
22 lipca 2016
22:09
edytowany:
22 lipca 2016
22:25
|
|
Potrafiłem tez do przycisku Dodaj AZUP dodać ComboBoxy żeby były z wyboru i utworzyłem listę tak żeby było mniej do roboty. I date tez podbiera do daty zgłoszenia w najprostszy sposób zrobiłem . Nie mam pojęcia jak w ten kod wstawić żeby dodawało wartości ComboBoxów do kolumn.
Bo jest tak ze ma wstawiac pierwsze 3 textboxy potem 2 comboboxy ale własnie ich nie ładuje.
Private Sub CommandButton3_Click()
Dim i As Integer, ostatni As Long
If TextBox1.Value = "" Then MsgBox "Wypełnij pierwsze pole tekstowe.": TextBox1.SetFocus: Exit Sub
With Sheets("BAZA_AZUP")
ostatni = .Columns("A:B").Find(What:="*", After:=.Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Do While .Cells(ostatni, 1) <> ""
ostatni = ostatni + 1
Loop
For i = 1 To 6
.Cells(ostatni, i) = Controls("TextBox" & i)
Next i
End With
Unload Me
End Sub
I zrobiłem tez 2 przyciski Szukaj AZUP i Zamknij AZUP opis co maja robić jest w poście wcześniej |
|
|
napisał: toczi1
postów: 75
umieszczony:
22 lipca 2016
16:29
edytowany:
22 lipca 2016
17:43
|
|
Witam przygotowałem wstepnie baze w pliku z dodaniem przyciksu Dodaj AZUP.
co bym potrzebował:
1.Aby w przycisku dodaj Pozycje LP oraz numer azup nadawało automatycznie. LP 1,2,3,itd a Numer AZUP : AZUP/ROK/NUMER KOLEJNY
2.Pola Osoba zgłaszająca, jednostka zgłaszająca, Osoba odpowiedzialna i jednostka odpowiedzialna oraz status zgłoszenia była wybierana z listy np z zakładki 2 tam bym wrzucił nazwiska i imiona osób jednosteK oraz status.
3.Data zgłoszenia żeby była podbierana automatycznie po kliknięciu DODAJ AZUP i wtedy żeby już to pole było wypełnione.
4. Jeśli ktoś to wypełni to po zatwierdzeniu dodaj, aby wysyłało automatycznie emaila z tekstem "Ze dodano nowe AZUP o numerze z kolumny C " do osoby zgłaszającej jak i odpowiedzialnej.
Wstępnie to by było tyle bo nie wiem czy jest możliwość ze Jeśli osoba odpowiedzialna wejdzie w ten plik i wyszuka poprzez przycisk makro np: szukaj AZUP i po wyświetleniu go w listboxie klikła 2 razy i żeby uruchomiło do wypełnienia kolumnę J i możliwość zmienienia statusu na W TOKU i po zatwierdzeniu żeby wysłało email do osób z kolumny E i H.
I przycisk Zakończ AZUP ze jesli osob odpowiedzialna wyszukuje po numerze zgłoszenie klika na nie 2 razy w list boxie i wyskakuj okno z opcja zmiany statusu na Zamknięte i tez po zatwierdzeniu wysyła emaila do osób z kolumny
E i H
I kosmetyka bo jeśli szukam pod statusem pokazuje mi 5 a nie wiem jak zmienić żeby podbierało inna kolumnę
Jest możliwe takie coś
Trebor Prosiłbym o pomoc |
|
|
wszystkich stron: 4
|
Baza AZUP.xlsm
wstecz