Dante Amor

Te anexo la macro, el resultado de las celdas te las puse en un mensaje. Sub PrimerasCeldas() 'Por.Dante Amor ActiveWindow.View = xlPageBreakPreview For Each corte In ActiveSheet.HPageBreaks celdas = celdas & corte.Location.Address(False, False) & ",...

Me puedes enviar el archivo y me explicas con ejemplos los resultados que esperas Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “edwin tequen lora” y el título de esta pregunta.

H o l a: En esta línea, le estás indicando, que de la celda activa, se mueva 20 filas hacia abajo, después de esa celda, le adicione 65536 líneas, entonces, por ejemplo si estás en la celda a1, te va a seleccionar la celda A20 + 65536, te selecciona...

H o l a: Para la tecla ESC realiza los siguientes pasos: Pon la siguiente macro en los eventos de ThisWorkbook, de esta forma cada que abras el libro la tecla Esc quedará asignada para llevarte a la hoja "indice" Private Sub Workbook_Open()...

Te anexo la macro Sub CopiaRangoOtroLibro() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet Set c1 = ActiveCell ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo de excel" .Filters.Clear .Filters.Add...

Te anexo la macro Sub GuardarHoja() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False celdas = Array("D7", "E8", "F9") ' agregar las celdas que deseas For i = LBound(celdas) To UBound(celdas) nombre = nombre &...

Sigue los pasos. Si el combo está en una hoja: Pon el siguiente código en los eventos del libro para cargar por primera vez los nombres en el combo Private Sub Workbook_Open() 'Por.Dante Amor Sheets("Factura").Select Set h2 = Sheets("hoja2") col =...

Me gusta más usar el For Next, en la misma línea le indicas de dónde a dónde quieres el ciclo For i = 1 to 10 (va desde 1 hasta 10, de uno en uno) También le puedes indicar que avance de 3 en 3 For i = 1 to 10 step 3 (va desde 1 hasta 10, de tres en...

H o la : Te anexo la macro. Sub EnviaCorreo() 'Por.Dante Amor Set h = Sheets("EMAIL") ini = 2 'fila inicial con datos ant = h.Cells(ini, "B") & h.Cells(ini, "C") Set dam = CreateObject("outlook.application").createitem(0) existe = False j = ini ' For...

H o la: Si la hoja activa es la "REGISTRO", entonces no es necesario hacer mención de la hoja y puede ser así: Sub macro() Dim UR As Long Dim nvacio As Long UR = [A1048576].End(xlUp).Row nvacio = WorksheetFunction.CountBlank(Range(Cells(2, 1),...