Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Command5_Click() Dim Success As Boolean Dim Value As String Dim StringEntered As String StringEntered = "yjk65kg12dky" 'this will be textbox value entered by user Value = GetNumbers(StringEntered) If Val(Value) >= 5000 And Val(Value) <= 9900 Then 'now check if the correct letters are typed Success = True Else Success = False End If MsgBox Success End Sub Function GetNumbers(Value As String) As String 'extract and return numbers from a string Dim Index As Long Dim Digit As String Dim Final As String Dim Count As Long Count = 1 GetNumbers = space(Len(Value)) For Index = 1 To Len(Value) Digit = Mid(Value, Index, 1) If Digit Like "[0-9]" Then Mid(GetNumbers, Count, 1) = Digit Count = Count + 1 End If Next GetNumbers = Left(GetNumbers, Count - 1) End Function
|Why am I getting "No Duplicate Values Found" on this spreadsheet when there very clearly ARE duplicates?||12||395|
|Cannot Load VB6 on Windows 10. Installed OK but error on opening existing project.||7||115|
|Copy a row||12||69|
|how to loop through and process two columns in excel||8||46|