Crear vínculos en celdas con el mismo nombre de hojas
publicado
Hola,
Ya casi tengo el proyecto acabado, únicamente me falta un tema que soy incapaz de solventar, tengo un botón "guardar", lo que hace es crear un clon en una nueva hoja con el nombre de la celda G4 y a la vez rellena los datos en la hoja16, estando el valor de G4 en la fila 2, pongo el código:
Sub Guardar()
Dim celda As Range
Dim Fila As Long
Set celda = Hoja16.Range("B:B").Find(What:=Hoja1.Range("G4").Value, After:=Hoja16.Range("B1"))
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = "G4"
Set Target = Range("G4")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Dim valorActual As String
valorActual = Hoja1.Range("G4").Value
If valorActual Like "ASA24*" Then
Dim numero As Integer
numero = Right(valorActual, Len(valorActual) - 5)
Hoja1.Range("G4").Value = "ASA24" & numero + 1
Else
Hoja1.Range("G4").Value = "ASA241"
End If
End Sub
Ahora necesito que al grabar, en la hoja16, fila 2 y nombre correspondiente (por ejemplo ASA241) , en esa celda me cree un vinculo a la hoja clon que llevará el mismo nombre (ASA241)
gracias de antemano
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola,
Ya casi tengo el proyecto acabado, únicamente me falta un tema que soy incapaz de solventar, tengo un botón "guardar", lo que hace es crear un clon en una nueva hoja con el nombre de la celda G4 y a la vez rellena los datos en la hoja16, estando el valor de G4 en la fila 2, pongo el código:
Sub Guardar()
Dim celda As Range
Dim Fila As Long
Set celda = Hoja16.Range("B:B").Find(What:=Hoja1.Range("G4").Value, After:=Hoja16.Range("B1"))
If celda Is Nothing Then
Fila = Hoja16.Cells(1048576, 2).End(xlUp).Row + 1
Hoja16.Cells(Fila, 2).Value = Hoja1.Range("G4").Value
Hoja16.Cells(Fila, 3).Value = Hoja1.Range("G5").Value
Hoja16.Cells(Fila, 4).Value = Hoja1.Range("F6").Value
Hoja16.Cells(Fila, 5).Value = Hoja1.Range("A9").Value
Hoja16.Cells(Fila, 6).Value = Hoja1.Range("G34").Value
Hoja16.Cells(Fila, 7).Value = Hoja1.Range("L4").Value
Hoja16.Cells(Fila, 8).Value = Hoja1.Range("L5").Value
Hoja16.Cells(Fila, 9).Value = Hoja1.Range("F7").Value
Hoja16.Cells(Fila, 10).Value = Hoja1.Range("F40").Value
Else
MsgBox "la ASA ya existe"
End If
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = "G4"
Set Target = Range("G4")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Dim valorActual As String
valorActual = Hoja1.Range("G4").Value
If valorActual Like "ASA24*" Then
Dim numero As Integer
numero = Right(valorActual, Len(valorActual) - 5)
Hoja1.Range("G4").Value = "ASA24" & numero + 1
Else
Hoja1.Range("G4").Value = "ASA241"
End If
End Sub
Ahora necesito que al grabar, en la hoja16, fila 2 y nombre correspondiente (por ejemplo ASA241) , en esa celda me cree un vinculo a la hoja clon que llevará el mismo nombre (ASA241)
gracias de antemano