Just nu i M3-nätverket
Gå till innehåll

DanneK

Medlem
  • Antal inlägg

    9
  • Gick med

  • Senaste besök

Om DanneK

  • Medlemstitel
    Nykomling

Senaste profilbesöken

Blocket med senaste besökare är inaktiverat och visas inte för andra besökare.

  1. Sub ToMonthly() Dim PP As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim SlideTitle As String Dim shp As Object Dim strPP As String strPP = ThisWorkbook.Path & "\" & "2020Board.pptx" Set PP = New PowerPoint.Application Set PPPres = PP.Presentations.Open(strPP) PP.Visible = True ' Här hade jag visst strulat till det. ' Detta fungerar om någon annan hittar denna tråd Set PPSlide = PPPres.Slides.Add(2, ppLayoutTitleOnly) PPSlide.Select Sheets("Utfall").ChartObjects("Diagram 3").CopyPicture _ Appearance:=xlScreen, Format:=xlPicture PPSlide.Shapes.Paste.Select Set shp = PP.ActiveWindow.Selection.ShapeRange shp.Height = 600 shp.Width = 600 With PPPres.PageSetup shp.Left = (.SlideWidth / 2) - (shp.Width / 2) shp.Top = (.SlideHeight / 2) - (shp.Height / 2) End With PP.Activate Set PPSlide = Nothing End Sub
  2. Hej, får inte följande att fungera, tänkte att jag säkert gjort ett enkelt fel varvid jag ställer frågan här. Använder följande kod (eller, ja, det var ursprungligen en del av en större loop, men jag har försökt få det att fungera och har minskat ned så långt som möjligt) för att exportera givna diagram till en ppt. Någonstans på vägen har jag lyckats snurra till det varvid allt fallerar numera. Microsoft Powerpoint Libary är aktivt Sub ToMonthly() Dim PP As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim SlideTitle As String Dim shp As Object Dim strPP As String strPP = ThisWorkbook.Path & "\" & "2020board.pptx" Set PP = New PowerPoint.Application Set PPPres = PP.Presentations.Open(strPP) PP.Visible = True Sheets("Utfall").Chart("Diagram 3").CopyPicture _ Appearance:=xlScreen, Format:=xlPicture PPSlide.Shapes.Paste.Select Set shp = PP.ActiveWindow.Selection.ShapeRange shp.Height = 600 shp.Width = 600 With PPPres.PageSetup shp.Left = (.SlideWidth / 2) - (shp.Width / 2) shp.Top = (.SlideHeight / 2) - (shp.Height / 2) End With PP.Activate Set PPSlide = Nothing End Sub
  3. Sitter här och sliter mitt hår med pivot... Samtigt som jag ser och klurar på om jag inte skulle kunna göra detta med massor av sql-frågor, och använda mig av vba för att skjuta in nya rader på något sätt (min ursprungliga lösning som jag inte fått att fungera).
  4. Jag försöker kopiera/flytta rader från ett blad till ett annat automatiserat.
  5. Korrekt att jag importerar data till separat flik, som jag sedan använder i presentationsfliken. Pillar ogärna med importen. Om jag använder samma exempel som ovan men försöker vara lite mindre kryptisk skulle det kunna se ut som följande Sålda Bananer | 42st | 750kr | 3 kunder| - Löst del. Kalle | 40st | 700kr Olle | 1st | 35kr Måns | 1st | 15kr Där det är Kalle, Olle, Måns raderna jag försöker lösa (och Olle måste sluta handla bananer för det priset;) ) Jag vet inte på förhand om Måns kommer köpt några bananer i vald tidsperiod, faktum är att jag inte vet namnet på någon, utan jag vet bara att jag säljer bananer, och under vilken tidsperiod jag vill plocka ut siffror för.
  6. Jag är säker på att detta är möjligt, bara det att jag inte är kapabel att förstå… Skall se om jag kan beskriva vad jag är ute efter ordentligt. Jag önskar presentera data från ett exeldokument och har en massa härliga formler som gör merparten jobbet åt mig efter att importen från den externa datan i sin tur gjorts. Nu till problemet. Jag skulle under summeringar och liknade i ”Presentation” vilja loopa ut resultaten som uppfyller ett visst antal villkor och lägga till det som nya rader. Det är okänt antal rader var gång, från 0-ca 150st. Antalet kolumner är kända. Datan är samlade i en flik ”Data” Dvs… Jag skulle vilja få fram följande: Rubrik | Summering1 | Summering2| Summering3| - Löst del. Data!Dx | Data!Ex| Data!Fx| Data!Kx Data!Dx | Data!Ex| Data!Fx| Data!Kx Data!Dx | Data!Ex| Data!Fx| Data!Kx x för okänd rad som uppfyller tre villkor, Datum from, Datum tom, samt ett fritextvärde, där dessa rader enl. ovan är okänt antal. Hitintills har alla försök slutat med kaos, likt de flesta VBA försök jag gör, varvid jag inte ens har någon vettig kod att börja med. Alla tips är välkomna, och det behöver inte vara en VBA-lösning, bara jag som misstänker att det är dit jag skall vända mig.
  7. Jag vart lite nyfiken på hur den slutliga koden för detta såg ut.
  8. Strålande tack för hjälpen, det fungerade. Kan tycka att det är sisådär när formeln ovan faktiskt är den som genereras av excels dialogrutor när man använder den.
  9. Det här håller på att knäcka mig fullständigt. Får rådata i form av excellakan som exporteras från programvara. Vill sedan sortera och lyfta ut denna data baserat på datumintervall. Aktuella datum finns i kolumn B i nedan exempel, och jag vill summera data ifrån kolumn C. =SUMMA.OMF(C:C;B:B;">=2019-01-01";B:B;"<2019-02-01") Ger mig korrekta värden för Januari exempelvis. men om jag istället försöker mig på att skriva =SUMMA.OMF(C:C;B:B;">=F3";B:B;"<G3") när jag anger datumspannet i egna celler (F3 och G3) så får jag inget resultat alls. Vad hände med logiken är min stilla undran :) Har "dummat ned" allt för att testa enl. bif. bild. Tacksam för all hjälp,
×
×
  • Skapa nytt...