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

Sök

Visar resultat för taggar 'VBA'.

  • Sök efter taggar

    Skriv taggar separerade med kommatecken.
  • Sök efter författare

Innehållstyp


Forum

  • Datorhårdvara
    • Bildskärmar
    • Bärbara datorer
    • Grafikkort
    • Hårddiskar & Lagringsmedia
    • Ljudkort
    • Mac-hårdvara
    • Processorer, moderkort & minnen
    • Retro - datornostalgi
    • Skrivare
    • TV-kort
    • Hårdvara – övrigt
    • Arkiverat
  • Film, foto & bilder
    • Bildredigering
    • Film- och Videoredigering
    • Kameror
    • Mediaspelare – Media Player m fl
  • Internet & nätverk
    • Chattprogram - ICQ, MSN m fl
    • Driftstörningar hos operatörer, internet etc
    • Epostprogram
    • Internetuppkoppling
    • IP-telefoni
    • Nätverket - hårdvara
    • Nätverket - programvara
    • Surftips
    • Webbläsare
    • Internet – övrigt
  • Ljud och Musik
    • Ljudformat (mp3, aac, ogg m fl)
    • Musikskapande på datorn
    • Ljud & Musik – övrigt
  • Operativsystem
    • Windows 10
    • Windows 8 & 8.1
    • Windows 7
    • Windows Vista
    • Windows XP
    • Windows 95/98/ME/NT/2000
    • Windows Server
    • Linux & Unix
    • Mac OS X & Classic
    • Operativsystem - övriga
    • Arkiverade Windows-trådar
  • Program
    • CD/DVD-bränning
    • Kalkylprogram - Excel m fl
    • Mac-program
    • Ordbehandling - Word m fl
    • Presentation – PowerPoint m fl
    • Print - om trycksaker
    • Program - övriga
  • Spel
    • Datorspel
    • Konsoler & konsolspel
  • Säkerhet
    • Brandväggar
    • Skräppost
    • Virus, skadliga program & botemedel
    • Säkerhet - övrigt
  • Hemelektronik
    • DVD & Blu-ray
    • Hemmabio/HTPC
    • El & övrig hemelektronik
  • Mobilt
    • Surfplattor
    • Mobiltelefoner
    • Bärbart Ljud/Mp3-spelare
    • GPS
    • Handdatorer
    • Mobilt – övrigt
  • Tips inför köpet
    • Köpa/Bygga dator
    • Köpa datortillbehör och komponenter
    • Köpa kamera
    • Köpa gps
    • Köpa internetabonnemang
    • Köpa IP-telefoni och fast telefoni
    • Köpa mobila enheter
    • Köpa nätverksutrustning
    • Köpa/Bestämma program
    • Köpa tv, hemmabio och mediacenter
  • System- och webbutveckling
    • Databaser
    • Systemutveckling
    • Webbutveckling
  • Eforum
    • Diskutera Eforum
    • Buggrapporter och önskemål om Eforum
    • PC för Alla
    • Arkiverat: Smart-forumet
  • Övrigt

Hitta resultat i...

Hitta resultat som...


Datum skapat

  • Start

    Slut


Senast uppdaterad

  • Start

    Slut


Filtrera efter antalet...

