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

• #3497 Delila_1 veterán Dolby #3495

  Új Válasz 2008-04-30 16:48:54 #3497

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

  Nagyon jó a PC fórumos válasz. Átmásolom ide, hogy más is okulhasson belőle.
  Dongetto ezt írta:

  Function pelda(munkalapszama As Integer, cella As String)
  pelda = Sheets(munkalapszama).Range(cella).Value
  End Function

  Ezt a makrót ebbe a füzetbe, vagy az egyéni makrófüzetbe (hogy minden más füzet is elérje) beírva működik az alábbi képlet:

  =pelda(5;"B3") -> az ötödik, bármilyen nevű lap B3 cellájának értékét adja.

  Átírtam ennek megfelelően az előző makrómat.

  Sub Keplet()
  Sheets("Munka1").Select
  For sor = 2 To 69
  Cells(sor, 2).Select
  ActiveCell.FormulaR1C1 = "=pelda(" & sor & ",""B3"")"
  Next
  End Sub

  Ha jól emlékszem, 69 lapod tartalmazza az adatokat, amiket az első lapra B2-től kezdve gyűjtesz ki egymás alá (ezzel együtt 70 lapod van). A makróban Munka1-nek neveztem a gyűjtő lapot. Ezt teszed előre, azért indul a ciklus 2-től.

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