Luis_P

Prueb lo sgte '4c7569735f50 En el evento keypress del text2 seria: Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Label1.Caption = Val(Text1) + Val(Text2) End If End Sub Asi cuando das enter en el text 2, se vera el resultado...

4c7569735f50 Si pedro perez esta en a1 entonces seria: extrae(a1;1;encontrar(" ";a1;1))

Antes de todo... si me lo permites utiliza ADO para futuros proyectos. Respecto a tu problema intenta: txtSaldo= cdbl(rstComp_contable.Fields("SALDO")")

Para eso basta con que realizes una pequeña sub que compare lo generado v/s lo guardado. Como son 7 digitos en cada serie, te conviene crear un solo registro para realizar la comparacion, es decir concatena los 7 en uno, asi si generaste la secuancia...

Te sugiero mejor que lo hagas en excel... si lo haces en visual basic vas a complejizar algo muy sencillo de hacer en excel

¿Cuál es el rango de los datos de la "base de datos"? ¿Cuál es el rango a imprimir por cada registro ( rango)?

Eso hay que dividirlo en dos procesos 1.- Actualizar los registros para su campo area if tabla_a_id = tabla_b_id and tabla_a_area<> tabla_b_area then tabla_a_area = tabla_b_area En lo segundo, agregar los registros de tabla bv que no existen en tabla...

Si deseas pasar de un control a otro utiliza la propiedad setfocus 4c7569735f50 Ejemplo Si das enter en text1 y deseas pasar al text10 ( u otro control) pones esto: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus...

Prueba asi: '4c7569735f50 la fecha 19/03/2012 en celda a1 luego en donde deseas el resultado pones esta funcion: si(dia(a1)<=7;1;si(dia(a1)>=8 =y(dia(a1)<=14);2;si(dia(a1)>=15 =y(dia(a1)<=21);3;si(dia(a1)>=22 =y(dia(a1)<=28);4;si(dia(a1)>28;5)))))

Sub ver() Dim es As Long '4c7569735f50 es = Val(InputBox("Lineas a ver", , 5)) If Len(Trim(es)) = 0 Then Exit Sub If es = 0 Then Exit Sub es = es + 1 Rows(es & ":" & es).Select Range(Selection, Selection.End(xlDown)).Select Selection.EntireRow.Hidden...