Dante Amor

H o l a: No entiendo qué es lo que necesitas. Podrías explicarme paso a paso qué necesitas y para qué lo necesitas, es decir, entiendo que tienes una tabla dinámica en un libro, ¿quieres pasar los datos de esa tabla dinámica a otra hoja? Es lo que no...

H o l a: No pusiste qué error tienes. Le hice unos cambios a tu macro, por ejemplo, si haces referencia a la hoja, no es necesario que la hagas visible. Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Set h1 = Worksheets("DATOS") If...

H o l a: Pon la siguiente macro en tu libro de macros. Deberás tener abierto tu libro "nuevo.xlsx". Sub libro() Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set l2 = Workbooks("nuevo.xlsx") Set h2 =...

H o l a: Quedaría de esta forma: 'compara dos columnas y muestra comentario en columna "resultado" Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row < 5 Then Exit Sub If Target.Count > 5 Then Exit Sub...

H o l a: Si creaste una tabla con esto: Y quieres compartir el libro, te envía este mensaje: "Este libro no se puede compartir porque contiene tablas de Excel" Lo que tienes que hacer es seleccionar tu tabla y convertirla rango: Si no la conviertes...

H o l a: Te anexo la macro con una actualización, revisa si es lo que necesitas: Private Sub CommandButton7_Click() Dim NOMBRE As String Dim VALOR As Integer Dim COLEGIO As String Dim EMPRESA As String Dim HIJO As String Dim MES As String Dim AÑO As...

Te anexo la macro actualizada Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False Set h = Sheets("altas") u = h.Range("G" & Rows.Count).End(xlUp).Row + 1 If u = 5006 Then MsgBox "Se alcanzó el límite de 5000" Exit...

Tienes que poner en un commanbutton las instrucciones para pasar los datos a la hoja: Por ejemplo: Private Sub CommandButton1_Click() Set h = Sheets("altas") 'primera fila vacía de la columna A u = h.Range("A" & Rows.Count).End(xlUp).ro h.Cells(u,...

h o l a: Te anexo la macro: Sub CopiarCelda() 'Por.Dante Amor Set h1 = Sheets("listado") Set h2 = Sheets("traspaso") u1 = h1.Range("F" & Rows.Count).End(xlUp).Row u2 = h2.Range("D" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u2, "D") = h1.Cells(u1, "F")...

H o l a: Te anexo la macro para cambiar la fuente: '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0)...