Para elsamatilde
Hola Elsa soy yo otra vez me gustaría saber como puedo tomar un valor de los sheets y que la macro me diga si es valor de caracteres o solo número es decir.
Tengo algo como esto
b = ActiveSheet.Name
Worksheets(b).Select
Entonces quiero que valla leyendo todos los que tenga en la hoja y que si son números se vallan a un lado es decir a un textbox de un userforms y si son letras a otro lado.
Espero puedas ayudarme aunque sea un poco, no es necesario me digas todo el código solo lo esencial, algo para darme una idea y empezar, es decir algunos comandos rápidos no sé, solo tu lo sabes, gracias...
Atentamente. Antonio
Tengo algo como esto
b = ActiveSheet.Name
Worksheets(b).Select
Entonces quiero que valla leyendo todos los que tenga en la hoja y que si son números se vallan a un lado es decir a un textbox de un userforms y si son letras a otro lado.
Espero puedas ayudarme aunque sea un poco, no es necesario me digas todo el código solo lo esencial, algo para darme una idea y empezar, es decir algunos comandos rápidos no sé, solo tu lo sabes, gracias...
Atentamente. Antonio
1 Respuesta
Respuesta de Elsa Matilde
1
Fíjate en las distintas comparaciones que realicé en un rango de A1:A10, donde contemplé los distintos tipos de datos que pudieras tener.
Sub revisahoja()
ActiveSheet.Range("A1").Select
While ActiveCell.Row < 10
If ActiveCell = "" Then
MsgBox "vacío"
ElseIf Val(ActiveCell) > 0 Then
MsgBox "numero"
ElseIf Val(ActiveCell) = 0 And ActiveCell <> 0 Then
MsgBox "letra"
Else
MsgBox "cero"
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Sub revisahoja()
ActiveSheet.Range("A1").Select
While ActiveCell.Row < 10
If ActiveCell = "" Then
MsgBox "vacío"
ElseIf Val(ActiveCell) > 0 Then
MsgBox "numero"
ElseIf Val(ActiveCell) = 0 And ActiveCell <> 0 Then
MsgBox "letra"
Else
MsgBox "cero"
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
