Jose BN

Muchas gracias! @Antoni Saludos Tema solucionado.

Buenas noches!Amig@s del foro espero se encuentren muy bien! quisiera solicitarles el apoyo con lo siguiente, tengo un problema con el siguiente código (adjunto) con este lo que se pretende es insertar la formula buscarv en las celdas de las columnas(A,B,C,D,F) en base al valor de la lectura de código de barras (TxtCodigodeBarras_) del formulario (fmrfact) y este valor es colocado a partir del rango G16 hacía abajo. El ingreso de lector del código de barras parece trabajar bien, pero al querer insertar las formulas para traer los datos de este código solamente lo hace con la fila 16, los valor

Muchas gracias!!! Por compartir @LeandroA

A guardar Gasolina, @Gerson Pineda!!! Saludos

Cómo ya te lo ha indicado @Gerson Pineda debes cambiar en esta la línea o bien eliminar esto Application.Visible = True

Gracias al foro hermano "todoexcel" y @Héctor Miguel se logró el propósito! https://foro.todoexcel.com/threads/borrar-modulo-trabajando-con-proyecto-protegido.55439/#post-236663 Comparto igual la solución por posible consulta similar: Option Private Module Const clave As String = "aBc" Const esteLibro As String = "delete vbacode (exceluciones).xlsm" Sub quitaPassWordVBA() Unload UserForm1 Application.SendKeys "%{f11}{l 4}%q", True Workbooks(esteLibro).Activate Application.SendKeys "%{f11}^r{down}" & clave & "~%q", True Application.OnTime Now, "limpiamodulo2" En

@MauriciodeAbreu gracias sinceramente por compartir tu aporte, te comento que estoy tratando de encontrar una opción que no requiera digitar contraseña ya que tengo definido cuales son los módulos que deseo borrar. Saludos cordiales JB

Buenas tardes, Amig@s del foro quisiera solicitarles el valioso apoyo con la siguiente consulta: como lograr eliminar un modulo por medio de macro cuando el proyecto se encuentra protegido? he revisado que utilizando la siguiente instrucción se elimina el modulo pero si el proyecto no está protegido en su acceso a vba: ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.CountOfLines En el archivo adjunto he insertado un botón en la hoja que llama al formulario, dentro del formulario he agregado otro bot

@tupy77 en buena hora! se vale haber leído tu post! José

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