Sök

Jag har en medlemsmatrikel på ett Excel-ark där jag behöver en funktion (ett Makro) som kan exportera medlemmars namn tillsammans med respektive epost-adress till en text-fil. Har kollat runt men inga exempel jag stött på verkar fungera så jag undrar nu om det finns någon vänlig själ som kan hjälpa mig? Jag vill kunna exportera innehållet i kolumn "A" (Namn) och kolumn "J" (E-postadress) men bara från de rader där medlemmen har en epostadress. Utdata på textfilen bör vara tabbavgränsat men det är inget absolut måste... Pls help...

Någon som har koll, jag har ett dokument som när jag öppnar det får en gul rand längst upp med texten Säkerhetsvarning Makron har inaktiverats. Bredvid detta meddelande finns en knapp med texten Aktivera innehåll. Jag kan dock inte se att det finns något makro i dokumentet. Finns det någon som har koll på vad som kan trigga detta meddelande och finns det något enkelt sätt identifiera den specifika källan? Är det riskfritt att aktivera innehåll? Jag har skannat filen med antivirus utan att något hittades. Wordversionen är Word 2010

Hej! Jag har skrivit ett makro som tar data från ett "uträkningsdata blad" flyttar och tar bort värdena i en kolumn där och lägger dem i ett "beräknings blad" och skulle vilja att de upprepades tills kolumnen i bladet "uträkningsdata" är tom på data. då vill jag att upprepningen avslutas. sen undrar jag även om de går att städa något i makrot. jag är självlärd på detta och vill gärna lära mig mer! Sub område13() ' ' område13 Makro ' ' Range("C1").Select Sheets("13").Select Columns("E:E").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("E1").Select ActiveCell.FormulaR1C1 = "=Formler!R[1]C[-3]" Range("E89").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[13]" Range("E90").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[13]" Range("E94").Select ActiveCell.FormulaR1C1 = "=Formler!R[-83]C[6]" Range("E96").Select ActiveCell.FormulaR1C1 = "=Formler!R[-85]C[8]" Range("E98").Select ActiveCell.FormulaR1C1 = "=Formler!R[-87]C[10]" Range("E101").Select ActiveCell.FormulaR1C1 = "=Formler!R[-78]C[3]" Range("E110").Select ActiveCell.FormulaR1C1 = "=Formler!R[-86]C[3]" Range("E111").Select ActiveCell.FormulaR1C1 = "=Formler!R[-86]C[3]" Range("E112").Select ActiveCell.FormulaR1C1 = "=Formler!R[-92]C[3]" Range("E115").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E116").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E117").Select ActiveCell.FormulaR1C1 = "=Formler!R[-91]C[6]" Range("E120").Select ActiveCell.FormulaR1C1 = "=Formler!R[-110]C[10]" Range("E127").Select ActiveCell.FormulaR1C1 = "=Formler!R[-119]C[3]" Range("E129").Select ActiveCell.FormulaR1C1 = "=Formler!R[-117]C[6]" Range("E131").Select ActiveCell.FormulaR1C1 = "=Formler!R[-123]C[8]" Range("E134").Select ActiveCell.FormulaR1C1 = "=Formler!R[-126]C[10]" Range("E138").Select ActiveCell.FormulaR1C1 = "=Formler!R[-125]C[3]" Range("E141").Select ActiveCell.FormulaR1C1 = "=Formler!R[-128]C[6]" Range("E145").Select ActiveCell.FormulaR1C1 = "=Formler!R[-132]C[8]" Range("E148").Select ActiveCell.FormulaR1C1 = "=Formler!R[-135]C[10]" Range("E151").Select ActiveCell.FormulaR1C1 = "=Formler!R[-137]C[3]" Range("E152").Select ActiveCell.FormulaR1C1 = "=Formler!R[-137]C[3]" Range("E155").Select ActiveCell.FormulaR1C1 = "=Formler!R[-141]C[6]" Range("E163").Select ActiveCell.FormulaR1C1 = "=Formler!R[-136]C[3]" Range("E167").Select ActiveCell.FormulaR1C1 = "=Formler!R[-151]C[3]" Range("E170").Select ActiveCell.FormulaR1C1 = "=Formler!R[-153]C[3]" Range("E172").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E175").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E176").Select ActiveCell.FormulaR1C1 = "=Formler!R[-144]C[3]" Range("E189").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E190").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E191").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E192").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E193").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E194").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E195").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E196").Select ActiveCell.FormulaR1C1 = "=Formler!R[-156]C[3]" Range("E199").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E200").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E201").Select ActiveCell.FormulaR1C1 = "=Formler!R[-158]C[3]" Range("E203").Select ActiveCell.FormulaR1C1 = "=Formler!R[-175]C[6]" Range("E206").Select ActiveCell.FormulaR1C1 = "=Formler!R[-187]C[8]" Range("E227").Select ActiveCell.FormulaR1C1 = "=Formler!R[-182]C[3]" Range("E229").Select ActiveCell.FormulaR1C1 = "=Formler!R[-183]C[3]" Range("E235").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E236").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E237").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E238").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E239").Select ActiveCell.FormulaR1C1 = "=Formler!R[-186]C[3]" Range("E241").Select ActiveCell.FormulaR1C1 = "=Formler!R[-188]C[3]" Range("E249").Select ActiveCell.FormulaR1C1 = "=Formler!R[-232]C[10]" Range("E252").Select ActiveCell.FormulaR1C1 = "=Formler!R[-234]C[10]" Range("E255").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E256").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E257").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E258").Select ActiveCell.FormulaR1C1 = "=Formler!R[-236]C[10]" Range("E264").Select ActiveCell.FormulaR1C1 = "=Formler!R[-247]C[10]" Columns("e:e").Select Selection.Copy Columns("f:f").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("e:e").Select Application.CutCopyMode = False Selection.ClearContents Columns("C:C").Select Selection.Copy Columns("E:E").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Range("C88").Select ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[620])" Range("C88").Select Selection.AutoFill Destination:=Range("C88:C177"), Type:=xlFillDefault Range("C88:C177").Select Range("C187").Select ActiveCell.FormulaR1C1 = "=SUM(RC[3]:RC[620])" Range("C187").Select Selection.AutoFill Destination:=Range("C187:C299"), Type:=xlFillDefault Range("C187:C299").Select Range("C1").Select Sheets("Beräkning").Select Range("C1").Select Sheets("Uträkningsdata").Select Range("D1:D49").Select Selection.Copy Sheets("Beräkning").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Uträkningsdata").Select Columns("C:C").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Sheets("Beräkning").Select Range("C1").Select End Sub

Hej, Mitt problem är att skapa en textfil från ett Excel-ark där man först har en "öppningsrad" med visst innehåll och därefter 3 st rader rader som hänger samman, där data hämtas från en tabell och läggs in i respektive rad i en viss förutbestämd position ("fält"). I vissa fall skall "fältet" fyllas ut med nollor framför värdet. Varje rad är alltid 180 tecken lång och blanktecken förekommer för att fälten skall komma i rätt position. När en post är behandlad går man till nästa (=rad) och gör om proceduren. Filen avslutas med en "stängningsrad" med visst innehåll. Ut skall komma en TXT-fil med ASCII-tecken som sedan skall kunna skickas till banken., Allt bygger på Sparbankernas SUS-format på betalfiler. Är det någon som vet om ovanstående går att göra, eller måste jag gå någon annan väg än Excel ? Köpa ett löneprogram är ingen utväg.... Tacksam för svar. //Tom

Hej, Har en Excelfil för finansiell rapportering som körs på ett stort antal enheter månatligen. I denna fil nyttjar vi ett makro som ställer skalan på diagrammen. När vi kört makrot skapar vi en pdf-rapport via Adobes-add in. När vi väl tagit fram en rapport och vill köra en ny rapport på en ny enhet (väljs från en drop-downlista) fungerar inte makrot att köra längre utan man måste stänga ner hela Excel och start upp på nytt igen för att makrot skall kunna köras. Har något ett svar på varför makrot slutar fungera och hur skulle man kunna åtgärda det? Samma sak sker om man nyttjar den vanliga print to PDF funktionen. Tacksam för svar. Vänliga hälsningar Marcus

