-
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
-
dave0825
őstag
válasz Pakliman #42305 üzenetére
és (#42306) Delila_1: Köszönöm, sikerült. Még beleraktam egy
=HA((HAHIÁNYZIK(FKERES(E2;$A$2:$A$100;1);1))=1;"";DARABTELI($A$2:$A$100;E2))
függvényt, összeszámolja, hogy hányszor voltak az értékek, most olyan, amilyet akartam.Huawei P30 // Suzuki DL650XT '15 <-- Kawasaki Z750 '07 <-- Aprilia RS 125 '99
-
ROBOTER
addikt
válasz Pakliman #43258 üzenetére
Nem a cella értékét iratom ki az MsgBox-ban, hanem a globális változó értékét. Az törlődik.
Az érintett változóban a cella neve (B11) szerepel, nem a tartalma.
A newSheetNamePos nem szerepel a kódban sehol, kereséssel néztem át. És többször átírtam a nevét abban a 3/4 sorban, hogy hibát dobjon, ha esetleg benne hagytam valahol. De semmi változás. Létrehoz egy sheetet, működik, létrehozná a következőt, és nincs tartalma a változónak.
Valamit nem tudok a VBA-ról, amit tudnom kellene a globális változók terén.[ Szerkesztve ]
-
KBaj
kezdő
válasz Pakliman #45667 üzenetére
Kedves Pakliman!
Köszönöm szépen a reagálásod!
Valóban jó ötletet adtál; fájl komplett felülírása helyett megfelelő lehet annak legyilkolása, úgy sem kellenek már az adatok.
A bejegyzésed után azonban Fferi50 javasolt egy számomra „szebb” megoldást. Mint tudjuk egy feladat megoldása véges sok számú lehet.
Köszönöm, hogy figyeltél rám. -
-
spe88
senior tag
válasz Pakliman #46446 üzenetére
az enyém ilyen, de nem értem ott mi a baj. Igaz nem is értek hozzá túlzottan
Sub SendPDF_WithAccountSignatiure()
' --> User settings, change to suit
Const IsDisplay As Boolean = True ' Change to False for .Send instead of .Display
Const IsSilent As Boolean = False ' Change to True to show Send status
Const FontName = "Arial" ' Font name of the email body
Const FontSize = 11 ' Font size of the email body
Const Account = 2 ' Index or Name of the account to send from
' <-- End of the settings
Dim IsCreated As Boolean
Dim OutlApp As Object
Dim char As Variant
Dim PdfFile As String, HtmlFont As String, HtmlBody As String, HtmlSignature As String
' Edit the body's html text as required
' The tags are: h3 is for Header#3; b is for Bold; br is for line break
' HTML tag's are not displayed properly in the post of MrExcel forum, thus replacing is used to fix this problem
HtmlBody = "Hello, (br)" _
& ".(br)" _
& "Proba."
HtmlBody = Replace(HtmlBody, "(", "<")
HtmlBody = Replace(HtmlBody, ")", ">")
' Set the font for the html-body (parentheses are just because of MrExcel posting limitation)
HtmlFont = HtmlFont = "(body font: " & 11 & "pt " & Arial & ";color:black"")"
HtmlFont = Replace(HtmlFont, "(", "<")
HtmlFont = Replace(HtmlFont, ")", ">")
' Define PDF filename
PdfFile = Range("'Report MOS'!L1")
' Replace illegal symbols in PdfFile by underscore
For Each char In Split("? "" / \ < > * | :")
PdfFile = Replace(PdfFile, char, "_")
Next
' Apply %TEMP% path to the file name and limit lenght of the pathname
PdfFile = Environ("F:\03_PROJEKTE\02_BOS\2.4 SERIENBETREUUNG") & PdfFile & ".pdf"
' Try to delete PDF file if present
If Len(Dir(PdfFile)) Then Kill PdfFile
' Export the activesheet as PDF
With Worksheets("Report MOS")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
' Use the already open Outlook if possible
On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0
' Prepare email with PDF attachment and the default signature
With OutlApp.CreateItem(0)
' Set HTML format
.BodyFormat = 2
' Add the attachment first for correct attachment's name with non English symbols
.Attachments.Add PdfFile
' Set the required account by const Account
Set .SendUsingAccount = OutlApp.Session.Accounts.Item(Account)
' Get default email signature without blinking (instead of .Display method)
With .GetInspector: End With
HtmlSignature = .HtmlBody
' Prepare e-mail
.Subject = Range("'Report MOS'!L1")
.To = Range("'Report MOS'!L2") ' <-- Put email of the recipient here
.HtmlBody = HtmlFont & HtmlBody & HtmlSignature
' Try to send or just display the e-mail
On Error Resume Next
If IsDisplay Then .Display Else .Send
' Show error of the .Send method
If Not IsDisplay Then
' Return focus to Excel's window
Application.Visible = True
' Show error/success message
If Err Then
MsgBox "E-mail was not sent for some reasons" & vbLf & "Please check it", vbExclamation
.Display
Else
If Not IsSilent Then
MsgBox "E-mail successfully sent", vbInformation
End If
End If
End If
On Error GoTo 0
End With
' Try to quit Outlook if it was not previously open
If IsCreated Then OutlApp.Quit
' Try to release the memory of object variable
Set OutlApp = Nothing
End Sub
[ Szerkesztve ]
Spóroljunk! Kerül, amibe kerül!
-
spe88
senior tag
válasz Pakliman #46474 üzenetére
ohh ez még az én amatőr szememnek is furcsa, nem is tudom miért nem vettem észre.
Köszönöm, múltkor is segített, amit írtál. Ez is jó lesz szerintem.esetleg arra nincs ötleted, hogy az exportált pdf-ben a hiperhivatkozás miért tűnik el? Az Excel fájlban tökéletesen működik, de ahogy pdf lesz belőle, nem lehet rákattintani.
Spóroljunk! Kerül, amibe kerül!
-
spe88
senior tag
válasz Pakliman #46477 üzenetére
Köszi szépen. Működik minden királyul.
Utánanéztem miért nem működnek PDF-ben a linkek. Elvileg Adobe beépülő modullal lementve működnének csak. (Valami driver biztonsági okokból tiltja a hiperhivatkozásokat, ha azokat egy szóra teszed rá. Ha a szöveg egy cellába ki van rakva akkor megy).
Így azt a kiskaput találtam meg, hogy a hiperhivatkozás teljes szövegét beraktam egy cellába, fehérre állítottam a betűszínt, majd odaraktam egy gombjellegű képet a cellára azzal a felirattal, hogy klikk. Így aktív maradt a link is csak nem látszik, hiszen fehér. Nem egy elegáns megoldás, de csak az működik, ha nincs Adobe beépülő modul az Exceledben.
Spóroljunk! Kerül, amibe kerül!
-
[w]
őstag
válasz Pakliman #46601 üzenetére
köszi, próbálkozom...
mi az ellenőrzendő, a lapfül neve?most így hirtelen "subscript out of range"ok, elírás volt a lapfül nevében...
annyiban bonyolult a helyzet, hogy az egyes munkafüzetek saját, külön könyvtárakban vannak legyűjtve, tehát nem egy mappából kell őket megnyitni (sMappa), hanem rengetegből
ezzel így megoldható?
[ Szerkesztve ]
cmdr PETER W. VOLKOV
-
[w]
őstag
válasz Pakliman #46601 üzenetére
ezt a kódot hogyan lehet tovább bővíteni úgy, hogy:
1. a vizsgálat (IF) után egyszerre több cellára kiterjedően, de más és más tartalmat helyezzen el (tehát pl. egy másik cellában a dátumot is írja be)
2. ne csak üres cella esetén végezze el a kitöltést
cmdr PETER W. VOLKOV
-
andreas49
senior tag
válasz Pakliman #46949 üzenetére
Esetleg tudnál példát mutatni?
6 fájlom van több száz munkalappal. Neveket tartalmaznak, ahol eltérnek egyes keresztnevek. Ezt szeretném egységesíteni keres-csere funkció segítségével.
Köszi előre is.HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
Delila_1
Topikgazda
válasz Pakliman #47072 üzenetére
A lenti sor 1 lépésben megoldja az engedélyezést és a tiltást a makró elején.
ActiveSheet.Protect Password:="JujjDeTitkosJelszó", UserInterfaceOnly:=True
Ez a sor csak makróból enged a zárolt cellákba írni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
BEndre34
tag
válasz Pakliman #47563 üzenetére
Szia!
Köszönöm. Viszont pont az a gondom, hogy nem tudok útvonalat megadni. Illetve igen, de úgy már nincs értelme a makrónak. Kollégák fogják használni és pont az lenne a lényeg, hogy nekik ne kelljen semmin változtatni, csak a minta fájlt bemásolja az adott heti könyvtárba és lefut arra a hétre(könyvárra) vonatkozóan.
-
eszgé100
őstag
válasz Pakliman #47875 üzenetére
Nagyon szepen koszonom, ez lesz egyelore a befuto, meg kell meg neznem, hogy nagyobb cellatartomanyon nem-e okoz lassulast
lappy es Fferi50 koszonom nektek is, nem gondoltam, hogy ilyen keson meg valaki reagal"-Meddig tart a játék? -Amíg mindenkinek ki nem verik a fogát..."
Új hozzászólás Aktív témák
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Eladó Steam kulcsok kedvező áron!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs