Jose BN

Hola! Prueba: Workbooks("BOOK1.XLS").Close ThisWorkbook.Close Saludos

@paikerr Me parece recordar que trabaja desde la versión 2007 Saludos

howling Solo debes dar clic sobre este mismo, ahí escribes el código de la macro y todo debe andar bien. Saludos

A ver si es lo que buscas: Dim Resp As Byte Resp = MsgBox("La información suministrada es correcta? Deseas continuar con la ejecución ?", _ vbQuestion + vbYesNo, "ExcelJB") If Resp = vbYes Then MsgBox "Se eligió continuar...", vbExclamation, " ExcelJB " 'Aquí se ejecutaría el código MsgBox "Proceso realizado de forma exitosa!", , "Administrador" Else MsgBox "Se eligió cancelar...", vbCritical, " ExcelJB " End If Saludos J

Silvia Creo que itz tiene razón en parte de no funcionar lo que le indicas, esto porque ella debe notar que la forma como se visualizan los datos no es la misma como esta definido en la celda, lo que significa que lo que se busca no es exactamente lo mismo (en cuanto a los datos con los que se cuenta), p.e esto puede ser algun espacio o caracter no visible a simple vista. Esto puede suceder cuando se extraen datos desde la web, esta es una posible razón para que una busqueda o las funciones de busquedad no encuentren el dato. Por ejemplo si buscas 5/1/2020 se posicionará donde encont

Te podrá ayuda en algo: http://www.cpearson.com/excel/unselect.aspx

Siempre tienes un truco bajo la manga! al carajo los lentes que pase a comprar entonces.... Saludos J

Muchas gracias! JSDJSD y a todos! Tema resuelto...

Bueno! Antoni La genialidad está de sobra! está muy buena la opción, seguramente no me hubieran alcanzado los años para lograr algo así. Saludos J

tierra_pampa está muy buena la propuesta, solamente me salta el error al cambiar el día:

Esto creo que te puede servir de algo.

Buenos días, Amigos de foro quisiera solicitar la colaboración de ustedes para resolver lo siguiente, estoy intentando aplicar un filtro a listbox en un form(Userform5), en el cual los criterios del filtro se definen en: mes(combobox1) y día(combobox2), esto sin recurrir al uso de un botón, respetando el encabezado de cada columna y que los valores de ambos combobox sean valores únicos. Hace pocos días JSDJSD me dío un ejemplo de este tipo de filtro por medio de un combobox pero he sido incapaz de agregar el segundo, adjunto el archivo por si pueden colaborar. Sal

Sub nomuestra() Application.DisplayFormulaBar = False ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayWorkbookTabs = False .DisplayGridlines = False End With End Sub Por si te puede aportar algo. Sub nomuestra() ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") End Sub

Private Sub CommandButton4_Click() Dim wb As Workbook For Each wb In Workbooks wb.Save Next Application.Quit End Sub Si te puede servir en algo.

JSDJSD He definido las variables, muchas gracias! ha quedado marchando bien... Saludos