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

Gracias Mónica, la probaré este lunes, que esta semana tengo la
agenda a reventar.
Te comento el lunes o martes

Saludos
Tux ha escrito:

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

jeje, no lo he podido evitar y ya lo he probado.

Tengo en el libro A una hoja en la que en una columna figuran los
nombres de todas las hojas, sería cuestión de ver como mediante una
macro, se copia en alguna celda de la hoja Mod Factura del libro B la
última celda con valores de la columna del libro A, y que la macro que
me has pasado coja el contador de ahí, o mejor dicho, de la celda de
al lado en la que extraigo la parte de número del nombre (Ej: Factura
7 > 7)

Buffff, a ver que sale :) se aceptan todo tipo de sugerencias

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

cbm a exprimé avec précision :

jeje, no lo he podido evitar y ya lo he probado.

Tengo en el libro A una hoja en la que en una columna figuran los
nombres de todas las hojas, sería cuestión de ver como mediante una
macro, se copia en alguna celda de la hoja Mod Factura del libro B la
última celda con valores de la columna del libro A, y que la macro que
me has pasado coja el contador de ahí, o mejor dicho, de la celda de
al lado en la que extraigo la parte de número del nombre (Ej: Factura
7 > 7)

Buffff, a ver que sale :) se aceptan todo tipo de sugerencias

Ah pues entonces si quieres coger el valor de una celda es mas facil
quedaria asi:

Suponiendo que el valor 7 lo tienes en la celda A2 de la hoja1

'--
Sub Hojas_Correlativas()

Application.ScreenUpdating = False

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

Contador = Sheets("Mod Factura").Range("A2") - 1

Do
On Error Resume Next


Set HojaEs = Nothing

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


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

*-

Ya nos comentas ok?:-)

Saludos
Monica


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

Eres la bomba!!!
Gracias, lo pruebo este finde

Saludos

Tux ha escrito:

cbm a exprimé avec précision :
> jeje, no lo he podido evitar y ya lo he probado.
>
> Tengo en el libro A una hoja en la que en una columna figuran los
> nombres de todas las hojas, sería cuestión de ver como mediante una
> macro, se copia en alguna celda de la hoja Mod Factura del libro B la
> última celda con valores de la columna del libro A, y que la macro que
> me has pasado coja el contador de ahí, o mejor dicho, de la celda de
> al lado en la que extraigo la parte de número del nombre (Ej: Factura
> 7 > 7)
>
> Buffff, a ver que sale :) se aceptan todo tipo de sugerencias
>
>
>

Ah pues entonces si quieres coger el valor de una celda es mas facil
quedaria asi:

Suponiendo que el valor 7 lo tienes en la celda A2 de la hoja1

'--
Sub Hojas_Correlativas()

Application.ScreenUpdating = False

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

Contador = Sheets("Mod Factura").Range("A2") - 1

Do
On Error Resume Next


Set HojaEs = Nothing

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


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

*-

Ya nos comentas ok?:-)

Saludos
Monica


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