pacoknt

Victor Maldonado Chavez respondió: Te envió los links de unos archivos que hice, de acuerdo a tu petición: Un libro de Excel: https://drive.google.com/open?id=14z-sxASkV9cGDxUbuLVMxwywXt9ddMhP Las instrucciones de uso: https://drive.google.com/open?id=11zetRaw7tLzBdd8lyjJEIjaEeP63f2aX...

Adriel Ortiz Mangia respondió: [Hola Te paso la macro, crea 4 hojas con los respectivos nombres Norte, Sur, Este, Oeste. Valora la respuesta para finalizar Sub copiar() 'Por Adriel ' Set h1 = Sheets("INFORME") ' u = h1.Range("B" & Rows.Count).End(xlUp).Row For i = 2 To u ' Select...

Jacinto Trillo Jareño respondió: Paco: Había descartado el responder porque no soy especialista en Word y lo que pueda decirte de mi cosecha igual te confunde más de lo que te ayude. No obstante, en la línea de querer ayudar he encontrado éste enlace que aunque no es exacto lo que...

Richard Alejandro Villarroel Gonzalez respondió: Aqui tienes un ejemplo sencillo: Sub BuscarSalto() 'El número de saltos de página horizontales está limitado a 1.026 por hoja. Dim x As Integer Dim Buscar As String ' Establecer numrows = número de filas de datos.' NumRows = Range("D2",...

Jacinto Trillo Jareño respondió: Paco: Esta pregunta me sale sugerida y supongo que es porque está un poco desubicada. En Excel hay especialistas magníficos y seguro obtendrás una respuesta adecuada. Un saludo >> Jacinto

Dante Amor respondió: Ejecuta la siguiente macro. Cambia la letra "A" dentro de la macro en esta línea: col = "A" por la columna que quieres revisar. Sub RevisarColumna() 'Por.Dante Amor col = "A" ' cuenta = 0 For i = 1 To Range(col & Rows.Count).End(xlUp).Row If Cells(i,...

Dante Amor respondió: H o l a: Te anexo la macro Sub ImprimirPaginas() 'Por.Dante Amor If [A1] = "" Then MsgBox "No hay páginas a imprimir en la celda A1" Exit Sub End If ' pags = Split([A1], ",") For i = LBound(pags) To UBound(pags) ExecuteExcel4Macro "PRINT(2," &...