Dante Amor

En esta línea tienes la variable valor entre comillas, eso significa que va a filtrar los registros que contengan la palabra "valor" ActiveSheet.Range("$B$10:$W$2433").AutoFilter Field:=4, Criteria1:= _ "valor" Debes ponerla sin comillas:...

Sí, es lamentable esos casos cuando no valoran las respuestas, pero seguimos aquí por los que sí agradecen. Para bloquear un usuario puedes hacer lo siguiente: Acerca el mouse al nombre del usuario y te aparece un recuadro con su información: En la...

Existen en el foro varias respuestas sobre el tema, por ejemplo: Macro que convierta la hoja activa en pdf y la envíe por correo desde Excel Crear botón para convertir hoja en PDF y enviar por email Macro para guardar en PDF cerrar pdf y enviar por...

Si lo que quieres es presionar la flecha de la izquierda y que el cursor se salga de la lista desplegable y se active la celda de la izquierda; y lo mismo con la flecha de la derecha, entonces actualiza esta parte: Private Sub TipoCta_KeyDown(ByVal...

Esta es un opción para trabajar el filtro avanzado con fechas. En unas celdas pones las fechas por ejemplo D2 y E2. En otras celdas (las del filtro) pones las siguientes fórmulas. En la celda B2: =">="&D2 En la celda C2: ="<="&E2 Así quedaría el...

Te anexo la macro. Actualiza en la macro los siguientes datos Set h1 = Sheets("Hoja1") 'hoja con los códigos col = "A" 'columna con los códigos cob = "A" 'columna donde buscarSub Buscar_Codigos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'hoja con los...

Te anexo el código Tienes que crear una hoja y le pones por nombre "Temp" Lo que hace la macro es filtrar las columnas con los datos que pongas en los text, copia la información filtrada a la hoja "temp" y después carga con rowsource el contenido de...

Revisa las opciones en esta respuesta: Como habilitar campo DE: para enviar excel - outlook a través de VB

Quedaría así Sub stam() ' 'ActiveSheet.Unprotect Application.ScreenUpdating = False Worksheets("stampa").Visible = 1 Worksheets("stampa interna").Visible = 1 ' With Application.FileDialog(msoFileDialogSaveAs) .Title = "salva Come" .AllowMultiSelect =...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Cambia el color de la figura ' If Target.Count > 2 Then Exit Sub If Not Intersect(Target, Range("C2:C3")) Is Nothing Then With...