Hola buenas tardes, espero se encuentren bien 

Duda: se puede crear hipervinculo automatico al escribir en la celda, y que a su vez se cree una carpeta con el texto de esa celda ? 
 

es decir en una celda escribo: “raton” y se cre un hipervinculo en ese texto y que se cree a su vez una carpeta ? con ese nombre !??? ????  se puede hacer eso ? O ya dejo de beber? ?

 

gracias de antemano.

Suponiendo que actúas sobre la columna A.

Pon en la hoja esta macro.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Carpeta As String
On Error Resume Next
If Target.Address Like "$A$*" Then '<----- corregir si es necesaio
   Carpeta = ThisWorkbook.Path & "\" & Target.Value
   If Dir(Carpeta, 16) = "" Then
      MkDir (Carpeta)
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=Carpeta
   End If
End If
End Sub

Y por favor, no dejes de beber,.......???

Hace 5 horas, Antoni dijo:

Suponiendo que actúas sobre la columna A.

Pon en la hoja esta macro.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Carpeta As String
On Error Resume Next
If Target.Address Like "$A$*" Then '<----- corregir si es necesaio
   Carpeta = ThisWorkbook.Path & "\" & Target.Value
   If Dir(Carpeta, 16) = "" Then
      MkDir (Carpeta)
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=Carpeta
   End If
End If
End Sub

Y por favor, no dejes de beber,.......???

Eres mi heroe antoni.

Un abrazo compi.

Hace 5 horas, Antoni dijo:

Suponiendo que actúas sobre la columna A.

Pon en la hoja esta macro.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Carpeta As String
On Error Resume Next
If Target.Address Like "$A$*" Then '<----- corregir si es necesaio
   Carpeta = ThisWorkbook.Path & "\" & Target.Value
   If Dir(Carpeta, 16) = "" Then
      MkDir (Carpeta)
      ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=Carpeta
   End If
End If
End Sub

Y por favor, no dejes de beber,.......???

Gracias Antoni, va de maravilla!!  sabia que el alcohol no tenia nada que ver.

Eres un Master!!