Macro para reemplazar valores considerando distintos rangos seleccionados.
Expertos,
Espero que me puedan ayudar con la siguiente consulta..
Tengo la siguiente macro que en un rango de celdas seleccionado, busca si en la celda existe una coma (,) y la reemplaza por la palabra "Presente"...
El problema es que no funciona cuando tengo diferentes rangos seleccionados, por ejemplo si en la columa A, seleccione el rango 2 al 5 y luego el 10 al 12, la macro comienza a reemplazar en la fila 10, 11 y luego 12... Luego me reemplaza la 13, 14, 15 y 16..
Creo que la macro cuenta las celdas de la primera selección y la suma al ultimo rango seleccionado.
Espero que me puedan ayuda, no supe como solucionar esto... Les adjunto mi macro.
Sub Reemplazar_Valor()
Dim v As String
Dim F, C As Long
Dim celda As Range
F = ActiveCell.Row: C = ActiveCell.Column:
For Each celda In Selection
v = Cells(F, C).Value
If Cells(F, C).Value Like "*,*" Then
Cells(F, C).Value = "PRESENTE"
End If
F = F + 1
Next celda
End Sub
2 Respuestas
Prueba esta macro, sustituye la coma por presente dentro de los rangos que selecciones
Sub Reemplazar_Valor() Dim celda As Range Set datos = Selection For Each celda In datos If celda.Value Like "*,*" Then celda.Value = "PRESENTE" End If Next celda End Sub
Te paso unos ejemplos que pueden aportar algo más
[url=https://youtube.com/prgramarexcel]
https://youtube.com/prgramarexcel[/url] tutoriales sobre macros de Excel
https://programarexcel.com descarta cientos de ejemplos de macros gratis.