Hola a todos, tengo la siguiente parte de una macro y solicito su ayuda: nombre=prueba.xslx 'creo un objeto: Set XL = CreateObject("Excel.Application") XL.Visible = True 'creo un nuevo libro llamado "prueba", cierro el archivo Workbooks.Add ActiveWorkbook.SaveAs nombre, -4143 ActiveWorkbook.Close 'abro con XL el libro creado XL.Workbooks.Open "prueba.xslx" 'Selecciono la celda "a1" en el archivo prueba creado, hasta aquí no hay problema XL.Workbooks(nombre).Sheets(1).Range("a1", "a1").Select 'aqui está el problema pues al ejecutar estos comandos, estos se ejecutan en el libro desde el que corro la macro 'lo que necesito es que corran desde el nuevo libro "pr…

Desde ya gracias por su ayuda, necesito consultarles una duda acerca del funcionamiento de las tablas dinámicas con macros. Tengo que buscar una fila especifica dentro de una tabla dinámica con una macro, por ejemplo tengo una tabla dinámica que tiene como etiqueta de fila fechas, por lo tanto me muestra una lista de fechas y yo quiero recorrer la lista de fechas hasta encontrar una especifica y luego tomar el valor de algún valor que quiera en la misma fila. También les agradecería si pueden guiarme con algunos manuales o ejemplos donde pueda ver el funcionamiento de las tablas dinámicas con macros, no crear tablas sino operar con las mismas dentro de una macro, por ej…

Hola buenas noches a todos/as. Desde hace mucho tiempo he buscado la manera de crear una macro que me solucione lo siguiente. En mi trabajo utilizo un aplicativo de internet explorer. Me muestra en una tabla hora a hora datos de ventas, asesores, etc, etc. Necesito que mediante una macro, se pueda copiar y pegar esta información a una hoja de un libro específico de excel. Cabe recordar que: - No puedo acceder a ninguna base de datos SQL o similar por permisos. - Necesito que solamente, me abra la pagina y me copie y pegue la información de ser posible. - Siempre la información de internet está bajo la misma estructura. Muchas gracias y espero que tenga solución

Buenas: Resulta que tengo un libro que es el principal que al ingresar en M5 una fecha Ej 04-02-2013 en el libro Principal y me toma solo el año y se va a buscar el libro 2013.xlsx a la ruta indicada quiero que en el momento que abra el libro 2013.xlsx me filtre los datos desde el 01-02-2013 hasta 28-02-2013 que estan en la hoja1 y los copie en la hoja12 que se llama Base datos del Libro Principal con los datos ya filtrados.. Libro en red 2013.xlsx Hoja1 A1 B1 01-01-2013 1 ... 15-01-2013 2 ... 31-01-2013 3 01-02.2013 4 02-02-2013 2 ... 28-02-2013 1 y asi va creciendo Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim l1 …

