Private Sub ComboBox2_Change()
Dim var2 As String
If ComboBox2 = "" Then
Else
CommandButton1.Locked = False
Sheets("beneficiarios").Activate
If ComboBox2 = Empty Then
MsgBox "Para modificar primero seleccione beneficiarios", vbInformation, "Almacen"
ComboBox2.ListIndex = 0
ComboBox2.SetFocus
End If
var2 = ComboBox2.Column(0)
Cells.Find(What:=ComboBox2.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If var2 = ActiveCell.Value Then
TextBox1.Value = ActiveCell.Value
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
TextBox6 = ActiveCell.Offset(0, 5)
TextBox7 = ActiveCell.Offset(0, 6)
TextBox8 = ActiveCell.Offset(0, 7)
TextBox2.Locked = False
TextBox3.Locked = False
TextBox4.Locked = False
TextBox5.Locked = False
TextBox6.Locked = False
TextBox7.Locked = False
TextBox8.Locked = False
End If
End If
End Sub