hola muy buenas, antes que todos muchas gracias a todos ustedes quiero que me ayuden a interpretar la siguiente macro: Public Function clave(ByVal Serie As String) As Double Dim resultado As Double resultado = 0 For I = 1 To Len(Serie) resultado = resultado + Mid(Serie, I, 1) * Mid(Serie, I, 1) Next I resultado = (resultado * resultado) - (resultado * 2) + Len(Serie) clave = resultado End Function atte. oscar

Buenos días. Copiamdo de un sitio y de otro, he preparado una macro que consigue hacer casi todo lo que yo deseo. Se trata de insertar un gráfico en una hoja nueva. El resultado final es el deseado (o casi). Sin embargo, hay dos cosas que no he logrado. La primera, quiero que la nueva hoja tenga un nombre que pueda variarlo sin entrar en la macro. Eso lo hace. No obstante, en una segunda parte de la macro no sé como hacer para que me funcione esto mismo. Con este se pone el nombre de la hoja. 'Establece el tipo de grafico ActiveSheet.Shapes.AddChart2(216, xlBarClustered).Select ActiveChart.Location Where:=xlLocationAsNewSheet A…

Muy buenas estoy intentado hacer una hoja me me gestione una liga por grupos, he estado mirando por hay y he encontrado una plantilla para hacer los grupos pero cuando intento gestionarlos no me guarda el sorteo realizado. os lo intento explicar un poco mejor en el archivo adjunto va una relación de jugadores en el cual se le indica los grupos que debe de hacer y el numero de jugadores por grupos, una vez hecho esto lo pasa a otra hoja en la que indica cada grupo por cual esa compuesto. y luego hay una hoja que se llama juego en la cual están hasta ocho grupos en los que tiene que aparecer los jugadores de cada grupo en su grupo. así mismo deben de jugar todos los jug…

hola, saludos a todos, hace tiempo encontre un tema para poder aplicarla a este trabajo que estoy haciendo, pero me pregunto si hay una forma de que aparezca la cantidad de articulos que poseen tanto los galpones y las tiendas cuando uso las lista desplegable, y en la parte de rebajar y aumentar el stock una vez que llegue a 0 se pueda subir de nuevo a 1, 2, 3 respectivamente, saludos. (CoDiGoS).rar

Hola a todos. Estimados necesito de su apoyo nuevamente, estoy realizando un proyecto, en donde he recopilando trabajos anteriores de foristas y tengo un problemita para aplicar el ROWSOURCE y poder considerar MAS COLUMNAS a mi listbox (16), he visitado otros proyectos y al momento de adecuarlos al mio funciona en mi listbox de consulta, pero, no funciona en el de las modificaciones, así que no me queda mas que pedir ayuda. Adjunto el archivo para que por favor lo revisen. Slds. FELIX LISTBOX CON MAS COLUMNAS.rar

Buen día para todos, vuelvo después de un tiempito de ausencia. Necesito ayuda para saber que código debo escribir para lo siguiente: 1. Cuando cambie el textbox1 se actualizan textbox2 y textbox3 (esto lo se hacer) 2. Cuando se actualicen los textbox2 y textbox3 los tres datos se cargan al listbox (esto es lo que no se hacer) y quedan vacios. 3. Cada vez que se actualicen los textbox, esta nueva informacion se va adicionanado (no se como se hace) Les agradezco me ayuden con el codigo para el listbox, es lo que no he aprendido a manejar. Mil gracias Edwin Alexander Galeano

Ayuda con Llenado de reporte (Rango Dinamico) Amigos necesito su valiosa colaboracion!!! Bien el detalle es este. En hoja Report tengo los articulos de los cuales necesito la informacion, que se encuentra en la hoja base. He generado una macro la cual me copia la informacion para la hoja report. pero si agrego una fila (Nuevo Item) en cualquier categoria tengo que cambiar el codigo para modificar los rangos, esto es tedioso cuando son alrededor de 30 categorias me entenderan :miserable:. Habria alguna manera de hacerlo dinamico? y de esta manera no tener que cambiar los rangos cada vez que se agrege un nuevo Intem , espero que puedan ayudarme al respecto. Anexo archi…

Hola, Estoy juntando hojas de distintos libros en uno solo y al copiar las hojas tenia el problema que me almacenaba los numeros como texto. No se practicamente nada de macros pero busco y lo que encuentro intento adaptarlo, he encontrado uno que me va bien por que me cambia los numeros de almacenamiento como texto a numero pero me quita el punto de millar, es decir, esta 1.000 (almacenado como texto) y me lo cambia a 1000(ya como numero) os dejo la macro haber si se puede hacer lo mismo pero sin variar el formato de miles. Sub Numerar() Dim r As Range Dim fila As Long fila = Application.WorksheetFunction.CountA(Range("D:D")) If fila = 0 Then Exit Sub Application.S…

Buenas amigos del foro estoy trabajando con una hoja de excel para trasladar informacion de una hoja a la otra pero en forma de resumen, en la hoja llamada "libro diario" tengo la informacion, y en la hoja "balance de comprobacion" quiero que aparezca cada cuenta con el total igualito como aparece en la hoja "balance de comprobacion asi" yo he tratado de modificarla pero me arroja todo los movimientos de la cuentas mas no el resumen, no se mucho de macro, es un tema de mucho interes, saludos Libro Diario (Prueba).zip

Hola amigos, necesito una macro que cree carpetas con nombre de fechas por mes. Yo quiero que cree carpertas con los nombres de los dias que caen martes y jueves por cada mes. Es decir en una celda (A1) yo introduzco el mes. Ejemplo Diciembre En otra celda (B1) introduzco el año. Ejemplo 2013 Entonces quiero que por medio de una macro me cree una carpeta que se llame Diciembre 2013 (Hasta ahora facil). Pero que contenga adentro subcarpetas con los dias Martes y Jueves de la siguiente manera: 03-12-13 (Martes) 05-12-13 (Jueves) 10-12-13 (Martes) 12-12-13 (Jueves) 17-12-13 (Martes) 19-12-13 (Jueves) 24-12-13 (Martes) 26-12-13 (Jueves) (Quiero que las carpteas s…

Hola con todos tengo un pequeño problema, en el libro que les adjunto pueden ver 2 grupos de datos, venta y gasto. Cada uno esta separado por mes donde hay una cantidad y un determinado precio. A la derecha hay 3 botones, Ocultar que oculta todo lo de venta y los precios de gasto, mostrar que muestra las celdas de precio pero solo para gasto y clave que de introducir la clave,darkside, se mostrara de nuevo la parte de venta. Mi problema es que la parte de venta debe de estar bloqueada es decir, solo la gente que tiene la clave puede modificarla. E tratado de mil maneras durante mucho tiempo y no se que hacer porfavor alguien ayudeme jaja prueba 1.rar

Buenas Amigos necesito ayuda con una macro, quiero hacer una donde me refleje al presionar un botón el libro mayor, mayor analítico, balance de comprobación y los estados financieros, pero primero quiero empezar con el mayor y entonces tengo un problema con la macro que no me permite avanzar los datos, es un tema interesante para las personas que les gusta la contabilidad, saludos PRUEBA.rar

Alguien me podria decir como adaptar esta macro para poner 3 numeros de serie y que funcione en los 3? Es una macro que reconoce el numero de serie del disco duro y si no es igual, cierra la aplicacion. Private Sub Workbook_Open() Dim Serie As String Dim FSO As Object Dim DiscoDuro As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set DiscoDuro = FSO.GetDrive("c:") Serie = DiscoDuro.SerialNumber If Serie <> "XXXXXXXX" Then MsgBox "ESTE EQUIPO NO ESTÁ AUTORIZADO PARA EL USO DE ESTE PROGRAMA" 'Application.Quit End If Set DiscoDuro = Nothing Set FSO = Nothing End Sub [/CODE] Y esta es la macro para ver el numero de serie del disco d…

Hola a todos, Estoy creando una macro en la que se modifican/agregan datos a una base que ya fue cargada con anterioridad. Les explico la idea general y lo que necesito hacer, que no estoy logrando. 1. Cargo datos de fallas de equipos (desde Hoja "Carga de Fallas"), en una hoja llamada "Base de Datos". En la columna A deja guardado un código único asignado al equipo. Esta macro, deja información de cada equipo en filas, desde la columna A hasta la columna J, y luego en las columnas N y columna O. 2. Necesito una macro que busque el código único ingresado en la celda C4 de la hoja "Reparación", en la columna A de la Hoja "Base de datos" para identificar en q…

Buenas tardes a todos y muchas gracias por tomarse la molestia de leer mi problema. Encontré una macro aquí en este gran foro y la modifique, pero el problema que tengo es que al exportar al txt, las columnas me las separa por tabulador y necesito que solo me las separe con un espacio, que se tendría que modificar? Sub net_user() Dim archNum As Integer Dim Datos As Variant Dim i As Long Datos = Range("aa1", Range("ah" & Rows.Count).End(xlUp)).Value2 archNum = VBA.FreeFile Open ThisWorkbook.Path & Application.PathSeparator & "2A.txt" For Output As #archNum For i = LBound(Datos) To UBound(Datos) Print #archNum, Datos(…

Estimados: Desde ya gracias por su ayuda. Les explico un poco lo que debo hacer: Recibo documentos, los cuales tienen un numero de cuenta el que debo ingresar (llámese previsación). Luego, ese documento va a otro proceso interno, y puede que vuelva hacia mi nuevamente(llámese liquidación). La cosa es que cuando previso y guardo los datos, estos se guardan en otra planilla con fecha y hora. Sin embargo, si recibo nuevamente el documento con un número de cuenta ya guardado en previsación, este al guardarlo nuevamente no se guarda con la fecha actual. Entonces necesito por favor, en esta macro (que me ayudaron a crear) lo siguiente: -Si es que es pos…

Buen día. Necesito de su ayuda por favor, con el archivo adjunto. Me he ayudado de algunos ejemplos de Internet para ir completándolo. En el archivo hay una hoja que dice notas, en ella esta lo que necesito hacer. No se mucho sobre macros y no he podido encontrar como solucionar esas dudas. Si necesitan información adicional favor hacérmelo saber. de antemano muchas gracias. Archivo Base.zip

Hola tengo un inconveniente necesito realizar una macro que me cambie datos por ejemplo yo necesito revisar unas 1000 planillas con datos pero son muchas entonces necesito lo siguiente. Si la edad del beneficiario que esta en la celda D es menor a 18 que ponga en la celda E que tiene TI o sea tarjeta de identidad si hay otra dato allí diferente a ti que lo cambie si se cumple la condición o sea por ti si es mayor a 18 que ponga CC si es menor de 3 años qu en la celda E ponga RC si es mayor que ponga TI, Por otro lado necesito realizar las misma comparacion pero con otros datos pongo el ejemplo A B C ANDRES MASCUL…

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

Buen día. Quería saber si me pueden ayudar en adjuntar campos seleccionados en un checkbox a un textbox y cuando deselecciono solo borre los que deselecciono. adjunto lo que eh realizado gracias

Buen día, tengo un archivo automatizado para realizar cálculos con datos tomados de una base de datos, pero necesito que en base a esta información una macro "lea" y llame a insertar filas con las fórmulas que tiene la fila anterior, intente hacer la macro yo con la función si, pero no soy muy diestra con las macros. En si lo que necesito es lo siguiente: Si en la hoja "base de datos" yo tengo una celda que dice "1" y otra que dice "titulo" yo quiero que la macro "lea" que donde diga partida más el número, me añada filas hacía abajo en otra hoja que se llama "avance financiero" pero que añada la cantidad de filas que yo le indique de acuerdo a otro celda donde contenga es…

Buenos días, espero alguien pueda ayudarme, estoy perdido en esto. Tengo una tabla con 9 columnas y 200 filas. En la columna A, que es la numero 1 hay un código de informe. En la columna I, que es la numero 9, se pueden ver los siguientes elementos: UNV, AVP, UDV, PLV. Cada uno de estos conjuntos de tres letras son una Unidad de Negocio a las que reporta cada informe. El problema surge cuando un informe de la columna A reporta a más de una Unidad de Negocio, como sucede en la fila 12, por ejemplo. Necesito que en todas las celdas de la columna 9 haya solamente una Unidad de Negocio: UNV, AVP, UDV, PLV. Para ello necesito q…

Saludos a todos soy nuevo en esto de las macro , requiero ayuda de la macro que esta puesta en el link del señor : Sergio Alejandro Campos la ayuda o quizas duda es que me sale en el ejemplo asi : INSERT INTO Tabla () VALUES ('Nombre1', 'Telefono1', 26,'Direccion1', 'Puesto1') deberia ser asi INSERT INTO myTabla VALUES ('Nombre1', 'Telefono1', 26,'Direccion1', 'Puesto1') sin los parentises antes de values o no se usar disculpen muchas gracias EXCELeINFO – Excel vba e información - Generar sentencias SQL INSERT INTO en Excel

Amigos: Cordial saludo. Tengo unas semanas tratando de hacer una macro pero hasta ahora no me encuentro satifecho con lo que he logrdo hacer. Les agradesco revisar y si me pueden dar alguna mejosr idea se los agradesco. Tengo un archivo de lineas de pedido que debo asiganrle un codigos ID de fabricacion (A02025210 este ID contiene Producto + cantidad) el caso es que si tuviera un ID por cada linea fuera facil con un buscar v pero el casoe s que tengo muchos ID que contienen el mismo producto pero diferentes cantidades. Tengo estos ID: A02025210 = 10 A02025211 = 5 A02025212 = 22 A02025213 = 12 A02025214 = 3 A02025215 = 20 Tengo estos pedidos: AJV020252 = 10 A…

Hola Buenas Tardes, tengo un indice como el siguiente ejemplo Num Empleado Socio Jefe Inmediato 1664942 Marco Antonio Jesus Cordova 1664943 Luis Alberto Andres Sanchez 1664944 Jesus Fernando Philips McDonlal 1664945 Rosa Gomez Guadalupe Sanchez 1664946 Francisco Javier Guadalupe Sanchez 1664947 Eduardo Cantu Guadalupe Sanchez Y me mandan una achivo de excel con los el nombres de los socios , pero con el nombre del jefe incorrecto , como le puedo hacer para que exel compruebe con el indice si el nombre del j…