Ayuda con macro
Hola amigo manucas, ¿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
Respuesta de manucas
1
Tomando como base tu rutina, puedes hacerlo así:
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
cell.Offset(0, -1).Value = "OBJETOS ENCONTRADOS"
cell.Offset(0, 1).Value = "OTRA COSA"
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
cell.Offset(0, -1).Value = "OBJETOS ENCONTRADOS"
cell.Offset(0, 1).Value = "OTRA COSA"
End If
End With
Next
Set rng = Nothing
Set cell = Nothing
End Sub
