Generate Weekending date

[Bryan123]

Hi All,

I am doing Visual Basic and would like to know how i can convert this statement to return the weekending date. The result will only give me a count of days from sunday to the date on transdate.value but not the weekending.
WE.Value = Weekday(transdate.Value, vbSunday)

Please help me out!
Bryan

 

[Joe4]

Try this:

WE.Value = transdate.Value + (7 - Weekday(transdate.Value))

 

[Bryan123]

Hi, it says Run-time error 13 - Type mismatch. Don't know what's wrong with this.

 

[Joe4]

Does it make any difference if you remove the ".Value" references, i.e.

WE = transdate + (7 - Weekday(transdate))

If not, please answer the following questions:
How are WE and transdate declared?
What data type are they?
What is the value of transdate when the code runs?

Here is a simple example showing it working:

Sub Test()

    Dim transdate As Date
    Dim WE As Date
    
    transdate = Date
    WE = transdate + (7 - Weekday(transdate))
    
    MsgBox WE
    
End Sub

 

[Bryan123]

Hi, still having the same error.

1.
If ComboBox6.Value = "PEGA sampling" Then
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 19).Value = transdate.Value
2. This is just a date transferred from excel sheet to a textbox
3. i also have this when transferring data from excel sheet to the textboxes:
With Me.ComboBox1
.Clear
Application.ScreenUpdating = False
ListItems = employee
ListItems1 = employee2
For i = 1 To UBound(ListItems, 1)
.AddItem ListItems(i, 1)
.AddItem ListItems1(i, 1)
Next i
ComboBox1.ListIndex = 0
End With

 

[Joe4]

I am not sure what you are trying to show me with the code in youre previous post, and what that has to do with your original question.

Please post your original code, with my inserted function, and tell me which line of code is highlighted when the error occurs and you click "Debug".

 

[Bryan123]

I'm so sorry for the confusion. I think I'll have to use your function instead since it still has the same idea. Thank you very much for the help.