Rafael Vera

Para generar una sublista de una lista basada en una condición en VBA. Aquí tienes un ejemplo de cómo hacerlo: Sub GenerarSublista() Dim ListaRespuestas As Variant Dim Pregunta As String Dim Sublista() As String Dim i As Long, j As Long, k As Long '...

Estoy aquí para ayudarte a modificar tu macro para extraer datos de varios archivos. Por favor, proporciona más detalles sobre qué tipo de datos deseas extraer y cómo se encuentran estructurados en los archivos. Además, si tienes algún código...

Puedes utilizar para guardar la hoja "CONSOLIDADO" en una carpeta dentro del directorio del archivo Excel, con el nombre del cliente y la fecha de la orden de compra: Sub GuardarHojaEnCarpeta() Dim rutaCarpeta As String Dim nombreCliente As String...

El problema en tu código parece estar relacionado con cómo defines el rango para la ordenación. Aquí hay una versión corregida del código que debería funcionar para ordenar por tres columnas: provincia, empresa y servicentro. Dim MiRango As Range '...

Aquí tienes un ejemplo de macro en VBA que puede ayudarte a concatenar los datos de la manera que deseas: Sub ConcatenarDatos() Dim lastRow As Long Dim currentNum As Variant Dim concatText As String ' Encuentra la última fila en la columna A lastRow...

Aquí te dejo un ejemplo de cómo podrías implementar esta funcionalidad: Sub VerificarCopia() Dim libro As Workbook Dim rutaArchivo As String ' Ruta del archivo que quieres verificar rutaArchivo = "C:\Ruta\Del\Archivo.xlsx" On Error Resume Next Set...

Un ejemplo para cambiar las columnas en las tablas y también para mostrar un mensaje de aviso si existe una copia del libro: Sub CambiarColumnas() Dim libroOriginal As Workbook Dim libroCopia As Workbook Dim rutaCopia As String Dim mes As String '...

Aquí tienes el código actualizado para enviar dos archivos adjuntos con el mismo nombre pero diferente extensión Sub EnviarMails2() Dim App As Object Dim Mail As Object Dim Adjunto1 As String Dim Adjunto2 As String Sheets("Mails").Select For i = 2 To...

Puedes seguir los siguientes pasos: Protege la hoja de cálculo: Primero, protege la hoja de cálculo para evitar modificaciones no autorizadas. Ve a la pestaña "Revisar" en la cinta de opciones y selecciona "Proteger hoja". Puedes establecer una...

Supongo así tu tabla Aquí tienes el código: Sub CrearTablaHoras() Dim ws As Worksheet Dim horaInicio As Date Dim horaDesayuno As Date Dim horaAlmuerzo As Date Dim horaFinal As Date Dim tiempoTotal As Date Dim tiempoRestante As Date ' Establecer la...