Articles of vba

Cómo agregar una hoja con nombre al final de todas las hojas de Excel

Estoy intentando agregar una hoja de Excel con el nombre “Temp” al final de todas las hojas existentes pero este código no funciona Private Sub CreateSheet() Dim ws As Worksheet ws.Name = “Tempo” Set ws = Sheets.Add(After:=Sheets(Sheets.Count)) End Sub ¿Podrías decirme por qué? Gracias

¿Cómo optimizar vlookup para un alto conteo de búsquedas? (alternativas a VLOOKUP)

Estoy buscando alternativas a vlookup, con un mejor desempeño dentro del contexto de interés. El contexto es el siguiente: Tengo un conjunto de datos de {key; data} que es grande (~ 100’000 registros) Quiero realizar muchas operaciones VLOOKUP en el conjunto de datos (el uso típico es reordenar todo el conjunto de datos) Mi conjunto […]

Analizar múltiples celdas y valores desde una sola solicitud JSON

Me gustaría mostrar las siguientes variables desde una solicitud JSON; “time”, “open”, “high”, “low”, “close”, “volumefrom”, “volumeto” en las siguientes columnas B, C, D, E, F, G y H. La solicitud: https://min-api.cryptocompare.com/data/histoday?fsym=BTC&tsym=USD&limit=60&aggregate=3&e=CCCAGG Entonces, me gustaría ver, por ejemplo, los valores de “abierto” ubicados en C2: C51. Escribí la siguiente macro: Sub OHLCdata() Dim strURL As […]

VBA- variable en un rango, dentro de una fórmula

Tengo el siguiente código para calcular el máximo en un rango de celdas: Range(“E3”).Select ActiveCell.FormulaR1C1 = “=MAX(RC[-3]:R[50]C[-3])” ¿Cómo puedo reemplazar 50 con una variable en mi código? ¡Gracias por tu ayuda!

Abrir página web, seleccionar todo, copiar en hoja

He buscado alto y bajo para algo que funcione para mí en esto, ¡sin suerte! ¡Cualquier ayuda será muy apreciada! 🙂 Buscando copiar los datos de opciones sobre acciones de Barcharts.com y pegarlos en la hoja de Excel. aquí es donde estoy: Sub CopyTables() Dim ie As Object Dim I As Long I = 0 […]

¿Cómo comparar dos formas?

¿Hay alguna manera de comparar dos formas geométricas (o dos estructuras de datos más genéricas), sin usar la fuerza bruta cuando se trata de una tolerancia? La fuerza bruta (es decir, la comparación de cada valor de cada objeto con cada valor del otro objeto) funciona pero es lenta y no puedo usarla. Traté de […]

Forzar una actualización de pantalla en Excel VBA

Mi herramienta de Excel realiza una tarea larga, y trato de ser amable con el usuario al proporcionar un informe de progreso en la barra de estado, o en alguna celda de la hoja, como se muestra a continuación. Pero la pantalla no se actualiza o deja de refrescarse en algún momento (por ejemplo, 33%). […]

FileDialog no funciona

He buscado bastante intensamente, pero no pude encontrar una publicación que resuelva directamente mi problema. El siguiente código para un formulario que creé funciona en Access 2003, que uso en el trabajo. Dim FileName As FileDialog Set FileName = Application.FileDialog(msoFileDialogFilePicker) Dim Name As Variant With FileName .AllowMultiSelect = False .Show If .SelectedItems.Count = 0 Then […]

¿Cómo hacer referencia a los objetos de Excel en Access VBA?

¿Qué declaraciones tengo que hacer para poder usar objetos y constantes de Excel desde mi script VBA de Access 2007? Dim wb As Workbook o Set objExcelApp = New Excel.Application o .Borders(xlEdgeBottom) Gracias

Continuar por el bucle

Tengo el siguiente código For x = LBound(arr) To UBound(arr) sname = arr(x) If instr(sname, “Configuration item”) Then ‘**(here i want to go to next x in loop and not complete the code below)** ‘// other code to copy past and do various stuff Next x Así que pensé que podría simplemente tener la statement […]