Programar botones desde distintas hojas

Solo consultas sobre Funciones y Fórmulas Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Programar botones desde distintas hojas

Notapor MarioChile » 04 Ene 2018 13:59

Amigos,

Soy nuevo en el foro y la verdad que soy un programador a base solo de lo que leo, gracias a vuestros foros, hoy me encuentro en un dilema del cual espero me puedan ayudar.
Realice varias Macros con sus botones, en cada hoja de mi libro, pero ahora quiero poder llevar todos esos botones a una hoja en especifico y por lo que entiendo debo seleccionar la hoja, pero aun asi tengo un proceso en el cual me da un error de compilación.
Este botón lo que hace es auto completar las formulas de algunas celdas hasta X linea de una hoja. Esta posicionado en la Hoja "Diario" y quiero que ejecute en la hoja "Data". Favor si me ayudan, saludos.


Private Sub CommandButton2_Click()
'ESTA ES LA HOJA DONDE QUIERO QUE SE EJECUTE LA MACRO, Y ESTE BOTON ESTA EN LA HOJA "DIARIO"
Sheets("Data").Select
v = 0
f = 2
'LE DOY VALOR A LA VARIABLE "V", PARA REALIZAR EL AUTOCOMPLETADO,
Do While Not IsEmpty(Sheets("Data").Cells(f, "B"))
v = v + 1
f = f + 1
Loop

v = v + 1

'AUTOCOMPLETADO DE LAS OTRAS COLUMNAS "AH-AM"
Range("AH2:AM2").Select
Selection.AutoFill Destination:=Range(Cells(2, "AH"), Cells(v, "AM"))
Range(Cells(2, "AH"), Cells(v, "AM")).Select
End Sub[/color]
MarioChile
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 1
Registrado: 04 Ene 2018 13:37

Re: Programar botones desde distintas hojas

Notapor renzo palacios » 24 Ene 2018 19:45

te genera error porque en el autocompletado no esta la hoja en que trabajara


Código: Seleccionar todo

'AUTOCOMPLETADO DE LAS OTRAS COLUMNAS "AH-AM"
Range("AH2:AM2").Select
Selection.AutoFill Destination:=Range(Cells(2, "AH"), Cells(v, "AM"))
Range(Cells(2, "AH"), Cells(v, "AM")).Select
End Sub[/color]




Código: Seleccionar todo

'AUTOCOMPLETADO DE LAS OTRAS COLUMNAS "AH-AM"
Sheets("Hoja que trabajas").Range("AH2:AM2")..AutoFill Destination:=Range(Cells(2, "AH"), Cells(v, "AM"))
Sheets("Hoja que trabajas").Range(Cells(2, "AH"), Cells(v, "AM")).Select
End Sub[/color]

renzo palacios
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 136
Registrado: 19 Jun 2015 16:39


Volver a Funciones y Fórmulas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados