Dante Amor

H o l a: Se tienen que cargar todos los commandbutton a una Clase Primero, crea la Clase1, Instrucciones para crear una clase Abre tu hoja de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11En el menú elige Insertar / Módulo de...

H o l a: Tendría que revisar tu archivo y la macro. Todavía tienes pendiente valorar esta respuesta: Evento Change para cualquier TextBox en un formulario.

H o l a: Tienes pendiente valorar esta respuesta: ¿Cómo hago para enviar correos con mi firma de outlook mediante una macro con los datos en excel? Para copiar el texto tengo que desarrollar una macro, podrías enviarme 2 de los archivos que tienen el...

H o l a: ¿Lo qué quieres es que no pueda seleccionar las celdas de la columna "I"? Y si estoy en la columna "A" y con el mouse selecciono una celda de la columna "I", ¿qué debería hacer?

H o l a: Tus datos en la "Hoja1" deben estar así, empezar en la celda A1: La macro: Sub Verticalizar() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.UsedRange.Offset(1, 0).Clear k = 2 ' For i = 2 To h1.Range("A" &...

H o l a: No entiendo cómo tienes las sumas, en tu ejemplo el Dato B en autosuma tienes 154, pero no sé cómo llegaste a ese resultado, ¿debería ser 33? ¿Me explicas qué datos se deben sumar en cada autosuma?

H o l a: Te anexo las indicaciones: Sub macro() 'Por.Dante Amor 'Revisa las celdas existe = False For Each c In Range("B2:B7") If c.Value = "" Then celdas = celdas & " " & c.Address(False, False) existe = True End If Next If existe Then MsgBox "Falta...

H o l a: Pon la siguiente macro en los eventos de thisworkbook Private Sub Workbook_Open() 'Por.Dante Amor Select Case Date Case "04/01/2016", "01/02/2016", "01/03/2016", "01/04/2016", _ "02/05/2016", "01/06/2016", "01/07/2016", "01/08/2016", _...

H o l a: Puedes poner la macro con tus datos, para ver cómo quedó el rango de datos a copiar.

H o l a: Te anexo la macro actualizada: Sub principal() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ' DoEvents ruta = "D:\REPORTES\" ruta = ThisWorkbook.Path & "\" With ActiveSheet.QueryTables.Add(Connection:=...