Anónimo
Que el resultado aparezca en otra hoja
Hola barsmpson te escribo para que me ayudes con respecto a la pregunta que me contestaste del botón que pone los números en forma progresiva, quiero que haga lo mismo pero que el resultado aparezca en otra hoja por ejemplo en la hoja 2, gracias de antemano por tu valiosa ayuda.
1 respuesta
Respuesta
1
Mandame el código para modificartelo, lo que pasa es que no guardo los códigos...
Te mando la macro para su modificación saludos y gracias
Sub Macro1()
'
' Macro1 Macro
'
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.DataEntryMode = False
'
End Sub
Sub Macro1()
'
' Macro1 Macro
'
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.DataEntryMode = False
'
End Sub
Macro1 Macro
Sheets("hoja2"). select 'TE AGREGUE ESTA LINEA (Aqui se indica que seleccione la hoja2
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1"). select 'AGREGUE ESTA LINEA (Aqui se indica que se regrese a la hoja1
Range("a1"). Select 'AGREGUE ESTA LINEA (aqui se indica que seleccione la celda a1
End Sub
Sheets("hoja2"). select 'TE AGREGUE ESTA LINEA (Aqui se indica que seleccione la hoja2
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1"). select 'AGREGUE ESTA LINEA (Aqui se indica que se regrese a la hoja1
Range("a1"). Select 'AGREGUE ESTA LINEA (aqui se indica que seleccione la celda a1
End Sub
Barsimpson agradezco tu ayuda pero fíjate que no me funciona la macro me marca error la pegue tal y como me la enviaste y no quiso funcionar bien te la mando de nuevo para pedirte de favor que me ayudes saludos y gracias.
Macro1 Macro
Sheets("hoja2"). select 'TE AGREGUE ESTA LINEA (Aqui se indica que seleccione la hoja2
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1"). select 'AGREGUE ESTA LINEA (Aqui se indica que se regrese a la hoja1
Range("a1"). Select 'AGREGUE ESTA LINEA (aqui se indica que seleccione la celda a1
End Sub
Macro1 Macro
Sheets("hoja2"). select 'TE AGREGUE ESTA LINEA (Aqui se indica que seleccione la hoja2
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1"). select 'AGREGUE ESTA LINEA (Aqui se indica que se regrese a la hoja1
Range("a1"). Select 'AGREGUE ESTA LINEA (aqui se indica que seleccione la celda a1
End Sub
Sub Macro1() 'TE AGREGUE ESTA LINEA LA HABIA OLVIDADO
Sheets("hoja2").select 'TE AGREGUE ESTA LINEA (Aqui se indica que seleccione la hoja2
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1"). select 'AGREGUE ESTA LINEA (Aqui se indica que se regrese a la hoja1
Range("a1"). Select 'AGREGUE ESTA LINEA (aqui se indica que seleccione la celda a1
End Sub
Sorry te la primer Linea a mi se me olvido enviártela...
Es el inicio de la macro...
Ahora si.. copia y pega... ya loprove y funciona correctamente...
Suerte
Sheets("hoja2").select 'TE AGREGUE ESTA LINEA (Aqui se indica que seleccione la hoja2
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1"). select 'AGREGUE ESTA LINEA (Aqui se indica que se regrese a la hoja1
Range("a1"). Select 'AGREGUE ESTA LINEA (aqui se indica que seleccione la celda a1
End Sub
Sorry te la primer Linea a mi se me olvido enviártela...
Es el inicio de la macro...
Ahora si.. copia y pega... ya loprove y funciona correctamente...
Suerte
Caramba barsimpson ya me da pena contigo deberás no quiere funcionar la macro ya la copie y la pegue tal y como me la pasaste y me aparece un mensaje de error que dice "se esperaba End Sub" y no me funciona disculpa las molestias y gracias como siempre
Ok, no te preocupes... lo importante es que te funcione.
Ese mensaje que te mando es porque no tiene instrccion de finalización..
Tal ves se pego mal..
Mira entra al código de la macro
Y después de la ultima linea hacia abajo.. escribe
End Sub
Te debe funcionar...
Intentalo si no me vuelves a escribir..
Ese mensaje que te mando es porque no tiene instrccion de finalización..
Tal ves se pego mal..
Mira entra al código de la macro
Y después de la ultima linea hacia abajo.. escribe
End Sub
Te debe funcionar...
Intentalo si no me vuelves a escribir..
Barsimpson saludos hice lo que me indicaste y no me funciono no me desanimo estoy pendiente, te agradezco tu paciencia.
Sub Macro1()
Sheets("hoja2").select
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1").select
Range("a1").Select
End Sub
ijole, pues codigo esta bien, a lo mejor estas haciendo mal algo
mira
1-entra en tu archivo de excel
2-presiona alt+f11
3-del menu insert insertaun modulo nuevo
4-Copia este código y pégalo hay en ese modulo
5-Cierra el editor de visual basic
6-Activa la hoja1
7-Crea un botón y agregale macro1
8-Preiona el boton
El consecutivo te lo ira incrementando en a1 de la hoja2
Nota: si la version del office que tienes esta en ingles, dentro de este código donde dice hoja1 ponle sheet1 y donde dice hoja2 ponle sheet2
si no funciona me mandas el archivo.
Sheets("hoja2").select
Range("a65536").Value = Range("a1").Value + 1
Range("a65536").Copy
Range("a1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("hoja1").select
Range("a1").Select
End Sub
ijole, pues codigo esta bien, a lo mejor estas haciendo mal algo
mira
1-entra en tu archivo de excel
2-presiona alt+f11
3-del menu insert insertaun modulo nuevo
4-Copia este código y pégalo hay en ese modulo
5-Cierra el editor de visual basic
6-Activa la hoja1
7-Crea un botón y agregale macro1
8-Preiona el boton
El consecutivo te lo ira incrementando en a1 de la hoja2
Nota: si la version del office que tienes esta en ingles, dentro de este código donde dice hoja1 ponle sheet1 y donde dice hoja2 ponle sheet2
si no funciona me mandas el archivo.