Hittade 36 resultat

  1. Då man skapar en rapport med rapportguiden, kan man välja sorteringsordning. Ex: en enkel tabell med bara Namn och Ort, båda indexerade, dubbletter tillåtna. Primärindex automatisk räknare. Rapportguiden ger mig möjlighet att lista tabellen i antingen Namn- eller Ort-ordning. I en mer komplex tillämpning vill jag läsa tabellen i en VBA-subrutin, se bifogade. Subrutinen ger mig posterna i inskriven ordning, dvs efter primärnyckeln. Går det på något sätt att komplettera koden med val av sorteringsordning, baserad på fältens index, eller separat definierat index? Exemplet är hämtat ur "Access 2013 for Dummies", sid 631. Tacksam för tips och råd. Matrikel.txt
  2. Hej! Jag gör ett makro i Excel 2010. Makrot går igenom en kolumn i ett kalkylblad uppifrån och ner och läser in cellens innehåll i en variabel. Om cellens innehåll uppfyller vissa kriterier t.ex. har värdet "liten" eller är tom så ska hela raden tas bort. Jag har gjort en liten "sub" som gör detta. (suben är bara 2 rader, så kanske lite onödigt). När suben har raderat raden så vill jag att markören (cellpekaren) ska vara i samma kolumn som tidigare (fast på raden under). Markören placerar sig emellertid i kolumn A och då måste jag flytta den i sidled till rätt kolumn innan jag kan fortsätta att gå igenom kolumnen. Kan man på ett listigt sätt få makrot att komma ihåg i vilken kolumn markören befann sig innan den tog bort raden? Tacksam för goda tips.
  3. Book1.xlsxHej, Jag är väldigt ny på det här med VBA och har hittat ett exempel på nätet (https://www.youtube.com/watch?v=t3TQ49duBgQ) som mer eller mindre gör det som jag skulle vilja ha göra. Har försökt kopiera macrot och anpassa det efter mina önskemål. Tyvärr måste jag missat något för jag får det inte rikigt att fungera utan får ett felmeddelande (Run_time error '13' Type mismatch). Det jag vill att macrot ska göra är att kopiera från blad "P&L", E6:E37, till blad "Statistics" som värden, vill inte att formler ska följa med. Var det ska klistras in beror på vilken siffra som står i cell L1 i "P&L" och sedan ska den "hitta" motsvarande siffra i Q3-3AB i "Statistics". Det ska klistras in i kolumnerna Q-AB raderna 4-35. Macrot som jag provat in ser ut enligt nedan. Bifogar fil utan macro. Sub CopyTotals() Dim WSD As Worksheet Set WSD = Worksheets("P&L") Dim WSS As Worksheet Set WSS = Worksheets("Statistics") ValueToFind = WSD.Range("L1").Value CopyToColumn = WSS.Columns(17).Find(What:=ValueToFind, _ After:=WSS.Cells(1, 2), _ LookIn:=x1Values, _ LookAt:=xlWhole, _ SearchOrder:=x1ByRows, _ SearchDirection:=x1Next, _ MatchCase:=False, _ SearchFormat:=False).Column MsgBox "Copy to column" & CopyToColumn 'Copy from WSD WSD.Range("E6:E37").Copy 'Paste Special to WSS WSS.Cells(CopyToColumn, 17).PasteSpecial _ x1PasteValues End Sub
  4. Hej, Jag har ett långt worddokument där det förekommer olika ID-nummer. Gemensamt för alla är att det börjar med ID:XXXXX. Jag har även ett exceldokument där förhoppningsvis alla dessa ID-nummer också ska finnas. Det är det jag vill att mitt program tar reda på. Jag vill alltså: 1: Hitta alla nummer efter”ID:” i mitt worddokument. 2: Söka efter dessa i mitt exceldokument 3: Redovisa detta, dvs. vilka av ID-numrena i worddokumentet finns i excel och vilka finns inte. Har letat på internet men hittar inget som är riktigt så som jag vill ha det. Oerhört tacksam för tips.
  5. Tjenis! Jag är väldigt ny inom VBA och har stött på ett problem och skulle väldigt gärna behöva lite hjälp. I en workbook har jag två sheets. På sheet1 har jag massor med data som jag själv lägger in från ett system manuellt. På "Sheet2" har jag två kolumner där talen i kolumn B matchar med talen i kolumn BA "Sheet1". Det jag vill göra att makrot ska göra är: Starta på rad2 i Sheet1, där ska den kolla numret som finns i Kolumn BA. Därefter ska den hitta samma värde fast på kolumn B i Sheet2. När den hittat det värde ska den skapa en blankrad raden under det funna värdet i Sheet2. Sedan ska hela raden från Sheet1 kopieras och klistras in på den tomma raden i Sheet2. Sedan ska den fortsätta så hela vägen tills det inte finns några rader med data kvar i Sheet1. OBS att samma nummer kan förekomma flertalet gånger i Sheet1 kolumn BA men det står bara en gång vardera i Sheet2 kolumn B. Sheet2 fungerar för att organisera så därför om det finns flertalet av samma tal i Sheet1 som matcher så lägger dem sig bara under varandra. Jag vill också att man ska kunna uppdatera Sheet1 genom att lägga till ny data där (i samma struktur som innan då). Om jag då trycker på makro-knappen igen vill jag inte att den ska kopiera in dem raderna som den redan kopierat för då kommer jag få massa dubbeldata och det är inte bra sedan när man ska göra pivot-tabeller, diagram osv.... Jag är som sagt inte så bra på VBA och har letat mycket på internet och skrapat ihop den här koden, problemet är bara att den kopierar den rad2 från Sheet1 in till rad2 på Sheet2 men sen hoppar den längst ner till sista raden i Sheet1 som är tom och klistrar in tomma rader under varje tal i Sheet2 istället.. Function DoOne(RowIndex As Integer) As Boolean Dim FG Dim Target Dim Success Success = False If Not IsEmpty(Cells(RowIndex, 2).Value) Then FG = Cells(RowIndex, 53).Value Sheets("Sheet1").Select Set Target = Columns(53).Find(FG, LookIn:=xlValues) If Not Target Is Nothing Then Rows(Target.Row).Select Selection.Copy Sheets("Sheet2").Select Rows(RowIndex + 1).Select Selection.Insert Shift:=xlDown Rows(RowIndex + 2).Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(RowIndex + 3, 2).Select Success = True End If End If DoOne = Success End Function Sub TheMacro() Dim RowIndex As Integer Sheets("Sheet2").Select RowIndex = Cells.Row While DoOne(RowIndex) RowIndex = RowIndex + 3 Wend End Sub Är tacksam för all hjälp!
  6. Goddag därute i forumet! Har ett litet projekt som jag behöver hjälp med. Jag har skapat ett medlemsregister i Excel för en förening. Medlemsuppgifterna har jag importerat från ett annat webbaserat program som kommer att upphöra inom kort. Problemet är att Excel-arket blir så stort med många kolumner från importen och jag skulle behöva presentera utdrag ur detta vi en userform i VBA. Jag har kommit så långt att jag designat formuläret (se bild) Jag har tidigare jobbat en hel del i MS Access och designat formulär men då via designverktyg där. Jag har förstått att jag måste koppla VBA-kod till formuläret, men hur gör jag det? Min tabell på Excelfliken är designat så att kolumnerna står som fält och raderna som poster (precis som i access). Finns där någon vänlig och kunnig person som kan tipsa mig om någon VBA kod så att man kan söka i tex "Verksamhetsnamn" och sedan få övriga fält ifyllda från den posten? Med hopp om svar! //Magnus
  7. mattias_targa

    LÖST VBA Macro

    Jag har skapat ett macro som ska skapar en mapp och döper den till ett namn efter innehållet i ett bokmärke När jag skriver ut bokmärket i Word dokumentet kommer det fram tex 4004 men när jag använder värdet i bokmärket i mitt macro så står det FORMTEXT 4004 dvs mappen "FORMTEXT 4004" skapas i stället för mappen "4004" Vad gör jag för fel ? Sub Skapa_Mapp2() Dim FSO Dim Map_name2 As String Map_name2 = ActiveDocument.Bookmarks("Maskinnr2").Range.Text Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists("\\LCSRV02\databas medarbetare\Objekt\" + Map_name2) Then FSO.CreateFolder ("\\LCSRV02\databas medarbetare\Objekt\" + Map_name2) End If
  8. Hej, Jag har ett formulär som innehåller ett underformulär (se bild). I underformuläret fyller man i dagens datum och ett löpnummer för x antal poster i de två första fälten. Min tanke är sedan att man ställer sig i fältet för batchnummer1 (första posten), skriver in ett batchnummer och trycker enter för att hoppa ned till nästa post (samma fält). När detta är upprepat x gånger (slut på löpnummer) ska markören automatiskt hoppa till nästa fält (batchnummer2) översta posten. Någon som sitter på en fiffig kod för att åstadkomma detta? //Magnus
  9. grebssom

    VBA med SQL i Word

    Hej hallå, Sitter å brottas med VBA(tror jag) i Word, ska hämta ut info ur ett ärendehanteringssystem som använder Oracle-databas och koppla infon i ett dokument, det går bra för enkla grejer men är begränsat eftersom jag inte förstår hur jag bygger upp SQL-sökningen i VBA. T ex, denna funkar: varTest=.Ab.AbPersOrgVersion<|.AbPersOrgVersionRoll<|.GemPersOrgRoll.Roll==”Test”|>.Count >= 1|>[0].GemPersOrgVersion --->Hämtar ut alla personer i databasen med rollen Test, om det finns en eller flera. ...men jag förstår inte hur den är uppbyggd och hur jag kan utveckla den. Det jag vill göra är att: Ha fler sökkriterier i SQL'en (t ex WHERE, AND) Sortering av data (t ex ORDER BY, ASC, DESC) Koppla in flera tabeller (t ex JOIN) ...t ex: SELECT * FROM db1 WHERE Roll="BH" ORDER BY Date ...o s v Hurfår jag in det i denna: varTest=.Ab.AbPersOrgVersion<|.AbPersOrgVersionRoll<|.GemPersOrgRoll.Roll==”Test”|>.Count >= 1|>[0].GemPersOrgVersion Har letat men inte hittat någon guide, någon som har tips på onlineguide eller kan med detta? Tack på förhand/Henrik
  10. Hej Jag vill att en kolumn fylls med en nummerföljd (1, 2, 3, 4, 5, 6...) i Excel. Det är ju lätt fixat, men om man filtrerar raderna kommer det inte längre vara 1, 2, 3, 4, 5, 6...om inte alla raderna visas efter filtrering. Men jag vill att ordningsföljden skall vara intakt oavsett hur man filtrerar. Ordningsföljden måste alltså uppdateras efter att man utfört filtrering (på de raderna som visas). Detta bör vara möjligt i ett vba skript. Tacksam om någon kan hjälpa mig med detta. - Peter
  11. Jag har , i Excel 2010, VBA kod med svenska bostäver åäö där när filen stängs och öppnas igen så har de blivit utbytta mot andra tecken. T.ex. sheets och msg Ex. Msg = "Vill du lŠgga till ett nytt ŒtgŠrdssteg till det markerade fšrbŠttringsomrŒdet?" Sheets("LŠrdomar").Visible = False Jag har ett svenskspråkigt excel men koden är skriven på engelska, eftersom jag har både en svensk och en engelsk variant av excelfilen. Vad är felet? Vad skall jag göra?
×
×
  • Skapa nytt...