Covertir Cells en Range

[Pirtrafilla]

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.xlsmFetching info...

[Pirtrafilla]

Creo que ya lo tengo......

A ver si ceno y luego pruebo, y si lo consigo subo el código.

[Pirtrafilla]

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.xlsmFetching info...

[Antoni]

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

 

[Pirtrafilla]

  En 26/6/2021 at 8:25 , 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

 

Expand  

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