Elsa Matilde

Ya tenés la instrucción que te encuentra la primer fila libre, hacia abajo. En video 30 de mi canal explico el método CurrentRegion que es otra manera de encontrar esa fila. Luego tenés que enviar cada dato a esa fila tal como te dejo para FECHA y...

Hay que extraer, del hipervínculo, el nombre de la hoja para poder hacerla visible. Esto se puede realizar desde el evento FollowHyperlink de la hoja donde tengas todos tus vínculos. 1- Entra al Editor de macros (con ALT+F11 o menú...

Estás colocando el código en el evento Initialize, o sea al abrir el Userform... y todavía no tienes nada en el textbox. Debieras colocar el código, por ejemplo, en el evento Exit del Textbox, o sea a salir del control luego de escribir el texto por...

Entiendo que ya no quieres que se te inserte una fila por encima sino ir colocando los datos hacia abajo. En ese caso primero debes encontrar cuál es la primer fila vacía (hay varios modos. En video 30 de mi canal explico el método CurrentRegion que...

Si necesitas que al abrir el formulario se realice el control de fechas, deberás colocar ese código en la llamada al formulario. Por ejemplo: Sub llamaUF() 'macro que llama al formulario Dim exdate As Date exdate = "27/06/2021" If Date > exdate Then...

Pasar a la hoja Plantilla solo requiere que pases el contenido de cada control a las celdas de tu hoja. Por ej: Private Sub CommandButton1_Click() 'x Elsamatilde Dim hop 'hoja de impresión (*) Set hop = Sheets("Plantilla") 'el contenido de cada...

Con la instrucción: ThisWorkbook. Path & "\Pict\" & 1.1 & ".jpg" se le está indicando que la imagen se encuentra en una subcarpeta a partir de la ubicación del libro activo. Algo como en esta imagen: Verifica que esté así ubicada y que coincidan los...

1 - Si el cambio en celda B2 se realiza de modo manual, es decir escribiendo en la celda, coloca estas instrucciones en el Editor, en el objeto HOJA donde tengas tus datos. Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'cuando...

En las col 3 y 4 estás enviando información pero esas variables no existen o no tienen el importe (que está en TxtImporte) Cells(UltimaFila + 1, 3) = Ingresos Cells(UltimaFila + 1, 4) = Salidas Si tenés un combo que evalúa si se trata de Ingreso o...

Si estás intentando enviar datos a la hoja, debes indicarlo como 'rango' y no hace falta el 'value' en la variable K: For k = 1 To 10 Range(letra & k) = False Next k Si esto resuelve tu consulta no olvides valorarla.