Estimados del foro. Tengo un requerimiento puntual y estoy empantanado en el proceso del tipo importación de datos. Para el caso debo importar los datos desde unas tablas Paradox 5, y estos datos luego clasificarlos y graficarlos. el una planilla dependiendo el cliente seleccionado, todo con macros y automatico. La idea es conectar las tablas, generar la consulta y extraer los datos resultados, que es como indique, el proceso a resolver.. ¿Alguien puede guiar a este humilde servidor?. Muchas gracias

Buenas noches, gusto de saludarles. He estado revisando los diferentes aportes pero no he encontrado, lo que realmente necesito. Por ello es que solicito vuestra comprensión y ayuda. Requiero de una macro que: Liste los archivo de la carpeta que seleccione, y de todas las sub carpetas que contenga esa carpeta, y que obtenga los datos que indico en la cabecera: Nombre del archivo, ruta, carpeta, extensión o tipo, y los muestre en una hoja según el archivo. PD.: la carpeta se debe escoger en una ventana similar a la imagen que muestro en el archivo adjunto. Gracias anticipadas por la atención Callao2908 Listar carpetas y archivos.xls

Hola. Necesito eliminar todos los objetos de todas las hojas de un libro. Tengo una macro que elimina todos los objetos de la hoja activa, pero necesito que lo haga para todas las hojas. Podría ir hoja por hoja, pero mejor en una macro. El código que tengo para la hoja activa Sub BorraObjetos() Dim n As Integer Dim Objeto As Object n = 0 For Each Objeto In ActiveSheet.Shapes Objeto.Delete n = n + 1 Next Objeto MsgBox n & " objetos eliminados.", vbInformation, "Hojas" End Sub [/CODE] Agradezco la ayuda. Gracias.

Estimados amigos del foro, con el apoyo de los expertos de Ayuda Excel he podido avanzar a realizar un formulario para seleccionar preguntas manualmente y luego de escogidas poder enviar a la hoja para realizar la prueba de examen. Esta ultima parte no he podido hacer que me Funcione. Por lo tanto acudo nuevamente a sus nobles conocimientos. Expongo el funcionamiento del archivo que subo. Al activar el formulario se escogerá las preguntas que se desea aplicar en el examen Luego pinchamos en el botón seleccionar, y se observara que otro formulario nos muestra lo seleccionado y también las opciones A, B, C y D ademas de la Respuesta Correcta que están en listboxes . El b…

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.

buen dia el problema que tengo es el siguiente: ocupó este código para registrar información en una base de datos de excel, el problema que tengo es que a la hora de hacer funcionar el código por medio de un botón, tarda mucho en registrar porque la base de datos ya tiene 5,345 registros. quiero suponer que el problema está a la hora que busca la ultima fila vacía, hasta que la encuentra registra. Dim ifila As Long Dim ws As Worksheet Set ws = Sheets("BDPAGOS") ifila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(ifila, 1).Value = Me.NOFACTURA.Value ws.Cells(ifila, 2).Value = VBA.CDate(Me.FECHAPAGO.Value) ws.Cells(ifila, 3).Value = Me.BANC…

¿Libro bueno para principiantes Macros y VBA con muchos ejemplos?

Hola a todos.Estoy realizando un formulario donde pueda hacer mantenimiento a pedidos, productos, clientes entre otros. Ya encontré la solución para el listado, pero para agregar, editar y eliminar datos tengo una idea poca clara debido a que si se agrega uno o mas datos se debería hacerse consecutivamente(1 a n datos), si se edita debería editarse solo con los datos editados(1 a n datos) asimismo al eliminar debería hacerse solo con los datos que quisiera eliminar(1 a n datos) en mi formulario.Lo que deseo es que se optimice en rapidez y tamaño de archivo excel los mas que se pueda si se llega a utilizar una gran cantidad de datos.Les dejo el comprimido donde esta el arc…

