buscar registros en excel con vb

[oscardiaz]

 Buenas Sres.
    Busque y busque y solo encontre algo como esto :

                     Private Sub Command1_Click()
                           Dim nro As Integer
                           nro = Val(InputBox("Introduce el Nº"))
                           Data1.Recordset.FindFirst "Nº=" & nro
                           If Data1.Recordset.NoMatch Then
                           MsgBox "El Nº: " & nro & " No está en la Base de
                                                      Datos", vbExclamation, "Búsquedas de Nº"
                           End If
                    End Sub

  Se puede buscar un registro de una tabla excel directamente del form q estoy trabajando sin nececidad de tener q usar  "Val(InputBox("...."))"

Gracias

[seba123neo]

Hoal, ¿¿ estas trabajando en VBA ?? no entendi que estas usando,no sera Access ??

saludos.

[oscardiaz]

vb6 y con una tabla en excel.
Quiero hacer algo así como cuando se introduce un nombre y contraseña y el programa los busca en una base de datos.
Tengo dos campos "Nº" y "Sección" y dos textbox. En un textbox escribir el nro. y q el otro muestre el registro asociado.

[oscardiaz]

El código que escribí arriba sirve bien pero debo ingresar el nro. en un inputbox q aparece y es esto lo que quiero evitar.

[oscardiaz]

Bueno el asunto es q quiero sumar los registros correspondientes a la sección de varios alambres y queria hacer la busqueda un poco más rapida.... La cosa es q cuando empecé a sumar secciones el resultado fue algo inesperado... y no se cual puede ser el error, Código :

Private Sub Command2_Click()

Dim S As Single  'Sección
Dim n As Single   'Nº Conductores
Dim ST As Single   'Sección Total
S = Text2.Text
n = Text3.Text
ST = S * n
Label4.Caption = ST + Val(Label4)

End Sub

Y el resultado en el Label tiene demsiados decimales y la suma no es la correcta, hay variaciones de un nuero y los decimales no son los q deverían.
Alguna ayudita plis

[seba123neo]

pone que valores le estas poniendo y que valor te da la suma, asi vemos que esta mal...

[oscardiaz]

 Son valores con cuatro decimales (aquí mm2)

AWG         mm2

  1           42,4000
  2           33,6000
  3           26,7000
  4           21,2000
  5           16,8000
  6           13,3000
  7           10,5000
  8            8,3700
  9            6,6300
......

y por ej al escojer solo el primer valor 42,4000 en el label sale 42,4000015258. Si a este le sumo el segundo 33,6000 deberia arrojar por lo menos 79,00000152 pero arroja 75,5999984741, etc. (como hago para mostrar el form aquí ,je)

[Novlucker]

No entiendo ... 42+33 = 75 .. más los decimales da "75,algo" ... como dices que debería de dar por lo menos 79? 

El código que escribí arriba sirve bien pero debo ingresar el nro. en un inputbox q aparece y es esto lo que quiero evitar.

No lo pongas en un input, pasalo como valor directamente

Saludos

[oscardiaz]

Perdón dí vuelta el 6.. tienes razón... Bueno la cuestión es que el resultado no lo entrega con cuatro decimales y me entrega 9 o 10 de estos siendo q yo le ingreso los numeros de la tabla q tienen solo 4.

[oscardiaz]

Usé lo sgte. pero tampoco lo consigo:

Label4.Caption = Format((ST + Val(Label4)), "0,000")