-
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
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Honor Magic6 Pro - kör közepén számok
- OTP Bank topic
- Nem indul és mi a baja a gépemnek topik
- Call of Duty: Black Ops 6
- Tudományos Pandémia Klub
- Melyik tápegységet vegyem?
- Eredeti játékok OFF topik
- Nvidia GPU-k jövője - amit tudni vélünk
- Diablo IV
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- NORTON 360 for Mobile! 1 eszköz, 1 év! DOBOZOS, BONTATLAN!
- Game Pass Ultimate előfizetések 1 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- World of Warcraft Burning Crusade Collector's edition bontatlan
- Disney PC játékok
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 01. 17.)
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Office 2024 Professional Plus, Office Pro Plus 2024 online 32/64 bit - MEGA akció!
- Bitdefender Internet Security 1 Year Plan for 1 Device
Állásajánlatok
Cég: Marketing Budget
Város: Budapest