Modificar macro que copia datos de celdas de otra hoja por un enlace

Dante, buen día, he aquí tu macro.

Sub RecorrerHojas()
'Por.Dante Amor
    col = "A"
    ncol = Columns("A").Column
    On Error Resume Next
    For i = 2 To Range(col & Rows.Count).End(xlUp).Row
        hoja = Cells(i, col)
        existe = False
        For Each h In Sheets
            If h.Name = hoja Then
                existe = True
                Exit For
            End If
        Next
        If existe Then
            Cells(i, ncol + 1) = Sheets(hoja).[R20]
            Cells(i, ncol + 2) = Sheets(hoja).[T20]
        Else
            Cells(i, ncol + 1) = "nombre de hoja no existe"
        End If
    Next
    MsgBox "Terminado"
End Sub

Me puse a intentar de modificar la línea que dice Cells(i, ncol + 1) para que me hiciera una referencia estilo =Hoja1!A1 pero no doy con la solución.

1 respuesta

Respuesta
1

Te regreso la macro actualizada

Sub RecorrerHojas()
'Por.Dante Amor
    col = "A"
    ncol = Columns("A").Column
    On Error Resume Next
    For i = 2 To Range(col & Rows.Count).End(xlUp).Row
        hoja = Cells(i, col)
        existe = False
        For Each h In Sheets
            If h.Name = hoja Then
                existe = True
                Exit For
            End If
        Next
        If existe Then
            Cells(i, ncol + 1) = "=" & h.Name & "!R20C18"
            Cells(i, ncol + 2) = "=" & h.Name & "!R20C20"
        Else
            Cells(i, ncol + 1) = "nombre de hoja no existe"
        End If
    Next
    MsgBox "Terminado"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas