Hirdetés
-
Still Wakes The Deep - Befutottak az első értékelések
gp Alig egy nap múlva érkezik a játék, amely egyből elérhető lesz a Game Pass rendszerében.
-
Elindíthatja Kínában az FSD tesztjét a Tesla
it Sanghaj 10 Tesla jármű számára engedélyezte a tesztet, így előkészíthetik az FSD kínai indulását.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Mobilarena
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
-
saab00
csendes tag
Sziasztok !
Segítséget kérnek.....
Excel 2003.... van egy cella benne egy "rendszeresen" változó értékkel szumha fgvnnyel.....hogyan mivel tudom vizsgálni nyomonkövetni ennek a számnak változásait ,hogy nőtt vagy csökkent vagy stagnál.....és ehhez valami jelzést párosítani pl. szinezze pirosra ha az érték egy adott intervallumba (0-2500)esik miközben figyelembe veszi azt is h az adott hónap melyik napján, hó elején ,2.3. vagy 4. héten történt a vaáltozás !!!?????
Tehát ha az érték 0 és 3000 közé esik és az adott hónapban pl. 10.ke után vagyunk már akkor szinezze pirosra, vagy nagyítsa vagy felkiáltójel !Ezt a két feltételt hogy tudom megadni feltételes formázásnál ???
Előre is köszönöm
-
Delila_1
Topikgazda
válasz csferke #14650 üzenetére
A Mutat makró ugyanaz, mint az Elrejt, csak az
If Cells(sor%, "D") = 0 Then Rows(sor%).EntireRow.Hidden = True
sor végén a True helyett legyen False.
A frissítő makród ilyen legyen:Private Sub Worksheet_Activate()
Mutat
ActiveSheet.PivotTables("PivotNenapFakt").PivotCache.Refresh
Elrejt
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
akyyy
senior tag
Na eddig ezt úgy oldottam meg, hogy:
Alap táblába bal oldalon a nevek, véletlen sorrendben, melette pedig majd a kapott pontszáma, az mellet meg az össszesített pontszáma.
második lapon adva van a sorszám hogy ki hanyadik. pár oszloppal arébb csináltam egy összesen oszlopot ahova a következő fvg került:
=NAGY('ALAP'!$S$3:$S$52;A5)
Megvizsgálja az első fülön lévő összesitett pontszámot, és kikeresi ebből az első legnagyobbat. lentebb a második legnagyobbat, és igy szépen csökenő sorrendbe teszi automatikusan.Következő oszlop megmondja hogy hanyadik cellában szerepel az a bizonyos pontszám az összesítetben:
=HOL.VAN(U5;'ALAP'!$S$3:$S$52;0)+2
majd a végén hozzáad kettőt, mert 2 sorral lentebb kezdődik az oszlop, mert van fejléce.
majd egy újabb oszlpban indirekt függvénnyel kiiratom abban a sorban a nevet.
=INDIREKT("'ALAP'!B" & V5)ez igy már fasza is, önmagától sorba rendezi mindig, mikor frissitem az alap lapon a számokat. a gond:
ha még üres a tábla, mindenhova 3-as számot tesz, igy nagyon sok sorban ugyanaz a név fog szerepelni. gondolom ha függvénnyel kiirom, hogy ha holvan függvény a 3-as számot hozza, akkor ne jelenitsen meg semmit. igy csak azok szerepelnek akik kaptak pontot.
nagyon pici esély van rá, de van rá esély, hogy monjduk 2-3 ember is van aki olyan bamba, hogy nem kap pontot. ilyenkor mintkettőnek a holvan függvénye 3-3-3at fog kihozni, és csak 1 szeméylt fog kiratni 3-szor. mit tudok csinálni hogy ha 3 ember nem szerez pontot, akkor azokat abc sorrenbe, vagy mind1 milyen sorrendbe de szerepeljenek már nekem ott
remélem érthető
-
akyyy
senior tag
Leltem egy makrót, de ha nem én írom be az adatokat, hanem monjduk valemlyik munkalapról hivatkozok rá, akkor hibát dob ki. másrészt pedig növekvő sorrendbe teszi és csökkenőbe kéne- asszem ez esélytelen, hivatkozással magátol sorba rendezni nem tudja, mindig ki kellesz jelölni és sorba rendezni :\
-
lacipapi
csendes tag
Sziasztok!
Van arra lehetőség, hogy makróból olyan utasítás kiadása, hogy csukódjon be a menűszallag?
Olyanra gondolok pl. mint a teljes képernyőre váltáskor az
Application.DisplayFullScreen = True/False
Köszönöm.Lelkes, de már egy kicsit idős amatőr
-
Delila_1
Topikgazda
Az összesített pontszámaid az S3:S52 tartományban vannak, ha jól értem.
Vegyél fel egy új oszlopot, a képlete legyen =S3+sor()*0,00001. A szorzónak elég kicsinek kell lennie, hogy semmiképp se adjon 1-es értéket. Ez a szám 10 pont esetén az 5. sorban 10,00005 lesz, a 14. sorban 10,00014. Erre az oszlopra hivatkozva az eredetileg azonos 10 pontos sorokat külön találja meg a kereső függvényed.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz lacipapi #14659 üzenetére
Tiltás és engedélyezés:
Sub HideRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End SubSub ShowRibbon()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lacipapi
csendes tag
-
Vazallus
tag
Üdv,
Azt hogy lehet megoldani, hogy ha én az 1-es Munkalapon beírok egy szöveget/adatot az A1-es cellába akkor ugyanaz az adat megjelenik szintén az A1 cellába csak a 2-es Munkalapon?
Magyarán magától bemásolja.[ Szerkesztve ]
"Mr. Salieri sends his regards"
-
akyyy
senior tag
EZ AZ AMI SEGITETT szuperjó, de ujból gondom lett.
van olyan mikor az alap listából elfogynak a nevek. és ahol a második munkalapon hivatkozok, és nincs név 0-át tesz ki. neveknél sztem jobb ha nem tesz ki semmit.
aztán melette vannak a pontok. itt jó ha nincs semmi 0-át tesz ki olyannál ahol az A oszlopba van név. de ha nincs név, 0át se tegyen ki itt sem.gondolom HA függvény, de hogy mondjam meg neki hogy 0 vagy üresség van ott?
-
akyyy
senior tag
asszem feladom, az a baj hogy pontegyenlőség esetén egy másik sort kéne nézni, hogy azok közül melyik a nagyobb, és annak kéne előrébb lenni, mert perpill pontegyenlőség esetén azt hozza előre akit hamarébb felirtak a listára :\ de igy leirni nemtudom mert elég bonyolult már a tábla
-
akyyy
senior tag
Megoldottam képletekkel a sorba rendezést, de még az elején van egy kis gond.
=SORSZÁM(S3;$S$3:$S$52;0)+DARABTELI($S$3:S3;S3)-1
Ez ad mindenkinek egy sorszámot hogy hanyadik lenne , és az alapján rendezi sorba. a gond az hogy figyelembe kéne vennie, hogy az S oszlopban a szám ugyanaz-e, és ha igen, akkor a Q oszlopban lévő nagyobb szám legyen a sorszámozásban előrébb.
-
Tyren
aktív tag
Sziasztok!
Adott egy munkalap és annak egyik oszlopa. Ennek az oszlopnak dátumokat kell tartalmaznia, amiket be lehet írni kézzel is, de én szeretnék egy olyan opciót, hogy ha rákattintok a cellára, akkor kihoz egy "dátumválasztót". Nem lista kéne, hanem az a naptár nézetű dátumválasztó, aminek az alján van egy "Ma" gomb is.
Próbáltam excel súgóból, de VBA-ban kezdő vagyok és súgó alapján nem megy.
Előre is köszönöm a tippeket!
(Jah és Excel 2010 64 bit.)''A barátaid megtanítanak arra, amit tudni szeretnél, az ellenségeid pedig arra, amit tudnod kell.''
-
Delila_1
Topikgazda
2007-esben próbáltam ki.
Fejlesztőeszközök | Vezérlők | Beszúrás | ActiveX-vezérlők. Rákattintasz a jobb alsó sarokban lévő További vezérlők ikonra, mire kapsz róluk egy felsorolást. Ezek közül a Naptár vezérlőelem kell neked. A kapott szálkereszttel négyszöget rajzolsz. Jobb klikkre kapsz egy tulajdonságok ablakot, ahol mindenfélét formázhatsz rajta.
A menüszalagon kikapcsolod a Tervező módot.A lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztőbe jutottál, itt a jobb oldali üres lapra másold be a makrót.
Két sort írok bele, amik közül csak az egyiket hagyhatod meg.
1. A lapodon lévő aktuális sor A oszlopába írja be a naptárban kiválasztott napot. Ezt az oszlopot a Cells(Selection.Row,1) 1-ese határozza meg. Kettesre átírva az akt. sor B oszlopába ír, és így tovább.2. A lapod bármelyik celláján állsz, kiválasztod a vezérlőn a dátumot, erre az aktuális celládban megjelenik a dátum.
Private Sub Calendar1_Click()
Cells(Selection.Row, 1) = Me.Calendar1.Value
Selection = Me.Calendar1.Value
End SubEgy másik makrót is írj a fenti alá (vagy fölé).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End SubEnnek az a feladata, hogy ha a C oszlop valamelyik cellájára klikkelsz, megjelenik a naptár vezérlő, más oszlopra lépve eltűnik. A C oszlopot a Target.Column=3 hármasa határozza meg.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
Sziasztok!
Itt mi nem stimmel?Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End SubKiíratáskor nem teszi oda a Filename után a kiterjesztést .xlsm, sőt egyáltalán nem rak kiterjesztést.
[ Szerkesztve ]
-
csferke
senior tag
Találtam egy megoldást de sz.tem nem így kellene lennie.
fName = fName + "xlsm"
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=FalseHogy tovább bonyolítsam a dolgot.
A megnyitott Füzetből (Workbook) csak az éppen aktív Munkalapot (Worksheet) szeretném egy új file-be írni. Ezt hogyan kell?köszi
-
Tyren
aktív tag
válasz Delila_1 #14674 üzenetére
Köszönöm a részletes leírást, de 2010-ben én nem találok "Naptár" nevű vezérlőelemet. Az egyetlen, aminek a neve legalább hasonlít, az a "Ms Outlook Date Control". A többinek a neve alapján még köze sincsen semmilyen naptárhoz/dátumhoz.
Utánaolvastam egy kicsit és néhány külföldi fórumban olvastam, hogy a 2010-es Excelből állítólag kivették ezt az elemet...
Ez csak azért gond, mert nekem olyan megoldásra lenne szükségem, ami akkor is működik, ha valakinek átküldöm az Excel-t...
Még keresgélek egy darabig, de lehet, hogy ezzel most belehúztam
Más nem ütközött még ebbe a hibába?''A barátaid megtanítanak arra, amit tudni szeretnél, az ellenségeid pedig arra, amit tudnod kell.''
-
akyyy
senior tag
hogy lehet úgy zárolni csak cellát, hogy az ugyanazon munkalapon máshova lehessen irni?
-
jon_snow
csendes tag
Hello
egy kis segitseget szeretnek kerni. Excel 2007. Hogyan lehet azt megoldani, hogy ha elkezdek irni egy sorba, akkor a felette levo sor formazasat automatikusan felvegye az aktualis sor?
keszi
-
akyyy
senior tag
cellába ki lehet iratni képlettel a lapnak a nevét?
-
akyyy
senior tag
ezt miért irja ki:S
Kompatibilitási jelentés: Vegyipari Kupa Kazincbarcika 2012.xls
Futtatás dátuma: 2012.08.21 13:07A munkafüzetben használt következő funkciókat az Excel régebbi verziói nem ismerik. A munkafüzetet régebbi formátumban mentve ezek a funkciók egyáltalán nem vagy csak csökkent formában fognak működni.
Kisebb mértékű funkcióveszteség
A munkafüzet bizonyos cellái vagy stílusai a választott fájlformátumban nem támogatott formázással rendelkeznek. Ezek a formázások a fájlformátum által támogatott leghasonlóbb formázásokkal helyettesítődnek.
-
csferke
senior tag
Sziasztok!
Egy megnyitott Füzetből (Workbook) csak az éppen aktív Munkalapot (Worksheet) szeretném makróból egy új Workbook-ba ,file-be (*.xlsm) kiírni.
Ezt hogyan kell?
A workbook 7-8 worksheet-et tartalmaz és ezek közül kellene az éppen aktuálisat file-ba kiírni, a többi lap nem kell, hogy benne legyen az új *.xlsm-ben.
Próbálkoztam az ActiveSheet.SaveAs parancsal de a létrehozott workbook-ban benne van az összes munkalap is.köszi
-
Delila_1
Topikgazda
válasz csferke #14686 üzenetére
xlsm-be akkor érdemes menteni, ha a laphoz makró van rendelve.
Sub LapotMent()
Const ment = "D:\Adatok\uj.xlsm"
ActiveSheet.Copy
ActiveWorkbook.SaveAs ment
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csferke
senior tag
válasz Delila_1 #14687 üzenetére
Delila!
Köszönöm a gyors reagálást, segítséget.
Az eddigi próbálkozásaimból hiányzott az ActiveSheet.CopyPicit azért én is "komplikáltam" az egészen.
Sub LapotMent()
' Ctrl + w
ChDir "C:\Users\Ferke\Desktop\XX"
Do
fName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xlsx), *.xlsx")
Loop Until fName <> False
ActiveSheet.Copy
'ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=51, CreateBackup:=False
ActiveSheet.SaveAs Filename:=fName, FileFormat:=51, CreateBackup:=False
End SubHa nincs ez a sor akkor nem tesz kiterjesztést az újonnan létrehozott file után.
fName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xlsx), *.xlsx")Az ActiveWorkbook.SaveAs... és az ActiveSheet.SaveAs... ugyanazt eredményezi.
Lehetne még automatizálni az egészen csak sajna meghaladja a képességemet
Nem is kellene bekéretni az fName-t ha meg tudnám oldani, hogy a kiírandó aktív lap A17 és K7-es cellájában szereplő adatok adják az fName-et. Valahogy így &A17+"-"+&K7üdvözlettel
[ Szerkesztve ]
-
Tyren
aktív tag
válasz Delila_1 #14685 üzenetére
Kösz, de próbáltam nézni minden elképzelhető néven...
Más fórumokon azt találtam, hogy a calendar active-x vezérlőt a 2010-ből kiszedték és helyette egy datepicker van, de néha azt is külön kell telepíteni. Nekem pedig fontos lenne, hogy akkor is működjön, ha átküldöm másnak.
Találtam egy ilyet [link], ami nem lenne rossz, de valamiért nem működik, ha az aktuális naptári napot akarom beszúrni egy üres (vagy nem dátumot) tartalmazó cellába.''A barátaid megtanítanak arra, amit tudni szeretnél, az ellenségeid pedig arra, amit tudnod kell.''
-
Pityke78
őstag
Sziasztok!
Van mondjuk 1000 különböző számom. Milyen függvénnyel, vagy milyen módon tudom megoldani, hogy megkapjam, hogy hány olyan szám van, ami egy bizonyos tűrésmező (két szám) között található.
Mondjuk egy ilyen tűrésnek megfelelnek: 1< X <500
Hasznos lenne ha az 1, illetve az 500 cellatartalom lenne, hogy tudjam változtatni és így folyamatosan számoltatni vele az értékeket.
Köszönöm
-
lappy
őstag
Sub CallMailer()
Dim lngLoop As Long 'Programming ethics 1. Always start your first line after leaving a line space, and 1 indentation level
With ActiveSheet
For lngLoop = 2 To .Cells(Rows.Count, 1).End(xlUp).Row ' Programming ethics 3. Always indent your loops, case statements and with constructors
Call SendMessage(strTo:=.Cells(lngLoop, 1).Value, strCC:=.Cells(lngLoop, 2).Value, strBCC:=.Cells(lngLoop, 7).Value, strMessage:=.Cells(lngLoop, 8).Value, strSubject:=.Cells(lngLoop, 3).Value, strAttachmentPath:=.Cells(lngLoop, 6).Value, rngToCopy:=.Cells(lngLoop, 9))
Next lngLoop
End With 'Programming ethics 2. Always end your last line leaving a line space before ending the sub or function, and having indendation level of 1
End Sub
Sub SendMessage(strTo As String, Optional strCC As String, Optional strBCC As String, Optional strSubject As String, Optional strMessage As String, Optional strAttachmentPath As String, Optional rngToCopy As Range, Optional blnShowEmailBodyWithoutSending As Boolean = False)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
If Trim(strTo) & Trim(strCC) & Trim(strBCC) = "" Then
MsgBox "Please provide a mailing address!", vbInformation + vbOKOnly, "Missing mail information"
Exit Sub
End If
' Create the Outlook session.
On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
Err.Clear: On Error GoTo -1: On Error GoTo 0
If objOutlook Is Nothing Then
Set objOutlook = CreateObject("Outlook.Application")
End If
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
If Trim(strTo) <> "" Then
Set objOutlookRecip = .Recipients.Add(strTo)
objOutlookRecip.Type = olTo
End If
' Add the CC recipient(s) to the message.
If Trim(strCC) <> "" Then
Set objOutlookRecip = .Recipients.Add(strCC)
objOutlookRecip.Type = olCC
End If
' Add the BCC recipient(s) to the message.
If Trim(strBCC) <> "" Then
Set objOutlookRecip = .Recipients.Add(strBCC)
objOutlookRecip.Type = olBCC
End If
' Set the Subject, Body, and Importance of the message.
If strSubject = "" Then
strSubject = "This is an Automation test with Microsoft Outlook"
End If
.Subject = strSubject
If strMessage = "" Then
strMessage = "This is the body of the message." & vbCrLf & vbCrLf
End If
.Importance = olImportanceHigh 'High importance
If Not strMessage = "" Then
.Body = strMessage & vbCrLf & vbCrLf
End If
If Not rngToCopy Is Nothing Then
.HTMLBody = .Body & RangetoHTML(rngToCopy)
End If
' Add attachments to the message.
If Not IsMissing(strAttachmentPath) Then
If Len(Dir(strAttachmentPath)) <> 0 Then
Set objOutlookAttach = .Attachments.Add(strAttachmentPath)
Else
MsgBox "Unable to find the specified attachment. Sending mail anyway."
End If
End If
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
' Should we display the message before sending?
If blnShowEmailBodyWithoutSending Then
.Display
Else
.Save
.Send
End If
End With
Set objOutlook = Nothing
Set objOutlookMsg = Nothing
Set objOutlookAttach = Nothing
Set objOutlookRecip = Nothing
End Sub
Function RangetoHTML(rng As Range)
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and Outlook 2010.
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
' Copy the range and create a workbook to receive the data.
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
' Publish the sheet to an .htm file.
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
' Read all data from the .htm file into the RangetoHTML subroutine.
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
' Close TempWB.
TempWB.Close savechanges:=False
' Delete the htm file.
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End FunctionBámulatos hol tart már a tudomány!
-
zhari
csendes tag
válasz Pityke78 #14693 üzenetére
Úgy csinálnám, hogy ha számok az A oszlopban vannak akkor a B segéd oszlopba a következő képletet másolnám: =HA(VAGY(A1<=$C$1;A1>=$D$1);"x";""). C1 be 1 D 1 be 500 írnék. Utána pivot táblával (jelentésszűrőbe a B oszlop) könnyen össszeszámoltathatod a C1 és D1 paraméter változtatgatásával. Remélem érthető.
-
zhari
csendes tag
90%-ban sikerült. Pár módosítással:
B oszlopból szedi a címeket. D-E oszlopokból a csatolmányokat.
Abban tudnátok segíteni, hogy CC-be tegye a C oszlopban szereplő mail címet?Sub email_kuld()
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range, FileCell As Range, rng As RangeWith Application
.EnableEvents = False
.ScreenUpdating = False
End WithSet sh = Sheets("lista") 'munkalap neve
Set OutApp = CreateObject("Outlook.Application")
For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
Set rng = sh.Cells(cell.Row, 1).Range("D1:E1") 'D-E oszlopig a csatolmányok. Bármi lehet.ok
If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)With OutMail
.To = cell.Value
.cc = "" 'CC-ket a C oszlopból kellene hivatkozni
.Subject = "teszt tárgya " & cell.Offset(0, -1).Value & " 2013.01.02 riport" ' Tárgyat frissíteni.ok
.Body = "Tisztelt " & cell.Offset(0, -1).Value & "!"For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell.Send 'Or use Display.
End WithSet OutMail = Nothing
End If
Next cellSet OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
MsgBox "E-mailek elküldve."
End Sub
Új hozzászólás Aktív témák
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- gban: Ingyen kellene, de tegnapra
- SörcsaPH!
- Luck Dragon: Asszociációs játék. :)
- Anime filmek és sorozatok
- PlayStation 5
- OnePlus 8T – fazonigazítás
- iPad topik
- Parci: Milyen mosógépet vegyek?
- Autós topik látogatók beszélgetős, offolós topikja
- További aktív témák...