Saldo en libros
Tengo un formulario, Un textbox1 y texbox2, quiero que al buscar un dato se me presente por ejemplo textbox1 =100.000 y el textbox2 =0, quiero que el texbox2 al tener 0 que false que no se vea y no se me muestre en el formulario; y si es el Texbox1 que no tiene nada, entonces que se el textbox2 que se me muestre y no el texbox1.
Esto a la hora de modificar un dato, que se modifique uno y no los dos. Que si voy a registrar un DÉBITO que nadie registre a la vez un CRÉDITO. El proyecto lo tengo casi terminado, esto es lo único que me falta. Les agradecería mucho que me ayudara
EXCEL 2010
{"Lat":9.2169531,"Lng":-83.336188}
1 respuesta
Mándame el fichero y así lo dejamos ya hecho y se me despejará alguna duda que me ha quedado.
Mándalo a
Pon como asunto el título de la pregunta y como nombre del libro algo alusivo a ser posible como por ejemplo
SaldoEnLibros.XLSM (o la terminación que tenga.
Pues creo que ya lo tengo. Aparte de hacer lo que decías, que es sencillo, me he permitido modificar la forma que tienes de interceptar los errores. No es bueno usar la instrucción
On error goto linea
On error resume next
Salvo para casos muy concretos y nada más se pasan las instrucciones que queremos controlar se debe ejecutar
on error goto 0
para que los otros errores se procesen de forma normal.
En este caso querías controlar el error de que no se hubiera encontrado un código en la base de datos, pero eso es mejor controlarlo con instrucciones normales como la que ves que he usado
Rango = .Range("b:b").Find(TX2, , xlFormulas, xlPart, xlByRows, xlNext, False)
If Not Rango Is Nothing Then
....
Else
.....
End If
Private Sub CommandButton1_Click() 'BUSCAR
Dim i As Long
Dim Rango As Range
If busco Then Exit Sub
Application.ScreenUpdating = False
With Sheets("SaldoCuenta")
Rango = .Range("b:b").Find(TX2, , xlFormulas, _
xlPart, xlByRows, xlNext, False)
If Not Rango Is Nothing Then
i = Rango.Row
TX1 = .Range("A" & i)
TX3 = .Range("C" & i)
TX4 = .Range("D" & i)
TX5 = .Range("E" & i)
If TX4 = "" Then
TX4.Visible = False: Label4.Visible = False
Else
TX4.Visible = True: Label4.Visible = True
End If
If TX5 = "" Then
TX5.Visible = False: Label5.Visible = False
Else
TX5.Visible = True: Label5.Visible = True
End If
Me.Tag = i
Else
MsgBox "No existen coincidencias", vbInformation, "ERROR"
End If
End With
Application.ScreenUpdating = True
End SubAhora mismo te mandaré el fichero, ojala te sirva. Si no es así pregúntame, y si ya está bien, no olvides puntuar.
