Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para diferencia en datos
Te anexo la macro Sub Comparar_Hojas() 'Por Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("BASE_ACTUAL") Set h2 = Sheets("BASE_ANTERIOR") Set h3 = Sheets("RESULTADOS") ' h3.Rows("2:" &...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
¿Como Agregar items múltiples listboxs?
Te anexo la macro con comentarios. Private Sub CommandButton4_Click() 'Por Dante Amor 'Cargar lista de archivos de carpetas ruta1 = "C:\Users\...........\" ruta2 = "C:\Users\............\" ruta3 = "C:\Users\............\" ' ListBox1.Clear...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar datos de una tabla a otra desde un botón
Ya probé tu macro y no me genera error. Pero veo lo siguiente: La variable fila la declaraste como String. No declares la variable, en VBA no es necesario que declares las variables.El resultado en la variable fila es un número, no debes declararla...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Copiar Datos de una tabla a un nuevo libro sin algunas columnas
Lo que pasa es lo siguiente: Con esta línea ocultas las columnas: Selection.EntireColumn.Hidden = True Pero después seleccionas todas las columnas y las muestras con estas líneas: Columns("A:AX").Select Selection.EntireColumn.Hidden = False Entonces...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para mover archivos a carpeta especifica
Para mover varios archivos: Sub Respaldar_Archivos() 'Por Dante Amor destino = ThisWorkbook.Path & "\RECIBOS\HISTORICO\" ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona uno o varios Archivos" .Filters.Add "Todos los...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para guardar hojas de excel en formato PDF
Te anexo la macro Sub Guardar_Hojas() 'Por Dante Amor ' Guardar hoja1 y hoja2 como excel y pdf ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets(Array(h1.Name,...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Textbox para filtrar datos en listbox
Te anexo el código. Debes quitar el código del evento initialize Dim ruta1, ruta2 ' Private Sub CommandButton1_Click() ' llamada a imprimir de listbox1 Call Imprimir_Pdf(ListBox1, archivo, ruta1) End Sub ' Private Sub CommandButton2_Click() ' llamada...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Como simular la importación de un archivo?
Te anexo la macro, cambia la carpeta destino por la carpeta donde quieres guardar la copia. Sub Importar_Archivo() 'Por Dante Amor ' destino = "C:\trabajo\archivos\" 'ruta destino donde se depositará la copia ' With...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Botón que inicie una macro con un txt en el cual pueda ingresar el # casilla donde se realice la función
Pon el siguiente código en tu botón Private Sub CommandButton1_Click() 'Por Dante Amor 'captura la celda en un textbox y ahí pone el resultado de una operación ' Set celda = Range("H9") If celda.Value = "" Or celda.Value = 0 Then MsgBox "Falta el...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Formato condicional en múltiples columnas y celdas
Selecciona tu rango de celdas. Entra al menú Inicio, Formato condicional, Nueva regla. En la ventana de Nueva regla de formato, selecciona Aplicar formato únicamente a los valores únicos o duplicados. En dar formato a todo: revisa que esté la opción...