CONTINUAR NUMERACION HOJAS DE OTRO LIBRO

cbm avait écrit le 16/01/2007 :

Buenas, por mucho que le doy vueltas con el editor no consigo nada, y
no he encontrado nada por la red.

Necesito que un libro B tenga en la hoja "Mod Factura" un boton que me
cree una copia de la misma hoja y me la numere continuando con el orden
de la ultima hoja del libro A llamada "Factura XXX"; por ejemplo
"Factura 465"; y a partir de ahí con un nº correlativo

Para duplicar la hoja y eliminar el boton no tengo problemas, pero no
consigo renombrarla.

Gracias por vuestra colaboración,

Un saludo

cbm

Hola Carlos :-)

Bien que voy :-P

Lo maximo que he podido hacer es lo siguiente:

Este codigo te crea una serie de hojas correlativas (Factura_245,
Factura_246 etc...) de la hoja "Mod Factura" (esta hoja no la tienes
que eliminar sino no funcionara el codigo :-( , queria hacer lo de
adquirir el numero de factuara de la ultima hoja, pero el tiempo me
apremia :-( en fin asi para salir del paso te pongo este codigo ok?
Solo tienes que cambiar donde pone <<<<< Contador 128 - 1 >>>>>>>> pues
en 128 le pones >>>> Contador 465 - 1 >>>>>>> :-)


'

Option Explicit

Sub Hojas_Correlativas()

Application.ScreenUpdating = False

Dim Contador As Long
Dim HojaEs As Worksheet
Dim Nombre As String

Contador = 128 - 1

Do
On Error Resume Next


Set HojaEs = Nothing

Contador = Contador + 1
Nombre = "Factura_" & Format(Contador, "000")


Set HojaEs = Sheets(Nombre)


If HojaEs Is Nothing Then _
Sheets.Add().Name = Nombre
Sheets("Mod Factura").Cells.Copy _
Destination:=ActiveSheet.Cells

On Error GoTo 0

Loop Until HojaEs Is Nothing



Application.ScreenUpdating = True


End Sub

'-


Bueno ya nos comentas ok? :-)

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es