- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Ezek a OnePlus 12 és 12R európai árai
- Samsung Galaxy S23 Ultra - non plus ultra
- MG4 menetpróba
- Honor 90 - modellalkat
- Motorola Edge 30 Neo - wake up, Jr...
- Garmin Forerunner 165 - alapozó edzés
- Megjelentek az első HMD okostelefonok, ezek a magyar áraik
- iPhone topik
- Garmin Forerunner 255 Music - nem csak futóknak
Hirdetés
-
Megjelenési dátumot végre a Men of War II (PC)
gp Többszöri halasztás után végre megkapjuk a régóta várt folytatást.
-
A Coca-Cola következő nagy újítása az AI
it 1,1 milliárd dolláros üzletet kötött a Coca-Cola és a Microsoft, hogy előbbi használja majd a redmondi felhőt és AI-t.
-
Új Noctua CPU-hűtő érkezett a helyszűkében szenvedő gépházakba
ph A 44 mm magas memóriamodulok szomszédságában megférő típus felülre helyezett légkavaróval dolgozik.
Új hozzászólás Aktív témák
-
frjeno
újonc
Excel táblázatok készítését, adatrögzítést, nyers adatok megadott igény szerinti formázását vállalom, rövid határidővel.
Az táblázatokban képletek, függvények, makrók, VBA programozás, diagramok, grafikonok, dinamikus grafikonok alkalmazására is lehetőség van.
Tapasztalat és referencia van.
Elérhetőség: frjeno@freemail.hu
Ár: a munka jellegétől függően megegyezés szerint. -
khartm
újonc
Kedves Tagok!
Köszön, hogy csatlakozhattam.Teljesen kezdő vagyok, de a munkahelyemen készlet nyilvántartást kellene csinálnom.
Csináltam egy táblázatot, amelyben szerepel a cikkszám, induló készlet, kiadás, bevétel, aktuális készlet.
függvény is megvan.Kérdésem az lenne, hogy hogyan lehet megoldani,ha van rá lehetőség hogy az adott kiadás dátumát, illetve feltüntetni a szállítólevél számát.Ha be szeretnék írni mozgást esetleg egy felúgró ablakban jelenjenek meg az adatok.
Tud valaki segíteni, illetve van erre lehetőleg mód?
Köszönöm! -
Memphis
tag
Sziasztok,
olyanban kérnék segitséget, hogy excelben irok éppen egy makrót amivel szeretném a következő infókat exportálni outlookból:
from, subject, received date, category, flag completed date
az első 3 működik is, de a category, flag completed date nem akar összejönni.
hol rontottam el? előre szólok sose csináltam ilyet, internetről nézegettem dolgokat illetve logikai úton próbáltam kiegésziteni.
ezt irtam:
Sub getDataFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("impMail")
i = 1
For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("email_Receipt_date").Value Then
Range("email_Subject").Offset(i, 0) = OutlookMail.Subject
Range("email_Subject").Offset(i, 0).Columns.AutoFit
Range("email_Subject").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Date").Offset(i, 0) = OutlookMail.ReceivedTime
Range("email_Date").Offset(i, 0).Columns.AutoFit
Range("email_Date").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Sender").Offset(i, 0) = OutlookMail.SenderName
Range("email_Sender").Offset(i, 0).Columns.AutoFit
Range("email_Sender").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Category").Offset(i, 0) = OutlookMail.Categories
Range("email_Category").Offset(i, 0).Columns.AutoFit
Range("email_Category").Offset(i, 0).VerticalAlignment = x1Top
Range("email_Completed").Offset(i, 0) = OutlookMail.FlagCompletedDate
Range("email_Completed").Offset(i, 0).Columns.AutoFit
Range("email_Completed").Offset(i, 0).VerticalAlignment = x1Top
i = i + 1
End If
Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End SubHa ma nulla CELSIUS fok van és holnap kétszer olyan hideg várható, hány CELSIUS fok lesz holnap? :D (bezártam a kiskaput)
Új hozzászólás Aktív témák
- ZOTAC GeForce GTX 1080 AMP Edition 8GB GDDR5X 256bit
- Filmes gép gyűjtemény
- Nikon D5000 + AF-S DX NIKKOR 18-105 mm
- Bontatlan Seagate & Western Digital HDD-k 3TB - 12TB -ig - Számla + Garancia, Ár alatt! BeszámítOK!
- DJI Mini 4 pro FMC drón - 3 akku, RC2 táv, 2 táska, Filterek, 2025. decemberig garancia, DJI Care