Buen dia! Hoy estoy trabajando en un programa para controlar tiempos de mantenimientos de maquina. Ya cree un ListBox donde me toma automáticamente todos los datos de una tabla de mantenimiento. LO que estoy buscando es que mi ListBox, ponga la fecha actual (seria la fecha de mantenimiento) solo en las casillas que están seleccionadas. Si están todas seleccionadas, todas. Ya tengo el ListBox que toma la Tabla automáticamente Tengo el Listbox Con las Casillas de Check en multiselection Solo me falta hacer que la(s) casilla(s) seleccionada(s) cumpla(n) una acción. Que seria Poner la fecha actual en la columna "K" Donde corresponda. Y que la fecha sea …

Buenas tardes, Estoy elaborando una macro para enviar por Outlook un rango de celdas de una hoja excel, pero necesito que en el cuerpo del mensaje Outlook se mantenga el mismo formato que tengo configurado en la hoja Excel. Adjunto archivo. Concretamente, sería el rango de celdas D11:K15 de la hoja AVIONES. Por favor, si pudierais echarme una mano con esta macro os estaría muy agradecido. Gracias Saludos Macro correo outlook1.xlsm

Hola, estoy incursionando en los macros de vb para excel y he encontrado este foro que me resulto muy interesante. Me gustaria que me dieran un ayuda en lo siguiente, partiendo de una grilla de datos en excel con su respectivo encabezado (por ejmplo A11:H20), necesito mostrarlas en un form. Como puedo realizar esto?? Muchas gracias y saludos Carlos

amigo tengo este combobox en la hoja1 con el listado de hojas ocultas, cuando selecciono la hoja3 por ejemplo.........este me envia sin prolemas hasta la hoja, pero cuando regreso a la hoja1 (por medio de un boton) , el combobox muestra la ultima seleccion ( en este caso la hoja3) pero si vuelvo a seleccionar esta misma hoja3 no hace nada, tengo que seleccionar otra hoja y despues de esto, si puedo vollver a seleccionarla (hoja3). no se si sea la solucion .....pero cuando regrese a la hoja1 encontrar el combobox en blanco.....no se si sea necesario.........este es el codigo y el archivo Private Sub UserForm_Initialize() ComboBox1.RowSource = "hoja1!" End Sub Private S…

hola muy buen dia a todos y feliz inicio de semana, y muchas gracias de antemano al foro y a todos los que de alguna forma me han ayudado. ya tengo mi archivo terminado con macros ya todo funcional ahora mi pregunta es la siguiente: como puedo usarlo como una plantilla ya que lo mismo que le hice al archivo es repetitivo o sea cada semana hay que hacerle lo mismo pero con diferentes datos en las filas a veces pueden ser 100 casos y a veces 500 mas o menos. saludos a todos

Hola comunidad. tengo una macro de calendario que e sacado de este Link el cual me parece muy bien ya que no depende de complementos. Soy nuevo en estos y no se como modificar el código. El calendario ofrece solo la fecha y me gustaría que hubiera un combobox con formato Hora manual que yo pueda modificar. El archivo que voy a subir es calendario que se ejecuta al pasar en la celda B3. pero al incluir la hora me gustaría que quede como el formato D3. ya que estoy implementando otra macro donde hace un escaneo de carpeta trae información pero con filtro de fecha y hora y solo acepta es Formato D3 Gracias ante mano por su ayuda Calendario.xlsm

Muy buenas tardes, Normalmente mis macros son relativamente sencillas y luego, poco a poco voy puliendo detalles para hacerlas más rápidas y más cómodas. En el trabajo manejo un fichero con muchas rutinas: desde seleccionar un fichero txt y pasarlo a una hoja hasta seleccionar varios ficheros, recorrer uno a uno y realizar diferentes operaciones con ellos. Poco a poco la cantidad de cosas y subrutinas que he ido añadiendo (por necesidades de mi trabajo) han hecho que el tiempo que tardo en ejecutar todas las macros vaya incrementándose. No es excesivo aún, ronda el minuto y medio, pero se que trabajando con arrays o creando diccionarios (un compi que está de va…

Hola amigos, he estado utilizando este código de "EXCELeINFO – Excel vba e información - Otro sitio más de ITpro Blogs" para listar archivos de una carpeta: Sub ListFiles() iRow = 11 Call ListMyFiles(Range("C7"), Range("C8")) End Sub ' Sub ListMyFiles(mySourcePath, IncludeSubfolders) Set MyObject = New Scripting.FileSystemObject Set mySource = MyObject.GetFolder(mySourcePath) On Error Resume Next For Each myFile In mySource.Files If Right(myFile.Name, 3) = "mp3" Then iCol = 2 Cells(iRow, iCol).Value = myFile.path iCol = iCol + 1 Cells(iRow, iCol).Value = myFile.Name …

Buenas tardes, Alguien me podría ayudar a corregir este código que tengo para unir un rango de celdas (varias hojas) en una sola: Sub UNIR() Dim Resp As Byte Resp = MsgBox("UNIR CONTENIDO", _ vbQuestion + vbYesNo, "Microsoft Excel") If Resp = vbYes Then MsgBox "Continuar proceso", vbExclamation, "Microsoft Excel" Application.ScreenUpdating = True For x = 5 To 17 Sheets(x).Select [B28].CurrentRegion.Offset(2, 1).Resize([B28].CurrentRegion.Rows.Count - 2, [B28].CurrentRegion.Columns.Count - 1).Copy Sheets("RV Consolidado").Select [C7].End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues Next Application.ScreenUpdating = F…

Buenas tardes Foristas, espero se encuentren bien de salud. Necesito la ayuda de ustedes (una vez más). Voy a extenderme un poquito, pero creo necesaria la explicación. Ofrezco disculpas de antemano. Por mi país, cuando a una persona le vienen encima muchas cosas malas decimos, “A perro flaco todo lo que le caen son pulgas…” y algo parecido me ha tocado. Una de mis compañeras de trabajo está embarazada y tiene problemas de amenaza de aborto y la ingresaron en una clínica, hasta que dé a luz y entre una cosa y otra esto se tomará 1 año y tanto y me ha tocado hacer su trabajo, lo malo es que con el mismo salario que tengo hasta ahora (nada de aumento). Bue…

Hola a Tod@s Mi Tema de hoy es algo que una ocasión hace años intente resolver, pero la verdad que al final me conforme con una solución (mala) que hice muy limitada, quizas por no entender la propuesta del maestro @Cacho R como expuse en aquel momento en mi último Post, aquí dejo el link. https://ayudaexcel.com/foro/topic/18307-combinaciones-reducidas/?do=findComment&comment=109008 Ahora llevo más de dos semana viendo cómo puedo resolver este Tema pero no lo logro, la intención es poder Reducir en todo lo posible las Combinaciones a Jugar según la selección de un Grupo de Valores, he recopilado varias Macros que me facilitan en alguna medida poder al m…

Buenas tardes, soy nuevo en esto del visual basic, espero me puedan echar un cable, he conseguido una macro la cual la he ido adaptando a las necesidades, lo que requiero es que el rango que especifico, al pasar a la siguiente fila se mantenga el conteo, la macro funciona de la columna D9:J9 al repetir el valor "R" mas de 2 veces despliega el MsgBox y borra el ultimo valor Introducido limitandolo a 2 valores. Es una tabla que consta de los retardos de los trabajadores de lunes a domingo, el primer trabajador se ubica en D9 : J9, el siguiente en D10 : J10 el tercer trabajador de D11: J11 Y así sucesivamente, la macro solo me funciona con el primer trabajador, que al introd…

Que tal amigos, soy nuevo en este foro pero quisiera pedir la ayuda de alguien, encontre en este foro unas aplicaciones para crear registros desde excel a access y lo quiero ocupar para registrar clientes el problema es que puede crear registros duplicados ¿hay alguna forma de que me indique cuando un registro es duplicado? asi mismo quisiera saber como traer un registro desde access a mi hoja de excel siempre desde el mismo formulario. espero haber sido claro Saludos desde Guatemala MSACCESS_ADO.zip

Estimados foreros, Adjunto un archivo de ejemplo que me genera error con Excel 2010 en Windows 7. Para reproducir el error: Abrir el libro adjunto en Excel 2010 con Windows 7. Hacer click en la imagen Aceptar el mensaje informativo. Cerrar el libro sin guardarlo. ATENCIÓN: No cerrar Excel. Repetir los pasos 1 y 2 Se produce el error la segunda vez que se llama al procedimiento: Set objChart = .ChartObjects.Add( _ Izq, Arr, Ancho, Alto) 'Add ChartObject [/CODE] [ATTACH]41432.vB[/ATTACH] No encuentra el ChartObject en el diccionario según se explica en: [DBOX]BUG: Run-Time Error Message -2147417848…

Pues eso... Digamos que tengo una hoja repleta de botones con macros y quiero dejarla estática, es decir, que el usuario no se pueda desplazar a través de ella haciendo uso de la ruleta del mouse. Supongo que existirá alguna manera más sencilla de programarlo, pero pienso que lo más lógico sería anular la propiedad SmallScroll del objeto Windows. Muchas gracias de antemano por vuestro tiempo.

Buenas Tardes. Tengo este codigo: Private Sub ListBox1_Change() With Sheets("Hoja1") Set codi = .Columns("A").Find(What:=Me.ListBox1, LookIn:=xlValues) If codi Is Nothing Then MsgBox "Codigo no existe!": Me.ListBox1.SetFocus: Exit Sub For i = 2 To 12 Me.Controls("Textbox" & i) = .Cells(codi.Row, i) Next End With Set codi = Nothing Dim nsp As String Dim hoja As Worksheet nsp = ListBox1.Value For Each hoja In Worksheets ' Busca si existe una hoja con el nombre del codigo de cliente If nsp = hoja.Name Then Dim rw As String rw = ListBox1.Value & "!A:A" ComboBox1.RowSou…

Buenas noches a todos, Primero que todo muchas gracias por la gentileza al revisar esta solicitud... Al día de hoy tengo un problema con un herramienta que estoy creando; a continuación planteo el inconveniente: Tengo un archivo el cual en si columna (A) tengo una relación de fechas de inicios de contrato (aclaro que son fechas anteriores al día de hoy) y requiero que vaya haciendo el calculo de vencimiento hasta llegar al 2019, ejemplo: en la range A2 tengo la fecha 07/06/2018 en la columna "B" tengo "Meses Renovación Contrato" en el rango B2 estan los meses, para este caso 3, el resultado de salida que se pretende es que me apareci…

buenas noches, estoy trabajando en una macro para obtener datos web, de a poco he ido aprendiendo como poder obtener objetos desde las diferentes paginas pero ahora he llegado a un punto donde no puedo seguir avanzando, precisamente con lo siguiente tengo este código de pagina fuente <a href="www.google.com" data-original-title="" title=""> <span itemprop="category">Hola</span> "Adios" </a> con el siguiente código htmlDeRespuesta.getElementsByTagName("span")(0).innerText puedo obtener el texto Hola, pero no he logrado dar con la solución para obtener el dato Adios por favor agradecería mucho su apoyo y gracias por …

Muy buenas a todos mi pregunta como podria (si es que se puede) en una agenda automatizada con VBA Excel cuando pida que me muestre los datos de una persona me mostrara en algun extremo, la foto de la persona seleccionada la cual ( la foto) tengo guardada en una carpeta. Sin mas me despido esperando esten bien .......

Buenas noches a todos Necesito ayuda para insertar en una determinada tabla de una serie de ellas alineadas verticalmente la correspondiente fila en blanco para añadir datos en la tabla que corresponda. Cuando la tabla es única, no tengo problema. En el adjunto lo explico. Gracias. Un saludo …

Saludos! Eh creado (gracias a muchos de sus aportes) un libro con macros que básicamente realizan una serie de operaciones y dan como resultado unos valores que actualizan constantemente (simulando tiempo real). Inicialmente una sola persona verificaba estos datos desde computadora especialmente para eso, luego otras personas requerían la información y para resolver de forma "rápida" recurrí a exportar la hoja principal a PDF y enviarla por correo constantemente a través de otras macros. Mi consulta es, si existe la forma de "exportar" un libro de excel con macros hacia una pagina web, para que desde un "link" los usuarios puedan ver los valores y no tener que estar e…

Hola Buenas Noches, Tengo un problema ya que estoy haciendo scraping a una página la cuál contiene sólo eventos Class para descargar la información y no me permite descargar nada queda la hoja en blanco. He probado con todos los class y aún así no puedo obtener la descripción y URL de los productos que es lo que ando buscando. Alguien me podría ayudar a obtener dicha información. Adjunto el archivo. Muchas Gracias.Prueba.xlsm Prueba.xlsm

Estimado Expertos. Nuevamente solicitando vuestra ayuda, el libro adjunto lo utilizaba para control de un pequeño almacen, funcionaba bien con 100 filas, pero cuando agregue mas filas (12000), demora demasiado en buscar los datos. Esto lo podran comprobar al ingresar en la Hoja Operaciones, opcion "control de almacen", al intentar buscar los datos en el combobox, notaran que la macro realiza la busqueda, demorando demasiado tiempo. Por favor, agradecere vuestro apoyo, para solucionar este problema. Atte. Jmollan PD: Tuve que borrar filas, porque el archivo pesaba demasiado. CONTROL DE ALMACEN-FORO.zip

Buenos dias espero me puedan ayudar Tengo un código que me cuenta los datos de una columna de un listbox y me los deja en un textbox, Pero en la columna del listbox tengo datos duplicados. Lo que necesito es solo que me cuente datos únicos y dejarlos en el textbox Este es el código que uso ahora For x = 0 To ListBox1.ListCount - 1 If ListBox1.List(x, 7) <> "" Then m = m + 1 End If Next TextBox6.Value = m me podrían ayuda por favor y de ante mano muchas gracias

Hola, alguien me puede facilitar el código del "juego de memoria" en excel, que consiste en una tabla de 6 x6 casillas y hay parejas de números que no se ven, al pulsar cambia la casilla de color y se ve el número, entonces debes recordar donde está el otro igual, al encontrarlo ya quedan a la vista. Lo he visto por internet pero no consigo bajarlo. Muchas gracias