buenas noches, tengo una macro para navegar por paginas web, la cual siempre me ha funcionado bien, pero siempre me ha costado dar con los objetos web he intentado con las siguientes sentencias sin éxito para el color: c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-hhw-c116")(0).innerText y para el valor 1,99 c.Value = htmlDeRespuesta.getElementsByName("_ngcontent-xsn-c116")(5).innerText c.Value = htmlDeRespuesta.getElementsByClassName("col-xs-2 price")(0).innerText c.Offset(0, 3).Value = htmlDeRespuesta.getElementsByClassName("tableHere")(0).innerText pero no he podido dar con el valor de ninguna form…

Buenas noches, estaba intentando adaptar una solución que me dio @Haplox, hace bastante tiempo, junto con otra de @Antonipara una pequeña base de inventario, pero me da error en esta parte Set encontrado = wsDestino.Range("b2:b" & uFd).Find(Celda) y llevo un par de días y no doy con ello, imagino que es un problema del Rango definido, pero me pierdo. Cuando le doy a depurar, observo que "encontrado" es = a nada, también que uFd = a 1048577, no se si esta recorriendo toda la columna hasta el final del libro. También querría ignorar, ocultar o que no me cargara ciertas filas en mi listbox, del formulario inventario.…

Hola buenas tardes, solicito de su ayuda, ya que estoy programando una macro que genera referencia de depósitos bancarios concatenando varios valores guardados en las celdas de una hoja en especifico de mi libro de Excel y posterior proporcionarla al cliente, específicamente mi problema es: Al buscar un cliente en mi BD el resultado me lo arroja en un listbox que llamé "LISTA" y cuando selecciono el valor que encontré después de la búsqueda para capturarlo en las celdas que le indico a la macro, antes cabe mencionar que para seleccionar ese resultado de mi búsqueda lo hago con una acción "DBLCLICK" , y de las 5 columnas que tiene mi BD, solo me selecciona la columna y fi…

Buenas Tardes Señores del ForoNecesito una mano con una planilla, para la cual desearía que una macro me realice lo siguienteEn la columna "A" fila "1" podría tener datos hasta la "A" fila 460000" por decir asi, contiene la ruta de donde están ubicados mis archivos y,En la columna "B" fila "1" podría tener datos hasta la "B" fila 460000" por decir asi, contiene mis archivos propiamenteLa idea es seleccionar la matriz completa y que me las combine en la columna "A" fila por fila, o en otra columna, que podría ser la columna "C"Desde ya agradecido..Adjunto Planilla Ejemplo LISTADO-CONCAT-2.xlsm

tengo unos datos en la hoja2 y me gustaria extraerlos como se muestra el ejemplo en la hoja proyecto2.xlsm

tengo los siguientes codigos y me gustaria tener la opcion de ejecutarlos la cantidad de veces que sea necesario por ejemplo call aleato call zero ejecutar la siguiente cantidad de veces ( ) Sub Aleato() borrar_anteriores With Application .ScreenUpdating = False .DisplayAlerts = False '-- ufila99 = 1 + Hoja99.Cells(Rows.Count, 1).End(xlUp).Row tf = Sheets("estadisticas").UsedRange.Rows.Count tc = Sheets("estadisticas").UsedRange.Columns.Count '-- For x = 6 To 37 Do: f = Int((tf * Rnd) + 1) c = Int((tc * Rnd) + 1) Loop Until Sheets("estadisticas").Cells(f, c) <> "" Sheets("analisis").Rang…

Buenos dias expertos, necesito pedir una ayuda en un libro tengo varias hojas la cual funcionan casi bien, en la hoja inventario registro los productos para mostrarlo en la hoja Carta de Cargas Sol en la parte inferior mostrarlo pero eso bien cuando registro datos en las diferentes celdas de dicha hoja pero dependiendo de la celda sombreada de color amarillo que va servir para consultar, despues de llenar todo los datos en las celdas vacias mas que todo de color verde y lo pulso registrar me guarda en pdf y limpia toda la celdas para volver a ingresar, hasta ahi todo bien, ahora cuando en la celda de color amarillo ingreso con el dato que ingrese al registrar y pulso cosu…

Hola a todos; -Adjunto macro vba Excel con un formulario y un botón que ejecuta una consulta sql a una tabla de Access y devuelve el resultado según el valor que he puesto en el Where. Hasta este punto todo bien. Ahora bien, se me ocurre lo siguiente si a la hora de hacer la consulta hay varios registros iguales, ¿se podría configurar la macro para que a medida que vaya pulsando el botón me muestre los siguientes registros?. ¿Es mucho pedir, o es factible? Saludos y buen día a todos VIDEO: BuscarValoresRepetidos BRepetidos.zip

Buen día estimados amigos del foro agradezco me puedan colaborar con una sencilla aplicación a este archivo, requiero por favor que cuando yo marque una casilla esta quede bloqueada por medio de una contraseña, ósea que no se puede des-marcar hasta que yo coloque una contraseña. Agradezco de antemano el apoyo que me puedan brindar. Saludos y cuídense mucho.? casilla de marcacion.xlsx

Hola a todos; -Adjunto macro contiene un "frm" con un "chek" y un botón. Lo que hace la macro es crear una copia de seguridad. En función de lo que tenga activado en el check la hace de una manera u otra. Activo: Guarda la copia de seguridad en un ruta predeterminada. No Activo: Nos pide la ruta para guardar. Pregunta: ¿Se puede depurar mejor el código o está bien así? Saludos y buen día a todos C.Seguridad.xlsm

Funcionaba todo bien hasta que le inserté Tipo de Cubierta con "4 Botones de Opción" y aparece mensaje: (Error de compilación. Referencia no válida o sin calificar) Contiene: Todos los Departamentos y Municipios de Colombia y Todos los Barrios y Comunas de Cali Favor colaborarme Peritaje con Imágenes 3.rar

Buenos días No se si este es el hilo correspondiente ya que no se si se puede hacer sin Macros o userform... Necesito insertar una foto de grandes dimensiones en horizontal, pero que la foto este dentro de un recuadro de la hoja y mediante scroll, conseguir ver toda la imagen, sin tener que hacer la hoja tan grande como la foto. ¿creéis que seria posible?, llevo toda la mañana intentando cosas y no doy con ello... Un Saludo

Hola como puedo hacer para que mi funcion se actualice sola en la celda como lo hacen las funciones propias de excel, me explico si pongo en una celda =ahora() esta se auto refresca cuando cambio algún valor de la celda, pero si yo creo una funcion como esta Public Function Mifuncion() As String Mifuncion = Now End Function y luego en la celda pongo =Mifuncion() esta no se auto refresca cuando cambio un valor en cualquier celda. Gracias

Saludos! He leído de consultas similares, pero en este caso las columnas a seleccionar tienen intervalos de cada 3 columnas (Seleccionar columna 1, 4, 7, 10... etc) en hojas de hasta 500 columnas con información. Posterior pegar estas columnas en otra hoja quedando contiguas. ¿Tendría que seleccionar cada nombre de columna? Range ("A:A", "D:D", "G:G"... Etc ). Adjunto archivo ejemplo. Mil gracias. Elasticidad de Precios Feb 2021.xlsx

Amigos buenos dias: Necesito ejecutar el siguiente comando desde excel vba y que el resultado de ejecutar este comando en CMD "oculto" lo guarde en una variable en VBA, tener en cuenta que el resultado se puede componenr de dos lineas o mas dependiendo del numero de monitores que tenga conectados el PC powershell -command ""get-wmiobject wmimonitorid -namespace root\wmi|foreach-object{($_.SerialnumberID|foreach-object{[char]$_}) -join ''}""

Hola a los foreros y maestros del foro, tengo un duda que seguro que me daréis solución, en un listBox tengo una columna llenas de códigos ( al mes me genera mas de 1000 codigos en total) estos van del B01 al B25, con el siguiente macro solo me reporta uno, he probado y no se como hacerlo para que me reporte la información de los 25 codigos y me cuente los generados (ejemplo B01 =124 , B02=78, B03=189 ..etc) mi nivel de macros es de un principiante. Gracias por adelantado Private Sub CommandButton2_Click() For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i, 5) = "B01" Then Contador = Contador + 1 End If Next i Label3 = "B01 = " & Contad…

Buenos dias estimados... Tengo la siguiente duda. ¿Es posible tener dos eventos (independientes) OnTime trabajando simultaneamente en el mismo libro? Pongo un ejemplo: El primer evento OnTime comprueba la actividad en el libro, y al tener 10 minutos de inactividad cierra el libro. El segundo evento OnTime realiza un backup del libro cada 30 minutos. Ambos eventos estan en modulos separados. Agradecido de antemano por vuestros consejos y ayuda

