Dante Amor

Hay que convertir a fecha lo que tienes en el textbox, prueba con esto: If CDate(TextBox373) <= WorkSeets("Datos Primarios").Range("AI12") Then

Te anexo la macro para ordenar las hojas Sub Ordenar_Hojas() 'Por Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set h = Sheets.Add h.Cells.Clear fila = 1 For i = 1 To Sheets.Count If InStr(Sheets(i).Name, ".") Then...

Lo que necesitas es que al macro seleccione el primer valor de la lista desplegable, luego genere el archivo pdf, después seleccione el segundo valor de la lista, ¿genere el pdf y así sucesivamente hasta el último valor de la lista? Si es así, ¿Dime...

Te anexo la macro actualizada Sub ConsultaSuc() 'Act Por Dante Amor Set h1 = Sheets("Base_huellas") Set h2 = Sheets("Reporte_huellas") h2.Rows(6 & ":" & Rows.Count).Clear k = 6 n = 1 For i = 2 To h1.Range("C" & Rows.Count).End(xlUp).Row If...

Te anexo la macro Private Sub CommandButton1_Click() ' Crear Hoja ' Por Dante Amor ' 'Validaciones nombre = TextBox1.Value If nombre = "" Or Not IsNumeric(nombre) Then MsgBox "Escribe el nombre de hoja" TextBox1.SetFocus Exit Sub End If ' existe =...

Quedaría así Sub consulta_datos() Application.ScreenUpdating = False Set h = Sheets(Hoja5.Name) Set b1 = h.Columns("B").Find(Sheets(Hoja3.Name).[D6], lookat:=xlWhole) If Not b1 Is Nothing Then Sheets(Hoja3.Name).[C11] =...

En la siguiente respuesta filtro la información y la pongo en una hoja temporal. Copiar datos de ListBox a otra hoja comenzando desde una fila en particular y desplazando hacia abajo otras Solamente guarda la "Temporal" como archivo txt. Si gustas te...

Aplica el siguiente formato condiciona, sigue los pasos: Entra al menú Inicio, Formato condicional, Nueva Regla.En Utilice una fórmula, pon la siguiente fórmula:=Y($F2=$J$2,$E2>=$K$2,$E2<=$L$2,O($C2=$M$2,$C2=$N$2),$G2>$O$2,$G2<$Q$2,$D2<>$R$2)Entra...

Si quieres una fórmula en otra celda, pon la siguiente en la celda B2 =si(A2>5,"ENVIAR AL HOSPITAL", "") Si lo quieres en vba, entonces: Sub verificar() If range("A2"). Value >5 then Msgbox "ENVIAR AL HOSPITAL" End if End sub [Sal u dos

Quedaría así: MsgBox "Tiene pendiente " & range("D2").value & " de rendicion", vbExclamation Si la hoja que tiene el valor de la celda D2 no es la activa, entonces sería así: MsgBox "Tiene pendiente " & Sheets("hoja3").Range("D2").Value & " de...