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

• #1497 Pongii csendes tag loszerafin #1490

  Új Válasz 2006-09-01 14:39:15 #1497

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

  Természetesen próbáltam, de nem vezetett sehová.
  Megtudtam, hogy csak az A1 cellátol lehet kijelölni, hogy ez miért így van arra csak a tm.
  MS. szakemberek tudnának válaszolni.
  A megoldást leírom, hátha valakinek szüksége lesz rá.
  Tehát: a kijelölt tartományt át kell másolni egy új munkalap A1-el kezdődő tartományába és onnét kell elküldeni. ( Köszönet Józsefnek a megoldásért ).

• #1489 Pongii csendes tag Pongii #1488

  Új Válasz 2006-08-29 12:35:45 #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

  Privát üzenet küldése

  

  Pongii

  csendes tag

  válasz Pongii #1488 üzenetére

  Na, talán tudom a kérdésemre a választ megpróbálom újra. Bocs!
  ---------------------------------------------------------------------------------------------------------------------------------
  
  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.
  
  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 A1:F10 tartomány ' Csak akkor működik, ha az A1 cellától van a
  ' kijelölés, ezen kellene változtatni.
  Range(''A1:F10'').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(''A1:F10'') 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.

• #1488 Pongii csendes tag Pongii #1487

  Új Válasz 2006-08-29 12:28:26 #1488

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

  Nem értem, már megint odarakta az arcocskát a kettőspontok helyére, pedik most használtam a kód gombot.
  Miért van ez?
  :

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

• #1485 Pongii csendes tag

  Új Válasz 2006-08-29 08:49:46 #1485

  Ú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

  Sziasztok
  Segítséget szeretnék kérni, hogy, ha a kijelölés nem az A1-es cellától kezdődik, hogy kellene módosítani a kódot, hogy elküldje a levelet.
  Nekem nem sikerül megoldanom, pedig néhány variációt már kipróbáltam.
  
  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

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