Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub avgBtn_Click()
- Dim range1 As String
- Dim newdate As String
- range1 = TextBox3.Value + "," + TextBox1.Value + " " + TextBox2.Value + "," + TextBox4.Value
- newdate = range1
- Label7.Caption = newdate
- End Sub
- Private Sub cancelBtn_Click()
- Unload Task2
- End Sub
- Private Sub CommandButton1_Click()
- TextBox1.Value = ""
- TextBox2.Value = ""
- TextBox3.Value = ""
- TextBox4.Value = ""
- End Sub
- Private Sub UserForm_Click()
- Unload UserForm1
- End Sub
- Sub CommandButton2_Click()
- Dim myCell As Range
- Set myCell = Nothing
- On Error Resume Next
- Set myCell = Range(Me.RefEdit1.Value).Areas(1).Cells(1)
- myCell.value = newdate
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement