Dante Amor

H o la: envíame el archivo con explicaciones de lo que necesitas

Vamos una por una Target.addres(False, False) = "A1" target.address te regres "$A$1", pero si le pones (false, false) te regresa "A1" (False, true) te regresa "A$1" (True, false) te regresa "$A1" If Target.Row > 100 Then Exit Sub If Target.count > 1...

H o la: Suponiendo que en la hoja detalle tienes en la celda A2 el concepto "Producción", entonces en B2 pon la siguiente fórmula: =SUMAR.SI(base!C:C;detalle!A2;base!D:D) Si hacia abajo de A2 tienes más conceptos, entonces copia la fórmula hacia...

H o la: Según tus comentarios, primer realizar un filtro por fecha, entonces, en la siguiente macro cambia la letra "D" por la columna donde tienes esas fechas. También cambia el 1 por el número de fila donde tienes los encabezados En estas líneas...

No puedes seleccionar una celda si estás en otra hoja, primero te tienes que seleccionar la hoja y después seleccionar la celda: i = 1 Sheets(i).Select ActiveWorkbook.Sheets(i).Range("A3").Select o puede ser: i = 1 Sheets(i).Select Range("A3").Select...

H o la: envíame tu archivo con el formulario; y me explicas con un ejemplo, qué quieres hacer, una vez encontrado el registro a modificar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “diego flores” y el título de...

H o la: Te anexo la macro con algunos cambios: Sub Add_dbProductListSales_2() 'Act.Por.Dante Amor ' Add_dbProductListSales Macro ' Application.ScreenUpdating = False ' Set h1 = Sheets("dbListSales") Set h2 = Sheets("dbSales") h1.Range("A3:J3").Insert...

H o l a: Para ilustrar mi ejemplo, voy a suponer que el formulario UserForm2 tiene los textbox, combobox y checkbox que se van a limpiar. Para limpiar todos los textbox, combos y checks de un formulario, pon lo siguiente en un módulo: Sub...

Te recomiendo lo siguiente, primero, cambia el evento textbox_change por un botón, actualmente por cada letra que pones en le textbox realiza la búsqueda, cuando son pocos registros, es muy práctico, pero cuando son muchos registros, lo mejor es que...

Tienes que reemplazar hoja por hoja, puede ser de esta forma: Sub Reemplazar() For Each h In Sheets h.Cells.Replace What:="\Centros\", Replacement:="\locales\", lookat:=xlPart Next MsgBox "Fin" End Sub 'S aludos. Dante Amor. Recuerda valorar la...