Buenos dias, soy nuevo miembro y me da gusto formar parte de esta comunidad, espero pueden apoyarme con mi laborioso problema, lo detallo a continuación:
Tengo un archivo el cual contiene una lista de datos, lista de la cual se quiere lo siguiente:
1. Tomar de la hoja "Indice" un nombre de la casilla "Iniciativa" y crear una hoja con ese nombre
2. Tomar el formato de la hoja "Base" y pegarlo igual en esa nueva hoja
3. Que tome los datos de la hoja "Indice" de las casillas "iniciativa" y "encargado" y los pegue en los campos correspondiente de la nueva hoja creada. (a fin de personalizar cada hoja nueva)
4. Establecer un vinculo que vaya de "nueva hoja" en las casillas "H3" "H5" y "H6", hacia las casillas que correspondan con el dato en la hoja "indice" ejemplo: si cambio el dato de fecha de revision en la hoja de nombre "Donar", este cambio se refleje en la casilla de "fecha de revision" en la hoja "Indice".
5. Por ultimo que se genere un hipervinculo en el campo "link" en la hoja "Indice" hacia la hoja correspondiente.
De todas la tareas, ya logre realizar 4 con distintas macros, pero no logre hacer que una hiciera todo, al tratar de hacerlo, me daba error, yo no escribir las macros, la recopile de diferentes medios, pero no logre hacer que funcionaran, las anexo por si acaso:
Generar carpetas con el nombre, pegar formato de base y cambiar un dato en cierta casilla
Sub Copia()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp))
Sheets("Molde").Copy , Sheets(Sheets.Count)
With ActiveSheet
.Range("A5") = C: .Name = Left(C.Offset(, 1), 31)
End With
Next C
Application.ScreenUpdating = True
End Sub
Generar hipervinculo
Sub crearIndice()
Dim hoja As Worksheet
On Error Resume Next
Set hoja = Worksheets("Indice")
On Error GoTo 0
If hoja Is Nothing Then
'La hoja Indice no existe - Crearla en primera posición
Buenos dias, soy nuevo miembro y me da gusto formar parte de esta comunidad, espero pueden apoyarme con mi laborioso problema, lo detallo a continuación:
Tengo un archivo el cual contiene una lista de datos, lista de la cual se quiere lo siguiente:
1. Tomar de la hoja "Indice" un nombre de la casilla "Iniciativa" y crear una hoja con ese nombre
2. Tomar el formato de la hoja "Base" y pegarlo igual en esa nueva hoja
3. Que tome los datos de la hoja "Indice" de las casillas "iniciativa" y "encargado" y los pegue en los campos correspondiente de la nueva hoja creada. (a fin de personalizar cada hoja nueva)
4. Establecer un vinculo que vaya de "nueva hoja" en las casillas "H3" "H5" y "H6", hacia las casillas que correspondan con el dato en la hoja "indice" ejemplo: si cambio el dato de fecha de revision en la hoja de nombre "Donar", este cambio se refleje en la casilla de "fecha de revision" en la hoja "Indice".
5. Por ultimo que se genere un hipervinculo en el campo "link" en la hoja "Indice" hacia la hoja correspondiente.
De todas la tareas, ya logre realizar 4 con distintas macros, pero no logre hacer que una hiciera todo, al tratar de hacerlo, me daba error, yo no escribir las macros, la recopile de diferentes medios, pero no logre hacer que funcionaran, las anexo por si acaso:
Generar carpetas con el nombre, pegar formato de base y cambiar un dato en cierta casilla
Sub Copia()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp))
Sheets("Molde").Copy , Sheets(Sheets.Count)
With ActiveSheet
.Range("A5") = C: .Name = Left(C.Offset(, 1), 31)
End With
Next C
Application.ScreenUpdating = True
End Sub
Generar hipervinculo
Sub crearIndice()
Dim hoja As Worksheet
On Error Resume Next
Set hoja = Worksheets("Indice")
On Error GoTo 0
If hoja Is Nothing Then
'La hoja Indice no existe - Crearla en primera posición
Worksheets.Add(Before:=Worksheets(1)).Name = "Indice"
Else
'La hoja Indice ya existe - Limpiarla
Worksheets("Indice").Cells.Clear
End If
'Insertar título a la hoja Indice
Worksheets("Indice").Range("A1").Value = "Indice"
End sub
Espero poder contar con su ayuda, llevo dias detenido sin saber que o como hacerle :(
Programa Auditoria.xlsx