newmodel

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

Hay varias formas de hacerlo, la más sencilla que te sugiero es esta: Suponiendo que en el rango A2 tienes la palabra "Folio" En el rango B2 "Fecha" En el Rango C2 "Descripciòn" Entonces en el rango A3 escribe la siguiente Fórmula:...

En el modulo declara la variable mesdist como publica Escribe Public MesDist as string (o integer si el valor es entero) Esto lo escribes al principio del modulo.

Para este caso la solución seria la siguiente:Sub Copia() Dim i As Integer ' El valor serà la fila que copiaremos i = 2 'Ejemplo para copiar la fila 2 desde el rango "A2:D2" Range("A" & i & ":D" & i).Copy...