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

• #3492 Delila_1 veterán Dolby #3489

  Új Válasz 2008-04-29 19:45:26 #3492

  Ú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 Dolby #3489 üzenetére

  Sub Keplet()
  For sor = 2 To 4
  lap = "Hungary_" & 4 - sor + 1
  sz = Sheets(lap).Cells(2, 2).Value
  Cells(sor, 2) = sz
  Next
  End Sub

  A For sorban, és a következő sorban is írd át a 4-et a lapjaid darabszámára.

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