Excel - Ayuda

   
Vista:

Ayuda

Publicado por Jorge Luis Cervantes Flores (5 intervenciones) el 18/07/2008 03:26:15
Tengo dos libros en excel.
El primero se llama matriz y el segundo se llama indice
Quiero copiar una hoja llamada valorizacion en el libro Indice pero mi problema es que el libro indice tiene como 60 hojas y la hoja valorizacion debe ser copiada en todas las hojas.
El otro problema es que quiero que el nombre de la hojja ( ejemplo 1220 ) se copie en una celda determinada ( Ejemplo A2 ) de la misma hoja y así sucesivamente en todas las hojas.

Hoja 1220 en A2 de la hoja 1220
Hoja 1221 en A2 de la hoja 1221
Como sería la macro
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda

Publicado por Abraham Valencia (2418 intervenciones) el 18/07/2008 23:08:41
en emagister ya tuviste respuesta

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Repregunta

Publicado por Jorge Cervantes (5 intervenciones) el 01/08/2008 20:08:38
Si efectivamente le copio toda las macro y le explico el problema
Le agradesco funciono bien hice unos cambios.

Option Explicit
Sub crear_hojas2()
Dim Lista As Range
Dim iX As Long


On Error GoTo Cancelar

Set Lista = Application.InputBox(prompt:="Señalar rango de la lista", _
Title:="Lista de nombres", Type:=8)

Application.ScreenUpdating = False

For iX = 1 To Lista.Count
If chequear_hoja(Lista(iX)) = False Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Lista(iX)

End If
Next iX

'Sheets("Hoja1").Activate

Application.ScreenUpdating = True

Cancelar:
End Sub

Function chequear_hoja(sheetName As String) As Boolean

Dim wkb As Worksheet

On Error Resume Next
Set wkb = Sheets(sheetName)
On Error GoTo 0

chequear_hoja = IIf(Not wkb Is Nothing, True, False)
End Function

Sub Copiar()
Dim i As Long
Cells.Select
Application.CutCopyMode = False
Selection.Copy
For i = 1 To Sheets.Count
Sheets(i).Select
Range("A1").Select
ActiveSheet.Paste

Next i
End Sub

Sub Nombre()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Select
Range("F2").Value = Sheets(i).Name

Next i

End Sub

En La hoja1 tengo una lista de nombres de hoja corro la macro crear_hojas2()
y crea todas las hojas
En la Hoja2 copio la hoja que voy a copiar a todas las hojas creadas por la macro anterior.
Todo funciona pero copia la hoja 1 y la hoja 2 tambien como puedo evitar que copie las hojas donde estan los datos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar