Hola a todos, tengo 2 PC con Windows 7 de 32 bits y Excel 2010 y MySQL 6.2. A estos 2 equipos ya le instalamos los conectores "mysql-connector-odbc-3.51.30-win32.msi" y "mysql-connector-odbc-5.1.13-win32.msi" (instalé 2 para ver cuál me funcionaba). He conectado Excel con MySQL dentro de la misma PC, es decir, con la base de MySQL que se encuentra en la misma computadora donde hice la conexión (localhost), pero no lo he logrado de una PC a la otra PC. Debo decir que tengo conocimientos muy básicos de MySQL y redes. Lo que pretendo es conectar mi Excel con la base de MySQL de la otra PC para traer una tabla, hacer modificaciones y regresarla a MySQL, todo esto mediante Exc…

Buenas Tardes, He intentado de varias formas pero no he podido lograrlo, espero que se pueda hacer, lo que quiero es de un listbox seleccionar un grupo e ingresar la misma información simultáneamente a todos los seleccionados. De antemano agradezco a todos y adjunto el archivo junto con una imagen que ayudara a explicar mejor. Saludos! Ejemplo.xlsm

Buenas tardes amigos. Tengo una duda. Estoy usando el siguiente codigo para colocarle clave de activacion a un boton que esta en la hoja de excel (el codigo funciona perfecto), pero no encuentro una manera de ocutar la clave cuando se ingresa. Habra alguna forma de que no se vea lo que se digita ? 'Caja para el ingreso del Password para poder borrar ultimo registro Dim PS As String Dim PS2 As String PS2 = "clave" PS = InputBox("Por favor ingrese su Password") If PS = PS2 Then 'Fin de la caja Agradecido de antemano por vuestra ayuda

Buenos Días: Se me esta presentando un error al ejecutar un formulario, el error es: Se ha producido el error -2147467259 (80004005) en tiempo de ejecución : Error no especificado . Quien me pueda colaborar o guiar como solucionarlo. Este error me sale cuando ejecuto esta procedimiento en el TRMAnt.SetFocus Private Sub VlrProfAnt_afterupdate() If Not IsNumeric(VlrProfAnt.Value) And VlrProfAnt.Value <> vbNullString Then VlrProfAnt.SetFocus MsgBox "El Valor ingresado no es numerico" Else VlrProf = VlrProfAnt.Value TRMAnt.SetFocus End If End Sub Muchas Gracias por su ayuda para saber como corregirlo.

Buenas tardes a todos, tengo este archivo que me lo pasaron por correo, lo utilizo para procesar un gran volumen de información en separar los apellidos de los nombres, es una macro , pero pasa que del país del cual soy hay muchos nombres compuestos, en relación a los apellidos, como por ejemplo; gonzales cerna de garcia juliana ó gonzales cerna vda de garcia juliana ó gonzales vda de garcia juliana ó gonzales de garcia juliana,. de esta manera es la etiologia de los apellidos en mi pais y lo que necesito es poder ver la forma de como modificar esta macro, pero no conozco de macros, por ende les pido por favor que me puedan indicar donde debo de modificar la macro …

Hola, Para realizar un inventario, he creado un userform con varios combobox y textbox y un image para seleccionar una imagen. Cuando completo todos los campos y pulso el botón correspondiente, los datos y la imagen se añaden a las celdas de la primera fila sin datos de la hoja. Así sucesivamente. Mediante dos botones del userform puedo subir y bajar por las filas de mi inventario y ver, a su vez, los registros en los controles. El caso es que he creado un botón eliminar, para eliminar la fila que contiene un registro que quiero dar de baja, pero no me elimina la imagen!! Llevo varios días buscando información sobre imágenes y su manipulación en visual basic, pero n…

Buenas llevo días trabajando sobre una macro la cual realiza varios calculos, obtiene datos, etc. El problema es que cuando la ejecuto excel aparece como no responde. Tarda bastante y no veo que coja todo los recurso del pc. Dicho esto lanzo mis dudas. *Viendo esta programación creéis que es normal no espero que la entendáis, la idea es daros una visión del volumen . Private Sub CommandButton2_Click() Dim variable As String Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False numero_de_cables = Application.CountA(Worksheets("Cable list ").Ra…

Buenos días, Me estoy volviendo loco a la hora de ordenar los valores de 3 columnas con un orden determinado. Encontré una macro por la red que funciona, pero a la hora de la verdad, cuando hay más datos es muy lenta. Me explico: En un excel tengo 3 columnas con datos: Modo, Frecuencia, Origen. Estos valores los paso a una matriz, y ahora quiero ordenar esta matriz de menor a mayor modo y frecuencia. Es decir, si tengo Modo Frecuencia Origen 8 1560 Direct 7 1560 Direct 8 1560 Direct 8 1560 WEH -2 1560 WEH 3 720 Direct 4 …

Hola Amigos de AyudaExcel; No encuentro la forma de lograr que la altura de la fila 3 del adjunto sea tal que permita ver todo el contenido de la misma a menos que la cambie en forma manual. La pregunta es: ¿Se puede hacer una macro para cambiar/aumentar la altura de la fila 3, permitiendo ver todo el contenido de la misma? De antemano gracias por la ayuda que me puedan dar. Gabriel Altura de la Fila.xls

Buenas, es mi primer post y bueno me voy adentrando a la programación en excel. tengo una duda es que yo tengo un archivo en el cual aplico este codigo para borrar una columna y una fila innecesaria ya que yo solo necesito los datos para despues subirlo aun servidor sql.. Sub prueba() ' ' 'prueba ' ' Rows("1:1").Select Selection.Delete shift:=x1UP Columns("A:A").Select Selection.Delete shift:=x1toleft Selection.NumberFormat = "yyyy-mm-dd;@" End Sub [/CODE] el problema es que en la tabla la columna "A" hace el cambio de formato pero para que se vea visible debo darle "f2+enter" y asi consecutivamente hasta que se actualize todos los campos y hablamos de …

Saludos amigos del foro, he tratado de realizar una importación acorde a los seleccionado en combobox dependientes. Es decir si selecciono solo en el combobox1 se mostrará todo lo relacionado a la selección pero si tambien selecciono en el combobox2 me gustaria que se con esa indicación y las columnas según lo mostrado en el archivo destino ejemplo. La macro esta funcionando solo cuando se selecciona el archivo y se pulsa el botón abrir, pero falla cuando se cancela he tratado de resolverlo pero no responde. Acudo al foro para alguna colaboración al respecto Agradezco anticipadamente el apoyo Subo los dos archivos para que lo vean Prueba8 ImportarDa…

Alguien tiene un modelo de un Dashboard (tablero de control) hecho utilizando éxcel VBA? Necesito para el modelado de uno utilizando controles. Gracias :05.18-flustered:

Hola a todos muy buenos dias como estan! A los grandes maestros de este grupo, queria consultar por una macro que estoy usando para buscar archivos en una carpeta, actualmente la macro me funciona, recorre todos los archivos dentro de una carpeta pero no que no logre es que si hay subcarpetas entre tambien a las sub carpetas, asi que tengo que hacerlo uno por uno aun asi seleccionando carpeta por carpeta, es muy muy muy lento?.... demora 11 minutos en ejecutarse para evaluar por ejemplo una carpeta con 600 archivos... me gustaria saber si existe o no una forma de optimizar para que demore menos... porque lo que necesito es evaluar MUUUUCHAS CARPETAS con …

Hola Amigos, un saludo de antemano, espero que estén todos bien y sus familias. tengo cierto inconveniente con una libro y es que quiero que de un listado de productos, si dicha fila del listado no tiene ninguna cantidad solicitada en la parte derecha que la oculte al momento de imprimir, pero si tiene una cantidad pues que si la imprima, por favor gracias, muchas gracias si me pueden ayudar con una macro para esto. "Bueno en caso de que no se pudiera entonces quisiera que se eliminara la fila que cumpla esa condición, y pues así solo quedarían las filas con información." a continuación me permito anexar el archivo y dejo los comentarios en el archivo para…

Hola a todos, tengo una macro de excel que me genera un informe a Word, el proceso se basa en copiar la celda y pegarla en el word que genera la Macro. Lo que quiero realizar es que cuando la celda no tenga ningún valor o no tenga nada escrito (ya que algunas son funciones logicas donde un resultado sera un "texto" o "" y en otras simplemente no habra nada escrito) solamente quiero que la macro copia y pega dicha celda cuando se tenga texto. Esta es la Macro: ------- Sub Botón44_AlHacerClic() ' Botón44_AlHacerClic Macro ' Macro grabada el 26/06/2012 por nn ' Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Add Worksheets("Auditoria S…

Hola buenos días amigos de Ayuda Excel Un excelente colaborador de AE me ayudó con los 2 códigos grandes incluidos en la hoja COLORES y que funciona de manera correcta. Como medida de seguridad he incluido un código en la hoja COLORES para evitar el cambio de nombre de la hoja, sin embargo, al verificar su funcionamiento arroja el error 9 en tiempo de ejecución, subíndice fuera de intervalo, resaltando en amarillo la sexta línea del primer código grande: If Not Intersect(Sheets("COLORES").Cells(ActiveCell.Row, ActiveCell.Column), Range("A1:A" & uf + 1)) Is Nothing Then Hay otra forma de evitar el cambio de nombre de la hoja sin que afecte la otra …

buenas tardes sólo tengo algunas nociones de vba pero consultando la web he creado una macro mi macro pretende abrir una página web y extraer algunos datos y copiarlos en una hoja excel la página requiere la inclusión de un usuario, contraseña y un CIF he logrado automatizar la apertura de la página principal, desplazarme a otra página de la misma web pulsando un enlace, incluir en ésta el usuario, contraseña y CIF y validar los datos pulsando el botón oportuno en este punto se muestran parte de los datos a importar a Excel en este punto no sé cómo seguir y se me plantean tres problemas 1º. Cómo selecciono la página que contiene los datos para importarlos a excel.…

Buenos Días, necesitaría generar un archivo “txt”, con datos de una hoja de Excel. Esto seria posible con una macro.? ¿Me podríais ayudar? Dejo en un archivo lo que necesitaría. Saludos. Gracias Ejemplo.xlsx

Buenas tardes a todos! He estado curioseando por el foro y por internet largo y tendido y no he sabido encontrar una solucion a lo que estoy buscando. O por lo menos no la he sabido aplicar bien. De estos dos temas he logrado extraer lo poco que he hecho, pero que está mal resuelto por mi parte, y no se como seguir: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-boton-que-actue-igual-que-guardar-como-22639/[/HTML] [HTML]https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-guardar-sola-hoja-libro-22283/[/HTML] Lo que estoy intentando conseguir es lo siguiente: - Tengo un libro protegido contra escritura con multitud de ho…

Buenos días de nuevo. Siguiendo con el formulario de la orden de trabajo, se me presenta otro tema que he buscado en el foro y he visto algunos parecidos, pero tampoco he conseguido adaptarlo a mi caso. Me explico; necesito calcular las horas transcurridas entre dos fechas y horas distintas. y que vuelque el valor en un textbox. Subo un fichero con un pequeño ejemplo de lo que necesito. Un saludo y muchas gracias de antemano. Prueba calculo horas transcurridas.rar

Buenas: Estoy intentando programar para que se copie automáticamente una tabla de excel en un documento word determinado, pero tengo dos problemas: 1. Me gustaría que se copiara en un lugar determinado del doc word, no al principio. 2. Se pega como Imagen (Metarchivo mejorado) que es lo quiero pero lo hace en un tamaño pequeño, no llena todo el ancho (que es lo que me interesa). Sub Excel_aWord() 'Copia el rango de Excel seleccionado en un nuevo documento Word Range("b4", "y30").Select 'copiar rango selecionado Selection.Copy 'Crea nueva aplicación Word Dim swMSWord As Word.Application Dim wDoc As Word.Document Set swMSWord = New Word.Application With swM…

Hola amigos De nuevo solicitando su apoya para resolver un tema, al filtrar ciertos datos y requiero copiar la información para procesarla solo que cuando no hay datos se produce un error 1004 como podria condicionarla con un if thense Sub copiar_filtro() ActiveSheet.Range("$A$5:$D$11").SpecialCells(xlCellTypeVisible).Copy End Sub Sub filtro() Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value End Sub filtro vacias.xlsm de antemano gracias

Saludos, deseo consultar si existe alguna macro que se dispare al momento de imprimir para que en algunas hojas de un libro se vea en la impresion un texto tipo marca de agua Gracias

Hola Tengo una macro que selecciona unas ciertas hojas de todo el libro y me las convierte en un pdf, siempre hasta ahora han sido las mismas. Mi intención es que una de las hojas de la selección sea variable, es decir, que en función del dato (dígase año) ubicado en una celda de la hoja de referencia (Hoja Portada Celda C1), seleccione la hoja de ese año, es decir, que si en C1 dice 2018, la hoja a seleccionar e incorporar en el pdf sea la 2018 y si dice 2017 incorpore la 2017 y etc.. Esta es un trozo de la rutina que tengo y el problema lo tengo en cómo le dijo que me seleccione e incorpore la hoja con el mismo valor de la hoja Portada Celda C1 (zona en negrit…

¡Buenas tardes! Quiero que una matriz contenga los datos de una lista de 147 filas y 3 columnas.. El caso es que si utilizo for each matriz in selection, se me guarda cada celda tres veces cuando intento usar este bucle para tal fin: Worksheets("listacamioneskm").Select Sheets("listacamioneskm").Cells(1, 1).Select Selection.CurrentRegion.Select For Each matriz In Selection For indicematrizfila = 0 To 146 Step 1 For indicematrizcolum = 0 To 2 Step 1 listacamioneskm(indicematrizfila, indicematrizcolum) = matriz.Value indicematrizcolum = indicematrizcolu…