Caracteres

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Para ver si es numero prueba con

IsNumeric


SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia


"Manny_90" escribió en el mensaje
news:

Que tal.

Me gustaria que me ayudaran a disenar una macro para detectar caracteres
NO
NUMERICOS

En la hoja 1, rango A2: A100 debo de tener numeros del 0 AL 9.
En la hoja 2 , necesito ir agregando uno a uno aquellas celdas que no
contengan esos valores, es decir que no sean numericos.

Tengo algo , pero solo me falta ese codigo..

For Fila = Range("a2").Row To Range("a65536").End(xlUp).Row Step 1
If Range("a" & Fila).Find(what:=" ", lookat:=xlPart) Is Nothing Then
Else
Sheets("Validation of " & HOJ & "").Range("A65536").End(xlUp).Offset(1,
0).Value = "There is a space in the row # " & Fila & ""
End If
Next


En este solo encuentra espacios, pero quiero que sea para valores no
numericos..


De antemano les agradezco su ayuda.
Mil Gracias
Manny

hola, !

prueba con los filtros avanzados por codigo (ya tienes algunos ejemplos de correos y archivos anteriores)
donde indiques que el rango de extraccion sera en la segunda hoja

lo que no ha quedado claro es si necesitas traspasar cualquier celda diferente de 0 a 9
o solo aquellas que contengan caracteres no numericos (???)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

Me gustaria que me ayudaran a disenar una macro para detectar caracteres NO NUMERICOS
En la hoja 1, rango A2: A100 debo de tener numeros del 0 AL 9.
En la hoja 2 , necesito ir agregando uno a uno aquellas celdas que no contengan esos valores, es decir que no sean numericos
Tengo algo , pero solo me falta ese codigo..
For Fila = Range("a2").Row To Range("a65536").End(xlUp).Row Step 1
If Range("a" & Fila).Find(what:=" ", lookat:=xlPart) Is Nothing Then
Else
Sheets("Validation of " & HOJ & "").Range("A65536").End(xlUp).Offset(1, 0).Value = "There is a space in the row # " & Fila & ""
End If
Next
En este solo encuentra espacios, pero quiero que sea para valores no numericos...

Que tal Hector.

Sabes de que lo intente con filtros avanzados y no me sale.

Ahora... las celdas solo necesitan contener datos no numericos. solo que
contenga por ejemplo: 1", 3., 4$, 6:,./..etc


Mil gracias
Manny 90





"Héctor Miguel" wrote:

hola, !

prueba con los filtros avanzados por codigo (ya tienes algunos ejemplos de correos y archivos anteriores)
donde indiques que el rango de extraccion sera en la segunda hoja

lo que no ha quedado claro es si necesitas traspasar cualquier celda diferente de 0 a 9
o solo aquellas que contengan caracteres no numericos (???)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> Me gustaria que me ayudaran a disenar una macro para detectar caracteres NO NUMERICOS
> En la hoja 1, rango A2: A100 debo de tener numeros del 0 AL 9.
> En la hoja 2 , necesito ir agregando uno a uno aquellas celdas que no contengan esos valores, es decir que no sean numericos
> Tengo algo , pero solo me falta ese codigo..
> For Fila = Range("a2").Row To Range("a65536").End(xlUp).Row Step 1
> If Range("a" & Fila).Find(what:=" ", lookat:=xlPart) Is Nothing Then
> Else
> Sheets("Validation of " & HOJ & "").Range("A65536").End(xlUp).Offset(1, 0).Value = "There is a space in the row # " & Fila & ""
> End If
> Next
> En este solo encuentra espacios, pero quiero que sea para valores no numericos...

hola, !

... lo intente con filtros avanzados y no me sale.
... las celdas solo necesitan contener datos no numericos
solo que contenga por ejemplo: 1", 3., 4$, 6:,./..etc

si podemos suponer que tus datos estan la hoja1 en el rango A2: A100
y deben contener (solo) numeros de 0 a 9 y que las siguientes columnas estan libres

