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

• öcsi-bácsi csendes tag

  #1496

  #1495 martonx

  2011-10-16 14:57:30

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  #1495 martonx

  #1495 martonx

  Írsz egy word makrót. Ez a makró az alábbiakat fogja csinálni:

  1. létrehoz egy excel fájlt, amiben minden futásakor frissíti access-ből az adatokat.
  2. elindítja megfelelően felparaméterezve a körlevél generálót

  Ennyi. A 2-es pontra pont itt feljebb találsz példa makrót, az 1-es pont se olyan nagy kaland. Egyébként a word körlevél varázslója milyen adatforrásokat fogad el? Csak excel? (Az itthoni gépemen bevallom LibreOffice van, így nem tudom megnézni )

  Köszönöm, próbálkozok.

• öcsi-bácsi csendes tag

  #1494 2011-10-16 09:15:03

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  Sziasztok!
  Accses lekérdezés adatait szeretném world körlevélbe illeszteni.
  Van ötletetek, hogyan tehetném meg?
  Akár VB, akár acces jelentés formája érdekelne.

• öcsi-bácsi csendes tag

  #1493

  #1492 #90999040

  2011-10-15 14:52:26

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  #1492 #90999040

  #1492 #90999040

  Pontosan ezekről beszéltem. Ezt a kódot így is meg lehetne csinálni:

  Sheets("munka1").Select
  pass = "123456789"
  Sheets("munka2").Unprotect pass
  Sheets("munka1").Range("a1").Copy Destination:=Sheets("Munka2").Range("A1")
  Sheets("munka2").Protect Password:=pass

  Ez pontosan azt csinálja, amit a Tiéd, csak nem 11, hanem 5 sorban.
  Újra kihangsúlyozom: VBA-ban a Select és az Activate használatát csak elkerülhetetlen esetben célszerű használni, így a legtöbb esetben az Application.ScreenUpdating használata is feleslegessé válik(kivéve, ha az aktív munkalapra másolsz nagy mennyiségű adatot), valamint a kód is áttekinthetőbb.

  Köszönöm, hasznosítani fogom a leírtakat.

• öcsi-bácsi csendes tag

  #1491

  #1490 öcsi-bácsi

  2011-10-15 11:31:53

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  #1490 öcsi-bácsi

  #1490 öcsi-bácsi

  Köszi, rendes vagy.

  Közben találtam egy megoldást:
  'visszhang kikapcs
  Application.ScreenUpdating = False
  "makró fut"
  Application.ScreenUpdating = True

  Ami viszont közben kérdésessé vált: adatokat másolok egy űrlapról makróval, egyik excel lapról a másikra, viszont szándékaim szerint a második lap egyfajta adatbázis lesz, amit ellátnék lapvédelemmel. Viszont a makróm természetesen megáll, ha a második lap védelmét bekapcsolom.
  Kérdésem: hogyan másolhatna a makróm mégis ide adatokat?

  megtaláltam:
  Sub rög4()
  'minta védelem feloldására
  Sheets("Munka2").Select
  'azért kell először feloldani a védelmet, mert a kijelölés munka1!a1 megszűnik
  pass = "123456789"
  ActiveSheet.Unprotect pass
  'most lehet másolni!
  Sheets("munka1").Select
  Range("a1").Select
  Selection.Copy
  Sheets("Munka2").Select
  Range("A1").Select
  ActiveSheet.Paste
  'majd rátenni a védelmet!
  ActiveSheet.Protect Password:=pass
  Sheets("munka1").Select
  End Sub

• öcsi-bácsi csendes tag

  #1490

  #1489 #90999040

  2011-10-15 10:16:59

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  #1489 #90999040

  #1489 #90999040

  Másolás közben kerüld a Select és az Activate használatát!!!

  Dim munkalap As String
  munkalap = "munka1"
  Worksheets(munkalap).Range("a1:c3").Copy _
  Destination:=Worksheets(munkalap).Range("e1")

  Ha a másolás után a célterületet szeretnéd aktívan látni, akkor arra add ki a Select-et.

  Köszi, rendes vagy.

  Közben találtam egy megoldást:
  'visszhang kikapcs
  Application.ScreenUpdating = False
  "makró fut"
  Application.ScreenUpdating = True

  Ami viszont közben kérdésessé vált: adatokat másolok egy űrlapról makróval, egyik excel lapról a másikra, viszont szándékaim szerint a második lap egyfajta adatbázis lesz, amit ellátnék lapvédelemmel. Viszont a makróm természetesen megáll, ha a második lap védelmét bekapcsolom.
  Kérdésem: hogyan másolhatna a makróm mégis ide adatokat?

• öcsi-bácsi csendes tag

  #1488 2011-10-15 08:48:19

  Új Válasz

  Ú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

  

  öcsi-bácsi

  csendes tag

  Sziasztok!

  Szeretném, ha a makróm futása közben nem mutatná az oldalakat ahonnan adatokat másol, csak a végeredményt!

  Biztosan van rá valami utasítás,csak még kezdő vagyok.

  Előre is köszi.

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