Dante Amor

H o l a: Te anexo la macro para filtrar y quitar el filtro: Sub NuevoFiltro() 'Por.Dante Amor u1 = Range("A" & Rows.Count).End(xlUp).Row u2 = Range("J" & Rows.Count).End(xlUp).Row Range("A5:H" & u1).AdvancedFilter Action:=xlFilterInPlace, _...

H o l a: Te anexo la macro actualizada Private Sub CommandButton1_Click() 'Por.Dante Amor respuesta = MsgBox("¿Está seguro que desea agregar esta novedad?", vbYesNo + vbExclamation) If respuesta = vbNo Then Exit Sub ' f = 7 c = Columns("AR").Column...

H o l a: Te anexo la macro actualizada Sub Macro4() 'Act.Por.Dante Amor f = ActiveCell.Row Range("C" & f & ":H" & f).Copy With Range("J" & f).Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0...

H o l a: Quedaría así: Sub crear_txt() 'por luismondelo ruta = ThisWorkbook.Path & "\" Open ruta & "PUNTO.SCR" For Output As #1 Range("D2").Select Do While ActiveCell.Value <> "" dato = ActiveCell.Value Print #1, dato ActiveCell.Offset(1, 0).Select...

H o l a: Vamos por la opción de guardar como PDF. Pero ya no entendí, ¿quieres las 2 hojas en un solo PDF? O quieres que cada hoja se guarde una en cada pdf, es decir, ¿2 PDF? Y por último, de dónde se va a obtener el nombre del o de los archivos. En...

H o l a: Te anexo la macro Sub SerpararDatos() 'Por.Dante Amor m = 120 n = m j = 2 ActiveSheet.UsedRange.Offset(0, 1).ClearContents For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step m Range("A" & i & ":A" & n).Copy Cells(1, j) n = n + m j = j +...

H o l a: Hay algunas formas para guardar como txt, separado por espacios, como csv, como ms-dos, etc. Podrías enviarme una muestra de tu archivo y un par de archivos txt para ver cómo es la forma de txt. Mi correo [email protected] En el asunto del...

H o l a: Crea una tabla dinámica. Selecciona tus datos, del Menú Instar, selecciona Tabla dinámica, en la ventana de Crear tabla dinámica, selecciona Nueva hoja de cálculo y presiona aceptar. Excel te crea una nueva hoja, en esa nueva hoja en el...

H o l a: La información que pones en un textbox, es un texto, aunque le pongas formato al textbox, lo que está contenido dentro del textbox, sigue siendo un texto, lo mismo ocurre con un listbox o un combobox. Lo que se tiene que hacer es pasar ese...

H o l a: Te anexo la macro para realizar la copia. Sub CopiarCelda() 'Por.Dante Amor Set h1 = Sheets("registro") Set h2 = Sheets("consec doc") If h1.[B10] > 0 Then h2.[B60000] = h1.[B10] MsgBox "Celda copiada" End If End Sub Sigue las Instrucciones...