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...