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

• #1487 Pongii csendes tag loszerafin #1486

  Új Válasz 2006-08-29 12:22:45 #1487

  Ú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

  

  Pongii

  csendes tag

  válasz loszerafin #1486 üzenetére

  Pontosítva: azt szeretném, hogy rákattintok egy gombra az excel táblán, akkor küldjön el automatikusan egy előre definiált tartományt email-ban a címzett részére.
  A problema az, hogy a tartomány amit el szeretnék küldeni nem A1-es cellától kezdődik és ezáltal nem működik a küldés.
  A kódot beírom újra, bár csak az arcocska nem odaillő, nem tudom, hogy került oda.
  
  Sub SendSelection()
  
  ' alapparaméterek
  
  email_to = ''valaki@t-online.hu''
  email_cc = ''mas@freemail.hu''
  email_subject = ''Heti aktuális''
  
  ' A küldendő rész a A110 tartomány ' Csak akkor működik, ha az A1 cellától van a
  ' kijelölés
  Range(''A110'').Select
  
  ' Fájl/Küldés/levél címzettje menü kiválasztás
  
  SendKeys ''%flz''
  
  ' Visszaállás az első email mezőre
  
  SendKeys ''+{TAB}+{TAB}+{TAB}''
  
  ' email mezők feltöltése
  
  SendKeys email_to
  SendKeys ''{TAB}''
  SendKeys email_cc
  SendKeys ''{TAB}''
  SendKeys email_subject
  SendKeys ''{TAB}''
  
  ' Levél elküldése Alt+é billentyűzetkombinációval
  
  SendKeys ''%é''
  
  End Sub
  
  
  Bemásolva egy új modulba futni fog, de csak az excel munkalapról indítva fut helyesen a szerkesztőben nem.
  Tehát abban segítsetek, hogy-ha Range(''A110'') tartomány helyett Range(''G10:W30'')
  szeretnék küldeni, hogy módosítsam a kódot, hogy működjön a küldés
  
  

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