Hola, como estan? estoy tratando de utilizar una macro para realizar búsquedas en internet (google específicamente), pero no logro dar con el texto del código fuente para insertarlo en la linea de código. agradecería mucho que me dieran una mano, gracias Sub LoginGOOGLE() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .Height = 1000 .Width = 1250 .Visible = True .Navigate "https://www.google.com/" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop .Document.getelementbyid("gLFyf gsfi").Value = "buscar lo que sea en goog…

Buenas tardes Tengo una hoja para el registro de vencimiento de facturas, del cual hice un formulario para mayor facilidad, sin embargo es para 3 compañías de la cual solo se escoge 1 por documento, y deseo que en relación a esa escogencia sea la búsqueda que hace de clientes, en las diferentes pestañas, la idea es que con solo el código, y ponga el nombre del cliente, la verdad con mi limitado conocimiento lo pude hacer con una sola, pero no con las demas, he tratado de varias formas y no he podido, les agradezco su ayuda. adjunto el archivo. Registro Prueba.xlsm

saludos estimados masters por favor me pueden indicar como debo ingresar el rango en el que se debera actualizar las formulas del calculo respectivo. Para este ejm tengo el rango C5:C10 al ingresarlo asi me da el objeto no admite esta propiedad o metodo, informo que es para excel 2003. Gracias Actualizar con F2+enter.xls

Hola a todos, mi nombre es A.Maurizio Y mi problema es este: En una hoja de Excel tengo 6 (Formas) con el oro interno de las imágenes de Misceláneos. Entonces encontré este listado en Internet: VBA: Opción explícita Opción explícita Sub Export_Images () Dim MyChart como cadena, MyPicture como cadena, oShape como variante Dim PicWidth As Long, PicHeight As Long Dim strImageName Dim oDia Dim oChartArea Application.ScreenUpdating = False En error GoTo finaliza MyPicture = Selection.Name Con seleccion PicHeight = .ShapeRange.Height PicWidth = .ShapeRange.Width Terminar con Char…

El gran Gerson Pineda me apoyo con la instrucción para eliminar del listbox y hoja en modo multiselect la cual integre a un userform que tengo, donde al eliminar del listbox sin usar el filtro o filtrando me arroja un error en la esta instrucción donde devuelvo a la hoja inventario la cantidad del producto eliminado del listbox: Dim NombreHoja As String NombreHoja = "Inventario" 'Buscamos la última fila 'EN EL SIGUIENTE ME ESTOY REFIRIENDO A LA HOJA SEGUN EL SECTOR fila = 2 Do While ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) <> "" fila = fila + 1 Loop Final = fila 'CON ESTE CODIGO ESTARE RESTANDO "1" AL FOLIO EN CASO SE REGRESE …

Hola buen dia, estube trabajando con el archivo que encontre en estos foros, me doy cuenta que la funcion Trim copia el valor anterior y por eso no me dan los resultados que se suponen deben de ser correctos, habria alguna forma para que asignara un valor como n/a por ejemplo para datos y 0.00 para cantidades, anexo el archivo de ejemplo en el cual se daran cuenta que los complementos de pago (P) no deben de poseer cantidades sino 0.00 por ejemplo, de antemano agradezco su tiempo. Saludos CFDI 3.3(práctico).xlsb

Buenas tardes. Estoy intentando hacer una hoja que sirva para el juego de "Bingo". Falta todavía implementarle varias cosas, como por ejemplo la comprobación de la línea y el bingo, pero por ahora, encuentro unos pequeños inconvenientes, que no sé cómo solventar. Aparte de que me he vuelto loco para que el wait funcione medianamente bien, porque dependiendo de dónde coloque las líneas y dónde coloque el comando application.wait, los números se cantan y aparecen en la pantalla a su bola. Parece que ahora con la estructura que tengo, funciona medianamente bien. Me surgen dos problemas: Uno es que si nada más empezar el sorteo, doy a ESCAPE, …

Hola, tengo este pequeño código, pero... al ejecutarlo se me queda el puntero del ratón (en círculo)girando y tengo que salir con CERRAR SESIÓN. Podéis ayudarme de forma muy sencilla ? mi código es este: Private Sub WorkSheet_Change(ByVal Target As Excel.Range) If Range("$L$7").Value = "1" Then Call Macro18 End If End Sub Sub Macro18() Application.ScreenUpdating = False Dim Str1 As String Dim Str2 As String Dim resultado1 As Long Str1 = Range("C8") Str2 = Range("L9") resultado1 = StrComp(Str1, Str2, vbTextCompare) Range("N9") = resultado1 + 1 Sheets("Hoja1").Select Application.ScreenUpdating = True Range("A1").Select End Su…

Buenas tardes a tod@s; Esta tarde me ha surgido otro problemita que …..por más vueltas que doy no sé cómo solucionarlo (si se puede, que me está oliendo que no ). Esto haciendo una consulta de Access a Excel por SLQ contando con 2 condiciones, la condición 1 es si tiene el dato xx y la condición 2 es que no tenga el dato xx, el problema que tengo es que en la columna de la condición 2, hay celdas en blanco que debería de contar y no las cuenta, solo cuenta lo que tiene dato. He probado de varias formas pero no doy con ello. Os adjunto la línea que tengo. Query = "Select count (Motivo) from consulta where Motivo ='CIERRE ROTO' And tipo_hnc …

Hola a todos!! Soy bastante principiante en las macros y no se cómo resolver esta. Tengo un libro origen que actualizo diariamente las filas ( a veces tengo que quitar registros pero la mayoría añado) y quiero trasladar esa misma información a otro fichero histórico con las mismas columnas a otra ruta. Me gustaría que en el libro destino tuviera un botón para importar los nuevos datos del origen si tener. Por favor a ver si me pueden ayudar.Millones de gracias de antemano. Conseguí esta macro por internet y la modifique para mi pero no me funciona. Me pone error sobre todo en el procedimiento que marco en verde. Sub Import…

Hola amigos tengo ya un buen de tiempo tratando de solucionar este detalle que tengo con una macro que busca datos por fecha y texto, les dejo el archivo con las instrucciones necesarias para su análisis y espero contar con su ayuda. gracias https://mega.nz/#!XMRR0KwJ!XTEuNYjMjwzv79l1OmOn9P9PSi_bPx8U8fSAevHrxyw

Buenos días. Soy nuevo en el foro (ya me pasé por el correspondiente hilo de presentaciones) y llevo varios días dándole vueltas a una hoja que estoy haciendo y no consigo hacer lo que quiero. Adjunto una hoja muy sencilla (resumen de una más complicada) y que básicamente consiste en que excel comience a cantar en voz alta una serie de números, del 1 al 10. El problema que me surge es que no consigo parar la ejecución del código mediente métodos normales, es decir, mediante algún boton de "pausa" y otro de "reanudación", sí se para mediante "Esc", pero no me permite reanudarlo después. Si pulso "Escape", sale el cuadro de aviso de que se ha producido el err…

Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como mejorar la siguiente macro que describo a continuación, dicha macro permite exportar dicha información a una plantilla en diseñada Word, pero mi problema esta en dicha tabla no solamente puede contener 6 filas sino muchas en la sentencia: Worksheets("TELECREDITO").Range("A1:D7").Select y lo que se requiere es dicha tabla que está en Excel exporte la cantidad de filas que contenga a la plantilla del archivo Word en forma automática y que el siguiente párrafo del archivo Word no sea alterado para lo cual adjunto imagen, también quisiera saber como puedo q…

Buenos días. Por favor su amable apoyo de siempre. Con que fórmula en dax puedo hacer para que me de solo el % de un criterio. Ejemplo Tengo los siguientes datos Casa cantidad 50 Hotel cantidad 50 Total.50 Esto en Excel me da que casa es el 50 %. Y eso lo divido entre casa y el total Solo necesito ese dato pero en power bi? Recién estoy empezando a usar power bi. Muchas gracias por su apoyo.

Estimados amigos del foro saludos cordiales luego de buscar algo parecido a lo que requiero encontre un ejemplo, al cual he tratado de adaptar y ya casi funciona. En el archivo de ejemplo que subo no estan todas las hoja para abreviarlo,... pero alli se encuentra una hoja de BD del mes de octubre en la que se acumularan los registros solo de ese mes para cualquier año... luego de una busqueda con los combobox del formulario para reporte se muestra el resultado en el listbox, el mismo que debera mostrarse tambien en la hoja Info_Temas, ..alli es donde surge el problema pues se borra el encabezado del cuadro y ademas la informacion no se ubica en la linea luego del enc…

Hola a todos. Mi nombre es Maurizio y mi nuevo problema con la VBA es este: Yo en una hoja de excel gracias a su ayuda Anterior que es esto: Dim rngTarget As Range Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range) With rngTarget.Parent .Pictures.Insert strShpUrl .Shapes(.Shapes.Count).Left = rngTarget.Left .Shapes(.Shapes.Count).Top = rngTarget.Top End With End Sub Private Sub Cmd_Recupera_Immagini_Click() 'On Error Resume Next For I = 1 To 1 Call GetShapeFromWeb(Foglio1.Range("A10").Value, Foglio1.Range("B20")) Call GetShapeFromWeb(Foglio1.Range("A11").Value, Foglio1.Range("C20")) Call GetShapeFromWeb(Foglio1.Range…

Buenas tardes; Tengo un problemita con una consulta SQL. En nombre de la columna de la que estoy filtrando un dato tiene espacios y ….por mas que he probado no consigo hacerla funcionar, siempre me da error. Como debo ponerlo (Descripción Casas )??. He probado con [ ] , con “”, con variable y nada. Dato = "'" & "Londres" & "'" Devolu = "'" & "Fin" & "'" Exacto = " = " Query = "SELECT * FROM Consulta where [Descripción Casas]" & Exacto & Dato & _ " and Motivo" & Exacto & Devolu Pd: no subo excel porque no se puede probar, si fuera necesario le s…

Hola buenos dias amigos De nuevo por aqui para solicitar su añuda, por que no consigo dar con la tela, les explico, cargo los datos de la hoja en el listbox, al hacer doble clik encima los consigo enviar a los tex y combobox, pero no consigo que se vea la imagen, este es el codigo que utilizo, le he hecho algunos cambios, pero no me hace nada TextBox38.Text = ListBox1.List(ListBox1.ListIndex, 10) ComboBox1 = ListBox1.List(ListBox1.ListIndex, 11) ComboBox3 = ListBox1.List(ListBox1.ListIndex, 12) ComboBox4 = ListBox1.List(ListBox1.ListIndex, 13) fotografia.Picture = LoadPicture(ListBox1.List(ListBox1.ListIndex, 14)) Espero que me puedan ayudar …

Hola, Voy a intentar plantear de nuevo un problema que tengo solucionado pero no de la mejor forma ya que es muy muy lento. Os adjunto un excel de Ejemplo con 2 hojas, la primera hoja contiene los datos tal como salen de mi ERP, la segunda hoja contiene los datos tal como yo los necesito para poder trabajar con ellos como si de una base de datos se tratase. Lo que necesito hacer es que sea más eficiente el código que tengo ya que cuando lo utilizo con archivos mas grandes tarda demasiado. En el archivo está el código que estoy usando , para que quede más claro he puesto con fondo amarillo las filas que deberían ser eliminadas y en naranja pongo el text…

buen dia el problema que tengo es el siguiente: ocupó este código para registrar información en una base de datos de excel, el problema que tengo es que a la hora de hacer funcionar el código por medio de un botón, tarda mucho en registrar porque la base de datos ya tiene 5,345 registros. quiero suponer que el problema está a la hora que busca la ultima fila vacía, hasta que la encuentra registra. Dim ifila As Long Dim ws As Worksheet Set ws = Sheets("BDPAGOS") ifila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(ifila, 1).Value = Me.NOFACTURA.Value ws.Cells(ifila, 2).Value = VBA.CDate(Me.FECHAPAGO.Value) ws.Cells(ifila, 3).Value = Me.BANC…

Quiero plantearles la siguiente cuestión Parto de un Excel con dos hojas visible en pantalla Hoja1 y Hoja2. Con datos variables. Lo que necesito es una macro que automáticamente haga la suma de los rangos De forma que en la Hoja1 Celda C1 ponga la suma del rango variable según valor de Hoja1 celda A1 Igualmente en C2 Hoja1 pondría el resultado de la suma de todas las filas con valor Hoja1 celda A2 E igual con el resto Marco en color para aclarar un poco mas la duda Muchas gracias

Buenos dias Maestros..espero todos esten bien .. aqui otra ves ...molestando... por favor me pueden ayudar en esta solicitud tengo un listbox y necesito que este muestre en su pantalla la suma total de la culumna Neto, Iva y Total lo ideal seria que tambien muestre la cantidad de registro que esta considerando en las sumas Cantidad de facturas : xxxx Total Neto : xx Total Iva : x Total $ : xxx es posible dentro del listbox? desde ya Gracias Totales a Todos totales en listbox.xlsm

Buenos días; Con una consulta SQL de Access a Excel me estoy trayendo 2 columnas, dichas columnas tienen datos duplicados. Estoy intentando traerme los datos sin duplicar de cada columna (una columna independiente de la otra ) pero tal y como lo pongo me mira en las 2 y me trae lo no duplicado en ambas. "SELECT DISTINCT CLIENTE, MOTIVO FROM Consulta" Se puede hacer de alguna forma o tengo que hacer 2 consultas independientes??. Un saludo, Dupli.xlsm

Mi estimados programadores necesito que me ayuden con este tema: Lo que pasa es que tengo 2 archivos de Excel una de ellas para la base de datos y la otra para mostrar los datos, los agradecer bastante les adjunto la aplicaciones correspondientes, gracias de antemano. Importar.rar

Buenas Tarde a Todos los del Foro Mi necesidad es la siguiente.: 1- En la columna "E", tengo algunas celdas vacías y otras con fechas 2- Las celdas vacías no deben lógicamente ser consideradas, solo las que están llenas con algunas fechas, estas inclusive no necesariamente están en orden 3- De las celdas con fechas, solo necesito sacar el mes, pero en la columna "F" 4- A cada tanto este fichero es actualizado, por lo tanto tendrá celdas vacías y algunas celdas con fechas, nuevamente Tengo esta macro que encontré en este foro y trate de adaptarlo a mis necesidades, pero como mi conocimiento es prácticamente nada en términos de macro solicito …