-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Pongii
csendes tag
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.
Új hozzászólás Aktív témák
- Nagyon erős ajánlat lett CMF Phone 2 Pro
- Mégsem lesz divat az atomerőműre kötött adatközpont?
- Autós topik
- BIOS frissítés
- Tőzsde és gazdaság
- Gumi és felni topik
- Autós topik látogatók beszélgetős, offolós topikja
- 80% vs. 100% – Tönkreteszed az aksit, ha mindig feltöltöd? – Tech Percek #6
- Androidos tablet topic
- DOOM - The Dark Ages
- További aktív témák...
- VÉGKIÁRUSÍTÁS - REFURBISHED - Lenovo ThinkPad 40A9 docking station
- Csere-Beszámítás! Számítógép PC Játékra! I5 14400F / RTX 4060ti 16GB / 32GB DDR5 / 1TB SSD
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Apple Macbook Air 13" 2020 M1 8GB 256GB SSD notebook garanciával hibátlan működéssel
- ÁRGARANCIA! Épített KomPhone Ryzen 5 7600X 32/64GB RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest