Új hozzászólás Aktív témák

• #21068 bteebi veterán

  Új Válasz 2014-03-24 10:08:12 #21068

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bteebi

  veterán

  Sziasztok!

  Van egy 8×12-es tömböm a G1118-as tartományban. Azt szeretném, ha ezen cellák tartalmát a D sorba (D2-től lefelé) egy makró "meghivatkozná" képletként - tehát a értéke D2 az lenne, hogy "=G11", a D3-é az, hogy "=H11", a D97-é pedig az, hogy "=R18" - tehát ha bármit megváltoztatnék a tömbben, akkor az automatikusan átíródna a D oszlopban. Ezt a makrót írtam rá:

  Sub masolas()
  Dim i As Integer, j As Integer
  For i = 1 To 12
  For j = 1 To 8
  If Cells(j + 10, i + 6) <> "" Then
  Cells(1 + (j - 1) * 12 + i, 4).Formula = Cells(j + 10, i + 6).Formula
  Else: Cells(1 + (j - 1) * 12 + i, 4).Value = ""
  End If
  Next j
  Next i
  End Sub

  Alapvetően működik is, de csak az adott cella értékét írja be, nem pedig képletként hivatkozik rá. Hogy kellene átírnom? Előre is köszönöm a segítségeteket!

Új hozzászólás Aktív témák