Buenos días quisiera hacer una macro en visual basic par el formulario que tengo creado y la cuestión es que tiene que mostrarme datos de 2 tablas, normalizados y no normalizados (P_Unitario) Además en caso de que se elija un LA tendría que hacer que internamente el programa interpretara que se trata en realidad de Aereas(no normlizado) y si elijo CU o Al que se trata de subterráneas(no normalizado) A mayores en estos casos tengo que comparar la sección con los datos de secciones que tengo en la hoja P_Unitario y mostrar el rango al que pertenece. Alguien me podría dar información para poder empezar! Gracias 25.2.2016.zip

Muy buen día, tarde, noche. Quisiera solicitar de su amable colaboración en un pequeño inconveniente que estoy teniendo. Estoy siguiendo un tutorial para un sistema de facturación, pero me he quedado atorado en un proceso, el cual es el siguiente: Según el instructor, para continuar con el tutorial se debe descargar un archivo que él dejo en un ejecutable, y que supuestamente me guarda una Dll entre mis archivos, la Dll se llama DllAdo.dll, la cual permitirá realizar una conexión entre Excel y Access, y que todo quedará según él más rápido. La cuestión es que nos indica que se debe crear un módulo de conexión con la siguiente función: '''''''''''DLL ADO ''''…

Buenas, estoy intentando crear un botón que me copie unas celdas determinadas de un libro a otro y después que me vuelva a copiar éstas celdas de una hoja a otra. la primera parte la tengo resuelta pero ahora no se por donde seguir. Así tengo el código de momento: Sub CopiarCeldas() Dim Pesadas As Workbook Dim Destino As Workbook Application.ScreenUpdating = False Set Pesadas = Workbooks.Open("Z:\D.Calidad y Tecnica\2_Gestion de CALIDAD\Patri\TONI\pesadas.xls") Workbooks("pesadas.xls").Worksheets("BCT2DB").Range("B1:H7398").Copy Workbooks("destino.xlsm").Worksheets("BD").Range("A2") Pesadas.Close False End Sub La pregunta en …

Buenos días a tod@s; Esta línea la he usado anteriormente y creo que funcionaba pero hoy al ponerla en una nueva macro me da el siguiente error “Error 52 en tiempo de ejecución, nombre o número de archivo incorrecto “. Por qué puede ser??. Que debo de usar si la ruta de un servidor a caído??. Gracias y un saludo, Ejemplo 1.xlsm

Hola a todos. Mi nombre es Maurizio y mi petición es esta: Hace algún tiempo le pregunté si podía ayudarme a extraer una imagen de la web para mi proyecto. Ahora usted, pero no recuerdo quién me dio un hermoso archivo que era adecuado para mí porque tomó la imagen de la web aunque la imagen cambiara a su vez. ¿Cómo podrían ser los símbolos de los pronósticos del tiempo? Pero este hilo, sinceramente hablando, ya no lo puedo encontrar en mis archivos. ¡Podrías recuperarlo de tus archivos! Si recuerdo correctamente lo había hecho yo (Antonio) I (Haplox) Pero repito no estoy seguro gracias ################################################################ Hel…

Buenas, necesito una macro que me permita abrir un cuadro de dialogo, seleccionar una carpeta y copiar todos los archivos que hay dentro a otro destino. Gracias de antemano Saludos!

Estimados foreros, muy buenos días...ojalá alguien me pueda ayudar... sucede que tengo un gráfico de dispersión (hoja "Estadística_Básica") que necesito dejar con las columnas "fijas" para que se construya el gráfico, estas columnas son las que se leen para crear dicho gráfico, sucede que cuando corro alguna macro para "re-calcular" nuevamente nuevos datos...estas columnas se "resetean" (reset) y cada vez debo volver a seleccionar las columnas para construir el gráfico. Espero me puedan ayudar. Adjunto link para descarga de archivo ya que pesa casi 5mb. Desde ya muchas gracias. https://drive.google.com/open?id=1LIR6TogVXEGWStZ8dGTXMiIYG09pmvqE

Estimados Amigos, Buenas tardes, tengo un archivo que genera pdf a partir de la información que existe en una hoja de excel; que esta a su vez importa información de un archivo *.txt El problema es que al importar estéticamente queda disparejo y sin presentación que valga la pena. No sé si haya alguna forma de importar esta información sin tener que utilizar las opciones establecidas por excel de divir las columnas al importar o copiar el texto directamente. Alguna forma de importar con una macro talvez leyendo el texto del archivo txt, alguna guía o sugerencia? Quedo muy agradecido con todos.. El archivo en cuestión: https://driv…

Buen día a todos Estoy queriendo automarizar a travez de una macro, lo siguiente En la columna "A" tengo unos números de documentos Ej. 3312DCJ1305P(0A1) repetidas veces, en la sfilas 2(dos) hasta la 7(siete), necesito automatizar la eliminación. desde la fila 3(tres), hasta la 7(siete). Y así sucesivamente para este mismo documento 3312DCJ1305P(0B1), solo se diferencian con los datos entre parentisis Adjunto archivo en excel y como debe de quedar en "pdf" Relatorio Foro.xlsx Una Hoja-Foro.pdf

si tengo esta macro Sub ejemplo() valor = 5 NameO = "BaseX" Set Rng = Sheets(NameO).Range("A:A").Find(valor, LookAt:=xlWhole) Sheets(NameO).Rng.Select '<= asi no funciona y coloco separado Sheet(nameO).select y en otra fila Rng.select si lo hace. End Sub pero necesito tomar los vlaores de las filas sin necesidad de selecionar la hoja, como hago eso. Como me posiciono en la celda del valor encontrado y copio toda la fila a otra hoja

Hola amigos de AE. Buenas tardes. Tengo un inconveniente con una macro a ver si pueden ayudarme. Les explico 1. La macro del botón insertar fila, copia y pega la fila 5 en la primera celda disponible de la columna A, se van agregando los datos solicitados y se van insertando filas según sea requerido. 2. La macro funciona a la perfección si la fila 5 está en modo MOSTRAR. 3. Pero como la macro justamente va a copiar la fila 5, esta debe estar oculta para que no sea manipulada y se copie tal como está definida. 4. Aquí es donde está el problema. Luego de OCULTAR la fila 5 y ejecutar la macro, NO se copia la fila. Agrad…

Hola, estoy intentando modificar esta macro para poder obtener una ruta del archivo excel del forma automatica. Cambiar HostFolder = "C:\TestFolder" por la ruta que obtengo de concatenar 2 celdas Sub startIt() Dim FileSystem As Object Dim HostFolder As String HostFolder = "C:\TestFolder" Set FileSystem = CreateObject("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder(HostFolder) End Sub Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim File For Each File In Folder.Files Active…

Buenas a todos de nuevo. Mediante una macro hago un reemplazo de varias cosas en una plantilla de Word. Lo que me falta por hacer es activar/desactivar un checkbox en esa plantilla.

Buenas tardes. Tengo dos filas con distintos nombres en cada columna, y los quiero pasar a una columna sin que se dupliquen los valores, pero no sé como hacerlo. Ejemplo: Tengo estas dos filas con nombres de colores: Fila 1: Azul, Verde, Morado, Rosado Fila 2: Amarillo, Gris, Negro, Azul, Morado, Dorado, Rojo. Y lo que quiero es ir comparando la fila 1 con la fila 2 y que en una columna me coloque los nombres sin repetirlos: Columna 1: Azul, Verde, Morado, Rosado, Amarillo, Gris, Negro, Dorado, Rojo. ¿Cómo puedo hacer esto? Ya que lo que he conseguido con mi código es que al comparar, por ejemplo Azul (Fila 1) con la Fil…

Hola buenas días, Mi consulta trata sobre introducir una variable para un rango de celdas. El codigo es el siguiente Sub Macro1() Dim tablaRef As Range Dim UltimaFila As Long Dim UltimaColumna As Long 'Recogemos valores para las variables de UltimaFila y UltimaColumna UltimaFila = Sheets(Hoja1).Range("C3").End(xlDown).Row UltimaColumna = Sheets(Hoja1).Range("C3").End(xlToRight).Column Set tablaRef = Sheets("Hoja1").Range(Cells(2, 1), Cells(UltimaFila, UltimaColumna)) tablaTarifasRef.Select End Sub Los resultados de las variables UltimaFila = 205 y UltimaColumna = 24 El problema viene al intentar dar a la variable tablaR…

Hola y muy buena tarde foreros, espero puedan ayudarme por favor!!! , tengo un código que he ido puliendo, pero falta un ajuste mínimo creo, ya que no está funcionando algo, que es guardar los cambios antes de cerrarse el o los archivos de formato CSV. El proceso es el siguiente: 1ro. Exporto desde otra plataforma muchos archivos en formato csv (separados por coma) que inician con el prefijo "Mapeo", ejemplo : Mapeo_Sistema1, Mapeo_Sistema2, etc) 2do. Ejecuto el código que pegaré más abajo, éste está guardado en mis macros "PERSONAL.XLSB" y la ejecuto de un botón. 3ro. Se ejecuta la macro, funciona bien, excepto la instrucción donde debe guardar cada uno …

