Para Hector miguel!!!!

14/04/2005 - 08:13 por DANILO ARANGO | Informe spam
HOLA HECTOR!!!
TE ACUERDAS DE ESTE CODIGO!!!

Sub PonerClave()
Application.ScreenUpdating = False
Dim Clave, clavei, Desplaza, Celda As Range, Sig As Byte
Clave = Array("Ing")
Desplaza = Array(-11)
For Each Celda In Selection
Celda.Offset(, -11).Resize(, 10).ClearContents
For Sig = LBound(Clave) To UBound(Clave)
If LCase(Celda) = LCase(Clave(Sig)) Then Celda.Offset(, Desplaza(Sig))
= "X": Exit For
Next
Next
End Sub

Como le hago para que en la parte de Clave = Array("Ing") se le pueda
trabajar con numeros por ejemplo algo asi:
Clave = Array >00

GRACIAS DE ANTEMANO

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/04/2005 - 08:37 | Informe spam
hola, DA !

TE ACUERDAS DE ESTE CODIGO!!!
Sub PonerClave()
Application.ScreenUpdating = False
Dim Clave, clavei, Desplaza, Celda As Range, Sig As Byte
Clave = Array("Ing") [... mas codigo ...]
... que en la parte de Clave = Array("Ing") se le pueda trabajar con numeros
... ejemplo algo asi: Clave = Array >00



no estoy seguro del 'objetivo final' del cambio :( [pero...]
-> si en lugar de necesitar una matriz [de textos en 'ese' caso] con un 'orden especifico'...
requieres trabajar con numeros 'ordenados'...
-> en lugar de una matriz [usada en un bucle posterior] podrias sustituir por un 'contador' directo en el bucle [p.e.]
declarar la variable +/- como sigue: Dim Clave As Integer
modificar la forma del segundo bucle...
de -> For Sig = LBound(Clave) To UBound(Clave)
a -> For Clave = 1 To 1000
[obviamente habria que modificar tambien 'el sentido' del codigo en el interior del 'nuevo' bucle]

comentas datos adicionales?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Héctor Miguel
14/04/2005 - 08:41 | Informe spam
hola, DA !

['dejame completar' con un comentario -probablemente- 'sangron'] ;)
[me parece que...] no es 'buena idea' pedir que responda 'alguien' =>en particular<= :((
[con seguridad...] 'alguien mas' tenga respuesta ANTES que el 'interpelado', pero... ¿y si 'se la guarda'?

saludos,
hector.
Respuesta Responder a este mensaje
#3 Héctor Miguel
14/04/2005 - 23:59 | Informe spam
hola, DA !

... que parte del codigo es la que tengo que modificar [...]



-> si los posibles contenidos de las celdas donde se busca...
ya no son cadenas que puedan 'monitorearse' mediante una matriz...
con un 'cierto' numero de 'variables' y un orden pre-establecido [en la matriz]...
sino valores numericos entre 1 y 1000 [mayor que los elementos de la matriz 'anterior']
-> es necesario conocer cual sera el 'significado' de cada valor [1 a 1000]...
para poder conocer en cual de las ONCE columnas se pondra la 'X' [o cualquier cosa necesaria] -?-
-> [tambien] es muy probable que la estructura del codigo deba modificarse 'sustancialmente'
dependiendo de las 'nuevas' [y 'reales'] necesidades/eventualidades/etc.
-> [segun 'veo']... han quedado 'en el tintero' algunas variables que no has mencionado :(

comentas datos adicionales?
saludos,
hector.
Respuesta Responder a este mensaje
#4 DANILO ARANGO
15/04/2005 - 07:01 | Informe spam
HOLA HM!!!
Lo que pasa es que estoy pensando, en este mismo archivo tambien trabajamos
con salarios, llevar como un estadistico de los salarios mayores a cierta
cantidad, lo de
00 es un ejemplo, voy a crear una columna en donde se marque con una X esto, por que pense hacerlo con una formula (CONTAR), pero me parece mas facil con un codigo como parecido al de la otra vez. O DAME UN CONSEJO QUE HAGO.



MUCHAS GRACIAS HECTOR POR AYUDARME!!!!!!
SALUDOS
Respuesta Responder a este mensaje
#5 Héctor Miguel
15/04/2005 - 07:50 | Informe spam
hola, DA !

... pasa... que... en este mismo archivo tambien trabajamos con salarios
... llevar... un estadistico de los salarios mayores a cierta cantidad... lo de >00 es un ejemplo
... voy a crear una columna en donde se marque con una X esto
... pense hacerlo con una formula... pero me parece mas facil con un codigo como... al de la otra vez



primero... recuerda que 'nada es para todo' :(
... y aunque los procesos sean 'parecidos'... [tambien] 'parecen antagonicos' :D
segundo... [seguramente] se podria aprovechar el proceso anterior [y hacer 'todo' en un solo paso] :D
... siempre y cuando... ya tengas establecido: 'que'... 'de donde'... 'a donde'... 'como'... 'cuando'... etc.
[creo que] necesitas 'aclarar' mas los detalles [tanto en ideas como 'en papel'] ;)

quedamos a la espera de los 'detalles' [que de seguro tendran 'sus impactos'] ;)
saludos,
hector.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida