Macros y programación VBA

Hola, soy nuevo en la comunidad y tengo el siguiente problema: Genere algunos formularios con MsgBox en Office365 en Windows OS 10, estos mensajes me aparecen delante de formulario y se ejecutan sin problemas, pero al momento de ejecutar el mismo documento en OS MAC todos los MsgBox aparecen detrás del formulario y debo correr el formulario hacia un lado para seleccionar la acción y seguir. Aplique el vbMsgBoxSetForeground dentro de la sintaxis, pero aun así persiste el incidente y esto solo pasa en MAC. Ejemplo de una configuración. Private Sub SalirA_Click() Dim Pregunta As String Pregunta = MsgBox("¿Desea salir?", vbYesNo + vbQuestion + vbMsgBoxSe…

Hola amigos buenos días, Resulta que deseo usar el método FIND RANGE como alternativa para búsqueda, antes de usar un ciclo for, pues realmente pensaba se me hacia más fácil usar el método FIND . Adjunto un ejemplo, la intención de la macro es que me busque el numero de la celda D4 en la lista de números, y me indique con una mensaje en que fila esta, y la seleccione, pero resulta que al colocar el número 1 me ubica la fila de donde esta el 10 o el número 2 y ubica la fila donde esta el 12 así sucesivamente como que me hace falta algo en la sintaxis para que busque el dato exacto. https://docs.google.com/spreadsheets/d/12M2MlCV6zr5OkZEaMk0v-N6_iP7Wxhjv/edi…

Como puedo eliminar la barra superior del formulario para que solo pueda salir por boton abortar.

Hola colegas, buenas tardes reiteradas. Vuelvo por acá, ahora para que me brinden ayuda con una alerta. Me explico: Este es el proyecto del que les comenté que mi Jefe me pidió hacer. En el FrmCombustible debo crear dos (2) alertas, UNA - Que un (1) mes antes de vencerse las tarjetas me envíe un MsgBox : "La Tarjeta " & " se vence en un mes" El Listado de tarjetas está en la Hoja5 (Auxiliares). Se debe tener en cuenta que puede estar en blanco o vacío (Empty) este campo. Yo comencé a trabajarlo, pero me "perdí", porque creo se debe generar un ciclo que recorra las tarjetas y las fechas de vencimientos y las compare con la fecha…

Buenos días, ante todo disculpar si es un tema resuelto pero he buscado y no lo he encontrado, os cuento por si me podéis ayudar con una duda que no he podido resolver. Necesito acceder a los MSForms.CheckBox creados desde un modulo clase para bajar o subir su posición en el formulario , y quiero acceder a ellos utilizando su nombre y para ello utilizo el texto que se encuentra recogido en una hoja del libro. Por ejemplo a este, Public WithEvents TREINTA_Y_SEIS As MSForms.CheckBox En la celda de excel, Sheets("Datos").Range("A" & X).value, aparece el valor TREINTA_Y_SEIS Dim Evaluacion As MSForms.CheckBox Set Evaluacion =Sheets("Datos").Range("A…

Equipo buenas noches, espero esten bien. Soy nuevo en este mundo del vba de excel. En sintesis mi proyecto es crear estados de cuenta para clientes, para ello disene en excel un estado de cuenta, ahora toca salvar en pdf, esa parte esta lista para un solo documento, pero tengo un data validation list con todos mis clientes, la idea es que se cree un loop que vaya nombre por nombre de la lista y me salve un pdf por cada cliente en una ruta previamente definida. les dejo el codigo que tengo hasta el momento para ver si me pueden ayudar: Option Explicit Sub GuardarEstado() Dim nombredearchivo As String Dim NombreHoja As String …

Buenos dias, tengo creada la función ContarColor, pero me cuenta todas las celdas de ese color, y lo que necesito es que me cuente solo las que tienen datos, alguien podría ayudarme. Graciasexcel.2.xlsm

hola chicos!!! a ver si alguien se ha topado con un problema similar y ha conseguido resolverlo.... resulta que tengo una relación de productos (hoja1: productos), cada producto pertenece a una categoría que no viene incluida en la relación original, así que tengo una segunda hoja con una relación entre productos y categorías (hoja2:producto/categoría), así que utilizo en la relación de productos la función "BUSCARV" para agregar la "categoría" desde la hoja2:producto/categoría. hoja1!productos COLUMNA A "categoría" COLUMNA B "producto" 1 =buscarv(B1,hoja2!A:B,2,falso)=01 …

estoy parado en una consulta de una tabla y volcar parte de esa información a unas celdas. Sub BASE_DE_DATOS() Dim datConnection As ADODB.Connection Dim recSet As ADODB.Recordset Dim strDB, strSQL As String Dim strTabla As String strDB = "C:\Users\****\Desktop\TRABAJO\INFORME DIARIO RETRASOS LPA.mdb": MsgBox " Usted esta conectado a la base de datos ", vbInformation, " Conectado " 'si en otra carpeta 'nombre de la tabla del archivo Access strTabla = "RETRASOS" 'crear la conexión Set datConnection = New ADODB.Connection Set recSet = New ADODB.Recordset datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & strDB & ";" 'consu…

Bueno, ante todo saludar a todos los miembros de este foro, que tanto me está ayudando. La verdad es que es un "almacén" de sabiduría enorme... Bueno, mi pregunta es la siguiente: Antes de nada una imagen, para saber por donde vamos... [ATTACH]36700.vB[/ATTACH] Este form es para capturar los datos de una venta por tpv. Por lo pronto al pulsar enter o tab, pasas en el orden de los números sin problemas, cosa clara... El tema está en que si, por ejemplo, en la primera linea yo modifico el campo "Dto. %" o el "PRECIO" quiero que al presionar enter o tab salte al primero de la linea de mas abajo, es decir... si estoy en el numero 41 que al presionar enter salte al numer…

Hola, tengo una tabla en la quiero que se impriman solo aquellas filas en las que el valor de la columna A no esté vacia y también aquellas en que la columna D esté llena. Gracias a una macro que encontré en el foro consigo que se impriman las filas que cumplen la primera condición, que la columna A no esté vacia, pero no consigo hacer que también se impriman aquellas filas con la columna D llena. Os adjunto la macro que encontré para imprimir con una condición de celda llena y un modelo de la tabla que manejo. Mucha gracias un saludo a este gran foro pruebas_macro_imprimir.xls LUISFECAB - luisfichelson_Imprimir Factura de servicios.zip

Hola, He estado leyendo e intentando buscar una solución al Excel que estoy realizando, pero no he encontrado nada. Por eso me he decidido a escribir. Estoy intentando realizar un Bingo con imágenes (en este caso letras). Al pulsar el botón generar imagen aparece una letra aleatoriamente. En la tabla en amarillo quiero poner las letras que van saliendo acompañadas con las imágenes. Aquí tengo el problema. He probado a hacerlo igual que el bingo, con la función DESREF y COMPARA... pero me encuentro con que en dichas funciones las "variables" a las que apuntan las celdas son fijas (por ejemplo BINGO!$C$11). ¿Cómo puedo hacerlo? Gracias de antemano, Pep P.D: debido…

Hola a todos, buena noche: No tengo mucha experiencia en Macros y recurro a ustedes para generar una macro que me genere un Layout partiendo de la Hoja "FORMATO DE PRENOMINA", lo que requiero, es que solo las columnas que estan visibles las lea, es decir, si la columna AL tiene datos, lea solamente los que estan llenados y los copie en la Hoja de "Excepciones" en la columna F, despues, que esa misma selección, agarre la columna F de "FORMATO DE PRENOMINA" y vaya a la hoja de "excepciones" y la copie en la columna D, y en la columna C de "Excepciones", me ponga el concepto de la columna que estoy vaciando, es decir "P0017" a esos registros, si la columna AL no tiene datos…

Amigos tengo un problema con mi macros, se supone que tiene que obtener un promedio entre dos fechas, esta es llamada desde otra hoja. Por eso existen 4 hojas llamadas SAG3 SAG2 SAG 1 SAG4, las cuales solo dos están activas por el momento (SAG3 - SAG2) las demás hay que hacerlas. Cada hoja SAG posee 3 piezas MONOBLOCK, LIFTER Y PLACA. Después hay una hoja llamada DATA SPI Dentro de esas planillas (SAG), hay columnas una de ellas es “FECHAS” y la otra “SPI” Lo que debe hacer la MACROS (MÓDULO1) es tomar por cada fecha que existe del las hojas SAG3 SAG2 SAG 1 SAG4, es poner el SPI promedio entre dos fechas. Ese promedio las debe sacar del la hoja DATA SPI y agregar a …

Hola de nuevo, estoy por terminar un proyecto de inventarios, tengo un boton buscar el cual me encuentra los numero de serie que ya he capturado, sin embargo en el lilstado tengo un campo en blanco de observaciones el cual la idea es llenar cuando se halla visto el equipo fisicamente. se llena el campo y tengo un boton el cual me debe completar o agregar la observacion en la fila ya encontrada, solo que al hacerlo me marca el error 91 falta variable o with, este es el macro me gustaria que lo vieran a ver que me falta: ya puse: lo siguiente antes pero no me funciona. Option Explicit Dim rango As Range ______________________________ Private Sub CommandButton7_Click() …

Buenos días, tengo una consulta. Tengo una tabla en excel con muchas líneas, la cual se actualiza desde otra en access. El problema es que la tabla de access son muchas líneas (tiene datos de 2010, 2011, 2012 y 2013) y al actualizarse la de tabla excel tarda mucho. Mi consulta es ¿Se puede actualizar la tabla excel con los datos de access, pero solo los datos a partir de una fecha determinada mediante código en VBA? Es decir que solo se actualicen los datos a partir de 2013. PD:Sé que tendría que adjuntar un archivo pero como es una consulta sobre actualizar datos desde excel no sé cómo hacerlo.

Hols Gentee!! de nuevo aqui!!! bueno les digo que encontre este libro en la web y esta muy bueno la macro. Este libro en la hoja "Introduccion" ingresa datos y luego ejecuto la macro y los lleva a la hoja "horasporobra". Pero me gustaria y si se puede que los datos de la hoja Introduccion en vez de pasarlos a la hoja horasporobra los pase al libro 2. Desde ya muy agradecido y gracias por toda la alluda!!!! pasar a libro 2.zip

Buenos días, Estoy realizando una aplicación en excel en la cual desde un TextBox escribo el elemento que quiero buscar en la base de datos. Según los caracteres que escribes mira en otra hoja (Base de Datos) toda una columna (10000 elementos) buscando coincidencias exactas. Todo funciona con el código adjunto lo que ocurre es que es lento ya que para cada carácter escrito realiza una búsqueda completa. ¿Tenéis alguna idea para darle mayor velocidad a la búsqueda? Interrumpir la búsqueda para coger el nuevo carácter escrito y comenzar la búsqueda... Private Sub TextBox_Producto_Change() Dim Producto As String Dim StringCoincidir As String Dim StringEscrito As String D…

Hola: Os explico mis necesidades, a ver que se puede hacer. Tengo tres maquinas a las que me puedo conectar por tres redes locales independientes entre si (que ademas son lentas). Tienen unos datos que me interesa comparar. No es conveniente abrir los archivos mientras trabaja pues causa errores en el proceso. Si intento importar datos directamente desde su ubicación no me deja. Lo que hago ahora es tener un hipervínculo a la carpeta en red, otro al destino y abrirlos para copiar los archivos a pico y pala arrastrándolo. Son ciento ochenta archivos de texto en total pero con la extensión entre .C16 y .C24. Como la intranet es lenta seria fantástico que solo copiase…

Buenos Dias Quisiera ver si me pueden ayudar a solucionar un problema que tengo, tengo un archivo que estoy haciendo para ingresar Clientes en Excel desde un UserForm y que se Guarden los datos en la pestaña Clientes... El problema es que necesito que antes de ingresar los datos con el UserForm(Clientes) revise si no esta ya dado de alta el Cliente verificando su Clave, de ser asi que no me permita registrarlo lanzando un MsgBox, pero si no esta registrado, que ingrese el cliente, en la siguiente fila que corresponda En el apartado Domicilio(Celda "M") de la Hoja Clientes, debe de Concatenar los datos del UserForm(Domiclio), Calle,No.Exterior,No. Interior y Colonia par…

Buenos días Amigos tengo la sigueinte inquietud me podrian ayudar con una macro para pasar datos de excel a un formato de word, y que sea en la misma linea, me explico que lo que dice Nombre en excel, en word tambien quede en el mismo espacio de Word. buenos subo archivo para mayor comprension gracias por la ayuda. Pasar datos a word.rar

Buenas tardes estimados, de nuevo molestando por acá, estoy tratando de crear un formulario para poder llevar el control de facturas de mis gastos mensuales, pero ya me quedé atorado en el código, lo que quiero es que al momento de usar el combo box pueda empezar escribir el nombre de la empresa y me aparezca y me refleje en un text box el nit de la misma, quisiera fueran tan amables de orientarme en esto. De antemano muchas gracias!!! P.S. Adjunto el documento Dropbox - Ingreso de Facturas.xlsm

Hola, buenas Tengo una recta (msoConnectorStraight) en posición vertical, y necesitaría, que a la altura de la mitad del tamaño de dicha recta, se acople, fusione, añada o como sea la palabra correcta, otra recta pero en posición horizontal, de tal manera que si modifico el tamaño de la primera, la segunda también modifique su posición para continuar en la ubicación correcta. Es decir, una macro que me muestre en pantalla dos rectas con la forma de un "T" pero, digamos, con la "t" de lado, y que si agrando o reduzco el tamaño de la recta vertical, la forma en sí se agrande pero que no pierda la forma. muy agradecido de antemano, saludos.

Hola a todos, una ayuda más sobre este archivo que os adjunto. trata de 3 hojas. la 1 ingreso de datos. la 2 copiaría los datos a través de una macro y la 3 seria la búsqueda del historial no se si me he expresado bien, pero en el adjunto creo q se vera mejor. saludos. DATOS GUARDAR HISTORIAL.xls

La consulta en esta ves es, que si se podría crear varias áreas de impresión en una misma hoja o en varias hojas de un libro y cada una de estas tenga un nombre para que al momento de hacer una macro solo sea necesario nombrarla en un commandbutton para imprimir cualquiera de estas, según se requiera.?? En la web solo encuentro que si se selecciona un área y se pulsa control se puede seleccionar otra área, pero ,... como las identificaría a cada área de impresión para el propósito antes mencionado?? Gracias anticipadas por la respuesta