Snasui Excel Forum

Code: Select all

Private Sub Save_Click()
If Me.TextBox1.Value <> "" Then
    Dim irow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
    'Find first empty row in database
    irow = ws.Cells("2").Range(TextBox6.Value).Row
   
    'Copy The Data To The Database
    ws.Cells(irow, 2).Value = Me.TextBox1.Value
    ws.Cells(irow, 3).Value = Me.TextBox2.Value
    ws.Cells(irow, 4).Value = Me.TextBox3.Value
    ws.Cells(irow, 5).Value = Me.TextBox4.Value
    ws.Cells(irow, 6).Value = Me.TextBox5.Value
      
    Unload Me
    UserForm1.Show
    Else
    MsgBox "Please check Data", vbCritical
    End If
    
End Sub

Code: Select all

Private Sub UserForm_Initialize()
a = "List!B3:B19"
ComboBox1.RowSource = a
End Sub

Code: Select all

Sub Show()
    UserForm1.Show vbModeless
End Sub

Code: Select all

Private Sub Save_Click()
    If Me.TextBox1.Value <> "" Then
        Dim irow As Long
        Dim ws As Worksheet
        Set ws = Worksheets("Sheet1")
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        'Find first empty row in database
        irow = ActiveCell.Row
       
        'Copy The Data To The Database
        ws.Cells(irow, 2).Value = Me.TextBox1.Value
        ws.Cells(irow, 3).Value = Me.TextBox2.Value
        ws.Cells(irow, 4).Value = Me.TextBox3.Value
        ws.Cells(irow, 5).Value = Me.TextBox4.Value
        ws.Cells(irow, 6).Value = Me.TextBox5.Value
        ActiveCell.Offset(1, 0).Activate
    '    Unload Me
    '    UserForm1.Show
    Else
        MsgBox "Please check Data", vbCritical
    End If
End Sub

Code: Select all

Sub Show()
    UserForm1.Show vbModeless
End Sub

Code: Select all

Private Sub Add_Click()
'  If Me.TextBox1.Value <> "" Then
   Dim irow As Long
   Dim ws As Worksheet
   Set ws = Worksheets("S_Column1")
   Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
   'Find first empty row in database
   irow = ws.Cells(Rows.Count, 1) _
       .End(xlUp).Offset(1, 0).Row
       
   'Copy The Data To The Database
    If Range("A10") = "" Then
        ws.Cells(irow, 1).Value = 1
    Else
        ws.Cells(irow, 1).Value = Range("A9").End(xlDown) + 1
    End If
    ws.Cells(irow, 2).Value = Me.TextBox2.Value
    ws.Cells(irow, 4).Value = Me.TextBox3.Value
    ws.Cells(irow, 5).Value = Me.TextBox4.Value
    ws.Cells(irow, 9).Value = Me.TextBox5.Value
    ws.Cells(irow, 10).Value = Me.TextBox6.Value
    ws.Cells(irow, 11).Value = Me.TextBox7.Value
    ws.Cells(irow, 12).Value = Me.TextBox8.Value
    ws.Cells(irow, 15).Value = Me.TextBox9.Value
    ws.Cells(irow, 14).Value = Me.TextBox10.Value
    ws.Cells(irow, 16).Value = Me.TextBox11.Value
    
    Unload Me
    UserForm1.Show
'    Else
'    MsgBox "¡Ãسһé͹ÅӴѺ·Õè¡è͹", vbCritical
'    End If
End Sub