Try this:
Private Sub CommandButton1_Click()
Dim RowLast as long
yourvariable = TextBox1.Value
RowLast=sheets("Sheet1").range("A1").End(xlDown).row + 1
If RowLast > (2^16) then
RowLast = 1
If len(Range("A1"))>0 then RowLast = 2
end If
Range("A" &...
Could you try this:
Public Function GetResult(Play1 As String, Play2 As String) As String
Dim P1 As Integer, P2 As Integer, ResultA As Integer
GetResult = "Not a game."
If Play1 <> "rock" And Play1 <> "paper" And Play1 <> "scissors" Then...
You can try this way:
Private Sub sampleLabel_Click(Index As Integer)
Dim TestAs New ADODB.Connection
Test.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=C:\AAA\Tables.mdb;"
Test.Open
End Sub
Please do not forget selecting...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.