2. Fórumok
  3. Állásbörze
  4. excel táblázat makró vba dinamikus grafikonok készítés

Új hozzászólás Aktív témák

  • #1 frjeno újonc
    Új Válasz #1
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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.



  • #2 khartm újonc
    Új Válasz #2
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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!

  • #3 Memphis tag
    Új Válasz #3
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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 Sub

    Ha 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