Hola a todos (as) Tengo el siguiente código que pasa cierta información de una hoja a otra, todo funciona bien, el único detalle es de que quisiera que no me sobreescibiera o se pegara siempre sobre la misma columna, si no que se pegara en la siguiente columna disponible, no se que me falta en el código para poderlo arreglar Espero haberme dado entender Sub cONCENTRADO() 'copia columnas a la TE-DESC Sheets("TE-DESC").Select Range("A4:B35").Select Selection.Copy Sheets("CONCENTRADO").Select Range("A1").Select ActiveSheet.Paste End Sub

Hola Estimados del foro , estoy buscando información y a la vez tratar de solucionar un inconveniente con mostrar una imagen donde detalle mi problema: tengo un formulario: (controles listbox,image)y una carpeta donde están todas las imagenes (miles de imagenes).,cuando yo selecciono en el listbox un codigo concatenado ejemplo ("200085-41257"), deseo que me muestre la imagen que esta alojada en la carpeta "imagenes2021" ,pero aqui viene el problema las imagenes que estan en la carpeta no tienen el mismo nombre del listbox la imagen se extrae de una web y viene de la siguiente forma : codigo+zona+fecha ejemplo "200085-41257-20210215.PNG" mi pregunta es como po…

Buenas, Hay alguna razon por la cual cuando se ejecuta una Macro, se genere un archvio de solo lectura alterno al original? El codigo que uso es este: Sub TrapasarTrimestre2() 'Leyendo cadena de texto Dim Anio%, Trimes As Variant Dim Conn As Object, rst As Object, SQL$ Dim Ruta$, Datos As Worksheet, RELACION As Worksheet, Rubro$, Tabla$, Campos$, RutaTriAnt$ Dim LibroDestino As Workbook, Z As Long, Condicion$, Cm%, Columnas As Variant, CamposRecord As Variant Dim FIni As Date, FFinal As Date ', UltFila As Double Dim HojaActual As Worksheet, Uf As Double, x As Long, y As Long Dim LibroTriAnt As Workbook With Application .ScreenUpdating = False .EnableEve…

Buenas noches estimados tengo un pequeño problemita... debo imprimir un formato A6, pero a la vez con un option buton imprimo de acuerdo a un rango OPTIONBUTON1: AZUL = Range("B2:H28").Select OPTIONBUTON2: AZUL + VERDE = Range("B2:H43").Select OPTIONBUTON4: AZUL + VERDE + AMARILLO + NARANJA = Range("B2:O43").Select OPTIONBUTON3: AZUL + VERDE + AMARILLO = aqui esta mi problema lo he querido hacer asi: Range("B2:H43, I2:O22").Select pero me imprime en hojas separadas y deseo que salga en una sola hoja Espero me sepan entender y ayudar quedo muy agradecido

Hola, buenas tardes, Estimados. estoy trabajando en una macro de generación de ordenes de trabajo pero me da error al crear una ot y no me enlazan una serie de datos con el modelo final de ot que necesito crear, si alguien me pudiera ayudar se los agradeceria, ya que tengo asociados equipos, patentes horometros, kilometrajes, costos, etc. Al yo pulsar generar ot me deberia crear una pestaña con la ot modelo (se asigna el numero de ot en pestaña; ej; OTTCLM64 y en el encabezado del formato )y asignar todos los datos que le ingrese en la tabla de ingresos,luego al asignar hh de cada actividad y costos asociados (costos que deberian estar enlazados a la planilla de…

Hola buen día a todos los excelianos ? Quisiera pedir de su valioso apoyo para lo siguiente: Tengo una hoja de excel que contiene un cierto número de comlumnas, por lo general entre 20 y 30 y un número de filas que van deacuerdo a la cantidad de personas que estan o pueden estar en esa hoja. Lo que siempre requiero son 4 columnas, que es el Número del empleado, Nombre, centro de costo (Cecos), horas Extras, Descanso trabajado y Descanso ganado y por lo tanto hay veces que esa hoja de exel puede en ocaciones contener menos o mas columnas, sin embargo simpre requiero de las columnas que antes menciono junto con la información que contiene cada fila o celda, no se …

Buen dia, hace rato que no meto mano a excel y no recuerdo si se podia asignar una macro a un shape una rutina pasandole uno o mas parametros

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…