newmodel

¿Creo qué esta es la anterior que habéis enviado es correcto? Ya te respondí amigo!

Con un blucle solucionas tu problema: Necesitas Escribir en una lista el nombre de los libros que quieres actualizar... Ejemplo: En el rango x1 Parte1.xls En el rango x2 Parte2.xls Y así sucesivamente... Ahora Escribes este código: Sub Actualiza ()...

Te envío una propuesta... La macro primero ordena por Columna A y después hace las operaciones que indicas... Sub bdClasifica() Dim TotalReg As Long Dim i, x, r As Long Dim IdProd As String TotalReg = Range("a65500").End(xlUp).Row + 1 Range("A1:C" &...

Para que la macro tome la selección es necesario escribir Selection.value = valor Donde: Selection.value es el rango que has seleccionado Valor es el que determinas.. Ejemplo Si seleccionas A1:B20 y en la macro escribes: Selection.Value = "12312" Te...

Necesitas una instrucción que primero valide el día actual y busque los que coincidan con la fecha + 3 días del contrato para determinar una alarma. Necesito ver los rangos en los que esta la fecha... Si quieres puedes compartirme el archivo con unos...

Escribe al inicio del código (después de Sub Carga_Informacion()) On error resume next Espero esto te sirva, de lo contrario hazme llegar tus comentarios y encontraremos otra alternativa

Intenta esto: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) On Error GoTo 99 hojaact = ActiveSheet.Name libro = ActiveCell.Value For i = 1 To Sheets.Count If Sheets(i).Name = libro Then If Sheets(i).Visible =...

¿Me puedes compartir un ejemplo o el libro de Visitas? Mi correo es [email protected]

El error es porque desde el principio estás usando un IF y lo estás finalizando en la misma línea de texto. Ejemplo: If ComboBox1.Text = "" then Goto Salida2 'aquí termina el If else 'El programa buscará donde comenzó el If para este "Else" Tu código...

Me imagino por lo que explicas que estas copiando todo (fórmulas) y por eso se modifica todo. Si este es el caso te funcionaria que copiaras lo seleccionado en Valores Puedes intentar con esto: Sub Actividad() Dim filalibre, Col As Integer Col = 1...

Me imagino que esto es lo que necesitas: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) on error goto 99 libro = ActiveCell.Value 'La variable Libro lee el nombre de la celda a la que le diste doble click,...

Para la primera consulta Al momento que empieza a descargar la información debes indicarle que lo haga también con el numero de Local, pero para que funcione mejor declara la variable con el Nombre de Local y el textBox sera el valor que asignes a...

Necesitas entrar a un modulo de Visual basic y escribir: Sub Auto_Open 'Con esto se inicia el còdigo que aquì escribas al momento de abrir este libro... 'Necesitas crear un UserForm 'Click Derecho en ThisWorkBook -> Insertar -> UserForm Debes diseñar...

Puedes usar la instrucción de VLookUp de la propiedad WorkSheetsFunction Empieza a escribir los valores que encuentre buscando el criterio de la celda c3, y cambia de columna al terminar el ciclo... Sub BuscaVerticalExampleCode() On Error Resume Next...

La posible solución a tu problema es que el usuario ingrese una fecha valida, para lo cual usaremos "IsDate" la cual verifica que los datos ingresados estén en formato de fecha: If Respuesta = vbNo Then ' El usuario eligió el botón No. DHOY =...

Puedes probar con ete código: * Primero debes declarar una variable que distinga al libro desde el que se ejecuta la macro Sub Ejemplo() Dim EsteLibro, Libro2, abrir As String 'Opcional... sirve para ubicar el archivo del que quieres copiar. 'Si no...