Rafael Vera

Puedes utilizar el método .PasteSpecial con el argumento xlPasteValues Sub CopiarImprimir() Application.ScreenUpdating = False Sheets("Imprimir").Range("A4:C50").Clear Sheets("Imprimir").Range("E4:J49").Clear Sheets("Planillas").Range("G4").Copy...

Para redondear los decimales de un número a la cantidad más cercana de .00 o .50, puedes utilizar la función REDONDEAR() en combinación con algunas operaciones matemáticas. Aquí tienes un ejemplo de cómo podrías hacerlo: =REDONDEAR(A1*2, 0)/2 Esta...

Compartelo su codigo

=DIATRABAJO(B1, 12) Esta fórmula sumará 12 días laborables a la fecha de la celda B1 y devolverá el resultado en la columna F. Asegúrate de que el formato de fecha en la columna F esté configurado correctamente para que se muestre como dd/mm/aaaa.

Aquí tienes un ejemplo Sub CopiarCeldasEnCiclo() Dim i As Long Dim origen As Range Dim destino As Range ' Establece la celda de origen y destino iniciales Set origen = ThisWorkbook.Sheets("NombreDeTuHoja").Range("G41") Set destino =...

Tiene algún ejemplo tu código.

La variable FeChita no está definida, y en su lugar, estás usando FeCha para buscar en el rango

Una guía general sobre cómo convertir tus contactos VCF a formato CSV utilizando métodos comunes que no requieren una herramienta específica: Método 1: Usar Microsoft Excel (para Windows) Abre Microsoft Excel en tu computadora.Ve a "Archivo" y...

Sub SeleccionarDatosValidos() Dim ws As Worksheet Dim sourceRange As Range Dim destRange As Range Dim lastRow As Long Dim i As Long ' Cambia "Sheet1" al nombre de la hoja donde están tus datos Set ws = ThisWorkbook.Worksheets("Sheet1") ' Define el...

Sub FiltrarSalidaContenedoresHH() Dim columna As Range Dim celda As Range ' Asegurarse de cambiar "Sheet1" por el nombre de la hoja en la que deseas realizar el filtrado Set columna = ThisWorkbook.Worksheets("Sheet1").Range("A:A") ' Filtrar los...

Aquí tienes un ejemplo de código en VBA que puedes utilizar para evitar registros duplicados considerando dos columnas en Excel: Sub AgregarRegistro() Dim wsRegistro As Worksheet Dim wsBaseDatos As Worksheet Dim registro As Range Dim baseDatos As...

Microsoft Azure Information Protection, puedes usar el siguiente código: Application.DisplayAlerts = False ' Desactiva las alertas ' Código de tu macro aquí ' Activa la ventana emergente On Error Resume Next Application.Dialogs(xlDialogSendMail).Show...

Aquí tienes una macro en VBA que se ejecutará automáticamente al abrir el libro, pero solo se ejecutará el día 1 de cada mes: Private Sub Workbook_Open() If Day(Date) = 1 Then ' Coloca aquí el código que deseas ejecutar el día 1 de cada mes al abrir...

En VBA, no es posible cambiar la configuración predeterminada de la tecla F8 para correr una macro paso a paso. La tecla F8 está reservada para la ejecución en modo de depuración, lo que significa que al presionarla, la macro se ejecutará paso a...

Si deseas utilizar una macro para copiar filas completas con imágenes en Excel a otro libro: Sub CopiarFilasConImagenes() Dim LibroOrigen As Workbook Dim LibroDestino As Workbook Dim HojaOrigen As Worksheet Dim HojaDestino As Worksheet Dim FilaOrigen...

Aquí tienes la macro modificada que te permite seleccionar la hoja de destino antes de copiar los datos. Sub move_data() Dim data_wb As Workbook Dim target_wb As Workbook Dim file_name As Variant Dim header_range(100) As Range Dim last_row As Long...