Hola, tengo una duda, ya había trabajado anteriormente con conexiones en excel, pero desde Access, en esta ocasión me pidieron realizar las conexiones de SQL y estoy teniendo problemas con ello. Les dejaré el archivo en el que estoy trabajando. Es un reporte de resultados, lo que quiero realizar es que por medio de la fecha se actualicen los datos de las consultas que tengo en las hojas por medio de diferentes macros, pero al momento de correr la macro me sale el error "Subindice fuera de intervalo" en la conexión. Si alguien sabe sobre este error, sería de gran ayuda. PD: Mi servidor de SQL tiene usuario y contraseña, se supone que ya se los establecí en la conexión…

Hola Estimados, Ustedes que son los mejores en Excel, Lo que necesito es que cuando se registre un producto de “Entrada de Mercadería” en precio pase Automáticamente a la pestaña de “entradas” y la columna “precio” al generar el reporte respectivo. Por otro lado quisiera pues algunos botones no me funcionan, están inactivos, estos son: “salida por cliente”; “stock actual por proveedor” “entrada por proveedor”, estos me gustaría que cumplan su función al presionarlos, por favor sería posible me apoyen en saber cómo lo Puedo hacer? Les dejo el adjunto. Muchas Gracias. Excel_Stocks 3.zip

Hola Necesito una macros que reemplace las formulas índice y coincidir, porque después tengo que dejar solo el valor, y se demora mucho en pegar el valor, ya que es casi una hoja completa. Envío muestra. gracias Trabajo.1.xlsb

Buenos días Forista, tengo unas tablas en las cuales deseo colocar unas imágenes dependiendo de los números que tenga esta tabla para luego imprimirlas. No se si se pueda definir el tamaño de la imagen al pegarla Anexo archivo con ejemplo. P.D. Es un juego Loteria.rar

tengo un archivo con dos hojas, pedidos y distribución. al momento de completar la hoja distribución con un formulario vba (userform2) intento que busque y compare dos columnas la columna B de pedidos y la columna c de distribución, y en una tercera columna L de la hoja pedidos cambie el estado de pendiente a preparado. pero me arroja el error 91 ADM RTOS ENERO-FEBRERO2020.xlsm

Hola, estoy armando una macro para ingresar a una pagina para cargar datos, porque en este momento no esta funcionando el programa que lo hace automaticamente. No puedo avanzar desde la carga de usuario y contraseña, sale el mensaje: "se a producido el error 91 en tiempo de ejecucion: Variable de objeto o bloque With no establecido". Segun el depurador ocurre con la linea "Loop Until ie.readystate = 4". Otra duda que tengo es con la linea "ie.Document.getElementById("submitbutton").Click" aunque todavia la macro no llego a ejecutar esa linea estimo que debe tener error porque la saque de un ejemplo de la web. Haciendo F12 en la pagina, el boton "Aceptar" le corresponde lo…

Necesito por favor me pudieran ayudar ya que necesito una macro con la cual al escribir en una celda esta automáticamente pase a bloqueada para no modificar su contenido después de desplazarme a otra obviamente, el rango en que necesito realizar esto es de C3:F550. Toda la información esta en una tabla y me gustaría que la tabla no pierda sus funcionalidades de agregar la celda nueva como parte de la tabla. Adjunto archivo. De antemano se que para que funcione debo de tener todas las celdas bloqueadas y de la misma manera proteger la hoja con contraseña. Control Documentos.zip

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

Buenos días estoy teniendo problemas con que se ejecuten correctamente mis alertas de vencimiento de fechas en mi proyecto cuando agrego o modifico en mi tabla de registro echa en VBA, si alguien me puede Ayudar por favor se lo voy agradecer mucho. Gracias de antemano. Base De Datos Streaming_v4.xlsm

Como verán soy muy principiante en el tema Tengo un formulario, y en el combobox1 tengo que poner una fecha, cuando me carga en la hoja, me pone cualquiera, Alguien me puede dar una manito copio el codigo Private Sub CommandButton3_Click() For i = 4 To 3000 If Hoja1.Cells(i + 1, 1).Value = "" Then Hoja1.Cells(i + 1, 1) = Val(TextBox1) Hoja1.Cells(i + 1, 2) = Val(ComboBox1) Hoja1.Cells(i + 1, 3).Value = ComboBox2 TextBox1 = Empty TextBox1.SetFocus Exit For End If Next End Sub Gracias de antemano

Hola, necesito ayuda, con el boton de guardar de este userform no consigo que guarde desde el listbox a la hoja 1 como se puede mostrar en el archivo que subo y tambien que cuando agrego un articulo se borre automaticamente y no quede pegado para que no siga agregando, gracias [ATTACH]40623.vB[/ATTACH] libro1.zip

Buenos dias Tengo un formulario con un boton y dos cuadros de texto que empleo para abrir un libro excel. El primer cuadro de texto es para indicar el nombre del archivo y el segundo cuadro de texto es para indicar la hoja del archivo que quiero abrir. Lo que busco es si el archivo no existe genera un error y con la instruccion de on error coloco un Msgbox diciendo que el archivo no existe y se detiene la instruccion. Ejemplo: Private Sub CommandButton8_Click() On Error GoTo error1 Dim nombrearchivo As String nombrearchivo = "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel\Ofertas " & TextBox2.Value &…

Tengo un un formulario que tienes varios texbox el problema es que no se como haceros funcionar es en un formulario para dar de alta las factura en una hoja donde se concentran las altas y los pagos de facturas. Por favor en este formulario que se llama txt_Fecha_Facturacion + 30 = txt_Fecha_Facturacion (16-abr-19 +30 = 16-may-19) en excel si lo hace. en el txt_Total = txt_Importe_Factura + txt_Importe_IVA (Ejempo $ 3,000.00 + 480.00 = $ 3,480.00 Se podra hacer que lo haga a al momento y se vacien al listbox (ya tambien hice le código) El código del botón de buscar ya lo hice El boton de Agregar ya lo hice El botón de Actualizar (Que se guar…

buenas foreros mi consulta es la siguiente tengo este trabajao de excel que busca archivos de microsof. en carpetas luego uno elige cual abrir de las opciones que le presenta dicho buscador. lo que quiciera es que no solo habra archivos de excel. si no tambien jpg y archivos .EXE o cualquier otro tipo de formato, trate de hacer configurarlo pero sin optener buenos resultados espero la ayuda de ustedes gracias. Abrir archivos.xls

Hola a todos. Necesito que desde excel, por código vba y desde un formulario, coga la dirección de una imagen (C:\foto.jpg) y la pegue en un documento de word que se crea nuevo. El objetivo es ver la imagen en el nuevo documento de word. Gracias.

Tengo esta pequeña macro con el fin de incrementar o disminuir el precio de varios artículos en una lista de precios a partir de un valor porcentual, donde B70 es la celda en la cual se especifica el valor a aplicar, en formato de porcentaje, sin embargo solo he logrado que se ejecute en una única fila de la columna B, ¿cómo puedo hacer que continue sucesivamente hasta un rango determinado? En mi caso seria (B2:B65) rango que contiene todos los precios que desearía incrementar o disminuir. 'Disminuir el valor de la celda. Sub Macro_Bajar_Valor() Range("B2") = Range("B2") / (1 + Range("B70")) End Sub 'Aumentar el valor de la celda. Sub Mac…

Mi Macros transforma datos del Excel a txt separando las columnas por un palote, mi problema es que transfiere también la información de filas vacías agregando los palotes hasta el infinito. Sub CreaTxT() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim ht As Worksheet Dim i, j, nfilas, ncolumnas As Integer NombreArchivo = "LE" & Cells(2, 4).Value & Cells(3, 4) & "0008010000" & Cells(4, 5) & Cells(5, 5) & Cells(6, 5) & "1" RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt" Set obj = New FileSystemObject Set tx = obj.CreateTextFile(RutaArchivo) Set ht = W…

Hola soy nueva y no tengo mucha experiencia, he creado una base de datos con formulario vba y tengo un problema cuando realizo una búsqueda desde el formulario la fecha no ne sale igual que en la hoja de Excel , la fecha es formato txt. El formato que sale en la hoja de excel es el correcto 02/02/2024 , en el buscador del formulario sale 2224 o 224. No se como puedo solucionarlo en la macro. gracias y espero que alguien pueda ayudarme.

Buenas tardes y muchas gracias de antemano.Tengo una macro que abre los archivos excel (xlsm) de una carpeta uno por uno y realiza algunas modificaciones y los cierra, el problema surge que los archivos también se encuentran en subcarpetas y necesitaría que estos también los abriera.Tengo las dos macro, peor no se como juntar para que lo haga.Esta macro copia los datos del archivo y los pasa a otro en común:Sub ()On Error Resume NextApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.DisplayAlerts = FalseDim SummarySheet As WorksheetDim FolderPath As StringDim NRow …

Recurro a ustedes con la siguiente duda. Estoy haciendo un complemento, pero tengo un problema. Necesito que el formulario activo detecte el cambio de hoja, para que se ejecute una macro. Existe alguna forma de realizar esto ¿? Gracias de antemano

Tengo este archivo con un calentaría el cual uso para control de trimestre cuando pongo en la celda G2 Trimestre i aparece solo los meses Ene, Feb, Mar; Trimestre II aparece solo Abril, May, Jun; Trimestre III aparece solo Jul, Agos, Set; Trimestre IV aparece solo Oct, Nov, Dic, lo que ocupo no me aparezcan en trimestre si no solo un mes ejemplo, se pongo el la celda G2 enero aparezca todo enero adjunto archivo ROL DE TRABAJO DEL PERSONAL POR JORNADA.xlsm

Estimados amigos, por favor me ayudan con esta consulta: para hacer informes de avance de obra, quisiera usar una fórmula que permita que al hacer una nueva hoja ( worksheet ), traiga datos de la hoja anterior. Me gustaría hacerlo sin macro, si es posible. Por favor me pueden aclarar si existe una fórmula para ese propósito? Mil gracias.

Buenas tardes a todos! Que tal, en espera de su ayuda tengo el siguiente problema, ya tengo una macro que me hace un reporte por cada sucursal que se tiene en el pais, pero no logro separarlo por bloques y me inserte dos filas en blanco arriba despues de que encuentre un dato. y donde inserto la segunda linea me ponga el nombre ahi, y en toda esa fila me realize la sumatoria de los campos. Creo que con el ejemplo quedara mas claro en la hoja1 es como tengo mi dato, y en la hoja2 como deseo que quede, espero me puedan apoyar ya que es el ultimo dato que me hace falta para terminar. Este codigo es correcto me inserta las 2 filas en blanco que necesito, ya logre que funcio…

Buenas, estoy realizando como resultado de una macro una transposición de horizontal a vertical en la que me gustaría que se aplicase el mismo ejemplo que pongo a continuación pero para todas las columnas siguientes desde la B hasta la columna F: For x = 1 To 30 Sheets("Hoja1").Select Range(Cells(x, 3), Cells(x, 8)).Copy Sheets("Hoja2").Select h = (x - 1) * 7 + 3 Range("B" & h).PasteSpecial Transpose:=True Next Con esta macro únicamente me pega los datos en la columna B y me gustaría que cada intervalo de 6 filas copiadas que corresponden a 44 pegadas pasara a la columna siguiente. Espero que con la explicación…

Estimados, Nuevamente necesito de su ayuda, adjunto planilla excel para el que me pueda ayudar. Necesito una macro que recorra los datos de la columna B y me copie en la otra hoja solo los valores con dato con un nombre de Campo distinto, es decir en vez de copiar el titulo de la columna B (Edad) se genere con otro titulo (Dato Edades) en la Columna A. Espero sus comentarios, Saludos. Macro_Copiar.rar