Hola a Tod@s y gracias por adelantado, puedan o no ayudarme. Estoy preparando un libro de Excel dedicado fundamentalmente a presentaciones de análisis económicos, y en muchas ocasiones, los números deben ir expresados en textos y los textos en números, y en otras muchas ocasiones, en un mismo texto aparecen de ambas maneras. He dado con un código para pasar de números a letras, el cual comparto por si a alguien le viene bien y digo que, al menos mi experiencia con él es buena. El código es este: …………………. Public Function Num2Text(ByVal value As Double) As String Select Case value Case 0 : Num2Text = "CERO" Case 1 : Num2Text = "UN" …

He visto varias macros que realizan esta macro, incluso tengo un excel con esa macro incorporada y funciona. Pero cuando copio y pego esas macros a mi excel siempre me sale error 438 donde se especifica la fecha de la cita. Lo único que busco es un botón que cree una cita/tarea en outlook y que tome de dos celdas de mi excel los datos asunto y la fecha con hora. Gracias

Como va? estoy intentando mandar los datos de un listbox de excel a una tabla de acces. Se me ocurrió hacerlo directamente, es decir mandar en una sentencia SQL el total del contenido del listbox a la base de datos acces. He intentado lo siguiente pero no funciona: Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal,[Recibo],Vendedor,Proveedor,Operación) VALUES (me.ListBox1.Column)" o Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal) VALUES ('" Me.ListBox1.Column(0), & '" & Me.ListBox1.Column(1) & "','" & Me.ListBox1.Column(2) & "','" & Me.ListBox1.Column(3) &a…

ALINEAR CHECK BOX.xlsmBuenos días, mi consulta es que si pueden ayudarme para alinear esos check boxes, centrarlos y que todos me queden uniformemente ordenados en el formlario. Mil gracias.

Buenos Noches para todos los compañeros estuve realizando una macro para actualizar 8 tablas dinámicas y al momento de ejecutar la macro me genera un error " Se ha Producido el Error 1004 en tiempo de ejecucion" y me sale error definido por la aplica Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$b$5" Then Exit Sub Application.ScreenUpdating = False 'Actualiza las tablas ActiveSheet.PivotTables("TD1").PivotCache.Refresh 'Actualiza el año de todas las tablas dia = Hoja3.Range("B5") ActiveSheet.PivotTables("TD1").PivotFields("Dia").CurrentPage = _ dia ActiveSheet.PivotTables("TD2").PivotFields("Dia").…

Buenos Dias, Jovenes Espero me puedan ayudar con algun codigo para crear gráficas dentro de un user form o listbox Agradecere sus ayuda...

Buenas Tardes antes que todo agradecer cualquier ayuda o sugerencia. Bueno les comento tengo un combobox donde al elegir una opcion me despliega una serie de datos, dentro de esos datos tengo una ficha tecnica de un producto en particular, mi idea es que luego de mostrar esos datos la celda que contenga el nombre de la ficha tecnica que en forma de link y que me permita abrir la ficha. Estas fichas estan en formato pdf. Estuve haciendo algunas pruebas con codigo: Sub CrearHyperlink() Dim FolderName As String FolderName = "C:\Users\Juan G\Desktop\Cristian\pdf\" ActiveSheet.Hyperlinks.Add Anchor:=Hoja1.Range("C20"), Address:= _ FolderName & Hoja1.Range("C2…

Hola: Lo que voy a pedir quizás roce lo imposible pero, por si acaso, ahí va: El archivo (creao por Logroastur) envía un mensaje a cada destinatario de la columna C. En condiciones normales (o sea, desde Outlook) envío los mensajes -uno a uno- y luego, desde la bandeja de enviados, imprimo el mensaje enviado para tener una prueba por si me reclamaran meses más tarde (ya que elimino los mensajes eliminados al cabo de unos días). Por tanto, lo que solicito es si hay alguna manera de que una vez enviados se imprima un folio (o bien se generen pdf´s que luego imprimiría) con los datos el mensaje enviado (uno por cada destinatario, claro). Como sugerencia (por ayudaros …

Buenas, quisiera genera mi codigo de caso. Ejemplo: 0001 0002 0003 Se tiene que generar al momento te apretar el boton GENERAR, y que se guarde en mi tabla "FORMULARIO". Esperando su ayuda.. Gracias...!!! linea.rar

Hola buena tarde tengo un problema estoy realizando una macro que me copie solo las celdas visibles despues de filtrar aqui la cuestion es que quiero si es que se puede que sobreescriba en la misma hoja y borre todo lo que no me sirvio del filtro buscando en internet parece que no se puede, estuve checando el foro y encontre una solucion [solucionado] Macro para copiar las celdas visibles | Ayuda Excel que a mi me sirve en ocasiones y en otras me arroja un error 1004 como solucionar eso? y otra cuestion es como copiar solo los datos que me arrojo la formula concatenar obviamente igual mediante macro? pienso utilizar la funcion Range(ActiveCell, ActiveCell.End(xldown)).Se…

Buenas tardes, Estoy intentando hacer un presupuesto en Exel he buscado en el foro y no he encontrado nada, he intentado hacer con sumar.si.conjunto pero no he sido capaz de solucionarlo. Lo que estoy intentando hacer es que de la hoja BD en la columna E(Ingreso) reste la columna D(gasto) y traslado a la hoja Gastos el resultado a columna B(gastos/Ingresos), cuando seleccione la fecha correspondiente dela hoja gastos columna B1. EspPresupuestos.xlsmero que me podáis ayudar Muchas gracias.

Buenas tardes Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba) El código de la macro es el siguiente Sub GUARDAR_FILTROLAB() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String Ruta = "Z:\disco d\\COMPILADO\FAMILY\" nombre = Sheets("Report").Range("d1").Value Sheets(Array("report", "Graficos", "Info graficos")).Copy ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape ' ActiveWorkbook.S…

Acceso al modelo de objetos de proyectos de VBA [solucionado] Hola a todos, Lo primero que tengo que hacer es agradecer la ayuda prestada desde este foro, donde he encontrado respuesta a mil dudas... menos a una que me trae loco! Contexto: Office 2007 Pregunta: Sabe alguien si existe alguna propiedad del Objeto Application que me permita saber si la casilla "Confiar en acceso al modelo de objetos de proyectos de VBA" (Botón Office -> Opciones de Excell -> Centro de confianza -> Configuración del centro de confianza -> Configuración de Macros) está activada?. Lógicamente, esta propiedad NO se puede activar desde una macro. Yo lo que quiero es saber si está …

GUSTO SALUDARLES COMUNIDAD, Necesito de su ayuda, necesito hacer en macro de la funcion indice y coincidir donde me dé el valor(precio) de la intercepcion de producto y sucursal o el valor de la intercepcion de textbox1 y textbox2 me ayudan por favor, agradezco de antemano su valiosa ayuda INDICE Y COINCIDIR.xlsm

buenos dias amigos espero que alguien me pueda ayudar estoy tratando de hacer una macro o mas bien para complementar una macro que tengo para que al momento que envia el correo junto con el archivo adjunto me pueda eliminar de la carpeta de enviados el mismo email enviado sub envio_archivo() strReportName = "C:\Users\Sergio\Documents\Preforma\Preforma.xlsm" Dim objOutlook As Object Dim objMail As Object Dim objOutlookAttach As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(olMailItem) Set objOutlookAttach = objOutlook.CreateItem(olAttachMents) With objMail 'A quien va dirigid…

se puede usar la funcion vlookup, para buscar en libros externos

hola a todos amigos, bueno como dice el titulo tengo un percanse con esta funcion tengo una hoja con datos por ejemplo desde la columna "A"hasta la columna "K", el cual esta agrupado, pero la columna "I" quiero ocultarla, es aqui donde tengo el problema, pues al estar agrupáda la macro de ocultar la columna "I" no la oulta,pero si el grupo esta expandido la macro si la oculta. bueno es esto lo quisiera lograr , una macro para expandir los datos del grupo comprendido entre las columnas "A y K" ejecutar la macro de ocultar la columna "I" y luego contraer el grupo de datos. saludos Atte. Bernardo Moncada E. expandir contraer.rar

Hola a todos!! Me gustaría poder conectar una hoja de Excel con una base de datos MySQL. Al intentar establecer la conexión, siempre me aparece un error diciéndome que es imposible conectar con la BBDD. He buscado tutoriales y manuales en internet, pero si sigo las instrucciones de conexión de uno, no puedo extraer datos como se indica en otro tutorial diferente... ¿Alguien conoce algún manual, libro o tutorial donde se explique claramente como hacer este tipo de trabajo? gracias de antemano

Buenas tardes y gracias por adelantado. Tengo un problema que me han pedido solucionar y se me escapa, a ver si alguien me puede echar una mano. Resulta que dentro de un sistema de gestión de presupuestos y facturas, tengo esta factura que os adjunto que se me va generando con los datos del presupuesto aprobado. El tema está, en que obviamente, la factura unas veces tienen más líneas y otras menos, por tanto el total, el IVA y demás, al generar el PDF, cada vez se imprime en un lado diferente. Me gustaría que la impresión de estos totales fuera siempre en la parte baja de la hoja, como suele ser habitual en las facturas, independientemente de la longitud…

Muy buenas tardes estimados, la verdad es que soy bastante nuevo en las macros programadas mediante VBA. Estoy haciendo una que se utilizará aqui en mi trabajo para calcular el tiempo utilizado por otros trabajadores en realizar ciertas tareas asignadas y definidad en un libro de Excel. Para calcular el tiempo utilizado, desde el principio definí que sería mediante una hoja nueva, sin embargo yo sé que existen algunas formas muchos mas funcionales que la que yo he pensado. Adjunto un libro (Libro2.xlsx) el cual contiene el código que calcula el tiempo transcurrido, lo que yo necesito es poder manejar los tiempos cuando por ejemplo una tarea dure mas de un día y haya que p…

Buenos días Tengo en mi proyecto el Textbox1 que es el resultado de unir el Combobox4 y el Combobox3. Lo que deseo es que el resultado del Textbox1 busque en la columna G de la hoja Prueba y devuelva el resultado de la columna H al Textbox2. Estoy intentándolo con estas líneas, pero no consigo reaolverlo. ¿Podrían ayudarme? Un saludo TextBox1.Text = ComboBox4.value & ComboBox3.value Set h = Sheets("Prueba") Set b = h.Columns("G").Find(TextBox1) If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "H") End If

Hola: Imagina que en B1 y B2 escribo dos fechas: 01/01/2014 y 01/05/2014, y al ejecutar una macro me inserta en A las fechas que faltan entre ambas, incluídas las anteriores, es decir: 01/01, 02/01,... 05/01). Ahora escribo en B3 y B4 otro par, vuelve a ejecutar y me inserta las faltantes a continuación de las anteriores. Lo que pretendo es, de un solo golpe, insertar varias fechas en la columna B y me inserte en A todas las que faltan entre cada una de ellas. Os pongo el resultado en la hoja 2 del archivo. Saludos. Fechas.rar

Buenos días a todos, Necesito ayuda para crear una macro que cree tantas hojas nuevas como referencias diferentes tenga una columna. Se ha de filtrar una columna ©, y dependiendo de los datos de dicha columna (10 diferentes), creará tantas hojas como referencias tenga. No se si me he explicado claramente, adjunto el archivo que he creado. Gracias a todos, estamos en contacto. Datos.rar

muy buen foro busco ayuda con macro que copie y pegue de una hoja a otra. ya tengo un macro pero quiero que justamente copie abajo de donde copie lo anterior y no se borre lo anterior y así sucesivamente. es un archivo como de 20 columnas y unas 600 filas.. pero cuando copio se pega nada mas como hasta el numero 220 y lo demás ya no lo copia de antemano gracias y espero haberme explicado..subo archivo de mi macro gracias macro copia pega a otra hoja.txt

hola a todos. hace días encontré en otro foro una programación vba para concatenar una selección multiple. la verdad que no funcionaba,pero toqueteando un poco y sin saber como funciono. en la misma web salía otra programación que hacia lo mismo pero sin repetir valores, pero esa tampoco funciona y no se donde esta el fallo o como solucionarlo. podríais ayudarme? os pego el código que venia. Espero hacerlo bien que acabo de llegar a este foro y no se si sabre envolver como lo pedís en las normas. la idea es que me salga el archivo como en el excell que adjunto. Function MULTCONCAT(lista As Range) Dim ncell As Range Dim m_concat As String m_concat = “” i = 1 For Ea…