Macros y programación VBA

Hace unos días Antoni me resolvió un problema con un calendario flotante. He utilizado lo mismo en un programa TPV que estoy diseñando y me he estado volviendo loco; El problema que hay es que los botones están en un marco (frame). Aquí mando un archivo donde se ve el problema y no se como solucionarlo. En él van 6 botones; tres de ellos incrustados en un frame; y cuando trato de capturar los parámetros me da los del marco en lugar de los del botón. En los tres que están fuera del marco perfectamente. Help..... Acciones Cortas.xlsm

Hola Foro, una vez mas por aquí. Espero que todos gocen de excelente salud al igual que su familia. Tengo un proyecto, que aun esta en mi mente, nada escrito, pero en el trabajo de mesa que hago antes de iniciar algo lo tengo como una opción y me gustaría saber si es posible y de que manera. Le comento: Quiero en una Hoja de excel generar un comprobante económico (Cuenta, Subcuenta, Análisis, Detalle, Titulo, Fecha, Débito o Crédito, etc) todo esto en columnas y quiero saber si es posible cuando este cuadrado ese comprobante y yo desee, exportarlo en formato .dbf ej. (comprobante.dbf) para después poder integrarlo al Sistema Contable. Siempre es un placer i…

Hola, necesito crear una función que indique si un número pasado como argumento es de gran alcance. De momento tengo la función para hacer la descomposición factorial: Function descomposicionFactorial(numero As Long) As String Dim factor As Long Dim multiplicidad As Long Dim descomposicion As String Dim resto As Long factor = 2 descomposicion = "" resto = numero If numero = 1 Then descomposicion = "1·" End If Do Until resto = 1 If resto Mod factor = 0 Then multiplicidad = 1 Do multiplicidad = multiplicidad + 1 …

Buenas, Estoy realizando una presentación para un trabajo de la universidad y tengo una duda respecto a la utilización de las macros y los botones de opción. He utilizado un cuadro combinado para tener una lista despegable con los distintos nombres de las cuentas a presentar y he vinculado el valor en una celda según el orden secuencial de la cuenta en mi base de datos. Quisiera saber como podría presentar la información por años y trimestres para cada cuenta y que cambien los valores al seleccionar las diferentes opciones, cambiando la cuenta en el cuadro de lista posteriormente el año y que aparezcan los valores. He estado pensando sobre si volver a escribir la inf…

buenas, soy nuevo en este foro. queria pedirles el favor de darme unas pautas para poder crear una macro para organizar la informacion del archivo. consta de dos hojas. la primera hoja esta la informacion que se exporta de sistema y en la otra esta el ejemplo de como querria organizarla. como son demasiados datos manual es muy engorroso. agradezco me puedan dar una explicacion de como hacer lotes_produccion (16).xls

Saludos amigos de AYUDA EXCEL, buenos días. El archivo anexo sirve para calcular costos de productos y servicios, y las macros automatizan el proceso de cálculos y procedimientos, sin embargo, me di cuenta que tiene 2 fallas inesperadas. Les explico el funcionamiento: HOJA COSTOS PRODUCTOS NACIONALES: En ella se registra la información de productos y servicios nacionales, en ella se coloca: A= Producto o Servicio B= NACIONAL C= Unidad de Medida D= Cantidad de Producto E= Monto Total de la Compra F y G= (formula) Costo Unitario por Unidad de Medida La Macro envía la información del producto (columnas A y a la hoja PRE…

tengo un formulario en excel con tres CheckBox, me gustaría que al seleccionar, ejemplo: 1.- si CheckBox1 esta seleccionado, en celda "q9" me coloque "si" y si no esta seleccionado,"no" 2.- si CheckBox2 esta seleccionado, en celda "r9" me coloque "si" y si no esta seleccionado,"no" 3.- si CheckBox3 esta seleccionado, en celda "s9" me coloque "si" y si no esta seleccionado,"no" espero puedan ayudarme con esta consulta, soy novato.:02.47-tranquillity: de antemano mil gracias por el apoyo.

Buenas, Tengo una macro donde creo dos listas con random. La unión de las dos listas son pares de números que indican una determinada celda, y necesito que no aparezca dos veces la misma celda. He encontrado ejemplos de como evitar repeticiones de números con random, pero lo que yo quiero es que no se repita el par. alguien puede echarme una mano? Muchas gracias por adelantado!

tengo un error con el comando editar solo me busca los items pero no puedo editar lo que ya esta escrito, que estoy haciendo mal.... este es mi ejemplo???? Libro2.rar practicas.rar

Buenos días, A ver si pueden ayudarme: 1. Tengo un excel con un listado de links en la columna f 2. Necesito una macro que vaya abriendo cada link e importando el contenido de cada página a otro excel que se guardará en una carpeta denominada descargas 3. La idea es que se haga con un bucle y vaya link por link importando el contenido de cada página a un nuevo excel cuyo nombre será el de la columna 2 de esa misma fila del excel principal donde están los links. Muchas gracias EXCEL_PRINCIPAL.xls

Que tal necesito realizar una macros para que me cambie el orden 31/08/2012 por ejemplo a 08/31/2012 y 1/2/2012 a 2/1/2012 automaticamente, en un rango, saludos

Ayuda para crear un macro que extraiga varios datos de varios libros a un solo libro de celdas especificas, es decir seran varios libros pero aun asi seran las mismas celdas. Muchas gracias a todos por su aydua EJEMPLO.zip EJEMPLO.zip

Buenos dias, por favor me pueden ayudar estoy tratando de insertar datos a una hoja de excel mediante sql atravez de adodb. pero me da error en la linea de connection y tambien en el values he puesto los nombres d elos controles pero no los reconoce. por favor me pueden orientar sobre este error. Private Sub CommandButton1_Click() Dim Cnn As ADODB.Connection Dim Sql As String Set Cnn = New ADODB.Connection With Cnn .provider = "Microsoft.ACE.OLEDB.12.0" .connectionstring = "data source=& ThisWorkbook.Path & " \ " & COSTOS MOTO.xlsx" .Properties("extended properties") = "Excel 12.0 Xml;HDR=YES" .Open End With Sql = "insert into [prueba$](…

hola a partir de un archivo de clientes quiero generar una archivo con la factura de cada cliente el archivo de cliente tiene de nombre el número de factura (por ejemplo factura7001.xls) adjunto el archivo con la factura y el archivo con los clientes me gustaría poder generar lotes de archivos de facturas por ejemplo del archivo factura7001.xls a factura8500.xls todo de golpe gracias jac ejemplo - macro.zip

Hola a todos los master de vba necesito un favor si me podrian colaborar lo que pasa es que estoy haciendo una macro que me pueda hacer un filtro avanzado para poder comparar unas direcciones que tengo lo que pasa es que la nomenclatura de las direcciones no son iguales entoncs un filtro avanzado para porder determinar como se parecen y buscar el que coincida mas entoncs saber si me pueden ayudar en verdad lo agradezco gracias :tan:

Hola amigos. ¿Alguno sabe de una macro para imrpimir UNICAMENTE en pdf?. Cuando evito imprimir no me graba en pdf, y cuando le permito grabar en pdf, me deja imprimir en cualquier formato. Ya estoy desesperado, les pido su ayuda, por favor.

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…

Esta instrucción al mandar un mail desde Excel, no funciona, pero tampoco da error. Probablemente me falte una instrucción previa. Agradecería ayuda. El código completo del envío es: With .ITEM .Attachments.Remove 1 If impor = 1 Then .Importance = olImportanceHigh Else .Importance = olImportanceNormal .BCC = oculta .To = destinatario .CC = copia .Subject = asunto If FICHERO_ADJUNTO <> "" Then .Attachments.Add FICHERO_ADJUNTO .SendUsingAccount = OutApp.Session.Accounts.ITEM(1): ' <---------------------------------------------------- .Send End With

Estimados, como están, traigo una nueva interrogativa: Tengo un Listbox1 configurado con doble columna, donde jalo datos de la hoja1 tiene dos campos "frutas" y "precio", necesito que al presionar un boton llamado "resumir" me muestre el acumulado por fruta, igualmente me gustaria exportar este resumen en un nuevo libro, Nota: necesito que la exportación sea jalada directamente del listbox donde se almacena mi "resumen" no de la hoja donde jale la información adjunto el archivo para que me entiendan mejor... Macro - Sumar valores de un listbox de 2 columnas 2.zip

Buenas noches, necesito ayuda con una programación de una macro. Es un poco complejo y no sé si seré capaz de expresarme correctamente para que me entendáis. El valor de Modelo1 puede ser entre 0 y 12. El valor de Modelo2 puede ser de 0 a 24. 2*Modelo1+Modelo2=24 --> calcular y escribir el la hoja el resultado de: Modelo1*Margen1+Modelo2*Margen2. Rellenar la tabla de: nº (número de combinación; por ejemplo la combinación 1 puede ser: Modelo1= 12 y Modelo2=0), Modelo1, Modelo2, Beneficio total (fórmula anterior). Todo esto se tiene que poder calcular a través de un botón. Cada vez que se escribe una combinación de Modelo1 y Modelo2 que cumpla la fórmula 2*Modelo1+M…

buenas chicos de foroexel, veran tengo un problema cuando quiero implementar en mi proyecto (formulario) 2 combobox dependientes. googleando por ahi consigo hacer que los 2 combobox se hagan dependientes siempre y cuando lo haga consultando al evento useform initialize, pero al introducir eso en el codigo en mi proyecto como en mi proyecto tengo codigo en el evento useform initialize al mezclar el codigo se me hace pedazos el funcionamiento de mi proyecyo, mucho agradecere a la persona que me pueda ayudar. los combobox que quiero hacer dependientes serian los que responden a las etiquetas canton y parroquia CBCAN(CANTON)------->CBPARRO(PARROQUIA) y los datos que va…

Buenas tardes a todos, ojala puedan ayudarme. Estoy Haciendo un programita en Excel el cual va a servir para imprimir etiquetas para un inventario, las etiquetas contienen no_parte, ubicación, descripción e imagen, estos datos están almacenados en una BD en Excel, excepto la imagen que esta en una carpeta C:\imágenes(Cada imagen se llaman como el no_de parte) En el formulario por medio de formulas se mandan llamar los datos dependiendo de que rango de numero a que rango quiero imprimir sin embargo para que me aparezca la imagen no se como hacer. Anexo código que encontré: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next 'If Target.Ad…

Muy buenas Tengo una macro en excel que añade cuadros de texto (4) en la presentación que está abierta en Powerpoint. El problema es que al pegarlas, automáticamente me cambia el tamaño del cuadro de texto. Ahí va el código ConsumerAcceptanceText = Range("a14").Value ' Valoración clientes y % Model Price ConsumerAcceptance = Format(Range("b14").Value, "#0.0") ModelPriceText = Range("a18").Value ModelPrice = Format(Range("b18").Value, "0%") Vacio = Range("b19").Value PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 250, 100, 170, 170).TextFrame.TextRange = ConsumerAc…

Buenos días. Quisiera crear un checkbox que me ocultase o mostrase todas las filas cuya referencia empiece por 2, otra por 3....., pq si lo hago por rango de celdas al insertar una nueva fila tengo que cambiar todo el código de los checkbox. Un saludo y gracias checkbox.xls

Hola mi pregunta es la siguiente: Como puedo hacer un hipervinculo a las hojas ocultas de excel. Gracias....