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

• #9802 Delila_1 veterán Pá #9796

  Új Válasz 2011-03-28 10:14:37 #9802

  Ú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 Pá #9796 üzenetére

  Rögzíts egy makrót a solver beállításaival, amibe minden feltételt vegyél be.
  Legyen annyi üres lapod, ahány változatot szeretnél látni. Az első lapon van a kiinduló táblázat, nálam ez az A1:D5 terület, a célcella D6.

  Sub solver()
  Dim lap As Long, max As Single, változat As Integer
  max = 0
  változat = 30 'Itt add meg a kért változatok számát
  For lap = 1 To változat
  Sheets(lap).Select
  'Kiinduló változat másolása a következő lapra
  If lap < 20 Then
  Range("A1:D6").Select 'A saját területedet add meg itt
  Selection.Copy Sheets(lap + 1).Cells(1)
  End If
  
  'Ide jön a rögzített makró
  
  If Range("D6") > max Then max = Range("D6")
  Next
  MsgBox max
  End Sub

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