Macros y programación VBA

Hola, estoy tratando de usar Excel-DNA (Excel-DNA) para ordenar una matriz de una sola dimensión. Es para probar el uso de .NET en VBA. Excel-DNA ya me corre bien para funciones sencillas, como por ejemplo si en el editor de macros de Excel 2010 le pongo: Public Sub Prueba01() MsgBox Application.Run("Sumale", 3, 4) End Sub [/CODE] Y en el archivo de texto “ExcelDna.dna”, donde se programan las funciones de VB.NET tengo: [CODE] <DnaLibrary RuntimeVersion="v4.0" Language="VB" > <![CDATA[ Imports ExcelDna.Integration Public Module MyFunctions Function Sumale(x, y) Sumale = x + y End Function End Module ]]> </DnaLibrary> [/…

Buenas tardes, molesto vuestra atención ya que trabajo con una serie de libros, más o menos 20, TODOS CON UNA SOLA HOJA, pero de gran cantidad de información, cuya estructura de la hoja no necesariamente son iguales, ubicados en una misma carpeta. Lo que necesito es una macro que me copie esa hoja de cada libro a un libro RESUMEN, pero que al transferirla a ese libro le cambie el nombre a la hoja y le ponga como nombre a esa nueva hoja en el libro RESUMEN, el nombre que tenía el libro del cual copió la hoja. Por ejemplo, Tengo los libros ACA01, cada uno con su respectiva hoja, supongamos Concentrado 01, el libro ACA02, con su respectiva hoja, supongamos Concentrado …

Saludos amigos del foro, tengo un archivo que al abrirlo y luego mostrar el userform esta todo bien pero al cerrar con unload me se muestran junto al archivo otras dos hojas. Sospecho que debido a que le aplique un codigo para minimizar y maximizar el userform este esta haciendo algo como eso pero no estoy seguro, pongo el codigo de min-max: Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function FindWindow…

Hola buenos días a todos, haber si me pueden echar una manita, les estoy intentando hacer una tabla de resultados y clasificación para un equipo pequeño de fútbol americano de mi barrio de la cual os remito y es que tengo un pequeño problema en cuanto a los partidos perdidos, ahora os cuento, les he puesto el nombre de equipo local y visitante para no ofender a nadie, de momento solo funciona con el equipo local una vez funcione ya lo pasare a los otros equipos. El orden de partidos jugados funciona bien pues al poner el resultado ya suma el partido jugado, ahora bien en cuanto a partidos ganados o perdidos no se como hacerlo Por ejemplo en la jornada 3 pierde…

Buen día maestros y compañeros: En un TextBox se digita el nombre de un artículo. Una tabla dinámica muestra aproximaciones al dato buscado. Al dar clic o doble clic de los datos aproximados en la tabla dinámica, este dato debe copiarse en la celda G7. El siguiente dato encontrado, al dar clic o doble clic debe copiarse en G8 y así sucesivamente. Por favor, es de 0.137 MB y está en Drive compartido: https://drive.google.com/file/d/0ByjreIUrjQRLczZVanVJdzJzOVk/view?usp=sharing Agradezco la ayuda.

Buen Día Comunidad, Espero me puedan apoyar, tengo la siguiente macro que me habre un link mediante un ribbon a través del navegador internet explorer y funciona, solo que quiero en caso de tener abierto, lo habra sobre el que ya se encuentra abierto, en una nueva pestaña, Sub ejemplo(Matriz As IRibbonControl) Set WebUrl = CreateObject("InternetExplorer.Application") WebUrl.Navigate "https://ayudaexcel.com" WebUrl.Visible = True End Sub Quedo al pendiente y agradezco de su apoyo,

Buenas tardes a los integrantes de este foro, recurro a uds para que me brinde su apoyo en como hacer que en la Barra de estado de Excel, muestre el tiempo de ejecucion que se describe en la macro que se adjunta, ya que he visto ejemplo donde mencionada por "Porcentaje", desde ya agradezco su apoyo y colaboración. Sub Reloj() Application.ScreenUpdating = False ActiveWorkbook.Save Application.OnTime Now + TimeValue("00:00:30"), "reloj" Application.ScreenUpdating = True End Sub Saludos.

buenos días, Tengo el siguiente macro. Es para copiar una hoja y dar nombre de acuerdo a una lista. Sin embargo, cuando agrego un nombre mas en la lista me da erro. Alguien me puede ayudar? Sub Copia() Dim C As Range Application.ScreenUpdating = False For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp)) Sheets("Molde").Copy , Sheets(Sheets.Count) With ActiveSheet .Range("A5") = ? .Name = Left(C.Offset(, 1), 31) End With Next C Application.ScreenUpdating = True End Sub Ejemplo Copiar Hoja.xlsm

Estoy generando macro para actualizar automáticamente pero al tratar de ejecutar el codigo me arroja un error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto. El código que estoy utilizando es el siguiente: ActiveSheet. PivotTables("resumen"). PivotCache. Refresh Gracias por una respuesta que me ayude a solucionar este error

Muy buen día, Tengo una macro la cual busca datos de una columna y concatena todos los números, exceptuando el "6011". El problema es que los concatena desde abajo hacia arriba, necesito que sea al veres. Adjunto el archivo, dentro hay un cuadro explicando como funciona.Plani.xlsm Si existe una formula que simplemente tome ese concatenado y lo haga al revés, seria perfecto! Saludos.

Hola buenos días, me encontré el Turbo filtro que subio el estimado @Gerson Pineda en el foro. Me funciona de maravilla, pero quería ver la posibilidad de hacer un cambio, tengo las primeras 5 filas del archivo inmovilizadas y me gustaría que cuando se aplicara el filtro estas se sigan visualizando ya que están tienen datos que necesito para poder verificar bien los datos que filtro. Adjunto el archivo, muchas gracias de antemano. AT.xlsm

hola a todos. Tengo un fichero en formato .xlsm que calcula cuadros de amortización de préstamos "sistema francés". Tengo en la columna "C" que es el Número de cuota, pero necesito añadir una nueva columna al lado derecho (que sería la columna "D" y que actualmente corresponde al "Capital") que calcule el VENCIMIENTO en formato Fecha. Entonces, creo que habría que crear una celda con la FECHA INICIAL para que calcule los vencimientos de la nueva columna, que debería llamarse "Vto" Si alguien puede ayudarme, se lo agradecería. Saludos y feliz semana. Cuadro Amortización PTMO francés macros_Nº cuota.xlsm

Hola a todos mi consulta es como cambiar la ruta para cargar las imagenes desde la hoja fotos del libro ,que actualmete lo hacen a travez de un vinculo a una carpeta de escritorio. adjunto proyecto copia.xlsm

Hola a todos; Estoy intentando vaciar el contenido del portapapeles y no logro hacerlo. He usado esta instrucción y no me va. Desconozco otro método alternativo. Probé con la grabadora pero lo único que puedo conseguir es ocultar la ventana del portapapeles. Un saludo a todos. Libro1.xlsm

Hola a todos; En un formulario tengo textBox para dias, para meses y descripción. DIA MES DESCRIPCIÓN txt txtMes txtD txt1 txtMes1 txtD1 ... ... ... En el de meses hay una validación para que no deje añadir numero superior a 12. Y en el de Días se valida que el día puesto no sea superior al que corresponda a cada mes. Has ahí todo bien. Lo que veo es que cuando se valida la fecha el foco debería ir al textbox (paso por parámetro al procedimiento el número) que tiene en línea y no va ¿? Saludos. …

Muy buenas amigos la siguiente tiene como finalidad la duda de como puedo hacer en una agenda que realize con varias funciones de busqueda (por cedula y por nombre) el poder visualizar la foto de la persona a la cual estoy pidiendo informacion sin mas me despido esperando esten bien y pronta respuesta. centro de votaciones por trabajador USAR.rar

Que tal tengo la siguiente situación, se me entrega un archivo de excel al cual hay que migrar hacia un formato txt, este reporte que esta en excel hay que estar migrandolo al menos 1 vez por semana por lo cual es demasiado el tiempo que se le invierte al hacerlo de forma manual, se puede realizar una macro para que automatize este proceso? Del archivo resultante en txt se requiere quede de la siguiente forma. D555555555555555550000000149798400000034334000000099000 . D541523100000000330000000230004840000034334000000100000 . detallo el formato de arriba [TABLE=width: 500] [TR] [TD]#[/TD] [TD]Nombre del campo[/TD] [TD]Long[/TD] [TD]Tipo[/TD] [TD]Valor[/TD] [TD…

Hola a todos esta es la primera consulta que realizo por este foro, quisiera saber como podria graficar un diagrama de carga del consumo electrico en un hogar en Excel , lo he intentado incluso llegue a encontrar un plantilla con una grafica muy parecida a la que me tendria que salir , con el problema que no se acotaban los valores en el eje x. bueno espero su consejo y muchas gracias.[ATTACH]36693.vB[/ATTACH] talves l grafico no se ve muy bien pero el punto es lo siguiente en el eje de Y , deberia a parecer la potencia , mientras que en las x , los tiempos de uso , por ejemplo eje X con 40w los cuales se usan desde las 9 pm a 1 am Este es un ejemplo de como tendria qu…

muy buen dia tengan todos, mi pregunta es simple. ¿como puedo hacer para que me despliegue ya sea mediante msgbox las filas en donde fueron insertados los datos previos, es decir, despues darle click en el boton "insertar datos" me aparesca el informe o mensaje de lo que fue insertado? ojala me puedan ayudar al respecto de antemano gracias Form ejemplo.xls

Hola a todos: Veran, necesito desarrollar una sub-rutina que simplifique una fracción, dado su numerador y denominador, pero no se como hacerlo. Desde ya muchas gracias a cualquier ayuda.

Buen día, Soy nueva en el foro y además no tengo mucha experiencia en el manejo de macros. Estoy creando un código para asignar un valor específico. Para asignar dicho valor, primero se tiene que cumplir la condición que una fecha esté entre dos fechas. El código desarrollado hasta el momento es el siguiente: [/B]ActiveSheet.Range("BN" & Fila).FormulaR1C1 = "=DATE(MID(RC[-49],1,4),MID(RC[-49],5,2),MID(RC[-49],7,2))" 'Esta es la fecha a evaluar Desembdate = ActiveSheet.Range("BN" & Fila).Value If ActiveSheet.Range("F" & Fila).Value = "EMPRESARIAL" Then If ActiveSheet.Range("BK" & Fila).Value = "DTF" Then If ActiveSheet.Range("R" & Fila).Value =…

saludos a todos, tengo un problema tengo un formulario que captura,modifica y busca datos, lo que no me queda muy claro es la parte de cuando inserto fotografias (imagenes.jpg) ya que no se me muestra en el listbox, me gustaria me pudieran ayudar con esa parte del codigo si no es molestia, anexo el formulario incompleto solo con la intension de dar la idea, esstaré esperando sus respuestas colaboradoras, gracias de antemano. formulariodefotografias.rar

Hola a todos. Estoy mirando como hacer un libro que tenga una hoja con un boton para que me actualize unas hojas distintas. Me explico: Tengo una hoja de excel que tiene enlaces a las distintas jornadas de liga de futbol. Cada hoja se actualiza mediante web. El problema que tengo es que quiero hacer una macro en 1 sola hoja y que me actualize las diferentes jornadas de cada equipo. El problema que me he encontrado es que al hacer los enlaces a las hojas y actualizar, como el proceso de actualizar le lleva unos 30seg, al programarla para que actualize - cierre la hoja y abra la siguiente hoja, se queda colgado o me da un error. He probado con timer, pero es que soy in…

Hola, soy nuevo en el foro espero estar haciendo esta publicación correctamente Intentare explicarme lo mas claro posible Son dos cuestiones, la primera: Quisiera saber como hago para que al introducir un valor en una celda me vaya dando el valor en la celda de al lado, o en otra y de igual manera pueda seguir haciéndolo, por ejemplo: en la celda C3 introduzco el valor 2 y quiero que ese valor aparezca en la celda D3, pero que si vuelvo a introducir en C3 otro valor, por ejemplo el 4, en la D3 me aparezca la suma de los valores, es decir 6 y asi consecutivamente. Esa es una parte del primer problema, también quisiera que esto aplique para parte de las filas que yo eli…

Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMa…