muy buenas noches, Solicito su colaboración para realizar una comparación entre variables como lo siguiente: un eje X donde se muestre el municipio en relación, un eje X con los años, otro eje y con Zona urbana Zona rural y total y otro eje y con los rangos para predio y avaluó. La idea es que las gráficas muestren por cada municipio y por cada año cuales han sido los cambios importantes de la zona rural y urbana frente a los predios y el avaluó. Muchas gracias por su colaboración , estaré muy atenta Gráficas-ESTADÍSTICAS SABANA CENTRO (1).zip

Estimados, Tengo una macro que necesito me ayuden por favor a mejorarla. La macro lo que hace es ver la edad segun la fecha de nacimiento y generar un numero aleatorio supuestamente no repetido, pero al generar nuevos aleatorios si los repite, la macro es la siguiente: Function CALCULAREDAD(FechaNac As Date) Dim nacfecha As Date CALCULAREDAD = Abs(DateDiff("YYYY", FechaNac, Date)) - 1 nacfecha = DateAdd("YYYY", CalcEdad, FechaNac) If Day(nacfecha) < Day(Date) And Month(nacfecha) = Month(Date) Then CALCULAREDAD = CALCULAREDAD + 1 Else If Month(Date) > Month(nacfecha) Then CALCULAREDAD = CALCULAREDAD + 1 End If End If End Function …

Estimados, Estoy trabajando en una planilla la cual necesito sea lo mas automatizada y estructurada posible. En una parte se requiere ingresar fotos para lo cual deseo dejar un espacio determinado donde haya una viñeta desde la cual llamar la foto, parecido a foto inserta. Como puedo lograr esto? Gracias por la ayuda!

Hola que tal, mi pregunta es la siguiente: Tengo una macro para crear calendarios mensuales. La he modificado para intentar adaptarla a lo que quiero. En la hoja 1 se ve el resultado de dicha macro y en la hoja 2 se ve lo que quiero conseguir. No se como continuar para hacer lo que quiero. Me podéis indicar como continuar. Gracias. MacroCalendarioPrueba.zip

Necesito que haga un recuento de los numeros que pertenezcan a esta serie en la columna H, lo que pasa es que no aparece desde el primer termino Aqui esta la macro Sub macro09() Inicio = Val(InputBox("Ingrese el primer termino")) Do razon = Val(InputBox("Ingrese radio")) N = Val(InputBox("Ingrese numero de elementos")) Loop Until razon <> 0 And N > 0 And N = Int(N) Fila = 0 For x = 1 To N - 1 Inicio = Inicio + razon Fila = Fila + 1 Cells(Fila, "H") = Inicio Next End Sub

Buen Día Tengo 5 archivos de excel con infromación diferente pero tienen en común la información de diferentes escuelas ej. Escuela 001, Escuela 002 etc. Podría hacer una macro en la cual de los 5 archivos de excel, en una hoja nueva de excel si yo pongo escuela 001 me salga toda la información de la escuela que esta contenida en los 5 archivos de excel ?? Gracias

Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada 5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro, para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre? le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor. Se activa el macros, este copia el mensaje que esta en la hoja Datos y lo pega en un correo nuevo en el Outlook ,…

Buenas tardes compañeros. Tengo una duda espero alguien me pueda ayudar u orientar con lo siguiente: Tengo 2 libros: -Principal (hojas indefinidas) -Secundario (hojas indefinidas) Lo que me gustaría que hiciera la macro seria que por ejemplo del libro Secundario comparar las hojas de este libro contra las hojas del libro principal, si existe coinciden las hojas entonces haria lo siguiente: Libro secundario -- nombre de la hoja = Dato1 Libro principal -- nombre de la hoja = Dato1 Entonces si la hoja coincide en el nombre quiero copiar el rango de datos de b7 en adelante (no tiene rango definido pero todas la hojas comienzan en el B7) de libro secundario dato1 a …

Hola buenas. tengo poca experiencia con la programación en VBA y necesito ayuda mi problema es el siguiente: necesito una macro que busque por código, es decir, que busque por código la información de un producto en una hoja de excel y luego esta información me aparezca en un formulario, esta es la hoja MAESTRO DE PRODUCTO CODIGO DESCRIPCIÓN STOCK UBICACIÓN S DESPUNTE UBICACIÓN D 2003 PERFIL6 36 B1 13 A1 2004 PERFIL7 45 B2 14 A2 2005 PERFIL8 50 B3 17 A3 necesito que al escribir el código en el formulario y apreté el botón buscar me aparezca el resto de la información. agradecería mucho que me ayudaran con esto.

Buenas Noches Esta macro me da error cuando la ejecuto por segunda vez en Range("A" & ultFila).PasteSpecial xlPasteAll Private Sub copiarceldas3_Click() Dim ultFila As Long, _ wbOrigen As Workbook 'Indicar el libro de Excel destino es la única variable que necesitas Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Factura2.xlsm") 'Se saca la celda donde está la última fila que agregaste ultFila = Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row 'Activamos el libro origen para copiar los datos, a partir del último que copiaste en la otra hoja ThisWorkbook.Activate …

Hola, necesito su ayuda, estoy trabajando en un sistema de notas para un colegio y necesito crear un macro que me permita: Generar todos los informes de una vez, con el nombre del alumno y en formato pdf, dandome la opcion de elegir en que carpeta deseo guardarlos. si me pueden ayudar se los agradeceria mucho, quedo atento a sus comentarios

Buenas.... necesito que me ayuden con este codigo o si hay otra mejor todavia, este es el codigo: For X = 2 To Range("F" & Rows.Count).End(xlUp).Row + 1 Range("H" & X) = "" Range("I" & X) = "" Do Until Not sumaa < 5 Or Range("F" & X) = "" sumaa = sumaa + Range("F" & X) sumab = sumab + Range("G" & X) X = X + 1 Loop If Not sumaa = 5 Then Range("I" & X - 1) = "*" Range("H" & X - 1) = sumab sumaa = 0 sumab = 0 If Not Range("F" & X) = "" Then X = X - 1 Next En VBA quiero que me realize lo siguiente: en la columna F me sume hasta 5 , y que vuelva a sumar 5 hasta el final y paralelamente en la columna G me obtenga el prom…

hola chicos, estoy hcaiendo una aplicacione, ingresary buscar ; ingresar ya sale , pero quiero el boton de buscar quiero que me me bote solo 3 columnas en una listbox no puedo hacerlo en este caso quiero que busque por "componente " "mes " "año" ( eso quiero que este en el userform2) no encuentro la solucion no se si podrian ayudarme. gracias p.d adjunto el excel Copia de PLANILLAS COMPONENTES.xls Copia de PLANILLAS COMPONENTES.rar

Estimados, junto con saludar los contacto para pedir ayuda. tengo un archivo genérico llamado "listado paises" al que deseo cambiarle el nombre de acuerdo a información que figura en otra planilla "paises y ciudades", especificamente en el campo llamado pais (en donde el valor puede estar repetido). Quisiera generar tantos archivos como paises hubiese, pero sólo un archivo por país. Asimismo, en cada uno de los archivos creados (en el libro que originalmente se llama listado paises y que luego se llama, pestaña BBDD Ciudades) necesito ingresar la información de las ciudades correspondientes al mencionado pais, la cual también se encuentra disponible en la planilla "pa…

Buenas tardes! EDITADO: Funciona bien, había un problema en la hoja. Gracias!

Buenos dias encontre este excel para control de almacen y lo quise probar al hacerlo me sale el error cuando le doy dobe click a informe de movimientos segun lo que se aprecia en la captura de pantalla en el word adjuntado. agradeceria mucho su ayuda gracias Excel Stock Control con Access.part1.rar Excel Stock Control con Access.part2.rar

Mil disculpas soy nuevo en el foro y habia puesto este tratamiento en excel general Muy buenos días, quiero hacer una consulta, tengo una hoja1 con una tabla en excel del cual tiene muchos valores repetidos y y en otra hoja2 están los valores únicos, lo que deseo hacer es que cuando encuentre el valor que no se repite en la hoja2 me traiga en la hoja1 en una celda contigua de la hoja2 la palabra "existe" con la función buscarv no sirve porque me trae el primer registro entonces había pensado hacerlo con código vba pero me ha dado muy difícil he utiliza el ciclo for y do while pero siempre me trae los valores que estan ordenados y la tabla esta desordenada, de antemano …

Estimados necesito crear en mi userform un commandbutton que me inserte una imagen en una celda, yo poder elegir el directorio (que sea variable no una direccion fija) . Favor ayuda!

Me gustaría saber si es que se puede, que al arrojar distintos valores en una celda (ya que esta relacionada con distintos items, datos y numeros). Estos se copien en otra hoja u otras celdas, y que se sumen esos distintos valores que se van indicando en esa celda única. Ojala exista alguna solución, Saludos desde Concepción-Chile FINAL ensayo.rar

SOLICITO AYUDA, NECESITO IMPRIMIR Y GUARDAR LA INFORMACION EN UNA NUEVA HOJA. TENGO ESTE CODIGO: Sub ImprimirReporte() Sheet63.PrintOut 1, 2 End Sub QUE MAS DEBO AGREGAR. ADICIONALMENTE DEBO INSERTAR UNA HOJA QUE ME DE POR MEDIO DE UNA CONTRASEÑA LA ENTRADA A LAS OTRAS HOJAS, COMO LO HAGO????????. GRACIAS.

Buena tarde, les comento estoy aprendiendo el lenguaje de VBA para Excel 2013 y estoy haciendo un proyecto el cual consiste en que al abrir un libro (Índice) se ejecute una macro que abra otros determinados archivos y en diferentes ubicaciones dependiendo de cada persona que use esta aplicación. Ya tengo resuelta la parte que me pregunta por la nueva ubicación o si deseo cambiar de ubicación. El Problema que tengo que en la parte en donde tengo el código para abrir los archivos seleccionados estoy utilizando un bucle For Next y se me presenta el siguiente problema cuando lo Ejecuto y corre el primer ciclo del bucle si me abre el archivo pero al correr el segundo en adela…

buenas amigos. aca otra de mis inquietudes, como poner clave de inicio a un userform osea registrarle usuarios, i como porner clave igual para que no puedan editar el codigo de programacion de los userform del trabajo grs - - - - - Mensaje combinado - - - - - tema solucionado

Buenas Tardes!! Una vez mas solicitando de su amable ayuda Tengo Un Libro conformado así: Hoja Layout de un casino donde me muestra la distribución de los juegos, Hoja Thermo Indicador donde corresponde la Licencia de cada juego Hoja Base x maquina que contiene la base de datos correpondiente a las licencias Por medio de VB deseo que cada vez que se seleccione un juego, un Msgbox me arroje los datos de la licencia Adjunto Ejemplo De antemano muchas gracias MsgBBuscador.rar

tengo la siguiente macro Sub calcular_todo() Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = False End Sub Sub esta() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False End Sub Public Function f_EquipoResponde(str_Equipo As String) As String Application.ScreenUpdating = False Dim obj_Shell As Object Dim obj_FileSystem As Object Dim obj_Fichero As Object Dim str_ContenidoFichero As String Dim str_FicheroTemporal As String Dim str_NombreMaquina As String Set obj_Shell = CreateObject("WScript.Shell") Set obj_FileSystem = CreateObject("Scripting.FileSystemObject") str_FicheroTemporal = ThisWorkboo…

tengo unos comprobantes de pago en PDF y una lista de empleado con código de empleado en EXCEL. no se si abra o se podrá hacer un marco que extraiga un comprobante por el código de empleado para así poder imprimir comprobantes específicos y no todos lo que están en el PDF. no se si me he explicado. adjunto pdf y listado. saludos. Comp Pago 1Bis Enero 10002 Ambiente.pdf Lista de Empleados.rar