Hola como están, una pregunta para los capos de Macros Bueno yo estoy trabajando con una tabla con formulas(que es mi objeto) y tengo una macro que busca insertar/eliminar filas y columnas de este objeto dependiendo de ciertos valores Declaro lo siguiente: Sub ActualizarTabla() Dim f&, c&, oldRows&, newRows&, oldColumns&, newColumns& f = Range("H1") c = Range("H2") With ListObjects(1) oldRows = .Range.Rows.Count oldColumns = .Range.Columns.Count newRows = f + 1 newColumns = c + 1 newRows = Application.Max(3, newRows) .Resize .Range.Resize(newRows, newColumns) If newRows < oldRows Then .Range.Offset(newRows).Resize…

Buen dia ...estimados Maestros del Excel...por favor me pueden ayudar ... ( molestando nuevamente ...)es posible que se pueda ingresar el rut en textbox3 del form. y complete automaticamente los demas textbox...? desde ya agradecido... atte Meduvilla cargar proveedor.xlsm

Buenas Tardes: Es la primera vez que hago una consulta, pero hace tiempo que visito la página. Les cuento que trabajo en una empresa que provee personal de seguridad a quienes nos contratan. El tema es que cada vigilador se reporta a una Base de Operaciones indicando el horario de entrada y salida. Para efectuar el control, diagramé un userform al cual se le debe ingresar el id del cliente, el numero de día de la semana y oprimir el boton consulta. Ahí el formulario trae los horarios en que se debe presentar el vigilador. El operador de base debe ingresar el nro de legajo y aparece el nombre y apellido y luego presionar el boton ingresar datos. Todo f…

Buenas noches: Tengo el siguiente macro que lo acomode a mi utilidad Sub Copiar_a_RecKardex() For Each Hoja In Worksheets If Hoja.Name <> "REC" Then 'Comprobamos antes si la hoja está entre las mencionadas en la columna R Dim qRangoR As Range 'Set qRangoR = Application.Intersect(Columns("P:P"), Hoja28.UsedRange) Set Origen = Range("P2") For Each cell In Origen If cell.Value = Hoja.Name Then 'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta uFila = Worksheets("REC").Range("A" & Rows.Count).End(xlUp).Row …

Buenas tardes, tengo el siguiente archivo donde se encuentra una hoja llamada MATRIZ en donde tengo en las columnas los meses de los dos últimos años 2014 y 2015 y en las filas grupos a ser calificados con las letras desde la A a la E, donde E es la peor calificación. Lo que intento, es buscar en cada fila aquellas situaciones donde la calificación D y E se repitan 4 veces consecutivas y sustituir a partir de ese cuarto momento repetido hasta el final de la fila por la peor calificación, en este caso por la letra E, es decir si las calificaciones D y E se repiten en algún momento 4 veces seguidas sustituir a partir de la cuarta repetición por la letra E dejando dicho que…

Saludos: Tengo una tabla ya definida con un rango de B9:I250. No importa si usas las primeras 10 o las utilizas todas siempre es el mismo rango. Yo tengo un macro VBA donde primero sorteo en una columna en particular y en orden ascendente con el propósito de colocar todas la información en orden y evitar que hayan espacios en la tabla. Luego de sortear, identifico la ultima celda escrita y borro cierta información que pueda haber en otras columnas. Por ejemplo siempre termino sorteando la columna B, si en la celda X de la columna B no hay nada escrito entonces puedo borrar la información que haya en las columnas C,D, H. Sim embargo esto lo logro utilizando la función…

Por lo que llevo leyendo en este foro, creo que me voy a quedar tiempo. Lastima que he tardado en decidirme a postear. Estoy empezando a entender esto de Macros y estaba intentado recopilar una a mi medida, pero no acabo de pillarlo, y seguro que por lo que he leido para vosotros es facil ayudarme. Vereis tengo un libro con dos hojas (Agendaxnum y Agendaxnom) de la primera hoja, columa B pasar a la segunda hoja, pero en la columa C de la primera hoja, columna C pasar a la segunda hoja, pero en la columa B si hay celdas en blanco, saltarselas a continuacion que ordene la segunda hoja por la columna B. Agradecer vuestros comentarios Gracias

