Micky Perú

Necesito acoplar la siguiente fórmula "=SI(AJ2-AS2<0,0, AJ2-AS2)". Lo intente pero me da como resultado FALSO. Favor su apoyo con sus enseñanzas, gracias. Set h = ActiveSheet Set r = h.Columns("A") f = 2 Do Until h.Cells(f, 1) = "" If h.Cells(f, 2) =...

En la columna "Z" tengo valores únicos, necesito colocar en la celda "C14" el valor mínimo y el máximo de la columna "Z" con esta expresión "Del ... Al ...". Ejemplo cuando son correlativos; Del 5289-000001 al 5289-000100. Sin embargo, si no es...

Tengo datos en la columna "Z". Necesito una fórmula para que CONCATENE solo los valores mayores a cero y que cada valor este separado con "/", Todas las cedas se concatenaran en la celda "B2".

Necesito validar un UserForm con SI y NO y cada uno tiene una funcionalidad diferente. Adjunto imagen con la explicación. Favor su apoyo en corregir la macro mencionada. Gracias. Private Sub CommandButton1_Click() Application.ScreenUpdating = False...

Necesito ingresar datos desde un TextBox a todas las celdas visibles. Me explico, tengo un TextBox4, el valor que ingreso ahí es único y necesito ingresar ese valor en la columna H, pero siempre y cuando hayan valores en las celdas de la columna B....

Necesito que me salga un mensaje si el TextBox está vacío, y cuando le de aceptar al MsgBox me regrese al TextBox para ingresar el valor. Luego de ingresar el valor en el TextBox, debería de lanzarme otro UserForm. Realicé una macro, y esta sí me...

Dante Amor buenas tardes, un gran favor, puedes ayudarme para adaptar la macro "If Not Intersect(Target, Range("A:A")) Is Nothing Then..." al código que ya tengo desarrollado. Adjunto lo que he realizado pero no me funciona. Te agradezco de antemano...

Tengo unas macros que ingresan valores y necesito hallar el valor MAX en una columna, luego de hallarlo sumarle 1, y pegar COMO VALOR el resultado al costado de la celda que sea visible. Ejemplo: - A B 1 100 1 Al ingresar un valor en A1 Debe de...

Intento ingresar una fórmula local y no he dado con el resultado. Favor su apoyo, adjunto código usado y no funciona, gracias. Private Sub CommandButton2_Click() Set h = Sheets("Report") Set r = h.Columns("A") f = 2 Do Until h.Cells(f, 1) = "" If...

Necesito eliminar las filas vacías de una base de datos filtrada. Adjunto código que uso pero no funciona. Solo funciona cuando no filtro la base de datos. Agradezco de antemano por su apoyo. Sheets("Report"). Activate Set a = Sheets("Report") uf =...