Snasui Excel Forum

Code: Select all

Private Sub TextBox5_AfterUpdate()
Dim SoundFile As String, rc As Long
SoundFile = "C:\Users\Administrator\Downloads\A_Drum.wav"

With Workbooks("DataX.xlsx").Worksheets("Sheet1")
Set rngVlp = .Range("a2", .Range("d" & .Rows.Count).End(xlUp))
If Me.TextBox5.Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Workbooks("DataX.xlsx").Worksheets("Sheet1").Range("A:D"), Me.TextBox5.Value) = 0 Then
'Me.TextBox5.Value = ""
MsgBox "Not found."
Exit Sub
End If
    Me.TextBox6.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 2, 0)
    Me.TextBox7.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 3, 0)
    Me.TextBox8.Text = Application.VLookup(CLng(Me.TextBox5.Text), rngVlp, 4, 0)
End With
With ThisWorkbook.Worksheets("IN")
    emptyrow = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
   End With
    With Worksheets("IN")
        .Cells(emptyrow, 1).Value = TextBox1.Value
        .Cells(emptyrow, 2).Value = TextBox2.Value
        .Cells(emptyrow, 3).Value = TextBox4.Value
        .Cells(emptyrow, 4).Value = ComboBox1.Value
        .Cells(emptyrow, 5).Value = TextBox5.Value
        .Cells(emptyrow, 6).Value = TextBox6.Value
        .Cells(emptyrow, 7).Value = TextBox7.Value
        .Cells(emptyrow, 8).Value = TextBox8.Value
        .Cells(emptyrow, 9).Value = TextBox9.Value
    End With
End Sub

Code: Select all

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Sub notift()
    Dim SoundFile As String, rc As Long
    SoundFile = "C:\WINDOWS\Media\ringout.wav"
    rc = mciSendString("Play " & SoundFile, "", 0, 0)
    Debug.Print rc
End Sub

Code: Select all

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub Sample2()
Worksheets("in").Range("A3:D1048576") = ""
    Dim SoundFile As String, rc As Long
    SoundFile = "C:\Windows\Media\tada.wav"
    If Dir(SoundFile) = "" Then
        MsgBox SoundFile & vbCrLf & "isNothing", vbExclamation
        Exit Sub
    End If
    rc = mciSendString("Play " & SoundFile, "", 1, 0)
End Sub

Code: Select all

'Other code
With Worksheets("IN")
    .Cells(emptyrow, 1).Value = TextBox1.Value
    .Cells(emptyrow, 2).Value = TextBox2.Value
    .Cells(emptyrow, 3).Value = TextBox4.Value
    .Cells(emptyrow, 4).Value = ComboBox1.Value
    .Cells(emptyrow, 5).Value = TextBox5.Value
    .Cells(emptyrow, 6).Value = TextBox6.Value
    .Cells(emptyrow, 7).Value = TextBox7.Value
    .Cells(emptyrow, 8).Value = TextBox8.Value
    .Cells(emptyrow, 9).Value = TextBox9.Value
    Call Sample2
End With
'Other code