Ampliar rango para análisis en excel

Tengo el siguiente código y me gustaría 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

Respuesta
1

I. Hola Fredy, en mi caso desconozco cómo llevar a cabo este procedimiento pero deseaba dejare algunos enlaces creo que sobre este tema, que podrían ofrecerle pistas para encontrar una manera de llevar a cabo la ampliación de rango que necesita. Usted tambien podría dirigir su consulta a un experto en VBA. Siento las molestias, mucho ánimo.

Ampliar rango

Ampliar automáticamente en excel la matriz de BD

https://computerhoy.com/video/como-validar-datos-celda-excel-27455 

https://es.justexw.com/como-ampliar-un-rango-de-excel.html 

https://www.youtube.com/watch?v=NfOBA-fZOsQ 

https://www.youtube.com/watch?v=TH9Zd55lBqI 

https://exceltotal.com/cambiar-origen-de-datos-de-una-tabla-dinamica/ 

https://blogs.itpro.es/exceleinfo/2016/07/27/2-maneras-de-modificar-celdas-protegidas-en-excel-con-macros/ 

https://www.segurosdetuatu.es/posts/siete-formulas-de-excel-que-te-haran-quedar-como-todo-un-experto-en-tu-trabajo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas