- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Kalandor: SYNTHONY - Darude Sandstorm (Live from Melbourne)
- gban: Ingyen kellene, de tegnapra
- GoodSpeed: AdGuard Family Plan: Lifetime Subscription akár 9 eszközre!
- sh4d0w: Árnyékos sarok
-
LOGOUT.hu
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
Hirdetés
- Nyaralás topik
- EAFC 25
- Kertészet, mezőgazdaság topik
- 30 évre csökkentette lemaradását a litográfiai eszközök területén Oroszország
- Eredeti játékok OFF topik
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- Külföldi rendelések: boltok, fizetés, postázás
- Parfüm topik
- Tőzsde és gazdaság
- Napelem
- További aktív témák...
- Apple Watch Series 9 45mm, Újszerű, 1 Év Garanciával
- Csere-Beszámítás! Lenovo Ideapad Gaming 3 Garancia: 2026.07 // R7 5800H / GTX 1650 4GB
- Bomba ár! Lenovo X1 Yoga 1st - i7-6G I 16GB I 256GB SSD I 14" FHD Touch I W10 I CAM I Garancia!
- BESZÁMÍTÁS! ASUS H110 i5 6600 16GB DDR4 250GB SSD 1TB HDD GTX 1060 3GB Zalman S2 TG DeepCool 580W
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest