Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Para Hector miguel!!!!

14/04/2005 - 08:13 por DANILO ARANGO | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 10 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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.

Preguntas similares

 

Busqueda sugerida :