Buenas tardes a todos, necesito una ayuda de ustedes, tengo un archivo el cual esta compuesto por varios sub-modulos, los cuales tienen 20 filas cada uno, necesito lo siguiente: 1. Una macro que me copie en otro archivo los datos de las Columnas C,D,G,H,I, y K de los rangos (53:77) y (82:106) 2. La condición es que no copie las filas en blanco, que solamente hasta donde se digitó información. Agradecería mucho la ayuda de ustedes. Planilla Diaria-Prueba.rar

buenas mi pregunta es simple, como puedo insertar un formato numero en vez de formato fecha en una celda de criterio en donde se ingresa la fecha para realizar un filtro el codigo para el ingreso de los criterios del filtro es este If Target.Address(False, False) = "C2" Then If Range("C2").Value = "" Then Application.SendKeys (">=") End If End If If Target.Address(False, False) = "D2" Then If Range("D2").Value = "" Then Application.SendKeys ("<=") End If End If If Target.Address(False, False) = "C3" Then Call Filtro_fechas("C2", ">") End If If Target.Address(False, False) = …

Buenas tardes, después de haber aplicado en mi aplicación la respuesta (perfecta por cierto) que me ha dado Antoni, me pasa que en el archivo que adjunte funciona bien, pero en el mio no me deja cambiar el año, siempre busca el año actual, lo se por que he cambiado la fecha del ordenador y entonces me busca los datos del 18 o del 17 etc que es lo que he probado y no se por que pasa adjunto el código como ha quedado en la aplicación por si alguien ve donde esta el fallo Gracias de antemano Sub Resumen() Dim D As Worksheet, R As Worksheet, CIF As Range, Fila As Long Dim NUEVO As Object Dim i As Integer Dim Final As Integer Dim datamenor As Date Dim dat…

Buenas tardes, Necesito crear una macro que me genere filas dependiendo de cuáles sean los valores de la tabla inicial. Lo que debe de hacer es transponer los datos que vienen en cada columna para hacer un listado basado solo en la columna "envío", y asignando unos números de referencia correlativos para cada columna inicial. Adjunto ejemplo con la Hoja 1 como origen y la hoja 2 como resultado deseado, e incluyendo en ésta última una tabla ejemplo con las referencias a generar. He estado probando con mi limitado conocimiento, grabando algunas acciones y tratando de crear condiciones pero me temo que es demasiado complejo para mi. Agradecería mucho si a…

Hola a todos Hace bastante tiempo que ojeo el foro desde las "sombras", he aprendido mucho mirando posts y dudas de otra gente. He ido haciendo un excel para utilizarlo en campeonatos de fotografia submarina con algunas macros, carga automatica de nombre de imagen, apertura de ellas ,algunas combobox para listar especies de peces etc... Ahora quiero que copie en una carpeta las 5 fotos mejor puntuadas de los participantes, en este foro he encontrado varios post de macros para copiar archivos que he probado y funciona pero me gustaria desarrollarla un poco mas. Sub Prueba() Const DIR_ORIGEN = "[COLOR="red"]C:\ ... \CarpetaOrigen\[/COLOR]" Const DIR_DESTINO…

hola amigos tengo el siguiente problema espero puedan ayudarme, en el siguiente ejemplo tengo en a3 escrito amarillo y en b3 escrito rojo necesito que me aviente como resultado en c3 rojo pero si en a3 dice amarillo y en b3 verde me aviente como resultado en c3 verde, ojala me haya explicado bien un saludo perdon no me deja subir el ejemplo

Buenos dias, con todos, por favor me pueden ayudar con una funcion como dice el titulo tiene que contar unicos con diferentes parametros (algo parecedio al contar.si.conjunto) lo que pasa que con la base de datos que trabajo tiene muchos de estos caso y tengo que estar filtrando, borrando, pasando a otra hoja, etc. por favor alguna ayuda o sugerencia. Saludos, Muscaria

Hola amigos una aplicación hecha en Excel 2007, con 12 formularios, una interfaz con todas las hojas ocultas y extenso código después de estar funcionando 5 años en Excel 2007 si error. Al abrirla con Excel 2013 todo funciona bien y no da ningún error, pero al cerrar un formulario con el código al final SaveWorkbook para que guarde cambios , da un error en el evento MouseMove de una etiqueta (label) del interfaz. Una etiqueta que al aparecer al pasar el puntero del ratón encima y hacer click, se visualiza un Formulario. El error es: Error en tiempo de ejecución: Error definido por el objeto. Mi pregunta es por qué vuelca un error en un objeto que no tiene nada que ve…

Buenas compañeros, espero que me ayuden con mi problema... estoy desarrollando una app, en el cual me genere aleatoriamente números y luego esos números generados me traiga una repuesta con la función buscar. PERO ME SALE UN ERROR #n/a La funcion que aplico es: 1. Funcion: =elegir(aleatorio.entre(1;2);"221";"223").. y el resultado es un numero pero del tipo texto. 2. Funcion =buscar(resultado de la función anterior;comparación y resultado). PERO NO ME BUSCA NINGUN VALOR, ME SALE EL ERROR MENCIONADO.. porfa alguien sabe la respuesta!

Hola, estoy queriendo exportar una hoja del archivo como pdf pero al querer guardarlo en un disco compartido (server) me da error. Aclaro que al querer hacerlo en mi disco local C si me lo permite y tambien puedo exportar la hoja como xlsx en el disco compartido pero al querer hacerlo como pdf me lo impide. La linea que utilizo es Hoja2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=RutaEnDiscoCompartido & "\" & NombreArchivo & ".pdf", Cuando remplazo la RutaEnDiscoCompartido por una en el disco local si me permite exportarla Muchas gracias

Estimados compañeros: Estoy generando una macro que me servirá en el trabajo y tengo una duda acerca con el guardado de nuevos libros desde el VBA. Pues lo que sucede es que desde un Listbox1 exporto su contenido en un nuevo libro, he podido realizarlo (pueden verlo en el archivo adjunto) pero para lograrlo he ingresando una constante llamada "Extracto" dentro del código VBA creado, para que cuando exporte se guarde con ese nombre. Como verán por defecto este file se guarda con este nombre y en la carpeta "Mis Documentos". Lo que quiero es que al momento de apretar el boton "Exportar" me pregunte la ubicación del archivo y el nombre con que lo quiero guardar (que en v…

Buenas noches, me he quedado atascado intentando crear una Macro para generar de una base de datos automáticamente una tabla dinámica. La cuestión es que quiero que en las filas aparezcan los siguientes datos: - SAP_Format - T358 - Lieferant Name - T536 - TLW_Code_Wert en las columnas quisiera que aparecieran los siguientes datos: - "ATP_Bestand" - Intransit - T805 - T807 - Lieferrueckstand - Bestellausstand - KDR_Menge Por último que se pudieran filtrar todos los datos por: - T134 Yo había puesto así el código, pero me da error: PT.AddFields RowFields:=Array("SAP_…

Buen dia, tengo un problema, espero me puedan ayudar, Tengo un libro Proncipal el cual hace su apertura si el formulario de acceso lo permite, y se comunica con otros libros, el detalle es que nececito que los otros libros se puedan abrir solo si el libro principal esta abierto, si no lo esta que lo abra para poder accesar desde el formulario de acceso. *Libro Admon.xlsm - Formulario acceso ***Libro Poliza ***Libro Diario ***Libro Edo Financiero lo intenté llamando esta macro desde los libros Poliza, Diario, Edo Financiero Workbook - Open Private Sub Workbook_Open() Call Inicializando End Sub _______________________________…

Buenas Tardes, Necesito ayuda con la creación de una macro que al presionar un botón pueda indicarle un archivo de texto donde me extraiga la siguiente información: De las Lineas que comiencen por 2 Celda A(Rif) := J000122555 Celda C(Factura) = 00000338986 Celda D(Cuenta)= 00000000000511849 De las Lineas que comiencen por 1Celda B (Cliente) = MONTALBAN Ejemplo 1302040065VE.txt Book1.xls

Buenas, Hay alguna razon por la cual cuando se ejecuta una Macro, se genere un archvio de solo lectura alterno al original? El codigo que uso es este: Sub TrapasarTrimestre2() 'Leyendo cadena de texto Dim Anio%, Trimes As Variant Dim Conn As Object, rst As Object, SQL$ Dim Ruta$, Datos As Worksheet, RELACION As Worksheet, Rubro$, Tabla$, Campos$, RutaTriAnt$ Dim LibroDestino As Workbook, Z As Long, Condicion$, Cm%, Columnas As Variant, CamposRecord As Variant Dim FIni As Date, FFinal As Date ', UltFila As Double Dim HojaActual As Worksheet, Uf As Double, x As Long, y As Long Dim LibroTriAnt As Workbook With Application .ScreenUpdating = False .EnableEve…

Buenas Noches a Todos: Tengo una matriz de datos, simple, que otras personas diligencian, y se me ocurre que para evitar que cada uno de los registros sea modificado conforme a la conveniencia de cada persona, deseo escribir en una celda (en cada registro o fila del registro), en el formato de Fecha y Hora, (now()), el valor, al momento de escribir el primer dato en la celda del registro, pero que inmediatamente lo tenga y se calcule el valor now(), este valor quede inmodificable, asi puedo saber la fech y hora de creación del mencionado registro. Muchas Gracias !

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…

Saludos amigos del foro, no se si nuestros grandes amigos puedan compartirnos un poco sobre la posibilidad de hacer una macro en excel y que pueda vaciarse en hojas de cálculo de Google Sheets. Creen que esto sea posible? pongo este tema para ver si entre varios logramos por decir... mmhhhh... un inventario de almacén por ejemplo ó una forma de pedidos de tiendas a un almacen central... o la idea que ustedes tengan. La meta sería que a traves de una macro podamos vaciar y recopilar datos de una hoja de google sheets. desde ya gracias por sus aportes.... Por cierto, FELICES FIESTAS DE FIN DE AÑO Y UN PROSPERO 2015

Que tal compañeros, antes que nada estoy agradecido a este foro por todo los que me estan ayudando, ya que poco a poco estoy entrando al mundo de los macros, espero y algun día teniendo conocimiento tambien lo haga compartir. Ok volviendo a este tema tengo este ejemplo de archivo de excel, pues me piden en el trabajo una base de datos de esa aplicación uno de los datos me pide fecha en forma de letra, hasta eso ya esta resuelto igual estoy usando uno de los diferentes metodos de insercion a las celdas mediante la hoja activa. dos celdas que viene siendo la fecha y el fecha en texto se encuentran en el archivo con un diseño simple de formulario separado automaticamente e…

Hola, que tal eh estado buscando un codigo para agragar y modificar datos en el textbox, pero cuando quiero relizar las modificaciones, lo codigos que nse encuentranb en el buscador no me lo permiten, por lo que recurro a su apoyo. ya que para agregar al y modificar me solicita unos codigos que concuerde con los codigos de busqueda con imagenes. nota: el excel que eh adjuntado si sirve busca imagenes gracias!. Base De Datos IMAGEN.xls

buenas tardes, tengo la siguiente duda Estoy realizando un formulario y en el puse un combobox, el cual quiero que se llene con una lista de productos, estos productos están en la columna A de excel así que a toda la columna A en excel en el administrador de nombres la llame "Productos" que se refiere =Hoja1!$A$1:$A$250. Mi duda es como hago para que el Combobox me cargue esta lista de productos sin tener que hacer un while, sino unicamente referirme al rango "Productos". pense que seria asi pero no he tenido éxito, espero me puedan ayudar Private Sub Formulario_Activate() Productos.ListFillRange = "Productos" End Sub [/CODE]

¿Como puedo cargar un combobox ActiveX de forma manual sin usar una lista En uno norma sería Combobox1.additem "xxx" pero en el activeX no lo consigo Gracias

Pues resulta que hace tiempo hice un pequeño programa para hacer facturas con excel y vba, pero he descubierto que cuando escribo en la factura unas cantidades con decimales pues al guardarlas en el registro de vba no hace caso a dichos decimales, considerando que no son tales y me agrega dos decimales. Me explico , si yo pongo en cantidad 2, precio unitario 15,15, me da un total de 30,30, al que luego se le calcula su iva y el total, pues al grabar estos datos en el registro me guarda en Cantidad 2, en precio unitario 1.515,00 y en subtotal 3.030,00. El codigo con el que recogo estos datos es el siguiente: Call Abrir_Tb_Detalle_Facturas ActiveS…

Hola a todos, Me gustaría saber si es posible lo siguiente. Tengo una hoja de cálculo con algunas casillas que son valores numéricos obtenidos mediante fórmulas estándar de Excel y quisiera mediante una subrutina generar un archivo de texto que tuviera un formato muy concreto de modo que los números tendrán el formato del tipo 0000000000E+0. (El número 25 por ejemplo sería 2500000000E-8). Es decir, todos los números tendrán 10 dígitos sin puntos decimales y acompañados del correspondiente exponencial, que a su vez tendrá un solo dígito. La verdad es que no tengo ni idea de cómo hacer esto ya que creo el programa pero los valores que escribe tienen el formato General de…

Hola gente como están, desde ya quiero dar las gracias a este excelente foro, tengo un problema de gestión de datos y quería saber si me pueden dar una idea o ayuda acerca de este tema. Tengo que gestionar datos de 2 hojas diferentes para hacer un tipo de resumen de datos (es un control de stock). En donde en una hoja está la entrada y en la otra está la salida. Mi objetivo es generar una 3 hoja, donde sea el resumen, y obtenga como resultado el destino del material, el nº factura, el material que se envió. Espero que haya sido claro, adjunto archivo para que sea mas ilustrativo. TABLA STOCK CON PRECIO.xls