Jump to content

Covertir Cells en Range


Recommended Posts

Hola de nuevo. Envío un ejemplo de lo que necesito, no se si esto es posible.

Tengo unos datos en una hoja y en una celda calculo el % entre dos celdas. Hasta ahí es sencillo, pero lo que necesito es que en la celda donde se hace el calculo aparezca la fórmula como si no estuviera hecho con VBA.

 

Por ejemplo, Sub ejemplo()
lColumn = Hoja1.Cells(13, Columns.Count).End(xlToLeft).Column
For x = 2 To x
Hoja1.Cells(13, x) = Hoja1.Cells(12, x) / Hoja1.Cells(3, x)
Next
End Sub

Sub ejemplo()
lColumn = Hoja1.Cells(13, Columns.Count).End(xlToLeft).Column
For x = 2 To x
Hoja1.Cells(13, x) = Hoja1.Cells(12, x) / Hoja1.Cells(3, x)
Next
End Sub

Es un ejemplo sencillo. lo que quisiera es que en la celda "B13" pusiera la fórmula "=B12/B3"

Tengo una hoja Excel que trae muchísimos datos de otras hojas, incluidos los % y necesito que aparezca la fórmula para poder "tocar" algunos datos y ver cual sería el resultado. 

Si es posible y me podéis ayudar lo agradezco, subo un archivo que no tiene nada que ver pero es un ejemplo.

Gracias.

Cell to Range.xlsm

Link to comment
Share on other sites

Hola de nuevo, ya lo solucioné. Dejo el código y si alguien sabe mejorarlo será un gusto aprender.

Sub Convertir_Cells_en_Range()
'
Dim rng1$, rng2$, rng3$, wdatos As Worksheet
Set wdatos = ThisWorkbook.Sheets("Hoja1")

uCol = Range("B2").End(xlToLeft).Offset(0, 1).Column + 1
 For col = 2 To uCol
    rng1 = wdatos.Cells(3, col).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    rng2 = wdatos.Cells(12, col).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    rng3 = wdatos.Cells(22, col).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    wdatos.Cells(13, col) = "=" & rng2 & "/" & rng1
    wdatos.Cells(24, col) = "=" & rng3 & "/" & rng1
 Next
'
End Sub

 

Cell to Range.xlsm

Link to comment
Share on other sites

Sub Convertir_Cells_en_Range()
With Hoja1
   For col = 2 To Cells(3, Columns.Count).End(xlToLeft).Column
      .Cells(13, col) = "=" & .Cells(12, col).Address(False, False) & "/" & .Cells(3, col).Address(False, False)
      .Cells(24, col) = "=" & .Cells(22, col).Address(False, False) & "/" & .Cells(3, col).Address(False, False)
   Next
End With
End Sub

 

Link to comment
Share on other sites

Hace 7 horas, Antoni dijo:
Sub Convertir_Cells_en_Range()
With Hoja1
   For col = 2 To Cells(3, Columns.Count).End(xlToLeft).Column
      .Cells(13, col) = "=" & .Cells(12, col).Address(False, False) & "/" & .Cells(3, col).Address(False, False)
      .Cells(24, col) = "=" & .Cells(22, col).Address(False, False) & "/" & .Cells(3, col).Address(False, False)
   Next
End With
End Sub

 

Gracias @Antoni. Mucho más corto y lógico.

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy