Macros y programación VBA

Hola les pido su ayuda con lo siguiente... tengo un formulario en Excel que me ayuda a actualizar un catalogo de fotos Web estas fotos están en una tabla de una base de datos Oracle, la macro que utilizo estaba funcionando bien hacia el cambio sin problemas solo que debido a otros problemas tuve que reinstalar el SO en mi equipo y al querer usar de nuevo esta macro ya no funciona, si actualiza la información pero no termina se queda congelado Excel. Esta es la Macro que utilizo: Sub SubirFoto() Dim sql As String Dim m_stream As Object Dim cn As Object sql = "select foto from prueba_fotos where num_empleado=44163" Set cn = CreateObject("ADODB.Connect…

Buenas tardes, me he encontrado con este error (foto) y no he podido dar con cual puede ser la raíz del problema. El archivo adjunto tiene una macro, su función es no escribir todo el reporte (todos los campos) solamente con llenar los campos azules y darle al botón Llenar Reporte, llena los demás datos automáticamente, los links de referencia hacia donde extrae la información están correctos los verifique bien, y si me extrae los datos cuando le doy en No. UT y después le doy al botón Llamar y me consulta bien. No se que pudiera ser, si alguien por ahí le da un review a la macro, como quiera yo estoy modificando, si encuentro el detalle lo comentare, a ver si …

Buenas TardesTengo una archivo con una macro que sin importar si se usa mayúscula o minúscula me cambia toda la información a mayúscula excepto en celdas donde ese escribe el e-mail hasta ahí todo va bien, pero necesito que para el caso del esa celda donde va el correo siempre sea minúscula, adicional a esto también que la celdas donde va el número de identificación, el numero de teléfono y el número de cuenta me elimine los espacios intermedios si los escriben con espacio, que en la celda donde va el número de la cuenta también me elimine los guiones si lo escriben esos caracteres y además que si se va trabajar sobre un archivo con datos al momento de sobrescribir el pri…

Hola de nuevo. Llevo mucho rato probando y leyendo y no veo manera de salir de esta. Tengo una consulta sql que construyo concatenando Textbox que no me acabo de funcionar bien. Quiero usar Like y la "*" y no veo forma donde ponerla. La ponga donde la ponga o me da error de sintaxis o otros errores. Tal y como tengo el código solo me funciona si el valor que pongo en el Textbox es EXACTO, pero yo quiero que con solo poner parte de la cadena que filtro sea suficiente, por eso intento usar Like. Os agradezco la ayuda, en definitiva necesito saber como construir la consulta usando "*". Este es el código: Private Sub CommandButton1_Click() 'macro que …

Hola, necesito ingresar a una página,. Para ello necesito adjuntar dos documentos de autentificación, sin embargo, no he logrado hacerlo. Ayudaaa La página es https://wwwmat.sat.gob.mx/app/seg/faces/pages/lanzador.jsf?url=/operacion/20777/consulta-tu-opinion-de-cumplimiento-de-obligaciones-fiscales&tipoLogeo=c&target=principal&hostServer=https://wwwmat.sat.gob.mx Allí se encuentra el código fuente. El error se encuentra al adjuntar los archivos, pues la página no los reconoce como adjuntos... Direc = "https://wwwmat.sat.gob.mx/app/seg/faces/pages/lanzador.jsf?url=/operacion/20777/consulta-tu-opinion-de-cumplimiento-de-obligacio…

Hola Quiero saber cómo puedo hacer una macro para el siguiente problema que se me presenta. Estoy tele trabajando desde casa y no tengo otra posibilidad de ayuda que la vuestra. Tengo Hoja 1 y Hoja 2 En la hoja 1 tengo los datos ejemplo en B2,B3,B4,B5,B6,B7 En la hoja 2 tengo fórmulas que son recogidas desde la Hoja 1 es decir de B1 y genera 6 líneas de datos en esta con esa serie de datos. ( cada dato de la hoja 1 genera 6 líneas en Hoja 2 ) Necesitaría que copiaría estas 6 líneas, tantas veces como datos tenga en B la hoja 1. Si hago un copiar, no me funciona ya que la tener 6 líneas del las formulas en el que esta B2 me va al B7…

Hola!! Necesito añadir una búsqueda igual para la columna de autonomía, en la que yo pueda poner Sí y me aparezcan los usuarios que si tienen autonomía, y todos sus datos, al igual que pasa con la edad, lo quiero poner con la autonomía. Me urge hacerlo!! Gracias!! Búsqueda de usuarios.xlsm

buenas noches mi pregunta es la siguiente he estado buscando en internet pero no encuentro nada, lo que busco es una macro que me pueda dejar usar la imagen (del cuadro de herramientas) como boton de comando?

Buenas tardes amigos. Necesito ayuda con una macro que después de funcionar durante un par de años sin problema en entorno Excel 2010, ahora al haber cambiado a Excel 2016 se ejecuta incompleta. La macro debe copiar y guardar una selección como imagen jpg (lo cual hizo a la perfección hasta ahora) y probandola en el editor paso a paso(F8) lo hace correctamente, sin embargo al ejecutarla mediante el botón que tengo en la barra de herramientas me genera una imagen en blanco, o sea no pega el contenido del rango seleccionado. He revisado la configuración de Excel, pero parece que no doy con el fallo, por lo cual os pido ayuda ya que necesito utilizar esta macr…

Como puedo vincular un string a internet desde una variable string. ej.: LIGA="https://ayudaexcel.com/foro/search/?q=url&quick=1" Gracias

Hola compañeros, tengo una consulta rápida que haceros: Quiero mostrar el nombre del mes según el número, y tengo la siguiente macro: MsgBox "Estamos en el mes: " & Month(Now) & vbCr & "Estamos en el mes: " & Format(Month(Now), "mmmm") Sin embargo, me muestra la siguiente información: Obviamente, el mes número 3 se corresponde con el mes de MARZO y no de ENERO. Agradezco cualquier tipo de ayuda. Muchas gracias por vuestro tiempo. Saludos.

Hola, tengo el siguiente código asignado a un Botón de "Eliminar" dentro de un Formulario en Excel, quisiera agregarle la parte de confirmación, donde me pregunte "Confirma eliminar el registro" Si - No, y ahí me perdí un poco, agradecería mucho su ayuda. ------------ Private Sub BT_Eliminar_Click() Me.BT_Agregar.Enabled = True Dim FILA As Object Dim Linea As Integer Dim NumeroFila As String NumeroFila = Me.TextRolPatente Set FILA = Sheets("Basedatos").Range("B:B").Find(NumeroFila, LOOKAT:=xlWhole) Linea = FILA.Row Range("B" & Linea).EntireRow.Delete MsgBox "El registro fue eliminado" Me.TextRolPatente = Empty Me.T…

Buenos días, Favor me podrían ayudar si hay alguna macro que me permita seleccionar varias celdas que yo escoja y la suma total poder pegarlo en otra celda que yo elija , quedo atento a su conocimiento.

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…

hola a todos. necesito hacer un macro al cual le ingrese 6 números del 0 al 9 y de esos 6 haga combinaciones con 3 números. que a la final serían 60 combinaciones de los 3 numeros. muchas gracias...

Buenas tardes, tengo desarrollado una serie de formularios de búsqueda, bajo distintos criterios buscan en la tabla excel y muestran los datos de las lineas que correspondan en un listbox. El caso es que si bien la búsqueda la realiza bien, en el listbox aparecen después muchas lineas en blanco que no tengo muy claro como quitar, si alguien pudiese echarme un cable estaría muy agradecido. Un saludo Empresas.zip

Buenos Noches para todos los compañeros estuve realizando una macro para actualizar 8 tablas dinámicas y al momento de ejecutar la macro me genera un error " Se ha Producido el Error 1004 en tiempo de ejecucion" y me sale error definido por la aplica Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> "$b$5" Then Exit Sub Application.ScreenUpdating = False 'Actualiza las tablas ActiveSheet.PivotTables("TD1").PivotCache.Refresh 'Actualiza el año de todas las tablas dia = Hoja3.Range("B5") ActiveSheet.PivotTables("TD1").PivotFields("Dia").CurrentPage = _ dia ActiveSheet.PivotTables("TD2").PivotFields("Dia").…

hola buen dia Por favor ayuda para mejorar el codigo deL boton actualizar, ya que cada vez que ingreso el codigo en el campo item me toca oprimirlo para que me traiga los datos. Lo que busco es que tan pronto tenga los numeros de item que deseo registrar, actualice la informacion que corresponda. Agradezco vuestra ayuda. Exitos en sus labores. prueba v2.rar prueba v2.rar

hola soy nuevo en este foro, asi que les agradecere la ayuda prestada. actualmente tengo el problema que hay un catalogo de internet del que tengo que descargar informacion, pero lo actualizan constantemente, por lo que pierdo horas enteras en actualizar la informacion. lo que me gustaria es crear un macro que me ayude a pasar y organizar esta información dentro excel. aqui les dejo un esquema de la configuracion que tiene la pagina. [ATTACH]34815.vB[/ATTACH] como pueden ver en la tabla 1 (t.1), es donde estan las categorias y al dar click en estas aparecen los diferentes artículos (t.2, t3, etc.) y al final, anda la lista de paginas que compone esa categoría. lo q…

Hola amigos del foro, soy nuevo en excel y tengo una consulta que espero me ayuden. Tengo una base de datos de miles de registros en forma vertical de números telefónicos, ejemplo: (+51) (01) 561-9190 (+51) (01) 366-1430 (+51) (01) 373-6587 lo que me gustaria es que me puedan ayudar con una macro donde elimine el (+51) (01) y el - donde al final el resultado sea 5619190 3661430 3736587 considerando que en el (+51)_(01)_561-9190 hay dos espacios donde le he colocado _, espero me ayuden es para mi trabajo, desde ya muchas gracias, feliz navidad.

Hola. Ante todo muchas gracias por todas sus respuestas y sus aportes. Mi problema es que tengo una hoja donde hay una especie de calculadora de puntos de una actividad deportiva y quiero copiar el resultado en una celda que yo elija. Consigo, mediante una macro, hacer un copiado especial , pero solo en una celda determinada. Lo que quiero es elegir a que celda copio. Si alguien me puede ayudar le estaré muy agradecido. Gracias de antemano. EJEMPLO COMPUTO DIANAS.rar

Buenas tardes tengo un problema que no he sabido solucionar preguntándole a San Google. A ver si me podeis echar una mano. Tengo diferentes archivos de excel denominados con los nombre de cada trabajador. En ellos van apuntando sus actuaciones de trabajo y son personales y mensuales. A final de mes me los envían y me gustaría tenerlos unificados en uno sólo para luego tener una tabla dinamica global. NO quiero que todos utilicen el mismo archivo sino que cada uno tenga el suyo. He creado un archivo separado denominado "Control general de horas" donde quiero que me inserte todos los campos de los distintos archivos que los trabajadores han ido creando. en este caso "L…

Hola Amigos, si alguien me puede ayudar con esto estare muy agradecido, es algo pequeño solo es un detalle, lo que pasa que tengo una macro que me muestra filas ocultas, cuando se completan las filas anteriores, la macro la tengo hecha pero lo que me falta es poder dejarla automatica, para que cuando van cambiando los datos y completando las filas, no tenga que ejecutarla de forma manual, una muestra de ella la voy a adjuntar, ojo que solo necesito mostrar no necesito ocultar saludos y gracias a quien me pueda ayudar mos.rar

buenas mi pregunta es simple, como puedo insertar un formato numero en vez de formato fecha en una celda de criterio en donde se ingresa la fecha para realizar un filtro el codigo para el ingreso de los criterios del filtro es este If Target.Address(False, False) = "C2" Then If Range("C2").Value = "" Then Application.SendKeys (">=") End If End If If Target.Address(False, False) = "D2" Then If Range("D2").Value = "" Then Application.SendKeys ("<=") End If End If If Target.Address(False, False) = "C3" Then Call Filtro_fechas("C2", ">") End If If Target.Address(False, False) = …

Hola, Estoy intentando crear una matriz que cumpla unas condiciones. Describo el problema a ver si jhay alguien en el foro que sepa como solucionar estre problema, que no es trivial. Tenemos un vector de dimension (1xn) A=(a1,a2,a3,...,an), para este ejemplo n=6, cuyas componentes pueden tomar los valores (-1,0,1) , por ejemplo A=(0,0,-1,1,-1,-1). Lo que quiero generar es una matriz B de dimensiones (mxn), para este ejemplo, m=4, es decir, de dimension (4x6) b11;b12;13,b14 b21,b22m..,b24 ... b61...........,b66 Lo que necesito es rellenar los valores de la matriz B, atendiendo a las siguientes reglas: 1) Si el valor ai=0, entonces bij=0 ; i= 1,2,3,4,5,6 y j= 1,2,3…