Immissione textbox data obbligatoria in Excel

Question

Gentilissimi,

mi sono bloccato da qualche giorno su di una userform con due textbox e due combobox con associato un command bottom per memorizzare i dati inseriti all'interno di un foglio Excel. Orbene, il trasferimento del contenuto avviene correttamente; ho la necessità comunque di obbligare l'inserimento della data nella corrispondente textbox.

Potreste gentilmente darmi una dritta? Di seguito il codice che ho associato al pulsante di comando SALVA

Vi ringrazio sentitamente

Nicola

Private Sub cmdsalva_Click()
Sheets("CONTABILITA").Activate
Dim iRow As Integer
iRow = 1
While Cells(iRow, 1).Value <> ""
iRow = iRow + 1
Wend
If Me.data.Text = " " Then
MsgBox ("Data Obbligatoria")
data.SetFocus
Else
Cells(iRow, 1) = iRow + 1
Cells(iRow, 2) = NOME
Cells(iRow, 3) = Me.data.Text
Cells(iRow, 4) = Val(Replace(importo, ",", "."))
Cells(iRow, 5) = modpag.Value
Cells(iRow, 6) = Format(data.Value, "mmmm")
ur = Sheets("contabilita").Range("A65536").End(xlUp).Row
lista.RowSource = "contabilita!A20:F" & ur
MsgBox "Salvataggio effettuato"
End If
NOME = " "
data = " "
importo = " "
modpag = ""
End Sub

Answer 1

Ciao Nicola

Sono AnnaThomas e sarei felice di aiutarti con la tua domanda. In questo forum, siamo consumatori Microsoft proprio come te.

Sembra che tu stia cercando di forzare l'utente a inserire una data nella casella di testo "dati" prima di salvare i dati nel foglio Excel.

Ecco il codice modificato:

Sub privato cmdsalva_Click() Fogli ("NUMERABILITÀ"). Attivare Dim iRow come numero intero iRow = 1 Mentre le celle (iRow, 1). Valore <> "" iRow = iRow + 1 Andare If Trim(Me.data.Text) = "" Then MsgBox ("Data obbligatoria") Me.data.SetFocus ElseIf Not IsDate(Me.data.Text) Then MsgBox ("Data non valida") Me.data.SetFocus Altro Celle (iRow, 1) = iRow + 1 Celle(iRow, 2) = NOME Cells(iRow, 3) = Me.data.Text Celle(iRow, 4) = Val(Replace(amount, ",", ".")) Celle(iRow, 5) = modpag. Valore Celle(iRow, 6) = Formato(data. Valore, "mmmm") ur = Fogli ("contabilità"). Range("A65536"). Fine(xlUp). Fila lista. RowSource = "contabilità! A20:F" e il tuo MsgBox "Salvato" Fine Se NAME = "" data = "" importo = "" modpag = "" Fine sub

Spero che questo aiuti ;-), fammi sapere se questo è contrario a ciò di cui hai bisogno, sarei comunque utile per rispondere a più delle tue domande.

Migliori saluti

AnnaThomas

Restituisci alla comunità. Aiuta la persona successiva con questo problema indicando se questa risposta ha risolto il tuo problema. Fare clic su Sì o No nella parte inferiore.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.

Answer 2

Grazie mille funziona benissimo.