ayuda con macro
Publicado por Jorge Leon (63 intervenciones) el 03/04/2007 01:07:40
hola amigos de LWP, tengo una hoja electronica el la cual quiero que verifique em un rango de la d32 hasta la d200 y si encuentra ciertos valores quiero que me ponga un texto dependiendo del valor de la celda D por ejemplo si en d50 se encuentra un 14 quiero que ponga el siguiente texto "OBJETOS ENCONTRADOS" pero en la celda C50 genere la siguiente macro pero me pone "OBJETOS ENCONTRADOS" en la celda D50 y yo la quiero en la celda C50 y ademas quiero poner otro texto en la celda E50 como le hago para poner texto en la celda C y E dependiendo de donde se encuentre el valor??????? de antemano muchas gracias
Sub ponertexto()
Dim rng As Range
Dim cell As Range
Set rng = Range("d32:d200")
For Each cell In rng
With cell
If .Value = 14 Then
.Value = "OBJETOS ENCONTRADOS"
End If
End With
Next
Set rng = Nothing
Set cell = Nothing
End Sub
Sub ponertexto()
Dim rng As Range
Dim cell As Range
Set rng = Range("d32:d200")
For Each cell In rng
With cell
If .Value = 14 Then
.Value = "OBJETOS ENCONTRADOS"
End If
End With
Next
Set rng = Nothing
Set cell = Nothing
End Sub
Valora esta pregunta
0
