Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como cambiar el fin de línea (LF a CRLF) en un archivo excel con VBA
Intenta lo siguiente, en una celda cualquiera que no ocupes escribe el número 1. Copia esa celda donde escribiste el número 1 (la celda quedará con el marco punteado de que está la celda copiada) Ahora, selecciona las celdas que tienen los datos. Ve...
Respuesta
en
Programación
y en 2 temas más
a
Guardar cada 20 segundos excel pero que no se abra si se ha cerrado el libro
Realiza lo siguiente: Cambia el siguiente código Private Sub Workbook_open() Application.OnTime Now + TimeValue("00:00:20"), "savebook" End Sub Por lo siguiente: Private Sub Workbook_open() Call savebook End Sub ' Private Sub...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como pasarle a una celda el nombre del archivo?
La fórmula para poner el nombre del archivo es esta: =CELDA("nombrearchivo") Pero tiene un detalle, también te pone la ruta del archivo, el nombre del archivo y el nombre de la hoja. Ejemplo: C:\Users\damor\Documents\Docs\Soporte...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro copiar datos a otra hoja y verificar
Te anexo la macro Sub Verficar_Consecutivo() Set h1 = Sheets("Hoja1") 'origen Set h2 = Sheets("Hoja2") 'destino For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole) If b Is Nothing Then...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo buscar líneas de texto de la celda A, en texto de n cantidad de celdas en C?
Te anexo la macro, prueba y me comentas Sub Buscar_Texto() 'Por Dante Amor Columns("C").Interior.ColorIndex = xlNone For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set r = Columns("C") Set b = r.Find(Cells(i, "A"), LookAt:=xlPart) If Not b Is...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo guardar mediante macro un EXCEL a PDF?
Te anexo el código actualizado para guardar en xlsx y también en PDF Sub Guardar() ' ' Guardar Macro ' ' Acceso directo: CTRL+h ' Dim nombre As String, Ruta As String Ruta = "C:\Users\Desktop\INFORMES\" nombre = Range("B3").Value Cells.Copy...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Modificar datos en celdas dependiendo del valor
Te anexo la macro Sub Macro1() 'Por Dante Amor With Range("E2:E" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo un UserForm con un TextBox que trae datos a otros TextBox pero cuando debería terminar repite nuevamente los datos
En estos casos lo recomendable es poner un listbox. Con lo que tienes solamente puedes poner hasta 5 ó 6 productos, ¿y si la factura tiene más de 6 productos?, entonces tendrías que agregar más textbox. Con el listbox puedes agregar varios productos....
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Abrir otros libros excel con el explorador, copiar datos y almacenarlos uno debajo de otros en el libro actual
Te anexo la macro Sub Consolidar_Info() 'Por Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("CONSOLIDADO") ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione uno o varios archivos" .Filters.Clear .Filters.Add "archivos...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Botón Excel para copiar y pegar un rango de celdas en la ultima fila.
Prueba con la siguiente macro y me comentas Sub copiar_12() 'Por Dante Amor Set h1 = Sheets("Hoja1") u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row If u > 12 Then h1.Range("A" & u - 11 & ":I" & u).Copy h1.Range("A" & u + 1) Else h1.Range("A1:I" &...