Dante Amor

Prueba esto: Sub test() Range("A6", Range("A" & Rows.Count).End(3)).Select End Sub

Crea una tabla dinámica

Busca en controles adicionales: Si no lo encuentras, tal vez deberás descargar al control adicional.

En tu imagen de la hoja "Formato" no veo las filas y las columnas de excel. Así voy a suponer que empieza en la celda A1 con el dato "DATOS DEL USUARIO". Sería más práctico poner el folio en la celda B1. De esa manera evitas, otra ventana, otro...

Prueba lo siguiente: Private Sub Btn_Aceptar_Click() Dim l1 As Workbook, l2 As Workbook Dim h1 As Worksheet, h2 As Worksheet, h3 As Worksheet Dim f As Range, cols As Variant Dim i As Long, j As Long, k As Long ' Application.ScreenUpdating = False '...

Supongo que tienes algo como esto en tu combo: Prueba el siguiente código para el combo: Private Sub ComboBox1_Change() Dim i As Long With ListaEquipos .RowSource = "" If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then ListaEquipos.RowSource =...

Pongo un ejemplo: Set h1 = sheets("Hoja1") h1.range("A" & rows.count).end(3)(2).Value = textbox1.Value

Revisa lo siguiente si te ayuda un poco: Cambiar colores de varios CommandButton al pasar el mouse

Prueba la siguiente: =SI(K10="NORMAL";"D71 - Baja Rotación- Buena";SI(K10="CAMBIO";"D11 - Producto vencido";"")) Nota: Si no se cumple ninguna condición, te recomiendo dejar espacio vacío "", en lugar de espacio en blanco " ".

Podrías comentar en el siguiente orden: 1. En tu imagen "sin procedimiento", en todos los casos, siempre aparece en la primera posición de la columna D el dato (azul) de la columna F. Esto siempre será así. 2. En las celdas de la columna D, siempre...