Por favor me pueden ayudar ya que tengo el siguiente codigo para buscar pero me sale error, por favor su apoyo.
Dim ult As Integer
Dim datoBusqueda As String
Dim ncontrato As Long
ult = transRowRng.Rows.Count
datoBusqueda = TextBox1.Text
If datoBusqueda = "" Then
MsgBox "Búsqueda cancelada", vbInformation, "Mensaje"
Exit Sub
Else
ncontrato = Val(datoBusqueda)
For j = 1 To ult
If Cells(j, 2) = ncontrato Then
cont = 1
fila = j
TextBox2.Text = Cells(j, 3)
End If
Next j
End If
If cont = 0 Then
MsgBox "Contrato no encontrado", vbInformation, "Resultado"
End If
Buenos Dias
Por favor me pueden ayudar ya que tengo el siguiente codigo para buscar pero me sale error, por favor su apoyo.
Dim ult As Integer
Dim datoBusqueda As String
Dim ncontrato As Long
ult = transRowRng.Rows.Count
datoBusqueda = TextBox1.Text
If datoBusqueda = "" Then
MsgBox "Búsqueda cancelada", vbInformation, "Mensaje"
Exit Sub
Else
ncontrato = Val(datoBusqueda)
For j = 1 To ult
If Cells(j, 2) = ncontrato Then
cont = 1
fila = j
TextBox2.Text = Cells(j, 3)
End If
Next j
End If
If cont = 0 Then
MsgBox "Contrato no encontrado", vbInformation, "Resultado"
End If
Gracias
BUSCAR.xlsm