Eduard Caballero

¿Necesariamente una macro? Existe una fórmula en excel para contar con dos criterios. Aquí tienes el ejemplo =CONTAR.SI.CONJUNTO(A2:A500;"GUATEMALA";B2:B500;"ACTIVOS") Si es necesariamente un macro usa esto res =...

Si entiendo tu pregunta puedes usar la función eserror Por ejemplo =SI(ESERROR(BUSCARH(D8;A5:H5;2;0))," ",BUSCARH(D8;A5:H5;2;0)) ¿Qué hace eserror? Si la búsqueda no arroja resultados el error es verdadero por lo tanto te deja la celda vacía Si por...

Primero te comento que el resultado lo coloco en l5 porque h5 esta en la sumatoria. ¿Es un error? Este código lo colocas en un botón comando donde tengas los datos valord5 = Range("d5") valore5 = Range("e5") valorf5 = Range("f5") valorg5 =...

Acá tienes un procediiento para imprimir solo las hojas visibles http://support.microsoft.com/kb/136261/es y revisa esto http://www.rondebruin.nl/print.htm#Hidden

Ya la conteste aquí http://www.todoexpertos.com/mitodoexpertos/answer/2731330/busqueda-de-datos-con-macros

Acá tienes Private Sub CommandButton1_Click() Dim valor1 As Integer Dim valor2 As Integer Range("g2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell = "SP" Then valor1 = ActiveCell.Offset(0, -2) valor2 = ActiveCell.Offset(0, -1)...

Eso se debe al tipo de archivo que estás guardando (xlText). Aquí te dejo la información proporcionada por microsoft http://support.microsoft.com/kb/199268/es

Esto actualiza a la fecha actual la celda contigua que modificaste. Colocalo en el código de la hoja donde modificas los datos Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B1:B1000")) Is Nothing Then...

Private Sub CommandButton1_Click() Range("C9").Select Do While Not IsEmpty(ActiveCell) If ActiveCell < 3 Then Selection.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Loop End Sub Te borrara las filas con esa condición hasta llegar a la...

Creo que eres mucho más experto que yo en el tema de las macros. Pero leyengo por acá creo que es mejor que uses la sentencia On Error Resume Next Esta pasar por alto el error y sigue ejecutando las instrucciones siguientes Te paso la información...