Dante Amor

Hay que acotar el rango de suma, en tu caso pusiste la fórmula así: =SUMAR.SI.CONJUNTO(valores!AD:AD,valores!R:R,"SI",valores!F:F,'data global'!C:C) Estás haciendo la búsqueda en toda la columna AD, en toda la columna R, F y C. La fórmula con rangos...

Utiliza el siguiente código Private Sub UserForm_Initialize() 'Por.Dante Amor Set h = Sheets("PRUEBA") For i = 2 To h.Range("B" & Rows.Count).End(xlUp).Row If h.Cells(i, "I").Value = "Reclamado" Then Call Agregar(ComboBox1, h.Cells(i, "B")) End If...

En lo posible no utilices On Error Resume Next Prueba con lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H9, H16, H24")) Is Nothing Then 'defino la ruta de acceso a las fotos: Ruta =...

Cuando insertas una línea o una columna en Target tienes cientos de celdas, entonces Target se convierte en un objeto, por eso no puedes comparar el objeto con un texto, por eso el error dice : "no coinciden los tipos" Te anexo la macro actualizada...

H o l a: No tienes que reconstruir la fórmula, solamente reemplaza el texto original por el nuevo texto: Sub Cambiar() 'por Dante Amor texto1 = "Inicio y/o Re-Inicio de Producción y cada vez que se empiece una nueva caja" texto2 = "Inicio y/o...

Pon el siguiente código en tu botón de buscar. En el textbox1 pon el número de cliente En textbox2 quedará el nombre En textbox3 quedará la fecha En textbox4 quedará el importe Private Sub CommandButton1_Click() 'Buscar 'Por.Dante Amor ' If TextBox1...

Prueba con lo siguiente, ajusta los nombres de tus controles. La idea es una macro que revise cada cierto tiempo la hora. Yo puse que se revise cada 30 minutos, pero lo puedes ajustar a cada 10 minutos o cada 50 minutos. Private Sub...

Envíame ejemplos de xml y un excel con los datos de esos xml Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “san lo”

Envíame tu archivo con el userform para adaptar la macro Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Andrés López Acosta”

Te anexo la macro Sub Rellenar() 'Por.Dante Amor u = Range("B" & Rows.Count).End(xlUp).Row Range("I9:BE9").AutoFill Destination:=Range("I9:BE" & u), Type:=xlFillDefault End Sub . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ....