Macros y programación VBA

BUENOS DIAS, ABRA ALGUNA MACRO QUE AMARRE MI PROYECTO EXCEL A UNA SOLA COMPUTADORA, YA SEA POR CODIGO DE DISCO DURO, O OTRO , ES DECIR QUE SI LLEVAN MI PROYECTO A OTRA MAQUINA NO LES ABRA.

Hola a Tod@s, Espero me puedan ayudar,... al intentar insertar una imagen a un formulario en tiempo de creación por medio de VBA, me dice que el objeto no esta disponible. Sub CreaForm() Dim MiNewForm As Object Set MiNewForm = Application.VBE.ActiveVBProject.VBComponents.Add(3) With MiNewForm .Properties("Height") = 300 .Properties("Width") = 300 .Name = "Prueba" .Properties("Caption") = "Prueba_LBV" .Properties("BackColor") = RGB(0, 255, 0) .Properties("Picture") = ActiveWorkbook.Path & "\Imagen1.jpg" ' .... AQUI ME SALTA EL ERROR? .Properties("PictureSizeMode") = 1 End With End Sub …

Buenas noches. Por favor requiero ayuda para dar formato condicional a una celda de entre 10 celdas, debe ser fondo negro y letra roja. (Las celdas tienen ya diferentes colores CON FORMATO CONDICIONAL que configuré con una macro, pero requiero señalar la celda con un color especial que resalte la ubicación. La celda a11 indica dónde estará ubicada la CELDA que deberá tener ese formato diferente. Ejemplo: a1 6 3 5 0 9 2 8 7 1 4 a11 3 Agradecería la ayuda que se me brinde. Marco Porras. PD: Publiqué en dos

Hola a todos, mi nombre es Gema. Os expongo la situación: Tengo una lista desplegable ("Servicios") en varias filas de una misma columna (C24:C50) y otra ("Categorías") dependiente de la anterior (D24:D50). Cuando modifico un elemento de la lista dependiente "Categorías" necesitaría que se borrara el campo de la lista anterior "Servicios", para que no haya una incongruencia de datos en el caso de que se modifique. He probado incorporando la siguiente macro, pero da error: Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("C24:C50") Then Range("D24:D50").Value = "" End If End Sub ¿Sabríais decirme de qué forma po…

Hola a todos; -Adjunto macro vba Excel con un formulario y un botón que ejecuta una consulta sql a una tabla de Access y devuelve el resultado según el valor que he puesto en el Where. Hasta este punto todo bien. Ahora bien, se me ocurre lo siguiente si a la hora de hacer la consulta hay varios registros iguales, ¿se podría configurar la macro para que a medida que vaya pulsando el botón me muestre los siguientes registros?. ¿Es mucho pedir, o es factible? Saludos y buen día a todos VIDEO: BuscarValoresRepetidos BRepetidos.zip

Buenas noche amigos de Excel Ayuda quisiera que me ayuden completando mi amplicación con la ayuda de ustedes e creado una aplicación que ingresa datos para analizar en varios perìodos, los datos estan en un hoja BBDD, mi objetivo es que al analizar los productos cada periodo y culminarlos quiero pintarlos de acuerdo a dos criteros "suspendido" o "culminado" utilizando el buscador yo digito el "Lote" y doy clik en la lupa y busca el producto pero quiero que al ubicar el "Producto1, Produco2 etc" al selecionar uno de los dos botones de opción "verde o rojo" se pinten automaticamente en la base de datos BBDD todas las filas que buscó. Les agradezco por darme un tiempo e…

Saludos a todos Nuevamente solicito de su ayuda para una macro que realice lo siguiente Tengo una base de datos llamada Original en access con contraseña y con varias tablas, de las cuales requiero copiar sólo 3 tablas (Tabla1, Tabla3, Tabla8) Tengo otra base de datos en access llamada Respaldo con contraseña con 3 tablas Tabla1, Tabla3, Tabla8) Deseo copiar de la Bd Original a la Bd Respaldo las 3 tablas, en ambos archivos la estructura de los datos es idéntica Nota.- El copiar lo datos tiene que ser mediante macro, ya que no me dan acceso a la base datos Original, pero si conozco la contraseña para ingresar, desconozco si existe una sentencia s…

Mi compañera y yo solo hemos hecho hasta la descomposicion factorial que nos muestra los exponentes. Nos sería de gran ayuda la resolución del resto. Introducción La teoría de los números es la disciplina matemática que se ocupa del estudio de las características de los números. Según esta disciplina, un número de gran alcance es un número natural en cuya descomposición factorial no contiene factores que no aparezcan más de una vez (todos los factores tienen exponente mayor o igual a 2). Problema 1. Elabore una función que indique si un número pasado como argumento es de gran alcance. 2. Diseñe y programe un programa que liste los números de gran a…

Buenas tardes foristas. Acá les traigo una duda. Estoy trabajando en un Proyecto (aún no terminado) que no es más que rellenar los datos de una planilla o Modelo de Transferencia Bancaria. Por varias razones decidí hacer esto, porque además de agilizar mi trabajo puedo obtener un registro actualizado de Transferencias y extraer varios datos que necesito, pero voy al asunto: En El FrmTransferencia tengo un TextBox (TxtImporte) que se debe colocar el importe a pagar en numero y seguido un Label (LblEnLetras) que es donde se traduce ese importe en letras, pero lo que no quiero es que cuando yo termine de insertar el importe en numero y de Enter o Tab me coloque en …

Hola comparto con ustedes una archivo de excel con una hoja, que tiene botones flotantes. Al iniciar la hoja los botones se pondran de color rojo (significa que no han sido usados) una vez se de click sobre uno, en la secuencia el siguiente se pondra en color amarillo (significa que es el que sigue de usarse), el anterior se pondra de color verde (significa que se ha utilizado ya y si se da click en el mostrara un mensaje diciendo que no es posible repetir la accion de este boton, ya que ha sido utilizado), despues de usar el boton amarillo, este se pondra de color verde y el que sigue cambiara a amarillo y asi sucesivamente. Donde de un click con el raton los botones le …

Hola, Hace unos días me ayudasteis a resolver una macro que buscaba en un listado la fecha coincidente o de no coincidir ninguna, te daba la más cercana comparando con otro listado. Funciona genial, pero me han surgido dos problemas al adaptarlo. 1) Si el listado donde busca (hoja FECHAS del ejemplo) es más corto que la hoja donde hay que pegar el resultado (hoja RELLENAR en el ejemplo), solo te añade el mismo número de registros que en la hoja donde busca. No sé si esto es algo que yo estoy haciendo mal al adaptarlo. 2) No he conseguido adaptarlo para que lo haga por cada cambio de código en hoja RELLENAR (columna a). Es decir, si es el código es "a" …

buen dia estoy iniciando una empresa de enmarcados, he trabajado intensamente en la elaboracion de la factura y casi la tengo terminada, pero no tengo manera de guardar cada factura de cada cliente que he atendido sino que lo que he hecho es que en el mismo libro he ido guardando varias hojas cambiando el nombre segun lo requiero, otro problemita es que no se como hacer el boton de conteo de dichas facturas para que cada vez que la abra me aparezca el numero que seguiria, muchas gracias

Buenas tardes, adjunto archivo, con la "plantilla", información que recibo siempre dos veces por semana. Necesito vuestra ayuda para hacer una macro que me permita pasar la información de esa plantilla a una tabla que se encuentre ubicada en otro libro "X.xlsx", el cuál me va a permitir acumular la historia de todas las plantillas cada una en su fecha determinada. Más bien una consulta adicional, ya que la verdad no sé que sería lo más conveniente: La macro dónde estaría ubicada, en el libro que tiene la plantilla, o en el libro nuevo X.xlsx.? Todas las observaciones y sugerencias se encuentran en el mismo archivo. Gracias por la atención que merezca. Saludos Jorge …

Hola amigos: Quisiera saber si es posible convertir una hoja de excel con datos, bordes e imagenes en HTML por medio de macros y si alguien tuviera dicho macro le voy a agradecer que pudiera proporcionarmelo. saludos

Srs. agradecería mucho me puedan ayudar con mi problemita, tengo esta macro que necesito dividirla en do sin perder la continuidad de ella, esta macro me crea 21 paginas similares, pero al ejecutarla me indica el mensaje " Procedimiento demasiado largo", espero me puedan ayuda. Se que es muy extensa pero lamentablemente es la forma que tengo, para generar las 21 hojas, adjunto macro. Espero haberme explicado bien Desde ya les estoy agradecido por su ayuda desinteresada. procedimiento demasiado largo.xls

Ante todo Gracias por lo que hacen, el tiempo y su valiosa Colaboracion} Adjunto el Archivo y trato de explicarlo: es un formulario el cual trato de optimizar y facilitar (me encanta el tema y miro mucho sus aportes y soluciones) La hoja esta dividida como por secciones la primera datos del solicitante: que son obligatorias como por ejemplo las primeras como son nombre del solicitante; fecha (que debe ser guardada con la fechas de dilingenciamiento); cargo del solicitante ciudad y gerencia, me debe aparecer error si falta alguna Esa Primera parte de alguna forma ya funciona, menos lo de la fecha (soy novato programando en vba.) la segunda Division TIPO: :numbness…

