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

• #14341 Dolby senior tag Dolby #14340

  Új Válasz 2012-07-16 13:57:15 #14341

  Ú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

  

  Dolby

  senior tag

  válasz Dolby #14340 üzenetére

  Köszi, de meg van a megoldás: Indirekt()
  :-)

• #6560 Dolby senior tag Dolby #6559

  Új Válasz 2010-03-10 22:28:03 #6560

  Ú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

  

  Dolby

  senior tag

  válasz Dolby #6559 üzenetére

  Közben végig nyálaztam a függvényeket és a közép függvénnyel tökéletesen meg tudom oldani. :-)

• #3508 Delila_1 veterán Dolby #3507

  Új Válasz 2008-05-04 08:28:19 #3508

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

  Szívesen. Nem ment volna a PC fórumos válasz nélkül.

• #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.

• #3494 Delila_1 veterán Dolby #3489

  Új Válasz 2008-04-29 19:55:23 #3494

  Ú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

  Ja, és arról a lapról indítsd a makrót, ahol az adatokat össze akarod gyűjteni, vagy az első sorba írd be:

  Sheets("ide jön a gyűjtőlap neve az idézőjelek közé").Select

• #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.

• #3490 Dolby senior tag Dolby #3489

  Új Válasz 2008-04-29 17:59:26 #3490

  Ú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

  

  Dolby

  senior tag

  válasz Dolby #3489 üzenetére

  Jah és kérdés hogy makróban az oldalakra csak a nevük alapján lehet hivatkozni? Nincs valami olyan hivatkozás ami tisztán a lap sorozatban való elhelyezkedését veszi figyelembe? Mert így ha valamit átneveznek akkor a makró egyből hibát ír ki illetve külső dokumentumból akarja meghívni az adatot.. :-S

• #3489 Dolby senior tag Dolby #3486

  Új Válasz 2008-04-29 17:50:00 #3489

  Ú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

  

  Dolby

  senior tag

  válasz Dolby #3486 üzenetére

  No makrót írtam az alapján hogy felvettem egy részletet az elvégzendő munkából de kicsit hosszú lenne minden adattal így végigmenni, ezért kérdezném hogy lehet-e ezt egyszerűsíteni.

  Range("B2").Select
  ActiveCell.FormulaR1C1 = "=Hungary_3!R[1]C"
  Range("B3").Select
  ActiveCell.FormulaR1C1 = "=Hungary_2!RC"
  Range("B4").Select
  ActiveCell.FormulaR1C1 = "=Hungary_1!R[-1]C"
  Range("B5").Select

  Itt látjátok hogy gyakorlatilag különböző oldalak azonos helyén lévő adatokat teszegetem be makróval egy oldalon egymás alá, de 69 oldal van és nem irogatnám végig ha van más megoldás...

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