Hola a todos, Una duda que no he sabido resolver y es como puedo a averiguar cuál es la primera columna con datos sin indicarle al procedimiento ni la fila ni la columna, lo tendría que detectar el procedimiento. Igual no se puede, sí es así hacérmelo saber. Sé la que el código para la última columna es: uC=Cells(1,1).End(xlToRight).Column Pero en el le estamos indicando las coordenadas (fila,columna). He puesto el ejemplo (1,1) pero puedo tenerla en cualquier parte de la hoja. Saludos.

Buenos dias, tengo el siguiente problema, he creado un libro que me permite crear hojas a medida que ingreso nuevos equipos en la hoja inicio, los registra en una tabla (eso ya funciona), y la nueva hoja es la copia de una una hoja "Base", lo que no he podido hacer, es que el código del equipo ("f7" en adelante) quede como hipervinculo a su hoja respectiva que lleva el mismo nombre, necesito de verdad ayuda... adjunto archivo, gracias Planilla_Base.rar

Hola amigos necesito a una macro para un botón que al presionarlo me deshaga todos los cambios realizados en una tabla. Espero su ayuda y un buen día

Hola! Primero que nada, quiero comentarles que no tengo mucha experiencia en macros, pero he estado leyendo y buscando mucho para resolver este pequeño dilema y no encuentro como adecuar los ejemplos a mi archivo. Básicamente, tengo dos archivos, uno de base de datos y otro de ordenes de compra, tengo un userform en el archivo de ordenes de compra, donde quiero que al poner un nombre de orden de compra, lo busque en la base de datos, y solo me salga un msgbox que diga si existe o no existe. Encontré un código buscando por internet, pero se me cicla y siempre me dice que no se encuentra la orden de compra, aunque si exista. Ojalá me puedan ayudar, porque estoy un poco …

Muy buenas a todos, He estado bastante sobre este tema y pensaba que iba a ser un Topic mas sencillo pero la verdad que me he dado una sorpresa para mal! Por lo visto es un tema bastante complicado En mi caso , simplemente quiero adaptar mi userform a la resolución de la pantalla , ya que lo he creado en una resolución de 1920 x 1080 , he probado todo tipo de me.height= application.height .... y este tipo de cosas pero no funciona. En el caso que la solución super complicada como parece , como le puedo decir al userform que siempre se me abra en 1920x1080 Muchas gracias de antemano.

Siguiendo otros temas cerrados de este foro he intentado he intentado hacer consulta web con usuario y contraseña pero no lo consigo. En codigo fuente de la página aparece éstas lineas que imagino corresponde a los campos de usuario y password: <p>Your Username/Email:<input type="text" name="email" /></p> <p>Your Password:<input type="password" name="password" /></p> Mi macro queda así: nick = "t11235813@hotmail.com" pass = "descarado" bch = "My Barchart - Registration | My Barchart Login=" & "052112" With ActiveSheet.QueryTables.Add(Connection:="URL;" & bch, Destination:=R…

Buenas tardes Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba) El código de la macro es el siguiente Sub GUARDAR_FILTROLAB() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String Ruta = "Z:\disco d\\COMPILADO\FAMILY\" nombre = Sheets("Report").Range("d1").Value Sheets(Array("report", "Graficos", "Info graficos")).Copy ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape ' ActiveWorkbook.S…

Tengo un libro de Excel que tiene una macro de filtros avanzados la cuestión es que cuando comparto el libro me arroja el error 11o4 y me indica que error en el método advancedfilter de la clase range. y cuando des comparto el libro de Excel funcionan bien los filtros con la macro que tiene. En espera de sus comentarios. Les anexo ejemplo. Gracias. Machote Operacion (prueba).rar

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, 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…

Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como solucionar el ERROR en la siguiente instrucción que detallo, los archivos estuvieron trabajando sin ningún problema, pero haces 2 días comenzó con a fallar Error ejecución. Set objWord = CreateObject("Word.Application") Siendo la macro original: Sub tablaaword() patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 Worksheets("TELECREDITO").Range("A1:D7").Select Selection.Copy textobuscar = "[tabla_ex…

Hola. Estoy declarando una variable de una ruta al abrir un libro para después utilizarla en varios módulos. La pruebo con MsgBox y la variable queda bien declarada pero al tratar de utilizarla en otro módulo su valor (también probado con una msgbox) queda en blanco. ¿por qué me pasa esto? No soy muy experto por lo cual agradezco una explicación relativamente simple. Muchas gracias A continuación la declaración cuando se abre el libro: Option Explicit Public ImpPredeter As String Public RutaData As String ----------------------------------------------------------------------------------------- Private Sub Workbook_Open() Application.ScreenUpdating …

Hola a todos Tengo un formulario en una hoja excel, donde las personas ingresan su Nombre, Rut e Información de cada área. La macro copia las celdas con la información y las pega en un archivo consolidado que esta en un disco en la red. La macro hace todo lo que tiene que hacer, y funciona bien, pero no pensé que alguien cambiaría el nombre del archivo, y cuando paso esto, la macro se cae. El código es súper simple pero no se como corregirlo, se los dejo a continuación: Range("A3:D3").Select ChDir "Y:\Publico\SRubio\Informacion Areas" Workbooks.Open FileName:= _ "Y:\Publico\SRubio\Informacion Areas\Consolidado.xlsx" Windows("Encuesta Clima …

Buenos días Tengo en mi proyecto el Textbox1 que es el resultado de unir el Combobox4 y el Combobox3. Lo que deseo es que el resultado del Textbox1 busque en la columna G de la hoja Prueba y devuelva el resultado de la columna H al Textbox2. Estoy intentándolo con estas líneas, pero no consigo reaolverlo. ¿Podrían ayudarme? Un saludo TextBox1.Text = ComboBox4.value & ComboBox3.value Set h = Sheets("Prueba") Set b = h.Columns("G").Find(TextBox1) If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "H") End If

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 tardes, Estoy intentando hacer un presupuesto en Exel he buscado en el foro y no he encontrado nada, he intentado hacer con sumar.si.conjunto pero no he sido capaz de solucionarlo. Lo que estoy intentando hacer es que de la hoja BD en la columna E(Ingreso) reste la columna D(gasto) y traslado a la hoja Gastos el resultado a columna B(gastos/Ingresos), cuando seleccione la fecha correspondiente dela hoja gastos columna B1. EspPresupuestos.xlsmero que me podáis ayudar Muchas gracias.

Hola, quisiera que me ayuden con este tema, como crear un archivo .INI con APIS de Windows ,en la ruta disco C con macros vba excel. La idea es esta: En el formulario debe escribir código de de activación en un textbox y al hacer clic en boton registrar, este debe ser corroborado con el código de una celda de hoja excel, si cumple crea archivo .INI, en la ruta disco C y en las siguientes aperturas del libro verifica el código y ya no se muestre el formulario registro. Caso contrario si no corresponde el código activación y no se registra aun,me siga mostrando el formulario registro. Si es posible se puede agregar tiempo de uso a 15 días si no se registra. Adju…

Que tal, estoy haciendo el calculo de la ruta critica de red CPM, lo tengo muy desordenado , pues no tengo experiencia y poco conocimiento en las funciones de Excel. Si alguien puede opinar acerca de este tema les agradezco. Les puedo dar mas datos , no los quiero agregar para no ocupar espacio en la pagina. trabajoa.xls

Hola amigos Adjunto un archivo de uso diario en el cual me funciona bien una macro de limpieza de rangos específicos. Quiero estar seguro que si abro otro archivo no se ejecute en éste recién abierto la misma macro si presiono (por equivocación) las teclas de acceso directo. En este caso Ctrl+Mayus+V. Lo hice con grabación de macros y al código generado yo le agregué "With Hoja1" y su correspondiente "End With". ¿Debo en alguna parte del código (supongo que al principio) agregar algo más? Algo como "ThisWorkbook" u otra propiedad... Gracias de antemano Rubén 000000 Transferencias.xlsm

Buenas tardes, Mi duda surgió cuando me panteé cómo saber si un archivo excel está abierto antes de abrirlo a través de código VBA. Encontré varias maneras de saberlo pero ninguna de ellas diferencia si el archivo en cuestión está abierto por el mismo usuario que pretende abrirlo o si por el contrario está abierto por otro usuario de la red. Sin embargo se me ocurrió que tal vez si encontraba una manera de saber qué usuarios tenían abierto dicho archivo, me ayudaría a discernirlo. Y para ello encontré el siguiente código: Sub Numero_Usuarios() Dim users As Variant users = ThisWorkbook.UserStatus MsgBox UBound(users, 1) End Sub[/CODE] Y aunque …

Como va? estoy intentando mandar los datos de un listbox de excel a una tabla de acces. Se me ocurrió hacerlo directamente, es decir mandar en una sentencia SQL el total del contenido del listbox a la base de datos acces. He intentado lo siguiente pero no funciona: Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal,[Recibo],Vendedor,Proveedor,Operación) VALUES (me.ListBox1.Column)" o Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal) VALUES ('" Me.ListBox1.Column(0), & '" & Me.ListBox1.Column(1) & "','" & Me.ListBox1.Column(2) & "','" & Me.ListBox1.Column(3) &a…

Saludos Deseo usar excel multiusuario pero me antes me pide transformar tablas a rangos, el problema es que no puedo convertir algunas tablas, ya que son control source o row source para algunas macros. ¿Es posible trabajar un libro multiusuario sin convertir dichas tablas? de antemano, gracias.

Buenos días, ¿podrías ayudarme con el código que se debe aplicar para desagrupar todas las columnas de una hoja excel? También necesitaría vuestro apoyo para descubrir como eliminar las columnas que contengan la palabra "Production plan" y "dispatched volume" de la fila 5. Hasa ahora tenía la siguiente formula, pero me da error: Sub Control_Producción() ' ' Control_Producción Macro ' Controlar el material producido vs la producción planificada ' ' Acceso directo: CTRL+p Cells.ClearComments ' eliminar comentario de la hoja' Worksheets(1).Select Set MR = Range("5:5") ' Eliminar columnas que contengan la p…

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

Estimados amigos: Este es mi primer Formulario que desarrollo y creo que tengo un 80% de avance. Solicito de su gran ayuda con lo siguiente: 1. Busco que en la caja de texto realice el cálculo de días utilizando la formula DIAS.LAB.INTL. 2. Para el caso en las opciones de Botón, cuando la opción es SI, vaya al siguiente cuadro de texto, pero cuando la opción es NO, modificar manualmente la cantidad de días y luego continue al siguiente cuadro de texto (Cajas). Es necesario comentar que la cantidad de días está dependiendo en la duración del servicio, hay casos que el servicio no se realiza en forma diaria, sino hay ocasiones que se puede hacer 2 o 3 veces por seman…