Como poner hora y fecha en otras celdas Buenas tardes, qusiera ver quien puede ayudarme con esta situacion, en la siguiente sentencia, estoy pidiendo que cuando se escriba algo en la celda B41:B90, en las celdas E y F, me ponga fecha y hora respectivamente, pero no se pone al menos que borre datos( aunque no los hay en la celda , yo quiero que al aparecer los datois que se ponen en la celda B41, automaticamente me aparescan los datos en las celdas E y F. Esta es la sentencia que yo estoy usando: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B41:B90"))" Is Nothing Then" Range("E" & Target.Row) = Date …

necesito cargar los datos de una columna "v3:v42" (sin los ceros)a otra hoja(inventario).He intentado varias cosas pero no me funcionaron x ejemp: formato de celdas---->personalizada y escribir Escribe "0;-0;;@", sin las comillas, en la caja "Tipo". Me di cuenta que solo los ocultaba. por favor necesito una macro que" borren los ceros " que puedan aparecer en ese rango(solo eso),ya que los datos los cargo a un inventario a travez de una macro.

Mi problema es el siguiente en una hoja de excel llamada concentrado debo guardar los datos originales de cada uno de los conceptos que columna por columna ponga en cada fila ,y despues mandar esa fila ingresada a otra hoja especifica ( llamese cualquier nombre) pero sin afectar el concentrado. El concentrado se queda para consulta general y los datos copiados de cada hoja para saber las cosas por una zona especifica, tal vez con un boton que me genere el registro. La fila lleva un consecutivo hacia abajo con una condicion que identifique a que hoja copiara la informacion Ojala puedan ayudarme ya que mis conocimientos no son los idoneos y aunque hay programas ya hec…

Estoy creando una macro donde se ajecuta cada ves que cambio el valor a una celda, lo que nesicito saber es que debo poner al final para que al terminar la macro siga a la sigientes celda activa ya que hasta ahora solo me queda selecionado el grafico. gracias

Hola a todos.Estoy programando una macro en Excel para listar los números de los puertos serie disponibles de mi pc (COM1, COM4, COM14, etc.). he intentado con este código Dim TotalPuertos Application.COMAddIns.Update TotalPuertos = Application.COMAddIns.Count ComboBox1.Clear For i = 1 To TotalPuertos ComboBox1.AddItem Application.COMAddIns(i) Next i Pero no soy capaz de que me salga como COM1, COM4, COM14, etc. o incluso como 1, 4, 14, etc. ¿Alguna idea? Saludos

SOS, estoy desesperada leyendo y leyendo en mil paginas y no consigo resolver mi duda. Tengo un documento word que utilizo a modo plantilla (pero es .doc) y en excel tengo un botón que al presionar quiero que copie el documento word, le cambie el nombre y escriba los valores de ciertas celdas en un sitio determinado. Todo me funciona ok con marcadores de word, excepto para poner una tabla excel en un sitio determinado del word. Este es el código que tengo. nGracias por la ayuda porque de verdad ya no se que hacer. muchísimas gracias!!! Private Sub boton1_Click() Dim aDOC As Object Dim varA As String, fs As Object Dim fichero As String vruta_0 = "c:\prueba\"…

Buen día ¿Cómo puedo hacer para establecer la ruta y/o path en un sitio de Red para conectar una base de datos de Excel con una de Access, me ha funcionado con este código para otra conexión que hice que no es ADO Dim ruta, Año, Mes, Dia, nombre As String ruta = "[URL="file://\\192.168.1.1\c"]\\192.168.1.1\[/URL]Captura" Año = ActiveSheet.Range("AB6").Value Mes = ActiveSheet.Range("AB3").Value Dia = ActiveSheet.Range("AB5").Value nombre = ActiveSheet.Range("A1").Value guardatl = ruta & "\" & Año & "\" & Mes & "\" & Dia libro = ruta & "\" & Año & "\" & Mes & "\" & Dia & "\" & nombre [/CODE] pero al querer …

Buenas noches Estimados, Vengo por ayuda. Ustedes van a decir vaya a un foro de access, pero no es que ya monte todo lo que necesitaba en excel y solo me hace falta una pequeñez en access. la siguiente macro que tengo para que me envie una informacion a access de un libro de excel solo me trae la primera hoja del libro no se como corregirla. adjunto el archivo pero esta es la descripcion. Archivo de Excel "Datos" Contiene las siguientes hojas: Hoja1 Manuel Hoja2 Alberto Hoja3 Datos Hoja4 Coy lo que deseo hacer es una macro en access que me traiga el contenido de cada hoja. Aunque esto deberia traerme un listado de nombres me supongo de una tabla de usuarios y …

Hola buenas tardes, me dirijo a ustedes solicitando su ayuda y les comento mi problema: Tengo dos hojas con información que deseo comparar entre ellas, principalmente 3 columnas en común. En la hoja uno las columnas son: F_Emision, y Cantidad; en la segunda hoja las columnas son: Fecha, Saldo. Se supone que los datos entre las columnas de cada hoja deben coincidir, pero no es asi, hay diferencias entre el numero de registros por fecha, mi necesidad es que mediante una Macro se comparen las columnas de ambas hojas y en una tercera hoja se arrojen solo las diferencias con fecha y cantidad. Espero me puedan ayudar y de antemano agradezco su apoyo. Saludos cordiales... A…

Necesitaria su ayuda para agregarle un loop a esta macro que haga que mientras H36 sea "Bajo" se copie el valor de K36 en C36, si el valor de H36 es "alto" se copie L36 en C36 y si el valor de H36 es "Bien" termine la macro. El resto funcion abien pero yo mismo no pude agregarle el loop, les dejo masomenos lo que tengo Sub Porcentajes() Application.Calculation = xlCalculationAutomatic If Range("h36").Value = "Bajo" Then Range("k36").Copy Range("c36").PasteSpecial xlPasteValues End If If Range("h36").Value = "Alto" Then Range("l36").Copy Range("c36").PasteSpecial xlPasteValues End If If Range("h36").Value = "Bien" Then Exit Sub End Sub

Buenos días, Me gustaría que me ayudasen con unas macros que tengo que realizar y soy bastante novato en programación. El objetivo es registrar datos de varios excels en uno Consolidado. Todos los archivos tienen el mismo formato y se modifican semanalmente. El consolidado tiene que ir "chupando" esa información y acumularla una debajo de otra. De esta forma, aparecerá en el consolidado toda la información de todos los otros excels. No puedo adjuntar archivos porqué ocupan demasiado. Agradecería cualquier tipo de ayuda. Muchísimas gracias!!:peaceful:

Señores, soy nuevo tanto en el foro como en excel. Me ha sorprendido las cosas que se pueden hacer con el, ya que solo lo utilizaba para llenar celdas y alguna que otra formula de si. He creado un userform complejo, al menos para mi, en el que necesitaría ayuda. No se como ligar con la planilla excel, par aque al introducir los datos, los mismos queden guardados en la base de datos. Esta se guardaría por ej: por empresa, incluyendo los datos correspondientes al formulario. Tambien necesitaría al llenar el form, poder adjuntarle un archivo PDF como cotizacion si es que se les envio a la empresa. A la hora de utilizar los botones de busqueda, necesitaría me brinde todos …

HOLA NENES, NECESITO AJUSTAR DISTINTOS ESPACIOS DE 3 COLUMNAS EN UNA MACRO, GRACIAS! BESOS A TODOS:mushroom::mushroom::mushroom:

hola gente, estoy intentando crear un archivo el cual básicamente estaría compuesto por tres hojas : ( hoja de carga; hoja base de datos y la ultima la de una ficha os datos del trabajador. me estaría faltando que los datos de la base se cargaran en la hoja tres (ficha) y que me generara un archivo nuevo el cual yo pueda guardar de forma independiente en el lugar deseado. espero puedan ayudarme, desde ya muchas gracias . BASE DE DATOS OPERARIOS.rar

Buenas a todos en el foro. Me ha surgido una nueva inquietud con la cual no he podido yo solo, es por eso que recurro nuevamente a ustedes. Ten go un libro en el cual Tengo una sola hoja llamada "Explosion de Avios" de la cual necesito sustraer algunos datos y pegarlos en otra hoja que es en la que genero mis Ordenes de Compra. Dentro del archivo explico que es lo que necesito, y ojala y me puedan ayudar con esta nueva inquietud. Quedo en espera de su ayuda. Gracias. Prueba.rar

Estimados mi nombre es Jorge y estoy tratando de ayudar a mi hermano con un excel, el cual tiene como fin entregar facturas lo más rápido posible. Es por esto que pensé en un sistema que me auto completara algunos datos automáticamente, y lo resolví, pero a medias, ya que lo pude hacer solo con fórmulas. (El sistema se basa en un factura la cuál se tiene que autocompletar con datos de dos hojas, "clientes" y "socios", y así sucesivamente) Mi idea es que estas formulas no se vean, por eso pensé en hacerlo por VB, para que así nadie pueda borrar o cambiar estos avances. El tema está en que como dije lo hice con fórmulas, pero me gustaría hacerlo por VB. Ya he intentado …

Buen día a todos. Vengo con un problema. Tengo un formulario de ingreso de datos en el cual en una celda debo limitar los caracteres a un formato determinado y si no se cumple ese formato no deben poder ingresarse ningun dato. el formato es que el primer caracter sea la letra "K" y despues de esta debe haber solamente 7 caracteres numéricos, ni mas ni menos. Podrian ayudarme con ese codigo. Anexo archivo, espero sea suficiente para darme a entender. De antemano muchas gracias por el apoyo Ejemplo 1.zip

Estimada comunidad, nuevamente recurro a ustedes para algo que quizá es sumamente simple pero ignoro, hace poco el usuario Ioyama muy amablemente me ayudo a crear una macro en donde me clonaba la columa A en la b al dar click en un botón, después me ayudo también a ingresar un cuadro de confirmación antes de aplicar la macro, sin embargo no me había percatado que si la columan A estaba vacía, también dejaba vacía la b, abro otro tema porque considero que ésta solicitud ya no tiene nada que ver con la original que era el clonar una columna en otra, espero estar en lo correcto y no infringir las reglas, estuve leyendo y vi que se podía hacer con algo así como is not empty, …

Quiero facilitar el llenado de un formulario que sirve para pre calificar a las personas en el Infonavit, pero no se como hacer para copiar y pegar los datos de una tabla (en base al numero de la fila) en los campos de la pagina, así como hacer que la macro modifique en la pagina los campos entidad y municipio. soy nuevo en esto no se que mas datos se necesiten. gracias!!! Precalificación.xls

Buen dia estimados: comora se pueden dar cuenta soy nuevo en el foro, pero queria saber si me puedne ayudar con un promebla que tengo. Estoy hacuiendo una agenda en excel utilizando el control de calendario, pero al momento que me toma el balor de la celda de ancleje del calendrio para crear una hoja nueva me da un problema, tambien habia hecho un ciclo paque me comprobara si la hoja ya existia solo me enviara a ella y desplegara un mensaje que dijera la hoja ya existe, el codigo que e usado es el siguente: Sub CrearHoja() Dim titulo As String ''se llama la funcion If ExisteHoja Then MsgBox "La tarea ya Existe." titulo = Sheets("Calendario").Range("c3") + ""…

Hola! Acudo nuevamente a la sabiduria de los usuarios de este foro. Mi consulta es la siguiente, en una carpeta tengo varios archivos con un formato o extensión .dbf .prj .shp .shx, estos tienen el mismo nombre pero cambian solo la extensión. Pero tengo casos en que existen varias versiones de estos archivos de las cuales necesito obtener el nombre de la ultima version, es decir la ultima modificada. Por lo que tendria que tener, en primer lugar, el nombre de los ultimos archivos modificados para lo cual defino la siguiente funcion: Function encontrar_ultimo(sitio As String) As String ruta = ActiveWorkbook.Path & "\" & sitio 'codigo de busqueda End Functi…