1) salta una columna y usa solo dos celdas para los criterios:
- la primer celda en blanco
- en la segunda celda solo una formula como alguna de las siguientes:
op1: =y(largo(a2)=1,esnumero(a2))
op2: =estexto(a2)

2) usa una macro +/- como la siguiente (ajusta los nombres de las hojas)
(suponiendo que los criterios estan en el rango C1:C2 incluyendo la celda en blanco C1):

Sub Filtra_NoNumeros()
Worksheets("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("hoja1").Range("c1:c2"), _
CopytoRange:=Worksheets("hoja2").Range("a1")
End Sub

saludos,
hector.

__ previos __

prueba con los filtros avanzados por codigo (ya tienes algunos ejemplos de correos y archivos anteriores)
donde indiques que el rango de extraccion sera en la segunda hoja

lo que no ha quedado claro es si necesitas traspasar cualquier celda diferente de 0 a 9
o solo aquellas que contengan caracteres no numericos (???)

__ OP __

Me gustaria que me ayudaran a disenar una macro para detectar caracteres NO NUMERICOS
En la hoja 1, rango A2: A100 debo de tener numeros del 0 AL 9.
En la hoja 2 , necesito ir agregando uno a uno aquellas celdas que no contengan esos valores, es decir que no sean numericos
Tengo algo , pero solo me falta ese codigo..
For Fila = Range("a2").Row To Range("a65536").End(xlUp).Row Step 1
If Range("a" & Fila).Find(what:=" ", lookat:=xlPart) Is Nothing Then
Else
Sheets("Validation of " & HOJ & "").Range("A65536").End(xlUp).Offset(1, 0).Value = "There is a space in the row # " & Fila & ""
End If
Next
En este solo encuentra espacios, pero quiero que sea para valores no numericos...

exelente..


m,il gracias

"Héctor Miguel" wrote:

hola, !

> ... lo intente con filtros avanzados y no me sale.
> ... las celdas solo necesitan contener datos no numericos
> solo que contenga por ejemplo: 1", 3., 4$, 6:,./..etc

si podemos suponer que tus datos estan la hoja1 en el rango A2: A100
y deben contener (solo) numeros de 0 a 9 y que las siguientes columnas estan libres

1) salta una columna y usa solo dos celdas para los criterios:
- la primer celda en blanco
- en la segunda celda solo una formula como alguna de las siguientes:
op1: =y(largo(a2)=1,esnumero(a2))
op2: =estexto(a2)

2) usa una macro +/- como la siguiente (ajusta los nombres de las hojas)
(suponiendo que los criterios estan en el rango C1:C2 incluyendo la celda en blanco C1):

Sub Filtra_NoNumeros()
Worksheets("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("hoja1").Range("c1:c2"), _
CopytoRange:=Worksheets("hoja2").Range("a1")
End Sub

saludos,
hector.

__ previos __
>> prueba con los filtros avanzados por codigo (ya tienes algunos ejemplos de correos y archivos anteriores)
>> donde indiques que el rango de extraccion sera en la segunda hoja
>>
>> lo que no ha quedado claro es si necesitas traspasar cualquier celda diferente de 0 a 9
>> o solo aquellas que contengan caracteres no numericos (???)
>>
>> __ OP __
>>> Me gustaria que me ayudaran a disenar una macro para detectar caracteres NO NUMERICOS
>>> En la hoja 1, rango A2: A100 debo de tener numeros del 0 AL 9.
>>> En la hoja 2 , necesito ir agregando uno a uno aquellas celdas que no contengan esos valores, es decir que no sean numericos
>>> Tengo algo , pero solo me falta ese codigo..
>>> For Fila = Range("a2").Row To Range("a65536").End(xlUp).Row Step 1
>>> If Range("a" & Fila).Find(what:=" ", lookat:=xlPart) Is Nothing Then
>>> Else
>>> Sheets("Validation of " & HOJ & "").Range("A65536").End(xlUp).Offset(1, 0).Value = "There is a space in the row # " & Fila & ""
>>> End If
>>> Next
>>> En este solo encuentra espacios, pero quiero que sea para valores no numericos...