Hej! Har "vissa" problem och hoppas att någon kan hjälpa mig! I blad 1 ska användaren via en inputbox kunna ange en siffra mellan 1-31. Beroende på vilken siffra som anges ska ytterligare X+3 rader skapas nedanför den aktiva cellen. Till Dessa ska sedan data/formler från blad 2 klistras in. Förslag 1: 1. X antal rader infogas + 3 för rubrik och beräkningar 2. raden innehållande data och formler hämtas från blad2 3. raden innehållande data och formler i blad 2 kopieras till de rader som skapats i blad1. 4. Beräkningarna hämtas från blad2 Förslag 2: 1. X antal rader infogas + 3 för rubriker och beräkningar 2 Beroende på det antal rader som användaren angett i inputbox:en hämtas data från blad2, tex; 1=A2:L5, 2=A7:L11 osv. se bifogad fil. Någon som har lösning på dessa problem??? tack! Exempel.xlsx

Jag har ett Excel ark där jag tänkte infoga kommentarer med bilder till väldigt många celler med text. Varje cell ska ha en egen bild i kommentarsrutan. Jag vet hur man infogar en bild i en kommentar men går det att göra ett makro som skapar kommentaren och går till mappen där jag har alla bilder sparade så jag bara kan välja rätt bild?

Hej, Jag har skapat ett formulär, (frm1), där man fyller i olika uppgifter för tex. ett rum så som rumsnummer, golvyta,väggyta, fönsterstorlek etc. etc. Detta läggs sedan till i en ny rad i ett kalkylblad när man klickar på knappen "Lägg till". Så långt funkar allt. När man sedan gjort ett antal rader så har man kanske rum som är snarlikt ett tidigare rum. Då vill man ange rumsnumret och då ska data för väggyta kopieras in i textboxen för väggyta, golvyta i textboxen för golvyta osv. Formuläret, (frm2), med en textbox där man ska ange rumsnumret är också fixat men, nu till själva frågan. Hur får jag rumsnumret i textboxen i frm2 att kopiera in data från kalkylbladet till resp. textbox i frm1? Det skulle även vara önskvärt att kunna kopiera föregående uppgifter med en annan knapp. knappen för detta är skapad men jag har inte kunnat lösa funktionen för den. Jag har ca 20 st textboxar i frm1 så det hade underlättat väsentligt om detta gick att fixa. Anledningen till att jag vill ha in det i textboxarna är att jag förmodligen behöver kunna justera några siffror innan jag lägger in det i kalkylbladet. Tacksam för tips då jag inte kunnat hitta instruktioner på nätet till detta, vet heller inte riktigt vilka sökord man ska ange. Jag bifogar filen om det finns någon hjälpsam själ som vill/kan förbarma sig över detta. Tack på förhand.

Hej, behöver hjälp med att skapa en makro som sumerar variabler för att nå följande resultat: exempel i excel där kolumner A1: anka - B1: m,k A:2 anka - B2: k,t A3: apa - B3: k,m A4: apa - B4; ö A5: apa - B5: k resultat: anka m=1, k=2, t=1 apa k=2, m=1, ö 1 Tack på förhand. mvh rosei

Skulle behöva en "räknare", som räknar upp en cell (+1). Vill ha en Knapp som räknar upp en cell, vid varje knappklick. Några tips/förslag på hur man får till detta?

Hej! Nu skulle jag behöva lite hjälp igen. jag vill skapa ett macro kopplat till en knapp som: öppnar en ny flik, skapar nya rader i befintlig flik, skriver in formel i dessa rader kopplade till ny flik. detta har jag också lykats göra, MEN när jag använder min knapp gång nr2, då får jag exat samma formel som jag fick första gången och därför kopplar formeln till den första fliken som skapades. Att de blir så här kanske inte är så konstigt men hur gör jag för att macrot ska skapa en formel som kopplar till den nya fliken? Tacksam för hjälp! // Lisa

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.

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!

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