Snasui Excel Forum

Code: Select all

 
Private Sub CommandButton2_Click()

    'ActiveSheet.Unprotect "1234"

    Dim y As Long
    Dim x As Integer
    Dim z As Integer
    
        x = MsgBox("ยืนยันที่จะอัพเดทข้อมูล??", vbOKCancel, "แจ้งเตือน")
       If x = vbOK Then
        y = Worksheets("Data").Columns(2).Find(Sheets("Input").Range("H3").Value).Row
        
Sheets("Data").Cells(y, 2).Value = Sheets("Input").Range("C2").Value
Sheets("Data").Cells(y, 3).Value = Sheets("Input").Range("C3").Value
Sheets("Data").Cells(y, 4).Value = Sheets("Input").Range("C4").Value
Sheets("Data").Cells(y, 5).Value = Sheets("Input").Range("C5").Value

    z = MsgBox("แก้ไขข้อมูลเรียบร้อยแล้ว", vbOKOnly, "แจ้งเตือน")
        Else
        Sheets("Input").Select
    End If
    'Call Reset
    
End Sub

Code: Select all

Private Sub CommandButton2_Click()

    'ActiveSheet.Unprotect "1234"

    Dim y As Long
    Dim x As Integer
    Dim z As Integer
    
        x = MsgBox("ยืนยันที่จะอัพเดทข้อมูล??", vbOKCancel, "แจ้งเตือน")
       If x = vbOK Then
      y = Worksheets("Data").Columns(1).Find(Sheets("Input").Range("c1").Value).Row
        
Sheets("Data").Cells(y, 2).Value = Sheets("Input").Range("C2").Value
Sheets("Data").Cells(y, 3).Value = Sheets("Input").Range("C3").Value
Sheets("Data").Cells(y, 4).Value = Sheets("Input").Range("C4").Value
Sheets("Data").Cells(y, 5).Value = Sheets("Input").Range("C5").Value

    z = MsgBox("แก้ไขข้อมูลเรียบร้อยแล้ว", vbOKOnly, "แจ้งเตือน")
        Else
        Sheets("Input").Select
    End If
    'Call Reset
    
End Sub

Private Sub ListBox1_Click()
Dim say, lastrow As Long, a As Byte, i As Integer
On Error Resume Next
        i = Me.ListBox1.ListIndex
    If Me.ListBox1.Selected(i) = True Then
Sheets("Input").Range("C1").Value = Me.ListBox1.List(i, 0)
Sheets("Input").Range("C2").Value = Me.ListBox1.List(i, 1)
Sheets("Input").Range("C3").Value = Me.ListBox1.List(i, 2)
Sheets("Input").Range("C4").Value = Me.ListBox1.List(i, 3)
Sheets("Input").Range("C5").Value = Me.ListBox1.List(i, 4)
    End If
lastrow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Input").Activate
Sheets("Data").Range("A2:A" & lastrow).Find(What:=ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate


End Sub