Dante Amor

Utiliza la siguiente fórmula: =SUMAPRODUCTO((Hoja2!$A$2:$A$1000=A2)*(Hoja2!$B$2:$E$1000)) Resultado:

Con todo respeto quisiera comentar lo siguiente: 1. En ninguna parte de las normas generales a cumplir en TodoExpertos, comentan que una pregunta solamente puede recibir una respuesta. ¿Cuáles son las normas generales a cumplir en Todoexpertos? ¿Cómo...

Descarga mi aplicación para enviar correos masivos: Macro para envíar correos masivos con adjuntos diferentes Otros temas de interés: https://www.todoexpertos.com/temas/microsoft-excel/ranking?scope=Total Multiplicar tres celdas

Utiliza el siguiente código. Cada que empiezas a capturar letras en el textbox1, en automático hace el filtrado en el listbox1. Revisa las indicaciones en el código para que lo adaptes a tu userform: Option Explicit ' Dim a As Variant 'Al inicio del...

Considera que si en la columna A no tienes datos, entonces el valor siempre se insertará en la celda 1. Entonces, si vas a insertar valores en la columna H, lo conveniente es que cuentes las celdas con valor de la columna H. Prueba lo siguiente:...

En la siguiente respuesta está mi aplicación para enviar correos masivos Macro para envíar correos masivos con adjuntos diferentes . Descarga el archivo. No olvides valorar y votar la respuesta Otros temas de interés:

[Ho la y bienvenido a TodoExpertos. Pon el siguiente código en los eventos de la Hoja1. Cambia en el código "A1" por la celda donde quieres que funcione. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range, f As Range '...

Como te puse el ejemplo en la otra pregunta, pasas el dato de la celda G16 a tu base de datos. Si ya tienes un código para pasar los datos de tu plantilla a la base de datos, pon aquí el código y te ayudo a daptarlo. Si necesitas el código completo,...

Por lo que ve tu plantilla está en las celdas de la hoja. Solamente elige unas celdas y las combinas. Revisa el siguiente ejemplo y marca la Alineación que está señalada con rojo:

¿Una vez que seleccionas la columna, para qué la vas a utilizar? En el inputbox, pero con Type:=8, puedes seleccionar un rango de celdas o columnas. Prueba lo siguiente: Sub SeleccionarColumna() 'Por.Dante Amor Dim rng As Range On Error Resume Next...