¿Cómo realizar una macro en excel?
Me podrían ayudar con una macro que me agregue los hipervínculos de todas las hojas existentes que me las agregue en la columna M fila 2
ejemplo : https://github.com/jonathan-19/Excel
1 Respuesta
H0la jonh:
No entendí el archivo de github, pues tenía sólo una hoja.
Con respecto a tu solicitud: Suponiendo que la los hipervínculos los pondrás en la primera hoja, la macro que te podría servir es la siguiente
Sub hvinculos()
For i = 2 To Sheets.Count
Range("M" & i).Hyperlinks.Add Anchor:=Range("M" & i), Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
Next
End SubPruébala y me comentas.
S@lu2
Esta muy bien la macro, pero cuando me genera un hipervínculo por ejemplo "Fátima Flores" me marca que "referencia no es valida". Tengo entendido que es por que no me acepta el espacio en blanco que existe entre Fátima Flores, ¿cómo se soluciona eso?
Te adjunto la macro con una pequeña modificación
Sub hvinculos()
For i = 2 To Sheets.Count
Range("M" & (i)).Hyperlinks.Add Anchor:=Range("M" & (i + 1)), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
Next
End SubReemplacé esto
Sheets(i).Name & "!A1"
por esto
"'" & Sheets(i).Name & "'!A1"
Quizá casi no se ve el cambio, pero esto agrega unas comillas simples antes y después del nombre, esto hace que Excel reconozca la palabra compuesta como una sola cadena de caracteres.
S@lu2
