Dante Amor

Te anexo la macro Sub Eliminar_Filas() 'Por.Dante Amor Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Clear .Filters.Add "Archivo de excel", "*.xls*"...

Te anexo la macro. Cambia en esta línea de la macro "Hoja1" por el nombre de hoja que deseas copiar: Set h1 = Sheets("Hoja1") Sub Crear_Hoja() 'Por.Dante Amor ' nombre = InputBox("Escribe el nombre de la nueva hoja : ", "CREAR NUEVA HOJA") If nombre...

¿Quieres guardar una hoja o todo el libro? Qué nombre va llevar el nuevo archivo xls y qué nombre va a llevar el archivo pdf ¿Qué versión de excel tienes? E spero tus comentarios en ese orden.

Pon el siguiente código en el botón para crear una copia Sub Crear_Copia() 'Por.Dante Amor 'crea una copia Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" nombre = "copia.xlsm" ThisWorkbook.SaveAs ruta & nombre End Sub En tu mismo...

Me perdí. Puedes poner imágenes de lo que tienes y de lo que esperas como resultado. O bien, un par de ejemplos con lo que tienes en las hojas; y después un ejemplo de lo que esperas después de ejecutar la macro.

Te anexo cómo enviar un archivo por Gmail Macro para enviar hoja excel por gmail Pero antes deberás guardar tu libro como copia Macro para guardar archivo excel en dos carpetas diferente al mismo tiempo El archivo de la copia será el que adjuntes en...

Supongo que es un combo de Control ActiveX. Si es así. Tienes que indicar en qué hoja está el combo y poner el parámetro "Object.Value" : Sheets("datos").ListPeriodoSOLRED.Object.Value = Sheets("PanelPrincipal").Range("C2") . 'S aludos. Dante Amor....

Te anexo el código Private Sub CommandButton1_Click() 'Por.Dante Amor Set h = Sheets("FrasRenting") existe = False For i = 0 To ListBox1.ListIndex If ListBox1.Selected(i) Then existe = True u = h.Range("R" & Rows.Count).End(xlUp).Row + 1 h.Cells(u,...

Te anexo la macro Sub Copiar_Celdas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Range("A2, C2").Copy h2.Range("A" & u) MsgBox "Celdas copiadas" End Sub . 'S aludos. Dante...

H o l a: Envíame un correo nuevo con los archivos, pero con datos de muestra, no me envíes los archivos enormes, solamente con las estructuras de las hojas y algunos datos de ejemplo, esos datos de ejemplo los deberás de utilizar para explicarme el...