Solo hace resta cuando compara combobox alfanumérico
Para Dante Amor
Hola Dan.. ¿Cómo estas?
Disculpa las molestias pero sabes que tengo un problema que le he dado hartas vueltas debe ser fácil pero no puedo solucionar...
Yo creo que es relacionado con la función Cdbl que pueda tener problemas "No se"...
Le podría enviar mi archivo es que por aquí no se como explicarle..
1 Respuesta
Dan
Ahí le envié el archivo a su correo...
Muchas gracias
Saludos
H o l a:
En esta parte la macro estaba buscando un texto en lugar de un número:
Set h = Sheets("Registros")
Set r = h.Columns("A")
Set b = r.Find(ComboBoxCodigo_Reb, lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
'detalle
If IsNumeric(ComboBoxLote_Reb) Then
wlote = Val(ComboBoxLote_Reb)
Else
wlote = ComboBoxLote_Reb
End If
If h.Cells(b.Row, "B") = wlote Then
Call ordenarstock(h.Cells(b.Row, "G"), b.Row)
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End IfAgregué la validación IsNumeric para verificar, si es número, entonces que busque un número, si es un texto, entonces que busque un texto.
':) ':)
Muchas Gracias Dan...
Funciona perfectamente la solución... "andaba cerca con lo de isnumenric en unos intentos de corregirla pero no me resultaba XD"
Saludos estimado...