Hola Me gustaría saber como he de formular una macro para que una vez acceda a una determinada web búsque si en ella hay algun enlace que empieze por "blablabla?ID=..." y si lo hubiese clicar en el y si no avise de que no lo hay. Dicho enlace siempre empieza por "DriverProfile.asp?ID=" y siempre se encuentra alojado en el mismo lugar del html de haberlo, pero puede darse el caso de no estar... en función de quien visite la web. Sólo necesitaría conocer cómo formular esa consulta.. el resto del código (acceder a la web etc ) lo tengo armado. La estructura donde se encuentra el elemento a buscar dentro del html de la web es ésta: <table cellspacing="0" cellpaddin…

Buenas Noches: Mi duda es la siguiente, estoy realizando una macro que busque un valor tipo texto que se encuentra en una columna © dentro de otra columna de este tipo(, con el fin de copiar un código(columana a) que acompaña a ese valor encontrado. Es decir, si encuentra el valor, pegar ej: en la columna D el condigo que acompaña a este. El problema radica en que no encuentro una fución que simplemente me diga si ese valor esta en la columna y en q posición para asi copiar el código, como lo hace la función VLookup o buscarV, espero me entiendan, adjunto un ejemplo de como deberia quedar la columna resultado D A B C D 1 1 pe pe 1 2 1 pe l…

Hola a todos. Estoy intentando extraer información de las longitudes de las Lineas y Polilineas: 1. El archivo autocad deberá estar abierto 2. En excel me pondrá por cada fila o renglón la información Columna A: Nombre de la Capa Columna B: Número de lineas (En el caso de las Polilineas) si es una linea recta dirá 1 Columna C La suma o total Longitud de cada linea Gracias por su atención y un saludo desde México.

Hola!! Necesito enlazar los últimos dos talleres con respectivos usuarios a la consulta, ya que lo he añadido en la primera hoja y no se me actualiza en la consulta. ¿Alguien podría ayudarme? Búsqueda de usuarios por edad.xlsm

Buenos días, Adjunto hoja con macro en la cual me crea hojas con cada registro de la base de datos. Una vez creadas esas hojas y a la hora de imprimir en pdf, me gustaría poder quitar el salto de página que tienen y que sólo me imprimiera el rango (a1:x64) en el archivo pdf, que corresponde con el formato recibo. Copia de Recibos ok.rar

Buenas a todos Necesito ayuda para automatizar la colocación de unos txt importados a excel. Ya tengo macro para que me importe los txt, pero no consigo lo siguiente: Comento el excel que adjunto y que es lo que intento. La primera pestaña, es para lanzar las macros La pestaña txt 1 se pega los datos del txt importado, así como en la pestaña txt 2. En Hoja2, es donde tengo ya ordenados " a mano" como deberían de quedar los datos de (txt1), y me gustaría que fuera automático. en esta hoja, en la primera columna Suma la fecha + hora ( con formato personalizado), para quedar unido, y luego al ordenarlo de menor a mayor, se colocan el resto…

Buenas noches amigos de AyudaExcel a ver si me dan una ayuda por favor tengo un comboBox países y dos textbox quiero que al digitar el código del país cargue en el primer textbox el país y en el segundo textbox la capital automaticamente extrayendo los datos de la hoja2. Muchas gracias por su valioso tiempo Adjunto el archivo para que tenga la idea Comboboxligado a dos textbox.xlsm

Private Sub CommandButton29_Click() With UserForm1 TextBox2 = TextBox2 - 1 Unload Me End With End Sub no logro que reste una vez que lo doy al boton! que puedo haccer!

HOLA A TODOS, Y DE ANTEMANO GRACIAS POR LA AYUDA QUE SIEMPRE NOS BRINDAN, TENGO UN FORMULARIO QUE TIENE VARIOS COMBOBOX, Y UN BOTON DE AGREGAR, PERO COMO ESTE FORMULARIO ES INDEPENDIENTE, LO QUE QUIERO ES CARGAR LOS DATOS DESDE OTRO COMO SE MUESTRA EN LA IMAGEN, PERO ME RESALTA UN ERROR, Y AGRADECERÍA QUE ALGUIEN PUEDA BRINDARME UNA SOLUCION, ESTE ES EL CODIGO QUE TENGO DENTRO DEL FORM, Private Sub CmdAgregar_Click() If Trim(Me.txtcantidad.Text) = "" Then MsgBox ("DEBES INGRESAR LA CANTIDAD !!!"): Exit Sub If Me.CmbArticulo.Text = "" Then MsgBox ("DEBES INGRESAR UN ARTICULO !!"): Exit Sub With frmCentral .txtArticulo.AddItem (Me.CmbArticulo.Te…

Buenas, de programacion se un poco (lo basico) y estoy en un proyecto de inventario en excel, ya lo tengo un poco avanzado pero quisiera saber el codigo solo para que si en una celda coloco un producto y la cantidad vendida, el programa busque en una columna de productos el producto con el mismo nombre y lo descuente de su cantidad. Muschas Gracias.

Ayuda con Llenado de reporte (Rango Dinamico) Amigos necesito su valiosa colaboracion!!! Bien el detalle es este. En hoja Report tengo los articulos de los cuales necesito la informacion, que se encuentra en la hoja base. He generado una macro la cual me copia la informacion para la hoja report. pero si agrego una fila (Nuevo Item) en cualquier categoria tengo que cambiar el codigo para modificar los rangos, esto es tedioso cuando son alrededor de 30 categorias me entenderan :miserable:. Habria alguna manera de hacerlo dinamico? y de esta manera no tener que cambiar los rangos cada vez que se agrege un nuevo Intem , espero que puedan ayudarme al respecto. Anexo archi…

Muy buenos dias estoy intentanto realizar un excel que me permita copiar aquel rango de celdas seleccionado con el mouse. No establecidas previamente como ej: A1:K5, Sino seleccionar el rango que yo deseo. En el archivo adjunto quiero marcar con el mouse las alertas verdes y luego con la macro copiarlas y enviarlas por correo. Alertas de Servicio2013.rar

Seleccionar entre dos productos iguales el de mayor fecha la idea es la siguiente al seleccionar el producto en el macro me tome el precio del producto con la fecha mas actual osea el precio actualizado Sub detecta_producto() If CmBProductos.Value <> Empty Then Call calcula_importe Else End If End Sub Sub calcula_importe() If txtCantidad.Value = Empty Or cmbClave.Value = Empty Then Else Importefi.Text = CCur(txtPrecio.Text) * CCur(txtCantidad.Text) End If End Sub Sub busca_art_precio() Private Sub cmbClave_Change() If Me.cmbClave.Value = "" Then Exit Sub Dim sUltimaCelda As String Me.txtDescripcion.Text = "" Me.txtPrecio.Text = "" If…

Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila Range("O" & fila) = Range("H" & fila) &am…

Hola chicos, tengo un cuadrito que marca algunas personas que han bajado del promedio y quisiera poder enlistarlos aparte uno tras otro sin dejar blancos, me ayudan por favor? En base a la calificación se tiene que dar el nombre del individuo y el día en que reprobó, gracias por su apoyo! lista aparte.zip

Necesito acceder a un WSDL con usuario y contraseña, para descargar la información e incorporarla en la hoja de cálculo.

Buen día; Me podrían ayudar con este bucle, ya que me marca un error: Private Sub TB500_Change() If TB500.Text <> "" Then For a = 1 To 89 Step 8 Controls("UserForm1.TextBox" & a).Visible = True Next a Else For a = 1 To 89 Step 8 Controls("UserForm1.TextBox" & a).Visible = False Next a End If End Sub Saludos!

Hola a todos buen día Estoy trabajando en un proyecto de almacén, deseo reducir datos repetidos Sucede que cada articulo tiene un código en particular, si este articulo no existe se procede a crear un código nuevo, cuando el inventario es muy grande es difícil diferenciar si el articulo existe o no, ya que en veces hay descripciones similares pero no iguales Por lo cual solicito su ayuda, les dejo el ejemplo adjunto Ejemplo.xls