Dante Amor

Te anexo el código para insertar la imagen. Te faltó comentar algunos detalles, por ejemplo, el nombre de tu hoja, los nombres de tus controles, en cuáles columnas están el nombre y el DNI, pero puedes adecuarlos en el código: Private Sub...

Es decir, si se cumplen las 2 condiciones, si en A1 = "antonio" y A2 = "t" entonces es verdadero. Prueba con la siguiente fórmula, por ejemplo pon la fórmula en B2 =SI(Y(A1="antonio",A2="t"),"v","f") Nota: Si utilizas punto y coma (;) como separador...

Te anexo la macro Sub Eliminar_Filas() 'Por Dante Amor u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Set b = Columns("A").Find("TOTAL", lookat:=xlPart) If Not b Is Nothing Then If u >= b.Row + 1 Then Rows(b.Row + 1 & ":" &...

Entiendo que debo leer los registros de la hoja1 y si en la columna "F" existe la palabra "IDENTIFICADO", entonces copio el registro en la hoja4; y elimino el registro de la hoja1. Pero lo que no entiendo es cómo identificar cuál registro de la hoja2...

Te anexo el código Sub Borrar_BC() 'Por Dante Amor For i = 1 To Range("B" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value = Empty Then Cells(i, "B").Value = "" Cells(i, "C").Value = "" End If Next End Sub

Te anexo la macro para imprimir las facturas Sub Imprimir_Facturas() 'Por Dante Amor 'IMPRIMR FACTURAS Set h1 = Sheets("datos") 'hoja con datos de una tabla origen Set h2 = Sheets("factura") 'hoja con la factura a imprimir ' ruta = ThisWorkbook.Path...

Utiliza el formato condicional, por ejemplo. Selecciona la celda dónde quieres el color Entra al menú Inicio, Formato condicional, Administrar reglas. En la ventana del Administrador, presiona el botón Nueva regla En la ventana de Nueva, selecciona...

Utiliza la siguiente fórmula =FECHA(AÑO(B2)+2;MES(B2);DIA(B2)) Lo que hace es convertir a fecha, lo que tienes en la celda B2 y le suma exactamente 2 años. Esta fórmula incluye años bisiestos, los meses de 31 o 30 días.

Te falta hacer referencia a la hoja en los objetos Cells Debería ser así: H2.Cells(h2row, 42) = Application. WorksheetFunction. Sum(Sheets("Ejecutivo"). Range(Sheets("Ejecutivo"). Cells(h2row, 13), Sheets("Ejecutivo"). Cells(h2row, 41))) O también...

Puedes poner el código de tu macro Y también un par de imágenes, una de la hoja "BBDD" y otra imagen de la hoja "registros"; procura que en las imágenes se vean las filas y las columnas de excel.