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…

Buen día Tengo este archivo al cual se le pueden estar copiando hojas nuevas que contienen las mismas macros ya que es una plantilla, la cantidad puede variar ,asi como el nombre de cada hoja , en un principio la nombre "curso1" , al cambiarle el nombre , la siguiente macro dejo de funcionar Private Sub Workbook_Open()With Sheets("Curso1") .Protect Password:="123", UserInterfaceOnly:=True .EnableOutlining = True End With End Sub [/CODE] Requiero que funcione para todas las hojas , aun si se le cambia el nombre, ya que para alimentar los datos de la plantilla es necesario desplegar las filas que tengo agrupadas de la 17 a la 122. Saludos y gracias. Plantil…

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

Estimados ExcelFanaticos, Quisiera compartir con ustedes una Macro simple que hice para mi trabajo y pedirles ayuda con otra cosa similar al trabajo que hice. Lo que quiero hacer si ven el ejemplo, es el proceso de forma inversa, esto quiere decir desde una base de datos mediante una macro y una combobox seleccionar el nombre de un "Trabajador" y obtener una ficha de personal donde me simplifique la información y por ende me muestre solamente una ves los valores duplicados y los valores que requieren de repetición (Ej: Promoción, o Cambio de Zona) me los especifique con la fecha en que el suceso ocurrió (Ej: Juan Peres fue promovido el 20-03-2012; Cargo Antiguo "Chofer"…

después de un cordial saludo, me dirijo a ustedes para ver si dentro de lo posible me brindan una ayuda, debido a que no tengo experiencia, programando en vba, y necesito agregar un formulario a una base de datos que estoy estructurando, me gustaría sobre todo poder a prender a introducir un formulario y que funcione perfecta mente, les doy las gracias de ante mano por su atención. esto es lo que quiero realizar si esta dentro de lo posible. 1- que se pueda entrar a la base de datos mediante usuarios y claves. 2- hacer un formulario para poder introducir, los nombres de los empleado, donde yo pueda ponerle las ausencia, permiso, y que cuando haga la consulta mediante a…

Buenas a todos, he estado buscando por el foro, y no encuentro o no se encontrar nada referente a lo que quiero hacer. Mi idea es que al ejecutar el macro, me envíe un mail con 2 rangos de diferentes hojas en el cuerpo del mail, visualizando todos los elementos que hay dentro de esos rangos, por ejemplo fotos, colores, etc. En un principio he encontrado la solución de un solo rango gracias a los códigos de "Ron de Bruin", pero no consigo que me mande 2 rangos en el cuerpo. El código de " Ron de Bruin" es este: Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope() Dim AWorksheet As Worksheet Dim Sendrng As Range Dim rng As Range On Error GoTo Stop…

he conseguido , que se pongan la fecha y la hora automatica , ahora quiero que se active la columna D y al introducir un dato se active la columna A , asi sucesivamente. Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then Range("B" & Target.Row) = Date Range("C" & Target.Row) = Format(Now, "hh:mm") ActiveSheet.Range("D").Select f Not Application.Intersect(Target, Range("D:D")) Is Nothing Then ActiveSheet.Range("A").Select End If End Sub lo rojo esta mal . EJEMPLO TABLA.rar

Buenas noches Me gustaria un poco de colaboracion con una macro que necesito hacer.. Tengo dos columnas en hojas diferentes con la identificacion de clientes, necesito comparar la hoja1 con la hoja2 y donde alla coincidencias copiar los datos de contacto tel,email, direccion etc en la hoja1

Nececito crear procedimiento VB para descargar los datos de una pagina de intranet y pasarlos a un archivo Excel en mi PC. Puntualmente mi duda es como estructuro del código para acceder a la url. De antemano, muchas gracias.

Hola, quisiera una ayuda con esta macro: Sub copiarNuevo() Dim hj As Worksheet, x As Long, celda As Range x = 8 y = 0 For Each hj In ThisWorkbook.Worksheets If hj.Name <> "Index" And hj.Name <> "Plantilla" And hj.Name <> "Consolidado" Then If celda <> 0 Then y = y + 1 With hj For Each celda In .Range("v8:z48") If celda <> 0 Then Worksheets("Consolidado").Cells(y, x) = celda x = x + 1 End If Next End With End If Next End Sub Lo que deberia hacer es recorrer todo el libro (menos las hojas indicadas), copiar las celdas ocupadas en el rango v8:z8, y pegarlas en otra hoja, fila tras fila. El problema es que…

Hola amigos del foro traigo una consulta de trabajo sobre como agilizar un proceso en la hoja 1 tengo una base de datos, necesito que me ayuden a confeccionar una macro que extraiga datos consolidados por sucursal en donde tome cada proveedor por sucursal y sume la cantidad y el valor total y los clasifique por tipo de inventario y clasificación luego estos datos los pegue en una fila en la hoja2. De antemano doy gracias por la ayuda que puedan brindar. En el adjunto está el ejemplo como quedaría la información después de ejecutar la macro el ejemplo lo resolví con una tabla dinámica pero es muy complicado el proceso. EJEMPLO DATOS.rar