Jump to content

sretamalb

Members
  • Content Count

    201
  • Joined

  • Last visited

About sretamalb

  • Rank
    Advanced Member

Recent Profile Visitors

411 profile views
  1. Muchas gracias @Snake!! Funciona @Gerson Pineda Funcionan a la perfección no tenía idea como funcionaba esa función. La primera me arroja el último registro es decir 41, la función agregar función con el máximo (52) Saludos
  2. Hola buenos días, Tengo una tabla donde necesito encontrar el valor máximo de una columna pero no lo logro porque estoy utilizando la función buscarv pero siempre me arroja el primer número asociado que encuentra y no necesariamente es el valor más alto. Nombre CI Edad CARLOS 12 20 ANDRES 13 38 CARLOS 14 12 EDUARDO 15 15 CARLOS 16 41 FRANCISCA 17 18 Necesito que me busque la edad mayor de Carlos, es decir, 41 debería ser el resultado no 20. Gracias.
  3. @avalencia en el foro sabes si existe algún tutorial o información al respecto?
  4. Buenas Tardes, Escribo para saber si alguien me puede ayudar con el problema que estoy teniendo. Actualmente tengo una macro que hecha en Excel donde mediante formularios la información se va almacenando en las mismas hojas del libro de Excel. El problema que presento es que necesito que esta macro que funciona muy bien, pueda ser utilizada por 2 más personas a la vez, por lo tanto me gustaría saber si existe alguna forma de traspasar todos los códigos que tengo en vba a access para que así pueda quedar como multi usuario. Ojalá alguien me pueda aconsejar como puedo proceder con este cambio. Gracias.
  5. Gracias Héctor, entonces es mejor trabajar en vez de Private Sub Workbook_Open() en: Private Sub Workbook_Activate()
  6. @Héctor Miguel no funciono, queda el libro2 abierto y el 1 cerrado.
  7. Buenas tardes, Tengo un libro1 en excel donde ejecuto una macro y este abre un libro2, el cual comienza a ejecutar otra macro. Hasta acá todo bien. El problema ocurre cuando quiero cerrar el libro 2. Cuando estoy en el libro 2 y cierro el libro 1 con la función Workbooks("libro1.xlsm").Close SaveChanges:=True, se cierra bien, el problema es que al continuar en el libro 2 este no se cierra queda abierto y necesito que también se cierre. Acá les dejo el código que estoy usando. Si reviso el código línea por línea con F8 se cierra todo y funciona perfect, entonces nosé porque cuando se ejecuta todo de una vez queda abierto al final el libro2 y no se cierra. Alguien me podría ayudar? Este código estoy ocupando: En el libro1: Private Sub Workbook_Open() Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveCell.FormulaR1C1 = "=TODAY()-1" ThisWorkbook.Save nbre = "NO-TOCAR-" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "/" & nbre Call Abrir_libro2 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub En el libro2: Private Sub Workbook_Open() On Error Resume Next Workbooks("libro1.xlsm").Close SaveChanges:=True Call Macro2 Workbooks("libro2.xlsm").Close SaveChanges:=True End Sub El libro 1 se cierra bien pero queda activo el libro 2 no se cierra excel. Gracias!
  8. @José_Santos está súper bueno el archivo, pero existe alguna forma que yo pueda ingresar por ejemplo los SKU que quiero que se descargue la información? Por ejemplo: que en la columna A escriba el código del producto y en la B me arroje la descripción, en la C precio con descuento 449e, en la D 549e y en la E el -18%. Se puede? Lo ideal sería que uno pudiera buscar cualquier SKU en la página no solamente de tv Ojalá me puedas ayudar. Gracias!
  9. @José_Santos Muchas gracias por tu ayuda, lo revisaré y te comento. Saludos
  10. @avalencia si elimino la fila on error resume next me arroja el siguiente error: @Gerson Pineda si sacó coloco después del ciclo la variable precio1= empty no me arroja ningún resultado en la hoja de cálculo. Como se podrá solucionar? Muchas Gracias por la ayuda de ambos.
  11. @avalencia el problema es que si no le coloco “on error resume next” la macro me queda con error. Queria tratar de colocar algo como la formular de Excel si.error(), cosa que si no encuentra el código buscado en la web me lo dejé en blanco. Pero intente con la función “IsError” pero no funciono. Me recomiendas otra forma? muchas gracias.
  12. Buenas tardes, Estoy tratando de armar un archivo donde al escribir los códigos de ciertos productos este los busque en páginas web y me traiga los precios asociados, la macro funciona ahora como esta pero el problema ocurre cuando un código no lo encuentra en la página me escribe el precio del código anterior. Alguien me puede ayudar a que si no encuentra ese código en la página el valor quede en blanco? Este es el código que estoy usando. Sub test() Dim IE As New InternetExplorer Dim precio1, precio2 As Variant Dim doc As HTMLDocument Range("B2:C1000").Clear Cantfila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Cantfila IE.Visible = False IE.navigate "https://www.elcorteingles.es/electronica/ofertas-electronica/tv/" & Range("A" & i).Text & "/" Range("B6").Text Do DoEvents Loop Until IE.readyState = READYSTATE_COMPLETE Set doc = IE.document On Error Resume Next precio1 = doc.getElementsByClassName("fb-price")(0).innerText If Right(precio1, 1) = ")" Then largo = Len(precio1) Range("B" & i) = Mid(precio1, 1, largo - 9) Else Range("B" & i) = precio1 End If precio2 = doc.getElementsByClassName("fb-price")(1).innerText If Mid(precio2, 1, 1) = "A" Then Range("C" & i) = "" Else Range("C" & i) = precio2 End If Next i MsgBox "Proceso Terminado" IE.Quit End Sub Gracias!
  13. @avalencia la rueda del mouse está buena. No sé porque no funcionará, hice todo lo que me dijiste y aún así no puedo. En la hoja inicio tengo el siguiente código: En la hoja de Inicio: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("Inicio").Cells.EntireRow.Hidden = False Sheets("Inicio").Cells.EntireColumn.Hidden = False End Sub En la hoja de "Reporte" y "Reporte-Boleta": Private Sub Worksheet_Activate() Application.ScreenUpdating = False Sheets("Reporte").Activate ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh End Sub Y no corre la rueda =(
×
×
  • Create New...

Important Information

Privacy Policy