Dante Amor

Te anexo la macro Sub Macro5() ' Por Dante Amor ' ' Envía rango por correo ' 'VALIDACIONES If Range("K4").Value = "" Then MsgBox "Falta el nombre de archivo" Exit Sub End If If Range("K1").Value = "" Then MsgBox "Falta el destinatario" Exit Sub End...

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...

Quieres que cuando escribas la palabra "Talar" en la columna "E", ¿automáticamente esa fila se borre?

Prueba con lo siguiente Sub Juntar() Sheets("A").Range("J7:J237613").Copy Sheets("resultados").Range("B8").PasteSpecial xlValues u = Sheets("resultados").Range("B" & Rows.Count).End(xlUp).Row + 1 Sheets("B").Range("J7:J237613").Copy...

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...

En la celda C2 tienes que poner un apostrofe ( ' ) antes de 'AGO 2018'!A:B Entonces quedaría así: En la celda C2 debes poner dos veces el apostrofe. La fórmula quedaría así: =BUSCARV(A2;INDIRECTO(C2);2;FALSO)[Sal u dos, no olvides valorar la respuesta.

Puede ser: Sub MENSAJE() Rows.Hidden = False n = Sheets("DATOS").Range("$I$2") If n = 1 Then Rows("4:47").Hidden = True: Exit Sub Rows((n - 1) * 48 & ":" & ((n - 1) * 48) + 47).Hidden = True End Sub [sal u dos

Con la siguiente instrucción puedes ver cada salto de página Sub Localizar_Cortes() For Each salto In ActiveSheet.HPageBreaks MsgBox salto.Location.Row Next End Sub [sal u dos

Sobre ese tema tengo varias respuestas: Elegir valor de la lista desplegable con autocompletar(SÍMIL COMBOBOX No se despliega listado y flecha en combobox Como autocompletar Combobox en vba Ahí explico lo que debes realizar. No olvides votar las...

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