Hola. Tengo un listbox desde el cual quiero copiar un item seleccionado con doble click. El contendfio lo copia bien pero al pegarlo siempre me pega "??", dos interrogantes. He utilizado varios codigos y siempre ma pasa. Alguien podria decirme que hago mal?. Este es el codigo que utilizo: Private Sub ListBox_CONCEPTO_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim DMyData As New MSForms.DataObject 'Dim MyData As DataObject Dim copia As String Set MyData = New DataObject copia = ListBox_CONCEPTO.Text MsgBox copia MyData.Clear MyData.SetText copia MyData.PutInClipboard End Sub Gracias. MJ

Buenas tardes y gracias de antemano Necesito crear el código para buscar un texto en una serie de filas y si encuentra alguno de ellos, me de un resultado. Texto a buscar = autopistas autorizadas - columna E Donde buscar = autopistas realizadas - columna A Resultado = está el trayecto autorizado??- columna B como soy novato en VBA , agradecería un código sencillito de entender gracias de nuevo por vuestro tiempo. no me deja subir archivo ejemplo en Excel por lo que no puedo adjuntar ejemplo

Hola Buen día Tengo el siguiente formulario donde al seleccionar un alimento, posteriormente dar click en aceptar estos se copian a unos textbox. Necesito que de los textbox primero se seleccione el proveedor mediante un combobox, posteriormente filtre si se tienen 1 o más presentaciones y finalmente añadir el costo de dicho alimento. Tengo 1 hoja para cada proveedor, se me había ocurrido ponerlas juntas, pero no lo veo factible si posteriormente el proveedor ofrece un nuevo producto. Estoy abierta a sugerencias de cómo organizar los datos. Espero ser clara y de antemano muchas gracias 2 Combobox dependientes.rar

Hola buenos días Mi pregunta es la siguiente Lo que pasa es que soy principiante en esto de excel como desarrollador he creado mi primer proyecto el cual se insertan datos consulta y eliminar an estos en fin Lo que quiero es que al cerrar dicho proyecto también se cierre el proceso de excel Tengo un formulario "frmPrincipal" el cual tiene un boton salír # este boton al darle click cierra y guarda # Pero al dale salír cierra mi proyecto pero me voy al administrador de tareas y aun sigue en proceso *excel* Lo que quiero es que al darle click al botón salir me cierre, y también mate ese proceso de excel El código que tiene ese boton es el siguiente Private su…

Hola de nuevo. Llevo varias horas con esto y no consigo trabajar bien con las horas en VBA. Ahora mismo el problema que tengo es que con este código no me suma los Textbox vacíos. Necesito que los sume como "cero". Porque a veces no hay hora de entrada, o tampoco final, simplemente porque ha estado de vacaciones. O por ejemplo no ha habido tiempo para comer porque se ha hecho la jornada continua. ¿Podéis ayudarme? Me da lo mismo que lo de en horas (hh:mm) que en decimal, pero que me de el resultado., que no sea un número entero. TextBoxT1 es el resultado, TextBoxS1 es la hora Final, TextBoxE1 es hora Inicio, TextBoxN1 es el tiempo para comer. Es decir que a…

hola amigos como hago para que una hoja del libro se convierta en un libro independiente, vale decir, crear un libro con macros que en la hoja 1 contenga esa hoja?

