Ayuda con macro por favor
Hola amigo gfellay, ¿tengo una hoja electrónica 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 DE 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
1 respuesta
Respuesta
1
Enredaste mucho la pregunta y no se si es lo que quieres. Fíjate con
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
.Offset(0,-1).Value = "OBJETOS ENCONTRADOS"
.Offset(0,1).Value= "Otro Texto"
End If
End With
Next
Set rng = Nothing
Set cell = Nothing
End Sub
Creo que es lo que pides; sino repregunta
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
.Offset(0,-1).Value = "OBJETOS ENCONTRADOS"
.Offset(0,1).Value= "Otro Texto"
End If
End With
Next
Set rng = Nothing
Set cell = Nothing
End Sub
Creo que es lo que pides; sino repregunta