Hirdetés
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Te hány éves vagy?
- laskr99: Processzor és videokártya szilícium mag fotók újratöltve!
-
LOGOUT
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
- Shining3D EinScan Pro 2X 3D szkenner
- AKCIÓ! ASUS ROG G16 (2025) G615LR 16 - Ultra 9 275HX 32GB DDR5 1TB SSD RTX 5070Ti 12GB WIN11
- Azonnali készpénzes AMD Radeon RX 7000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- GYÖNYÖRŰ iPhone 12 64GB Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3653
- GYÖNYÖRŰ iPhone 12 Pro Max 128GB Pacific Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3938
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest
10'').Select
Fferi50
