Dante Amor

H o l a: Te anexo la macro Sub GuardarHojas() 'Por.Dante Amor ' ruta = "C:\Informes Valoración\Informes año 2015\" ruta = "C:\trabajo\" For Each h In Sheets nombre = h.Name & " Val 01 " & Format(Date, "mmm yyyy") & ".pdf" h.ExportAsFixedFormat...

H o l a: Puedes poner una imagen de cómo tienes los datos en alguno de tus libros. S aludos

H o l a: Te anexo la macro, en este caso el resultado te lo pone en la celda B2, ya que en tu ejemplo la celda A2 está dentro del rango A1 a A30. Pero si quieres que sea A2, entonces cambia en la macro "B2" por "A2": Sub CopiarCelda() 'Por.Dante Amor...

H o l a: Te anexo el código actualizado. 'Crear hoja conceptos 'Por. Dante Amor Dim l2, h2, h, u, c Set l2 = Workbooks(nuevLib) l2.Sheets.Add after:=l2.Sheets(l2.Sheets.Count) l2.Sheets(l2.Sheets.Count).Name = "Conceptos" Set h2 =...

H o l a: Te anexo la macro Sub EnviarHoja() 'Por.Dante Amor Set h = ActiveSheet ruta = ThisWorkbook.Path & "\" nombre = h.Name h.Copy ActiveWorkbook.SaveAs Filename:=ruta & nombre & ".xlsx" ActiveWorkbook.Close False ' Set dam =...

H o l a: Te anexo la macro actualizada. Sub correo() 'Por.Dante Amor ruta = ThisWorkbook.Path & "\" arch = "Macro para correos.pdf" For Each h In Sheets h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & arch, _ Quality:=xlQualityStandard,...

H o l a: En las propiedades de cada control (textbox, combobox, listbox, commandbutton, etc), tienen la propiedad tabindex: Cambia la numeración por el orden en que quieres que se desplace el Tab, por ejemplo puedes iniciar con el número 1 para tu...

H o l a: Vamos a realizarlo con una macro, utilizando en la macro el filtro avanzado. Según tu imagen, deducimos que tus datos están en la hoja1 y los encabezados empiezan en la celda B3. Ahora en la hoja2, pon lo siguiente: En la hoja2 en la celda...

H o l a: No entendí. Puedes explicar el ejemplo completo con una imagen. ¿Quieres copiar el valor A2 en varias celdas? ¿En cuáles celdas? ¿Luego quieres copiar el valor A3 en varias celdas? ¿En cuáles celdas? Si primero copias A2 en D1 y luego copias...

H o l a: Para copiar las celdas visibles, se tiene que poner la propiedad xlceltypevisible: Sub CopiarRango() 'Por.Dante Amor Sheets("Hoja1").Range("A4:H4").SpecialCells(xlCellTypeVisible).Copy Sheets("Hoja2").Range("A4") End Sub En el ejemplo que te...