Dante Amor

En el código del userform FRM_INICIO, pon el siguiente código: Private Sub UserForm_Initialize() FRM_DATOS_COMPLEMENTARIOS.Show End Sub O desde el userform FRM_INICIO, puedes poner un botón con esto: Private Sub CommandButton1_Click()...

Debes poner la hoja de referencia: Private Sub CommandButton1_Click() Dim xRow As Long xRow = [RandBetween(13,39)] TextBox1 = Sheets("C. FILIACIÓN").Cells(xRow, 2) 'nombre de tu hoja End Sub [Avísame cualquier duda, no olvides la valoración.

Puedes explicar cuál o cuáles sin las condiciones. Si cumplen en dónde poner el 0 y en dónde poner el 1 Explica 2 ejemplos de tu imagen.

Prueba así y comenta: Private Sub TextBox1_Change() Sheets("EB").cells(1, 11) = "ORDEN " & TextBox1.Value End Sub Si es lo que necesitas, no olvides la valoración.

En los controles del UserForm existe el control Frame. Con ese control puedes hacer lo que escribiste: - Por ejemplo una línea para separar 'zonas de trabajo' (a la que después daría color...). - Un rectángulo sin relleno para agrupar conjuntos de...

Utiliza la propiedad "Accelerator" del CommmandButton En el campo de la propiedad del CommmandButton, escribe una de las letras de lo que tienes en el Caption del CommmandButton. Por ejemplo, en el siguiente userform, en el botón "Nuevo", estoy...

En tus imágenes no se ven las filas ni las columnas de la hoja: Puedes poner nuevas imágenes para ver en cuáles columnas tienes los datos y ayudarte con la fórmula. Asumiendo que la columna inicial en cada una de tus imágenes es la columna A, preparo...

[Ho la y bienvenido a TodoExpertos! Te paso la fórmula: =SUMAPRODUCTO(SUBTOTALES(109;DESREF(C15;FILA(C15:C1000)-FILA(C15);;1))*(B15:B1000="GRIS"))+SUMAPRODUCTO(SUBTOTALES(109;DESREF(E15;FILA(E15:E1000)-FILA(E15);;1))*(D15:D1000="GRIS")) Al final de...

Prueba así: Sub fecha_lote() Dim fecha As String, lote As String Dim anio As String, mes As String, dia As String Dim unifecha As Date Dim fila As Long fila = 2 Do While Cells(fila, 1) <> "" fecha = Mid(Range("A" & fila), 5, 6) lote = Mid(Range("A" &...

Prueba cambiando el parámetro ReadOnly:=False Private Sub MODIFICAR_Click() Dim Fila As Object Dim Ruta As String Dim Archivo As String Dim Libro As Workbook Dim HojaDatos As Worksheet Dim Hoja As String Ruta = "C:\Users\Jorge L. Sosa\Desktop\MIVED\"...