Dante Amor

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: El textbox tiene varios eventos, uno de ellos es el evento "Enter", pero no significa que cuando presionas la tecla "Enter", más bien significa cuando "Entras" al Textbox. Podría ser, el que necesitas sea cuando sales del textbox, entonces...

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:=...

H o l a: De estas macros: Sub importar() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False With ActiveSheet.QueryTables.Add(Connection:= _...

H o l a: Pon lo siguiente en los eventos de Thisworkbook: Private Sub Workbook_Open() 'Por.Dante Amor UserForm1.Show End Sub El siguiente código lo pones en tu userform1: Private Sub UserForm_Initialize() 'Por.Dante Amor Application.OnTime Now +...