Veamos tengo la siguiente duda se puede capturar un hwnd de cualquier objeto que este en el userform?, por el momento logro esta acción sobre el userform con el uso de api pero no lo logro para por ejemplo un combobox Para la captura del hwnd uso lo siguiente Option Explicit ' declaración api '''''''''''''''''''''''''''''''''''''''''' Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" _ (ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long ' función para la captura '''''''''''…

Hola! Necesito una macro para ajustar celdas combinadas de manera automatica. Ojala me puedan ayudar. Adjunto un archivo con lo que necesito. La informacion es ingresada a las celdas combinadas desde un formulario. pero al abrir el archivo no logro ver toda la informacion ya que la informacion ingresada tiene varias lineas. Gracias de antemano. Ajustar_Celdas_Combinadas.rar

Buenas, Lo primero decir, que me parece genial este foro, que hace poco que empecé con esto de las macros y de la programación en VBA y me habéis ayudado mucho leyendo el foro. Mi problema es el siguiente; Resulta que tengo un libro en excel PERSONAL.XLS donde tengo 3 botones de macro creados. Cada uno con su código y bien enlazados a cada botón. A mi en mi usuario me funciona perfectamente claro. Pero la idea es que estas macros le aparezcan a el resto de usuarios de la empresa. Para ello creamos un recurso compartido (una carpeta en red) llamada Macro y ahí he metido el archivo PERSONAL.XLS y el archivo Excel11.xlb que es la barra de herramientas con los botones. E…

Buen día, agradezco desde ya a las personas que me puedan asistir en esta macro ya que estoy incursionando recién (tarde, pero lo haremos :suspicion: ). La idea de la macro es para una planilla diaria que armo para darle a las cuadrillas bajo mi cargo las tareas del día (adjunto planilla .xls). Lo que tengo pensado armar, es lo siguiente: 1 - Todos los datos de la planilla son cargados manualmente, lo que deseo hacer "automático" por decirlo de alguna manera es que una vez ingresados los datos desde la columna B hasta la columna K, halla un botón que apriete y me pregunte la fecha que quiero colocar, llenando de esa manera la columna A. Simplemente eso, desde ya le ag…

hola buenas noches estoy desesperado ya que no se trabajar con macros, pero tengo que hacer un proyecto de una grafica de gant en macro ya la realize pero en la macro no grabe la grafica por que al ejecutarla me daba error y la duplicaba primero hice la grafica y luego empeze a grabar mi base, mi duda es que en la hoja que esta la macro le doy ejecutar no me da error, pero si la habro en la segunda hoja me da erro y no me copia la grafica me pueden ayudar es para mañana mi proyecto saludos

Buenas tardes a todo el mundo. He estado investigando y se que se pueden copiar/pegar archivos de una ruta a otra mediante macro. No he conseguido encontrar solución para mi problema. En una carpeta llamada Registros, se me generan una o varias carpetas. El nombre de estas carpetas siempre varían y dentro de estas subcarpetas hay archivos con 2 extensiones, .doc y .xls. con nombres que también varían. Como podría coger todos los archivos con extensión .doc y pasarlos a una nueva ruta? O sea, que todos los archivos dentro de las carpetas que hay en la carpeta registros, me los copiase a otra.También me serviría que me copiase los dos tipos de archivos. Gracias por vuestro …

Tras validar el llenado de los campos obligatorios, se debe mostrar un formulario que tenga forma de recibo, donde se muestren los datos ingresados anteriormente. En el archivo que adjunto se muestra un ejemplo de cómo debería quedar el formulario. Espero me puedan ayudar, Muchas gracias. REgistross.zip

Estimados soy nuevo en esto de las macros que he leído y avanzado mucho en lo que deseo realizar el problema es que no puedo hacer que el formulario para ingresar datos si le falta alguno no deje copiar los datos a la planilla y envié un mensaje " que falta un dato antes de copiar" o algo así intente así pero solo me entrega el mensaje falta llenar folio If Range("D12").Select = "" Then Else: ActiveWorkbook.Save MsgBox "Falta llenar el Folio", vbCritical, "DATO VACIO" Cancel = True End If Gracias por su ayuda validador de dato ayuda excel.rar

buenas tardes, necesito cerrar un userform desde un botton de otro userform por ejemplo algo como esto que pense pero no me funcion userform1 unload muchas gracias por la ayuda