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

ZebulonM

Medlem
  • Antal inlägg

    32
  • Gick med

  • Senaste besök

Om ZebulonM

  • Medlemstitel
    Användare

Profil

  • Kön
    Man
  • Ort
    Göteborg
  1. Jättebra exempel, det är ungefär vad jag letar efter. Jag stöter dock på patrull med att få igång kontrollversionen på comboboxen. I ditt exempel har du fem flikar under format control för cboxen. I mitt fall har jag bara fyra och saknar den viktigaste, control-fliken. Har letat bland diverse settings och funderar på om det är någon tool som saknas? eller versionsissue kankse? jag kör 2003 ett tag till, men det kommer nog 2010 om ett par månader. Ajdå, såg först nu att det är en DropDown och inte Combo... Vet inte hur jag skapar en sådan om du kan hinta det. Jag klarar mig iof genom att kopiera din, men kan vara bra att veta
  2. Underbart! Namnet på grafen fick jag med, men gick bet på .Chart efter... Jag har aldrig använt förskjutningsformler. Är det något liknande ActiveCell.Offset fast för celler istället? Ahh, hittade en länk från 2005. förskjutningsformler får fundera lite på hur jag kopplar ett värde i komboboxen till referensen bara...
  3. Hej, Gör i princip aldrig något visuellt i VBA, men tänkte fixa till ett diagram som jag kan justera beroende på vald valuta. Spelar jag in ett makro så får jag kod så jag klarar mig, men skulle vilja snygga till den lite grann. Dvs koden i första delen av if-satsen är fel. Hur skriver jag den rätt? Ex: If cbBase.Text = "CAD" Then With Sheet1.ChartObjects .SeriesCollection(1).Values = "=Sheet2!R20C2:R20C13" End With 'or: Sheet1.ChartObjects.SeriesCollection(1).Values _ = "=Sheet2!R20C2:R20C13" ? Else ActiveSheet.ChartObjects("Chart 3").Activate ActiveChart.SeriesCollection(1).Select ActiveChart.SeriesCollection(1).Values = _ "=Sheet2!R21C2:R21C13" End If
  4. fel 400 har jag för mig innebär att koden inte förstår addresseringen. gissning att du får lägga till vilken workbook du vill arbeta med i din adressering. koden funkar kanske bra om du endast har den aktuella excelfilen öppen? jag brukar ta snabbgenvägen och lägga till något i stil med Worksheets("bas").activate eller select, vilket alltid uppskattas av Monshi
  5. Okej. Dom bitarna har jag koll på och använder i min testfil (Sub Auto_open(). Jag fick intrycket att man kunde knyta själva verktygsobjektet till en arbetsbok. Då fick vi rett ut det åxå! Tackar för hjälpen Monshi!
  6. Jag är med på helhetsbeskrivningen och kommer testa vidare med "verktygsfält till verklighet" Så här gör jag i ursprungsalternativet. Skapar verktygsfält med ett par knappar. Sparar boken som .XLA Lägger boken i XLStart (har även provat i AddIn mappen) Jag får dock inte med mig verktygsfältet nästa gång jag startar excel. Det känns då som att jag inte har kopplat verktygsfältet till den boken jag skapade den i. Missar jag några detaljer där kanske? Jag kommer nog vidare här i alla fall, men det hade varit kul att få koll på möjligheterna med xla.
  7. Ajdå, får försöka förtydliga mig. Jag vill alltså koppla makro eller en hyperlänk(läs arbetsbok) till en verktygknapp. Det är den sista biten med Assign hyperlink jag inte får löst. Det är korrekt att jag vill köra aktuell bok på annans dator för att skapa verktygsfält med knappar (eller menyval) till funktioner i annan bok. Däremot är inte kodning, sökvägar, arbetsböcker, mm inte okända då dessa ligger på en gemensam serveryta. För att göra detta manuellt väljer vi Customize när vi högerklickar på verktygsmenyn, fliken Commands och markerar Marcros i listan med kategorier. Väljer Custom Button och placerar den i ett befintligt (eller nyskapat) verktygsfält. Sista steget är då att högerklicka på vår nya knapp ovh välja Assign Makro alternativt Assign Hyperlink. Det är alltså det sista steget med Assign Hyperlink jag går bet på.
  8. Jag vill starta makrot via knapp eller meny, dvs välja "assign makro" som man kan göra vid manuell process. Dvs jag vill helst inte hänvisa till en mall eller flera makro inom samma dokument. toolbar.zip
  9. Nu hann jag sätta mig och kika på detta igen. Koden funkar bra bortsett från att jag inte klurat ut hur man länkar menu item (via knapp eller meny) till det makro jag vill köra. Efter menyn är skapad så blir länken till makro "Book1.xls!MittFaktiskaMakro.xls. Jag behöver alltså ta bort/komma runt Book1-referensen. Har du något uppslag här också? Själva koden ser enligt nedan i mitt fall: With .Controls.Add(Type:=msoControlButton) .OnAction = "C:\MittMakro.xls" .FaceId = 343 .TooltipText = "Mitt makro" End With
  10. Jag får testa mig fram så får vi se om jag får någon ordning på detta. Återkommer säkert med fler frågor.
  11. Får inte ordning på detta än. Jag har testat att lägga till knappar i två olika verktygsfält. Först provade jag med standardfältet och sedan ett egentillverkat. Efter det så sparade jag som namn.xla (kör 2003:an). Provade att lägga den i xlstart mappen och provade även lägga den som addin utan framgång. missar jag något kanske?
  12. Hejsan, Har ett par användare som gillar att starta makron från såna här och andra knappar i sitt verktygsfält. Helt ok naturligvtis men jag har börjat tröttna på att hjälpa till med att lägga upp dessa genvägar. Jag vill då alltså ordna ett makro som kopierar befintliga makroknappar från en existerande installation eller åt minstone snabbar upp den processen något. Vet att jag stötte på något inlägg någonstans om detta för ett tag sedan och undrar om någon vet var man kan leta eller har en bra början på en lösning här? Lyckas inget vidare med mina sökningar...
  13. Lysande missade det med Set... Tack för hjälpen King!
  14. Tror att jag har för dålig koll på hur man hanterar ranges och adresseringar runt detta, dvs det är sannolikt punkt tre som är problemet. Skriva in nya datum går bra. Cellrefernser går bra. "Myrange" refererar dit jag har tänkt mig när jag lägger till select. Men, när jag tilldelar min variabel en range missar jag kanske något? Jag bifogar ett exempel på datum och lite av dagens testning. Kolumner och range funkar när jag inte använder mig av variabel-tilldelning. I exemplet jag testade med igår, så kör jag från en modul till en extern arbetsbok, vilket säkert kan innebära att jag går vilse i adresseringar. Det som var extra klurigt att jag lyckades få min och max att funka på data som inte var i datumformat... date_range.xls
  15. Hmm, trodde jag hade postat i VBA. Hur som helst, kolumnen är i datumformat. Ska man ändra properties till text eller general för kolumnen istället?
×
×
  • Skapa nytt...