Comparar Celdas!!

17/03/2005 - 04:51 por DANILO ARANGO | Informe spam

Hola De Nuevo!!
Necesito Comparar una celda, que si tiene una valor determinado me ponga en
una celda otro valor, en el archivo que trabajo lo tengo que hacer asi:
Las Columnas de la I a la R deben o no de tener una X dependiendo de lo que
hay en otra celas por ejemplo:

I J K L M N O P Q R T
X RET
X ING
X VAC
Los valores que hay en la columna T son las condiciones de cada una columnas
de las de la I a la R.
Tengo una macro que me compara una fila:

Select Case Range("T1").Select
Case Range("T1").Value = "ing"
Range("I1").Select
ActiveCell.FormulaR1C1 = "X"
Case Range("T1").Value = "ret"
Range("J1").Select
ActiveCell.FormulaR1C1 = "X"
Case Range("T1").Value = "vac"
Range("R1").Select
ActiveCell.FormulaR1C1 = "X"
Case Else
Range("I1").Select
ActiveCell.FormulaR1C1 = ""
Range("J1").Select
ActiveCell.FormulaR1C1 = ""
Range("K1").Select
ActiveCell.FormulaR1C1 = ""
Range("L1").Select
ActiveCell.FormulaR1C1 = ""
Range("M1").Select
ActiveCell.FormulaR1C1 = ""
Range("N1").Select
ActiveCell.FormulaR1C1 = ""
Range("O1").Select
ActiveCell.FormulaR1C1 = ""
Range("P1").Select
ActiveCell.FormulaR1C1 = ""
Range("Q1").Select
ActiveCell.FormulaR1C1 = ""
Range("R1").Select
ActiveCell.FormulaR1C1 = ""
End Select

Y asi todas las celdas, pero esto lo tengo que hacer fila por fila y me
queda un codigo muy grande por que llevo 500 filas y quiero hacerlo para
muchas mas filas.

Alguna manera de hacerlo en un ciclo, o de alguna manera mas automatico..

GRACIAS A TODOS

Siga el debate

17 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#16 Héctor Miguel

30/03/2005 - 21:54 | Informe spam

hola, Danilo !

... que cuando haya una celda vacia no me la muestre
... por... codigo selecciono hasta la celda t1000... si a partir de la 200... estan vacias... es muy demorado...

op1: si para la seleccion por codigo utilizas 'algo como'... ->Range("t1:t1000").Select<-
-> cambialo +/- a... ->Range([t1], [t65536].End(xlUp)).Select<-

op2: en el codigo + reciente...
1.- 'parte' la linea donde se inicia el ciclo 'For Each Celda...' que actualmente se 'lee':
____
For Each Celda In Selection: Celda.Offset(, -11).Resize(, 10).ClearContents
a lo siguiente:
____
For Each Celda In Selection: If IsEmpty(Celda) Then Goto LaQueSigue
Celda.Offset(, -11).Resize(, 10).ClearContents

2.- agrega la 'etiqueta' ->justo antes<- del reinicio del ciclo [el 'Next' ANTES del 'End Sub']
para que [finalmente] quede +/- como sigue:
____
LaQueSigue:
Next
End Sub

... de donde eres?

soy de México / region occidente / estado: Jalisco / ciudad: Zapopan/Guadalajara ;)

si cualquier duda... comentas?
saludos,
hector.

Responder a este mensaje

#17 DANILO ARANGO

01/04/2005 - 09:41 | Informe spam

Hola Hecto miguel!!!!
esta exposicion la puse en el foro pero se la puse a usted tambien por si no
la
veias en el foro, para que me ayudaras por favor!!!!!
Gracias

Alguien me puede ayudar!!!
Tengo un formulario para guardar una hola con extencion .prn,, esta hoja se
guarda en 4 rutas fijas, por esto tengo cuatro macros que cada la activo
seleccionando un OptionButton, la macro es esta:

ActiveWorkbook.SaveAs FileName:="C:\Excel\pp\" & frmguardar.Tex1.Value,
FileFormat:= _
xlTextPrinter, CreateBackup:=False

El Formulario se llama frmguardar y tiene un textbox, el problema que tengo,
es que quiero ponerle proteccion al proyecto y ponerle BLOQUEAR EL PROYECTO
PARA VISUALIZACION, cuando lo bloqueo la macro que llamo desde el formulario:

If Optpp.Value = True Then
Application.Run "'plantilla.xls'!guardapp"
End If
Esta no se ejecuta y no me guarda el archivo, alguien me puede decir por que
o como lo hago de otra manera que me deje bloquear el proyecto (es por
segurida por que este archivo lo manejan otras personas)

Gracias a todos
danilo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3 4

Busqueda sugerida