Problema con macro: necesito que modifiquen mi macro para que se repita con cada renglón

La macro que tengo trabaja con la celda C5 y el objeto Foto1 que se encuentra en el mismo renglón.

Mi lista tiene mas de 200 renglones. Quiero añadir los objetos Foto2, Foto3, etc. Para las celdas que contengan valor en la columna C.

Esta es la Macro:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim RutaArchivo As String
Dim RutaImagen As String

On Error GoTo ManejadorErrores

'ima = ActiveCell.Row

RutaArchivo = ThisWorkbook.Path
RutaImagen = RutaArchivo & "\IMAGENES\" & Sheets("LISTA").Range("C5").Value

ActiveSheet.Shapes("Foto1").Fill.UserPicture (RutaImagen)

Exit Sub

ManejadorErrores:
ActiveSheet.Shapes("Foto1").Fill.UserPicture (RutaArchivo & "\IMAGENES\sinima.JPG")

End Sub

1 respuesta

Respuesta
1

I. Hola Compañero, en mi ignorancia con Excel pienso que podría intentar conseguirlo haciendo uso de la función 'Desref'

https://analisisydecision.es/trucos-excel-repetir-filas-o-columnas-con-la-funcion-desref/ 

https://exceltotal.com/la-funcion-desref-en-excel/ 

https://www.youtube.com/watch?v=KwnqAiNluQg 

En estas otras páginas puede ver otras posibles opciones quizá de utilidad mientras te contesta [email protected] [email protected] Ánimo.

http://www.raymundoycaza.com/como-ejecutar-una-macro-de-excel-n-veces/ 

https://sites.google.com/site/automatizacionexcel/ciclo-do-while-loop 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas