UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

martinvc


Estimados amigos requiero su ayuda para poder hacer una macro que almacene los datos ingresados en el formulario que hise en una hoja de excel y se almacenen en otra hoja de excel, y que despues de almacenar los datos se borren de los campos del formulario,
Archivos
Reporte jefe de guardia.xlsx
No tienes los permisos para descargar los archivos.
(16 KB)

tyno


Hola martin.
Paso tu archivo con una macro que pasa los datos de la Hoja REPORTE a la Hoja DATA y luego borra los registros. Cualquier cosa me avisas. Saludos.

[url=https://www.dropbox.com/s/gdc8v5bqlbee9su/Reporte jefe de guardia.zip]https://www.dropbox.com/s/gdc8v5bqlbee9su/Reporte%20jefe%20de%20guardia.zip[/url]

martinvc


Buenas tardes Tyno lamento mucho incomodarte pero lamentablemente el archivo que me dices que pasaste no esta bien colgado ya que solo me sale un error 404 al momento de querer descolgarlo, te agradeceria si lo volvieras a enviar.


Muchas gracias

tyno


martinvc


Que pena contigo, mi querido Tygo pues hombre veras que cuando he abierto el archivo  y deseo guardar una cantidad de datos del registro cuando presiono el boton guardar me sale un mensaje de Visual Basic donde me dice "Error de compilación" "no se puede encontrar el proyecto o la biblioteca"

Sub macro_guardar()
On Error Resume Next
a = MsgBox("Confirmar Guardar Datos", vbOKCancel, "AVISO")
If a = vbCancel Then Exit Sub
Application.ScreenUpdating = False
With Sheets("DATA")
fila = .Range("a1").CurrentRegion.Rows.Count + 1
x = 1
For a = 4 To 44 Step 2
.Cells(fila, x) = Cells(a, 2)
x = x + 1
Next a
.Cells.EntireColumn.AutoFit
For a = 4 To 44 Step 2
Cells(a, 2) = ""
x = x + 1
Next a
End With
Application.ScreenUpdating = True
End Sub

tyno


Hola Martin.
Prueba de ir al editor de macros y en Herramientas en Referencias te fijas si hay alguna opción que diga  FALTA..., si es así vas a tener que quitar el tilde. Prueba con eso y me avisas.
La otra opcion es que en tu libro original copies y pegues la macro del módulo "macro" tal cual esta en el libro que te he pasado, lo mismo para el formulario que contiene el calendario y la macro que esta en la Hoja Reporte. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.