Mario Rodríguez

:) Hola! Te re-pregunto: ¿Intentaste con una tabla dinámica (TD)?...

:) Hola! Para todos. El siguiente código me procesó 200 mil filas de datos en 11.69 segundos: ¿Lo evaluarías?... Sub Copiar_Numeros_4() Dim Mat1, Mat2, Q&, i&, j%, R%, iniTime! iniTime = Timer Application.ScreenUpdating = False Mat1 = Range("a1",...

. :) Hola! Seba. Una forma de hacerlo sería con: Sub ReDistribuir() '------------------ 'by Cacho Rodríguez '------------------ Dim piv As Range, iKey$, C As Range, D As Range, Q&, i&, R% Set piv = Range("A1") Q = Range(piv,...

:) . Hola! José. Te lo voy a explicar "fácil"... ___________________ - Cuando en un código ves algo como: c = 6 la variable "c" es -a todos tus efectos- equivalente al número 6. Por ejemplo: MsgBox c Te mostrará un mensaje en un cuadro de diálogo con...

:) Intenta con: Private Sub ToggleButton1_Click() Range("A1") = IIf(ToggleButton1, "Uno", "Dos") End Sub ¿Te sirve la idea?... :) .

. :) Hola! Jesús. Tienes -al menos- 5 formas de hacerlo. Suponiendo que tu información se encontrase en la hoja 'Datos' y que debieras incorporar '15' filas, te muestro dos métodos que te pueden interesar: 1) Es el más eficiente en términos de...

. :) Hola! Bernardo. Para que lo siguiente te funcione deberías tener: - Un Access de nombre: miBD. Accdb, - Ubicado en la misma carpeta que tu Excel, - Y conteniendo una tabla de nombre: mi Tabla Si tu Userform contiene un listbox de nombre:...

. :) Hola! Natalia. No creas que "me quedó muy claro" lo que pretendes conseguir. Por ello te brindaré tres soluciones que se corresponden a las tres cosas que entendí: a) Si pretendes saber cuántas palabras están escritas totalmente en minúscula...

:) Hola! Joaquín. El método que te muestro: Sub Seleccionar_10() Dim mColl As New Collection, C As Range, i%, j% For Each C In Range("a1:a20"): mColl.Add C.Value, C.Address: Next Do i = 1 + i: j = Application.RandBetween(1, mColl.Count) Cells(i,...

. :) Hola! Esteban. Por ejemplo así: Sub traslado_y_elimino() Dim C As Range Set C = Columns("a").Find("valor", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False) Do Until C Is Nothing With C C.Offset(, 1).Resize(,...