Modificar macro para que vaya avanzando celda a celda
Private Sub CommandButton1_Click()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h1 = Sheets("EVALUACION")
fila = ActiveCell.Row
Set h2 = Sheets.Add
archivo = ThisWorkbook.Path & "\" & "temp.jpeg"
'
rango = "J" & fila 'Poner el rango a mostrar
'
anc = h1.Range(rango).Width
alt = h1.Range(rango).Height
'
h1.Range(rango).CopyPicture
h2.Shapes.AddChart
With h2.ChartObjects(1)
.Width = anc + 2
.Height = alt + 2
.Chart.Paste
.Chart.Export archivo
.Delete
End With
h2.Delete
'
Label1.Picture = LoadPicture(archivo)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End SubDam, por favor del anterior código como se modificaría para cada vez que se de click en CommandButton1 se avance a mostrar el contenido de la siguiente celda de la misma columna.
Hay que tener en cuenta lo siguiente:
La columna es la "J"
Las Filas van de la 3 a la 42.
He intentado con For .... Next y con For Each .... Next y no me avanzan.
