¿Se puede crear una macro que sea capaz de adicionar caracteres a una o varias celdas especificas?
La presente es para saber si se puede crear una macro que sea capaz de adicionar caracteres específicos a una o varias celdas. Como pueden observar en la imagen tengo una columna que tiene diferentes números, estos pueden ir de la A2 hasta la A5000. Necesito una macro que sea capaz de adicionar una - y el número 1 a toda celda que este de color amarillo; como en el caso de la celda A24 de la presente tabla. El numero quedaría así: 830507506-1. De antemano muchas gracias
3 Respuestas
Como ves hay varias formas de hacer lo mismo en Excel.
Otra forma sería:
Sub Añadir_al_color()
MiRango = "A2:A5000"
For Each Celda In Range(MiRango)
Celda.Select
ValorCelda = ActiveCell.Value
If ActiveCell.Interior.Color = 65535 Then
ActiveCell.Value = ValorCelda & "-1"
End If
Next
Range("A2").Select
End Sub
Sub Añadir_al_color()
MiRango = "A2:A5000"
For Each Celda In Range(MiRango)
Celda.Select
ValorCelda = ActiveCell.Value
If ActiveCell.Interior.Color = 65535 Then
ActiveCell.Value = ValorCelda & "-1"
End If
Next
Range("A2").Select
End Sub
Pongo las sentencias paso a paso para que sea más sencilla, se podrían resumir varias líneas.
Buenos días Dante. El color amarillo lo puse manualmente con un color estándar.
Prueba la siguiente:
Sub AdicionarGuion()
Dim i As Long
For i = 1 To Range("A" & Rows.Count).End(3).Row
With Range("A" & i)
If .Interior.Color = vbYellow Then .Value = .Value & "-1"
End With
Next
End Sub
[H ola jjr1, procura poner el código utilizando el icono para insertar código fuente, de esa manera es más fácil de leer y de copiar. - Dante Amor