Dante Amor

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

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

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

¿En tu ejemplo existe alguna coincidencia? Puedes mostrarla. A qué te refieres con "contarlas" puedes poner imágenes con ejemplos de esas cuentas. Es decir, debes poner varios ejemplos que cumplan con las coincidencias y que en el ejemplo se vean...

Prueba lo siguiente: Sub Imprimir() Dim i As Long For i = 1 To 10 Range("L1").Value = i ActiveSheet.PrintOut Next End Sub

Tengo una macro que busca coincidencias Pon aquí tu macro, utiliza el icono para insertar código. En "sheet 1" D2 insertar bucle y cuando la búsqueda este en 100% o lo más cerca, se detenga. Explica aquí con imágenes lo que deseas. Lo que debe...

Con lo siguiente podrías copiar y pegar Sub prb() Sheets("ORIGEN"). Range("B8", Sheets("ORIGEN").Range("B" & Rows. Count).End(3)). Resize(, 5). Copy Sheets("Destino").Range("A" & Rows. Count).End(3)(2) End Sub Pero si no hay registros a copiar,...

Revisa los siguientes enlaces: Listas desplegables dependientes en excel Como enlazar Listas desplegables dependientes Cómo crear listas desplegables dependientes Excel 2016 Lista desplegable excel con diferentes opciones Lista desplegable...

Tienes que hacerla visible para imprimirla. Una opción es utilizar lo siguiente, apagas la actualización de pantalla, haces visible la hoja y la imprimes, de esa manera no se muestra la hoja. Sub ImprimeHojaOculta() Application.ScreenUpdating = False...

Pon el siguiente código en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, rng As Range Dim n As Variant ' Set rng = Intersect(Target, Range("E:E, K:K"), Rows("2:" & Rows.Count)) If Not rng Is Nothing Then...