VBA - UserForm - komunikat po kliknięciu OK (CommandButton)

1
1
314

Posiadam utworzony formularz do wprowadzania danych (user form). Chciałbym, aby po wpisaniu wszystkich danych, w momencie kliknięcia przycisku "DODAJ" (OKButton) wyświetlił się również komunikat (np. msg box), że dane zostały wpisane do wiersza w arkuszu.

Private Sub OKButton_Click()
Dim emptyRow As Long

'Make Sheet1 active
 Sheet1.Activate

'Determine emptyRow, wartości wklejane od kolumny ("x:x") + przesuniecie wiersza.
 emptyRow = WorksheetFunction.CountA(Range("B:B")) + 5

'Transfer do komórek
 Cells(emptyRow, 2).Value = KlientComboBox.Value
 Cells(emptyRow, 3).Value = NrkolaTextBox.Value
 Cells(emptyRow, 4).Value = NrrysTextBox.Value
 Cells(emptyRow, 5).Value = StanzmTextBox.Value
 Cells(emptyRow, 6).Value = MaterialComboBox.Value
 
 Cells(emptyRow, 7).Value = HumpwewnTextBox.Value
 Cells(emptyRow, 8).Value = TolhumpwewTextBox.Value
 Cells(emptyRow, 9).Value = HumpzewnTextBox.Value
 Cells(emptyRow, 10).Value = TolhumpzewTextBox.Value
 
 Cells(emptyRow, 11).Value = SzerobwewTextBox.Value
 Cells(emptyRow, 12).Value = TolszerobwewTextBox.Value
 Cells(emptyRow, 13).Value = SzerobzewnTextBox.Value
 Cells(emptyRow, 14).Value = TolszerobzewTextBox.Value
 
 Cells(emptyRow, 15).Value = WsoTextBox.Value
 Cells(emptyRow, 16).Value = WsotolTextBox.Value
 
 Cells(emptyRow, 20).Value = Grsci6TextBox.Value
 Cells(emptyRow, 21).Value = Grsci6tolTextBox.Value
 Cells(emptyRow, 23).Value = Grsci5TextBox.Value
 Cells(emptyRow, 24).Value = Grsci5tolTextBox.Value
 Cells(emptyRow, 26).Value = Grsci4TextBox.Value
 Cells(emptyRow, 27).Value = Grsci4tolTextBox.Value
 
 Cells(emptyRow, 29).Value = WymaTextBox.Value
 Cells(emptyRow, 30).Value = WymatoldolTextBox.Value
 Cells(emptyRow, 31).Value = WymatolgorTextBox.Value
 
 Cells(emptyRow, 32).Value = UtworzylComboBox.Value
 
 Cells(emptyRow, 33).Value = DataTextBox.Value
 
 Cells(emptyRow, 36).Value = UwagiTextBox.Value
 
End Sub

Zapytał
@ Stanisław | 11.09.2015
- 2
- 1
- 4

3

Witam.

Przed End Sub należy wpisać:

MsgBox "Dane zostały wpisane do wiersza arkusza"

Pozdrawiam.
Paweł Niemyt.

Komentarze (2)

Odpowiedział
@ pawel_niemyt | 15.09.2015

Komentarze

Dziękuję. Takie proste i działa :-) Czy byłaby możliwość aby w MsgBox dodatkowo wyświetlił się nr wiersza do którego zostały wpisane dane? U mnie wpisywane są wartości do pierwszego wolnego wiersza w kolumnie nr 2.

Skomentował : @ Stanisław ,15.09.2015

2
1
4

Witam,

wydaje mi się że:

MsgBox "Dane zostały wpisane do wiersza nr " & emptyRow

End Sub

Skomentował : @ Arkadiusz_Kwiatkowski ,17.09.2015

1
0
0

Pytanie