parmijo

Este código en la hoja en donde la deseas ejecutar (ojo no en un modulo) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B3" Then Call BUSCAR End Sub B3=celda BUSCAR=nombre de tu macro

A B C D 1 Frutas Año Frutas Año 2 Manzana 2008 Manzana 2008 3 Manzana 2008 4 Manzana 2008 5 Manzana 2008 6 Manzana 2009 7 Manzana 2008 8 Manzana 2008 Si tienes estos datos puedes ocupar la funcion =BDCONTARA(A:B;A1;C1:D2) Con esto cuentas los datos...

Te adjunto un macro para que la pruebes. Comparar datos entre dos hojas, espejo una de la otra y marcar las diferencias Aplicación: Hoja2 copia de la Hoja1, para saber si en Hoja2 faltan datos o son diferentes de Hoja1. (En la Hoja2 no debe haber...

Enviame tu archivo a mi correo [email protected]

Al copiar el botón y la macro también copias esta parte del código: Sheets(Hoja2").Select 'Seleccionar la Hoja2 para referirte a la hoja 5 la ante pones al rango Sub Botón13_Haga_clic_en() Sheets(Hoja5").Range("C4:C40").Value = "" 'Borrar el...

Suponiendo que enero esta en A1, febrero esta en B1 Copia este código en la hoja en donde están los datos (no en un modulo) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or...

Ok mandame tu libro a [email protected]

Puedes dejarme tu correo para enviarte un código que hace más o menos lo que necesitas no lo dejo acá por que es de otro foro. [email protected]

En un modulo pega esta macro y luego se la asiganas al botón. Sub macro_guarda() ult = Sheets("hoja3").Range("D65536").End(xlUp).Row + 1 Sheets("hoja3").Cells(ult, 2).Value = Range("C5").Value Sheets("hoja3").Cells(ult, 3).Value = Range("D15").Value...

La verdad no me queda muy claro lo que necesitas si una fórmula o una macro .. De igual menera mandame un correo [email protected] y me indicas con más detalles ...