Estimados, expertos espero me puedan ayudar con un pequeño dilema que tengo. Estoy tratando de crear una libro donde tengo 4 hojas diferentes con notas de estudiantes, cada hoja corresponde a un curso con notas de una materia especifica (matemáticas). la cuestión es que necesito crear una macro o programación en vb, para que cuando por medio de una lista desplegable seleccione el curso y la materia (matemáticas), me lleve directamente a la hoja correspondiente de esos datos y así poder manipularlos, cambiar las notas o modificar algún dato, luego me realice los cambios, y me devuelva a la plantilla de búsqueda. espero me puedan ayudar con esto .

Buenas noches, Me estreno en este foro preguntado a cerca que al crear una serie de botones, con su código en VB y que funcionan a la perfección, otros códigos que antes funcionaban bien ahora me producen 2 tipos de errores. No le veo la lógica y escribo por si alguien me dá alguna idea. Los errores són: Se ha producido el error '438' en tiempo de ejecución: El objeto no admite esta propiedad o médodo. Se ha producido el error '1004' en tiempo de ejecución: Error en el método 'Range' de objeto '_Worksheet' Pero repito que estos errores aparecen en macros que antes funcionaban bien, y en cambio las nuevas macros funcionan bien y sin errores. Gracias! He intentado s…

Hola.. estoy utilizando una macro de macro Antonio para ocultar y mostrar columnas.. sin embargo no se como acotar para que solo busque entre las columnas B y AT, ya que tarma mucho tiempo para recorrer todas las columnas de la hoja. saludos Option ExplicitSub OcultarMostrarColumnasMA(Optional ACero As Boolean = True, _ Optional Vacia As Boolean = True, _ Optional FilasIgnoradas As Long = 0, _ Optional ColumnasIgnoradas As Long = 0) 'Definimos las variables Dim Filas, Columna, Columnas, FilaInicial Dim ColumnaInicial, FilasVacias, Celda, x, y 'Determinamos rango de filas F…

Buenas tardes expertos: solicitando su apoyo para un problema que me surgio en una macro que tengo la cual me marca un error 5, a partir de que me formatearon mi maquina y se volvio a instalar el Office 2007 nuevamente. En dicho proceso al final tengo la instruccion para convertir una hoja de excel a PDF y la cual hasta antes de ayer funcionaba correctamente pero a partir de hoy que se formateo mi maquina manda "error 5 en tiempo de ejecucion" "Argumento o llamada a Procedimiento no valida" la instruccion la obtuve de este mismo foro y funcionaba correctamente hasta antes del formateo: [ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=False] Lo rar…

Soy nuevo en esto de las macros, me he puesto con el grabador y aquí estoy haciendo lo que puedo. La cuestión es que he hecho unas macros, que más o menos me funcionan, pero siempre viene una parte que desconoces. Quisiera escribir en la siguiente linea vacia, ¿como se lo tengo que decir a la macro? Tengo en una hoja el problema que siempre que voy allí me manda al principio de la hoja. Que se puede hacer para corregir éste problema, para que me envié donde está el último dato. Como no puedo subir el archivo porque es muy grande, os pongo la macro para que me digais. Gracias y un saludo a todos. Pablo Sub MacroIberdrola() ' ' MacroIberdrola Macro ' ' Sheets…

Saludos, Se puede hacer una macro donde se agrege una fila y me agrege los datos de otra hoja automaticamente, de igual forma poder eliminar filas. Libro1.xls

Buenas noches amigos, tengo una pregunta, ¿cuál de los dos métodos es más eficiente y porqué?, este, utilizando Target.Offset: If Not Intersect(Target, Range("K4")) Is Nothing Then Target.Offset(3, -2) = "" Target.Offset(3, -7) = "" Target.Offset(3, -7).Select End If [/CODE] o este, utilizando Range: [CODE]If Not Intersect(Target, Range("K4")) Is Nothing Then Range("I7") = "" Range("D7") = "" Range("D7").Select End If [/CODE] Saludos.

Hola: A partir del archivo adjunto, que muestra las imagenes JPG correspondientes la rutas insertadas en la columna A, quisiera saber si se puede hacer lo mismo (o similar) pero siendo la ruta un archivo PDF (versión 2007). Saludos. Insertar imagenes.xls

parte del codigo y donde se produce el error es el siguiente, mas abajo se produe el error: FechaInicial_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(1, 2).Value FechaFinal_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(2, 2).Value FechaInicial_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(3, 2).Value FechaFinal_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(4, 2).Value Application.ScreenUpdating = False Set pt = ActiveSheet.PivotTables("Tabla din?mica1") Set pf = pt.PivotFields("Fecha") For Each pi In pt.PivotFields("Fecha").PivotItems FechaComparacion = VBA.Format(pi.Value, "dd/mm/yyyy") 'CDate(pi.Value) If FechaComparacion &…