Hola a todos! tengo esta macro: Sub loco() Dim CompareRange As Variant, x As Variant, y As Variant, contador As Double Dim RANGES As Range Set CompareRange = Sheets("PRECIOS").Range("B1:B1000") Set RANGES = Sheets("COMPRAS").Range("B1:B1000") Application.ScreenUpdating = False Sheets("PRECIOS").Select Range("A1").FormulaLocal = "=CONTARA(B1:B1000)" For Each x In RANGES For Each y In CompareRange If x = y Then contador = 1 Next y If contador = 1 Then contador = 0 Else Cells(Cells(1, 1…

Buenas tardes a todos, Quiero crear recordatorios para todos los cumpleaños de la empresa donde trabajo. Para esto tengo un listado de excel con toda la información de los empleados y a través de una macro se me ocurrió crear citas en outlook que sean recurrentes de forma anual. Logré armar el código para la creación de la cita pero el problema es que no sé como indicar el lenguaje vba que sea recurrente. Les muestro lo que armé: c = Columna con el nombre del empleado g = columna con la fecha de cumpleaños Sub EstablecerCitasEnOutlook() Dim nOutlook As Object, Cita As Object, _ Fila As Integer, uFila As Integer uFila = Range("a65536").End(xlUp).Row Set nOutlook =…

Buenas tardes. Lo primero indicar que he visto varios hilos que hablan de este aspecto, pero he revisado las macros que incluye cada archivo y no entiendo muy bien a que corresponde cada cual. Os agradecería que si creeis que mi asunto es importante, al redactar la macro indiquéis a que corresponde cada parámetro. Lo que necesito es lo siguiente: - Tengo un BBDD con los diferentes entrenamientos que voy a utilizar a los que le asignado un código en la columna "Código" De esa BBDD los datos que están en una casilla amarilla son los datos que tienen que ser editables en la hoja PLANIFICACIÓN. Y los datos que aparecen en casilla morada, estarán en función de los datos d…

Buen día a todos, un cordial saludo. En primer lugar me gustaría mencionar que no soy un experto de la programación en Visual Basic, y espero lograr explicar la consulta y/o ayuda que necesito con respecto a una macro y su respectiva programación en VBA. Para entrar en contexto, los archivos que voy a anexar corresponden a una encuesta sobre el lanzamiento de un producto al mercado. Dicha encuesta se va a realizar dentro de la compañía, y se hará por supuesto en Excel. El libro contiene dos hojas, la primera denominada "ENCUESTA", la cual es muy sencilla de responder: las personas indicarán con una X la o las respuestas que consideren correctas en cada pregunta.…

Hola a todos Este es mi primer post asi que perdon por la falta de experiencia. tengo una archivo en el cual quiero llevar un stock de insumos y a la ves imprimir los recibos a la hora de hacer entrega de los insumos ingresados. - En la hoja1 ingresare los insumos con sus detalles correspondientes y codificacion en la columna A. - En la hoja2 ingresare la entrada de los insumos a medida que valla realizando compras de los mismos, ingresando el codigo del insumo en la columna B y la cantidad comprada en la columna D. - En la hoja3 me ira mostrando los saldos de cada insumo automaticamente. - En la hoja4 sera el modelo con todos los datos para llenar el recibo que ya …

Hola a todos. Mi primera participación en el foro es para solicitaros, como a la gran mayoría de los autodidactas y profanos en esta materia nos ocurre, ayuda sobre el código de Visual Basic para Excel 2010. Conseguí el siguiente código que imprime los datos de varios registros (filas) de una hoja. Funciona perfectamente pero encuentro un pequeño inconveniente: imprime siempre con la impresora establecida por defecto. Me indica cuántos registros se van a imprimir y sin darme más opciones los imprime directamente todos en la impresora habilitada por defecto. Agradecería muchísimo que alguien me dijera qué debo añadir y/o cambiar para que cuando ejecute la macro me apar…

Buenas tardes, tengo desarrollado una serie de formularios de búsqueda, bajo distintos criterios buscan en la tabla excel y muestran los datos de las lineas que correspondan en un listbox. El caso es que si bien la búsqueda la realiza bien, en el listbox aparecen después muchas lineas en blanco que no tengo muy claro como quitar, si alguien pudiese echarme un cable estaría muy agradecido. Un saludo Empresas.zip

Estoy tratando de hacer un código el cual use Solver para obtener una cantidad dentro de un filtro, de una pequeña base de datos. La columna "G" tiene los numero 1 (para configurarlo como binario después) La columna "D" tiene las cantidades que quiero que Solver revise para que me de una cantidad designada en la columna "i". El error que me arroja es "Error en el modelo. Compruebe que todas las celdas y restricciones son validas" Es posible que algunas celdas de variables estén marcadas como Integer, Binary o AllDiferent Sub busquedadecantidad() Dim cantidad, binario As Range Dim hoja As Worksheet Dim i As Integer Dim datobuscad…

Hola gente saludos,alguna sabra como unir 2 tablas de manera que quede como 1 ordenada por fecha usando sql,he tratado pero no consigo como ,el resultado no es lo esperado lo que deseo es que la consulta se vea asi como enla imagen aqui dejo el archivo agradezco su respuesta https://drive.google.com/open?id=1gg88oQxNxasdCn_SKTX8l4IDAcrJxbKI

manejo actualmente un formulario que pretende hacer que se reproduzca la vos de excel con el metodo Speech pero la reproduccion de la voz debe mencionar el valor de un combobox y eso me da error,es posible hacerlo? aqui el codigo para su evaluacion Sub voz() Dim var As String var = Userform1.ComboBox1.Value Application.Speech.Speak "var" End Sub

Hola a todos de antemano gracias , quiero perdirles ayuda, ya que quiero crear , un filtro avanzado , para buscar ciertos criterios , en una hoja de productos, y quiero que cuando se ejecute el filtro con vba , si no encuentra el criterio buscado me diga que no encontro dato con un mensaje box. pero no hallo como meterle el mensaje box para que me digo ese mensaje. Gracias

Hola panas , les cuento , estoy haciendo una macro que toma dos libros , uno se llama control (lleva las horas de ingreso de los empleados) y el otro es libro tiene como nombre el numero del dia (1.xls, 2.xls, etc) Tengo una macro hecha , pero no me funciona, la idea es la siguiente , en el libro control , al estar sobre la celda del dia (fila dos) , la macro debe obtener el valor de la celda , cargar y activar el libro correspondiente (ahi no funka ) ; estando en el libro activo numero 13 por ejemplo , hay tres filas, la macro inserta una formula en la columna 4 ve si la columna tres dice inventario , si es asi toma l hora que corresponde , si no toma otra decision , et…

Hola, como están totos ? Mi consulta es la siguiente. En un userform en el hay un listview; cuando imprimo el userform el listview sale blanco (sin datos en la impresión.) como hago para ver estos datos en la hoja impresa? Saludos Sabatb.

Buenas noches nuevamente a los Foristas. A sugerencia de JSD de los problemas que le planteaba sobre el formulario, abro un nuevo tema. Ofrezco disculpas porque realmente es así como debe ser. El tema es el siguiente: Tengo en este formulario otros problemas que quizás puedan ayudarme: realmente he tratado de ver dónde está el error, pero mis conocimientos no alcanzan y ustedes son los MAESTROS. 1.- En el FrmPersonal trabajo lo que es el listado de Personal con todos los datos y las Nóminas de Salario. En la parte de las nóminas (LstNomina) ya lo configuré de tal manera que con el evento DobleClick pueda traer cualquier trabajador y poder modific…

Cordial saludo, gracias a todos por sus aportes... Deseo impedir que los usuarios de mi aplicación tengan acceso a las opciones de excel, en el ID de VBA, en This WorkBook, tengo varias opciones para no permitir el acceso, adjunto código; pero si tecleo el comando abreviado Ctrl + P (Imprimir), se abre el menú que permite hacer modificaciones en opciones avanzadas, Compartir, Publicar, Información del archivo, que pueden ser modificados desde esa ventana. Lo que deseo es Cancelar todas esas opciones y dejar "Libre", solamente la opción de "Imprimir", que no encuentro por ningún lado... Por favor requiero su ayuda... Private Sub Workbook_Activate() ' Evita copia…

Hola muy buenas tardes, antes que nada quisiera agradecer por este foro y por todas las ayudas que brindan. Ahora bien, tengo un problema con un formulario de búsqueda y edición, quisiera que en el listbox que tengo dentro del formulario "BuscarV" se mostraran los datos que tengo, así como que me de la opción de búsqueda por algún criterio, ya sea por el numero de semana de registro, por unidad, importe o empresa y que adicionalmente me deje guardar los cambios, para esto he creado un Boton Guardar al cual se ligo la instrucción y que se inicializa junto con el listbox, asi como un botón modificar. Mis problemas son los siguientes, no puedo hacer que se muestren todos los…

Hola como están? Estoy probando un servicio gratuito que ofrece la página https://remotemysql.com/ La misma ofrece 3 bases de datos de hasta 100 mb de mysql para acceder de forma remota y se la puede configurar en PHP. Ya cree una base de datos y conseguí acceder a la misma a través de VBA de Excel. El problema: Al realizar la consulta a través del formulario. La misma tarda casi 4 segundos. Y mi idea es poder realizar las búsquedas de los registros a través del formulario de excel, pero necesitaria reducir el tiempo que se tarda en realizar la conexión. Esto es posible? Desde ya muchas gracias y un abrazo. Adjunto a continuación el código y el archivo…

Hola buenas tardes, Tengo un problema que no me deja iniciar el UserForm y no se a que se debe.... Me salta el siguiente error La verdad que no se porque me pasa esto ya que estaba trabajando con el formulario y de repente no me deja iniciarlo. Dejo el archivo adjunto Un saludo, VBA3.xlsm

Hola a todos, Tengo un problema… Estoy usando una macro directamente sobre un libro, hago debleclick (dc) sobre la hoja en determinadas celdas y dispara un modulo. El problema, es que ahora hago dc sobro las celdas y no las edita de manera normal, a que llamo normal, a que cuando haces dc aparece el cursor sobre la formula o texto de la celda. Que es lo que hace, me deja seleccionar y si escribo escribe, pero no me deja entrar en la celda, soy claro?? Les paso el código (sin el modulo), como para que vean a que me refiero… [INDENT]Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If ActiveCell.Colum…