amigos tengo una duda......... tengo la siguiente macro. Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False On Error Resume Next foto = Range("b1").Value ActiveSheet.Image1.Picture = LoadPicture("D:\FOTOS SISTEMA\" & foto & ".jpg") With ActiveWindow.VisibleRange Image1.Top = .Top + 5 Image1.Left = .Left + .Width - Image1.Width - 45 End With End Sub me ejecuta muy bien........ solo que cuando no esta la foto...... me carga la anterior...... lo que quiero es que cuando no este la foto me muestre el cuadro gris..... ... que se puede hacer...... mil gracias......

Buenos días, soy nuevo en el manejo de macros. quisiera que me ayudaran identificando donde esta el error en el procedimiento, ya que me saca el siguiente error: Se ha producido error "1004" en tiempo de ejecución. no se puede obtener la propiedad VLookup de la clase Worksheetfunction; sin embargo la macro se ejecuta correctamente. la instrucción es: Private Sub ComboBox4_Change() Dim Horacita As String Dim Rango As Range Set Rango = Sheets(5).Range("A2:B174") Horacita = Application.WorksheetFunction.VLookup(Me.ComboBox4.Value, Rango, 2, 0) HoraProgramada = Horacita End Sub Cuando le pido que depure me señala el texto resaltado en rojo, pero no encuentro el erro…

Hola, espero puedan ayudarme, podrian generar un tutorial no solo para mi si no para el resto de personas que lo desearan, ya que el conocimiento debe de ser compartido: en este link esta el excel que desearia con Visual Basic y macros. Espero puedan ayudarnos a los que no sabemos como realizarlo.

hola, como puedo generar claves o serial de licencia en vbaexcel para un aplicativo demo con determinado tiempo o contador de uso, que al ingresar en una caja de texto me desbloquea y no me vuelva aparecer mas el formulario de clave o serial. Bueno las claves tendria que enviarle yo por correo. Saludos se agradece su ayuda.

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…

Buenas tardes, a ver si alguien me puede ayudar, he estado buscando por el foro pero no encuentro lo que necesito. Tengo un archivo con celdas de color por formato condicional y necesito una formula o macro que me cuente los colores juntos y por separado, gracias a todos y un saludo CONTAR CELDAS COLOR.xlsx

Hola a todos: ¿ Podría alguien explicarme porqué no se carga el combobox de la hoja RUTAS al abrir el libro ? La carga del combobox esta condicionada a que se dispare el evento Activate de la hoja RUTAS, cosa que fuerzo en el evento Open del libro. Si después de abrir el libro, seleccionamos la hoja BASE DE DATOS y luego la hoja RUTAS de forma manual, entonces si carga el combobox. Estoy harto de usar este sistema para llenar los combobox/listbox en las hojas y nunca me había pasado esto. No busco alternativas, que las hay, busco el porqué. Gracias y saludos Copia de Reporte.zip

Hola a todos! He buscado por aquí y por la web y no he visto nada resuelto. Necesito mover unas carpetas con lo que contienen a otra u otras. El listado de los archivos y documentos con su ruta lo tengo. ¿Tiene alguien hecho alguna macro sobre esto? Muchas gracias. Un saludo

hola, no encuentro la forma de completar textbox de un userform en vba excel desde sql server por favor ayuda gracias

buen dia, hola tengo una super duda, pues como lo dice el titulo requiero pasar datos de un listbox a otro, lo que sucede es que la verdad me cuesta mucho trabajo el utilizar listbox porque me confundo mucho con respecto a los items y el manejo de las columnas e indices, trate de hacer un ejemplo pero no me queda porque solo logro pasar un item a una sola columna del listbox pero quiero que se pase tal cual sea lo que haya en el listbox1 al listbox2 ya que en un futuro pretendo agregar mas cosas en el listbox2 mas lo que ya venia del listbox1. espero darme a entender, dejo el archivo muestra. Saludos listbox aotro listbox.rar

Hola compañeros del foro, Me gustaría que al seleccionar una hoja, no se pueda seleccionar ninguna celda de la hoja. Para ello, estoy probando con el método "ActiveSheet.EnableSelection = xlNoSelection", pero no me funciona. En cambio si protegemos la hoja, entonces si que funciona correctamente: ... With ActiveSheet .Protect Password:=contraseña, _ DrawingObjects:=True, _ Contents:=True .EnableSelection = xlNoSelection End With ... Pero yo no quiero proteger la hoja, simplemente quiero que no se pueda seleccionar ninguna celda (si es que se puede hacer eso...). Agradezco…

Hola amigos de AE, estoy tratando de unificar dos macros en una sola ya que tienen los mismos eventos pero no logro hacerlo. A ver si me pueden dar una mano. La macro fue creada por Haplox y funciona a la perfección, pero me he dado cuenta que la finalidad de la macro también debe aplicarse a las columnas E y F de la hoja LISTADO GENERAL en función de los datos reflejados en la columna D (DATO 4) de la hoja COLORES. Es decir, por ejemplo, el valor reflejado en D5 correspondiente a SUB AMARILLO de la hoja COLORES, debe actualizarse de manera automática cada vez que este valor cambie. Cabe señalar, que D5 y siguientes se actualiza automáticamente de la hoja AMARILLO y …

Me gustaría que me solucionarais un problema con excel 2003. Necesito una macro que compare la columna A de la hoja 1, con otra columna A de de la hoja 2. y si son iguales la celdas que copie la celda que corresponde con la fila de la Hoja 2 columna B a otra celda de la hoja 1. muchas gracias Libro1.xls

Hola amigos tengo ya un buen de tiempo tratando de solucionar este detalle que tengo con una macro que busca datos por fecha y texto, les dejo el archivo con las instrucciones necesarias para su análisis y espero contar con su ayuda. gracias https://mega.nz/#!XMRR0KwJ!XTEuNYjMjwzv79l1OmOn9P9PSi_bPx8U8fSAevHrxyw

Buenas, Tengo una macro, la cual me envía los correos y su adjunto, pero a la hora de adjuntar el archivo, tengo que ir uno por uno. Hay un botón que me lleva a la carpeta y selecciono el pdf, luego en la casilla de alado se escribe la ruta del archivo. Como podría hacer para traerme cada documento a la persona que corresponde con macro? Copio la macro '***Macro Para enviar correos Sub correo() 'Por.Dante Amor col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam = CreateObject("outlook.application").createitem(0) dam.To = Range("B" & i) 'Destinatarios dam.CC = Range("C" & i) 'Co…

Buenas tardes; Estoy intentando sacar por vba la fecha de captura o la fecha que aparece en un explorador ( Windows ) de unas fotos pero no lo consigo. Los datos que saco son: La fecha de creación. ( .DateCreated ) La fecha de modificación. ( .DateLastModified. ) La fecha del ultimo acceso. ( DateLastAccessed ) y ninguna de esas fechas es ( adjunto pantallazo en el Excel adjunto de las fechas que salen en el explorador ). alguien sabe como lo puedo sacar??. muchísimas gracias. Libro2.xlsx

Hola soy nuevo en esto pero tengo un problema con una macro que estoy corriendo, la macro se corre al momento de hacer un cambio en la celda (A1) y si funciona la macro pero me aparece el mensaje de Run-time error '13': Type mismatch y pues no se a que se deba esto, si me pueden ayudar se los agradeceria mucho les dejo el codigo y marcado en rojo donde me aparece el error cuando le doy debug: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells = Range("A1") Then Call prueba End Sub Gracias!! pivottable filters (test)01.zip