Hirdetés
- GeForce RTX 5060 Ti: Ha az ár jó, minden jó (lenne)
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Gaming notebook topik
- Fujifilm X
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Milyen egeret válasszak?
- Autós kamerák
- Épített vízhűtés (nem kompakt) topic
- AMD Navi Radeon™ RX 6xxx sorozat
-
PROHARDVER!
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
- Redmi Note 9 Pro [joyeuse]
- GeForce RTX 5060 Ti: Ha az ár jó, minden jó (lenne)
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Xbox Series X|S
- Mobil flották
- Autós topik
- One mobilszolgáltatások
- Autós topik látogatók beszélgetős, offolós topikja
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- További aktív témák...
- Lenovo ThinkPad dokkolók: USB-C 40A9/ 40AY/ 40AS/ Thunderbolt 3 40AC/ Hybrid USB-C DisplayLink 40AF
- Jo Nesbo: LEOPÁRD (nem olvasott)
- Bomba ár! Dell Latitude E5570 Touch - i5-6300U I 8GB I 256SSD I 15,6" FHD I HDMI I CAM I W10 I Gari
- Lenovo Thinkpad P1 gen1, gen2, P52s FHD, 4K oled touch
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 4060 Ti 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest