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

• #1495 martonx veterán öcsi-bácsi #1494

  Új Válasz 2011-10-16 14:15:38 #1495

  Ú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

  

  martonx

  veterán

  válasz öcsi-bácsi #1494 üzenetére

  Í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 )

• #1492 #90999040 törölt tag öcsi-bácsi #1491

  Új Válasz 2011-10-15 13:20:52 #1492

  Ú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

  

  #90999040

  törölt tag

  válasz öcsi-bácsi #1491 üzenetére

  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.

• #1491 öcsi-bácsi csendes tag öcsi-bácsi #1490

  Új Válasz 2011-10-15 11:31:53 #1491

  Ú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

  

  öcsi-bácsi

  csendes tag

  válasz öcsi-bácsi #1490 üzenetére

  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

• #1489 #90999040 törölt tag öcsi-bácsi #1488

  Új Válasz 2011-10-15 09:27:16 #1489

  Ú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

  

  #90999040

  törölt tag

  válasz öcsi-bácsi #1488 üzenetére

  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.

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