Date inserted on userform wont work

[elynoy]

Hello once again.

I have a user form that gets data from one sheet and i want to edit that data and save it back to the same exact place.

the code I have works fine but while saving from the userform to the cell it wont work.

Here's the code I have to populate the userform:

Private Sub UserForm_Initialize()    Me.StartUpPosition = 0
    Me.Top = (Application.Height - Me.Height) / 2
    Me.Left = (Application.Width - Me.Width - 500)
    
    
'first tab


Me.tbA1i = sheets("ferias").Range("D7").Value
Me.tbA1f = sheets("ferias").Range("E7").Value


'second tab


Me.tbA2i = sheets("ferias").Range("D8").Value
Me.tbA2f = sheets("ferias").Range("E8").Value

End Sub

It's a 2 pages userform.

the code for the save button:

Private Sub CommandButton1_Click()    
    sheets("ferias").Range("D7").Value = Me.tbA1i
    sheets("ferias").Range("E7").Value = Me.tbA1f
    sheets("ferias").Range("D7").Value = Me.tbA2i
    sheets("ferias").Range("E7").Value = Me.tbA2f

    
End Sub

The problem is, what I'm typing into the userform are dates. 01-01-2019 for exemple. the userform inserts the right date exactly how I type inside the userform but then I have a condition formating and it wont assume the date entered in the respective cell unless I type manually inside that cell. Then the conditional formatting will work.

this is what I'm trying to achieve:

If I type the dates 01-01-2019 and 15-01-2019 with the userform it wont turn green.

Best regards,
eLy

 

[Fluff]

try these

Sheets("ferias").Range("D7").Value = CLng(Me.tbA1i)
or
Sheets("ferias").Range("D7").Value = CDate(Me.tbA1i)

 

[elynoy]

CDate works but if the cells are empty it gives type 13 mismatch error.

and if I open the userform again the dates it shows are diferrent from what I put in it.

I put 01-01-2019 and 15-01-2019. when I oepn the userf orm it shows like this:

Best regards,
eLy

 

[Fluff]

Do you mean if the textboxes are empty?
If so, you'll need to check that they aren't empty before using that code.

 

[elynoy]

yes, some text boxes are empty, not all of them need to have dates in them.

how can I do what you suggest? what do you mean by check that they arent empty? Sopme of them are supposed to me empty.

best regards,
eLy

 

[Fluff]

You're image does little to help as I have no idea what it represents.

Also why are you putting values into D7 & E7, only to immediately overwrite them, with other values?

 

[elynoy]

You're image does little to help as I have no idea what it represents.

Also why are you putting values into D7 & E7, only to immediately overwrite them, with other values?

Sorry I thought the image would help to show that It's supposed to be dd/mm/yyyy and not mm/dd/yyyy.

and I'm not replacing them immmediatly. I dont know why you said that.

best regards,
eLy

 

[elynoy]

Oh I see, on my code, one of those D7 and E7 are supposed to be D8 and E8. sorry

 

[Fluff]

For the command button try

Private Sub CommandButton1_Click()
   On Error Resume Next
   Sheets("ferias").Range("D7").Value = CDate(Me.tbA1i)
   Sheets("ferias").Range("E7").Value = CDate(Me.tbA1f)
   Sheets("ferias").Range("D8").Value = CDate(Me.tbA2i)
   Sheets("ferias").Range("E8").Value = CDate(Me.tbA2f)
   On Error GoTo 0
End Sub

And at the end of the Userform Initialize add

Me.tbA1i = Format(Me.tbA1i, "dd/mm/yyyy")

do this for all the textboxes

 

[elynoy]

Do I need to make all textboxes now or I can use just 1 to test? Doing it to tast only on one gives me the same error.
and the userform initialize doesnt load anything