Ayuda con macro

[elserbio]

Alguno podria decirme por que esta macro que esta asignada a un boton no me funciona?


Sub Semana()

Dim ValorHoja As Integer

ValorHoja = Mid(Worksheets(Worksheets.Count).Name, 6...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola

Si, como parece, tu última hoja comienza con la palabra "semana", pues en tu "Mid" estás pidiendo que comience a retornar el valor desde la posición 6, que al ser la letra "a" y al haber...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[elserbio]

Hola eavjperu he probado a cambiar como me has comentado (ya lo habia intentado antes) pero me sale el error de que los tipos no coinciden,el archivo no lo puedo hacer publico si me dices como...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Mira, prueba así:

Sub Semana()

Dim ValorHoja As Long

ValorHoja = Mid(Worksheets(Worksheets.Count).Name, 7, Len(Worksheets(Worksheets.Count).Name) - 6)

With Worksheets.Add
.Name = "Semana"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Y por si no cambias las hojas de orden:

Sub CrearHojaSemana()
Dim ValorHoja As Integer
Dim Semana As Integer
Dim xSemana As String
'--
For Each H In Sheets
   If UCase(Left(H.Name, 6)) =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Y por si no cambias las hojas de orden:

Sub CrearHojaSemana()
Dim ValorHoja As Integer
Dim Semana As Integer
Dim xSemana As String
'--
For Each H In Sheets
   If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[elserbio]

Gracias a los dos por las respuestas.La primera solucion sigue sin funcionarme la segunda perfectamente.Y ahora abusando un poco de vosotros, mi intencion es que se copie todo lo que tengo en la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub CrearHojaSemana()
Dim ValorHoja As Integer
Dim Semana As Integer
Dim xSemana As String
'--
For Each h In Sheets
   If UCase(Left(h.Name, 6)) = "SEMANA" And _
      Len(Trim(h.Name)) > 6...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[elserbio]

Gracias Antoni .Como podria mandarte un archivo excel? ( no puedo ponerlo publico),la macro me funciona menos con esta hoja que estoy creando apartir de diferentes macros y formulas.
Gracias de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sube el archivo sin datos, solo con la estructura de las hojas.

 

[elserbio]

Bueno aqui esta el archivo, es un checklist que he encontrado y he ido adaptandolo a lo que yo queria,la macro que pusiste, en otras hojas me funciona perfectamente ,a qui me da error 9

 

[elserbio]

Este es el error

 

[elserbio]

Hola de nuevo Antoni , ya he encontrado el problema.No me funcionaba por que empezaba a hacer la copia por la "Semana20" si empiezo desde el princiopio "Semana" me crea las copias perfectamente...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[elserbio]

bueno,pues despues de estar comprobando que todo estuviese bien ,resulta que si que me copia las celdas que tengo en la hoja pero no me coje las macros que tienen.
Utilizare
Sub copiar()...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí