Mario Rodríguez

. Hola! Eva. Intenta por ejemplo con: Private Sub ListBox1_Click() With ListBox1 Application.Goto Range(.RowSource).Resize(1).Offset(.ListIndex) End With End Sub ¿Te sirve la idea?... Saludos, Mario (Cacho) R. :)

. . ¡Olvídalo!... El método ExportAsFixedFormat fue inventado -recién- para el Excel 2007. .

:) Hola! Leonardo. Es -verdaderamente- exótico que "ates" el llenado del textbox (que está en la hoja, por lo que se ve) con el combobox... ¡Cuando deberían ser independientes! Por ejemplo: TextBox1 = Join(Application.Transpose(Range("H2:H7")), " /...

:) Hola! Wilson (y Dante). Efectivamente cuando deseas cargar datos en un List/ComboBox de más de 10 columnas... ¡El AddItem "se pone fastidioso"! Tienes 3 formas de sobrellevar el tema. Imaginemos que tus datos están en el rango A1:L10. Entonces:...

. :) 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,...

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

:) 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(,...

. :) - Pon la siguiente macro en cualquier libro: Sub Macro458() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets With ws.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious) ws.Range(.Offset(1),...

:) Intenta con este otro enlace: Si éste te funciona es que aquél: a) O no es el enlace correcto, b) O -simplemente- no te lo permite el servidor. Saludos, Mario R. :) .