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

• #8773 Delila_1 veterán Zomb€€ #8770

  Új Válasz 2010-12-02 11:27:47 #8773

  Ú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

  

  Delila_1

  veterán

  válasz Zomb€€ #8770 üzenetére

  Alternatív megoldás FIRE megoldásával szemben:

  Sub valami()
  Dim sor As Integer
  i = 40
  For sor = 48 To 168 Step 2
  Cells(sor, 4) = "='Alap tábla'!C" & sor - i
  Cells(sor + 1, 4) = "='Alap tábla'!D" & sor - i
  i = i + 1
  Next
  End Sub

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