ampliar rango para analizar datos

[jhon fredy]

hola buenas tardes , tengo el siguiente codigo y me gustaria ampliar el rango ,que cambie de columna B a columna A,B,C para poder analizar dichos datos

Sub Aleato()
borrar_anteriores
With Application
   .ScreenUpdating = False
   .DisplayAlerts = False
   '--
   ufila99 = 1 + Sheet99.Cells(Rows.Count, 1).End(xlUp).Row
   tf = Sheets("estadisticas").UsedRange.Rows.Count
   tc = Sheets("estadisticas").UsedRange.Columns.Count
   '--
   For x = 1 To 20
      Do: f = Int((tf * Rnd) + 1)
          c = Int((tc * Rnd) + 1)
      Loop Until Sheets("estadisticas").Cells(f, c) <> ""
      Sheets("analisis").Range("B" & x) = CDbl(Sheets("estadisticas").Cells(f, c))
      Sheets("analisis").Range("B" & x).NumberFormat = "0000"
      Sheets("estadisticas").Cells(f, c).Interior.Color = vbYellow
      Sheet99.Cells(ufila99, 1).Value = f
      Sheet99.Cells(ufila99, 2).Value = c
      ufila99 = ufila99 + 1
   Next
   '--
   .ScreenUpdating = True
   .DisplayAlerts = True
End With
End Sub
 

[AlexanderS]

Hola @jhon fredy, tus consultas no son claras ( esta y anteriores) por eso no obtienes respuestas. Debes indicar en tus consultas de forma clara la ayuda que necesitas, ademas adjuntar un archivo de excel para poder realizar pruebas ya que casi nadie esta dispuesto a crear un archivo de 0, los datos del ejemplo deben ser ficticios pero fieles al formato original.

Realiza tus consultas explicando mas claramente el problema, adjunta un ejemplo. Así habrá mas usuarios dispuestos a usar su tiempo en atender tus consultas.

Saludos.