VBA

Användarinformation

Excelspecialisten — 2009-01-13T11:53:27Z

Välkommen till Excelforum - VBA

Här kan du ställa frågor om allt som rör programmering med VBA och egendefinierade funktioner.

Open file

Christian — 2026-02-11T11:30:48Z

Sub Open_Todays_CSV()

Dim folderPath As String

Dim fileName As String

Dim fullPath As String

' Adjust this to your folder

folderPath = "C:\YourFolderPath\"

' Build filename like: 26-02-11_filename.csv

fileName = Format(Date, "yy-mm-dd") & "_filename.csv"

fullPath = folderPath & fileName

If Dir(fullPath) <> "" Then

Workbooks.Open fullPath

Else

MsgBox "File not found: " & fullPath, vbExclamation

End If

End Sub

Mail från Ecxel

Christian — 2026-02-11T11:26:20Z

Hej hej

Signaturen läggs in av outlook när .display körs. Denna läggs till i Outmail.Body.

1. lägg in rad för .Display innan du berättar vad .body ska sättas. Detta fyller din body med din signatur.

2. Se till att Signaturen läggs till när du modifierar din body:

.Body = "Text Rad 1 Text Rad 1" & vbNewLine & _

"Text Rad 2 Text Rad 2" & vnNewLine & _

.Body

Kopiera mellan två blad

NIsse 74 — 2025-11-06T20:59:25Z

Excell är inte min staksida och spec. inte vba men med lite letande och läsande fann jag två skrip som jag skulle behöva få lite hjälp hur man skriver in fler oprationer i samma skrip i stälet för att göra 9 mouler för att få dessa att funka.

ett skript är som vanlig kopiering och det andra är kopiera med kilsta in special för att jag vill inte ha forlmen med utan bara resultatet.

Från källbladet inmätning resultat skall info från cellerna A4:A100 B4:B100 C4:100 skall till rapport motsvarande dvs A4 B4 C4
Från källbladet inmätning resutat, m4:m100 n4:n100 04:O100 skall till rapport I4 J4 K4

Sdean skall detta från innmätning resultat till rapport med kistra in special då jag bara vill ha resultatet och inte formeln.
I4:I100 till rapport E4
J4:100 till rapport F4
K4:100 till rapport G4

Jag har testat att kopiera in fler poster men får det inte att lira så något gör jag fel

Här är skripten

Sub KopieraDataMellanBlad()

' Deklarera variabler för kalkylbladen för tydlighetens skull

Dim kallaBlad As Worksheet

Dim destinationBlad As Worksheet

' Sätt variablerna till de specifika bladen

' Ändra "Blad1" och "Blad2" till de faktiska namnen på dina blad om de skiljer sig

Set kallaBlad = ThisWorkbook.Sheets("Inmätning-Resultat") * här har jag ändrat till mitt blad

Set destinationBlad = ThisWorkbook.Sheets("Rapport utskrift") * här har jag ändrat till mitt blad

' Kopiera området A4:A100 från källbladet och klistra in det i A4 på destinationsbladet * Kan man skriva in fler här under?
ex mpel Kopiera området B4:B100 från källbladet och klistra in det i B4 på destinationsbladeer

kallaBlad.Range("A4:A100").Copy Destination:=destinationBlad.Range("A4") * då borde man göra lika här?

ex kallaBlad.Range("B4:B100").Copy Destination:=destinationBlad.Range("B4")

' Valfritt: Rensa urklippsläget (de animerade streckade linjerna runt det kopierade området)

Application.CutCopyMode = False

' Meddelande när operationen är klar

MsgBox "Data från A4:A100 på Blad1 har kopierats till Rapport utskrift med start i A4."

End Sub

det andra skriptet ser ut så här

Sub KopieraOchKlistraInSpecial()

' Deklarera variabler för enkelhetens skull

Dim kallaBlad As Worksheet

Dim malBlad As Worksheet

Dim kallaOmrade As Range

Dim malCell As Range

' Sätt variablerna till de specifika bladen i din arbetsbok

' Ändra "Blad1" och "Blad2" till namnen på dina faktiska blad

Set kallaBlad = ThisWorkbook.Sheets("Inmätning-Resultat")

Set malBlad = ThisWorkbook.Sheets("Rapport utskrift")

' Definiera källområdet (t.ex. A1 till D10)

Set kallaOmrade = kallaBlad.Range("I4:I100") skulle man kunna skriva in fler här under ??

ex Set kallaOmrade = kallaBlad.Range("J4:IJ100")
ex Set kallaOmrade = kallaBlad.Range("K4:K100")

' Definiera målcellen där inklistringen ska börja (t.ex. A1)

Set malCell = malBlad.Range("E4")

ex Set malCell = malBlad.Range("F4")

ex Set malCell = malBlad.Range("G4")

' Kopiera källområdet

kallaOmrade.Copy

' Klistra in special (endast värden) i målcellen

' xlPasteValues klistrar in bara värdena

malCell.PasteSpecial Paste:=xlPasteValues

' Rensa klippbordet (valfritt men rekommenderat)

Application.CutCopyMode = False

' Bekräftelsemeddelande

MsgBox "Data har kopierats som endast värden från " & kallaBlad.Name & " till " & malBlad.Name & ".", vbInformation

End Sub

Transponera celler som finns på samma rad så de kommer under varandra?

Bigfoot — 2025-07-27T10:39:59Z

Hej

Jag har hämtat ett artikelregister till Excel som var på endast en rad med ca 1000 artiklar. Jag har delat upp alla information med "Text till kolumner" och har nu fortfarande en rad i Excel men nu ser jag att varje artikel har 12 kolumner.

Vad jag skulle vilja få hjälp med är att transponera 12 radceller (en artikel) och sen nästa artikel också med 12 radceller så de kommer under varandra?

Exempel nedan hur det ser ut nu, skriver in tre radceller för det är för jobbigt att skriva 12 st :-O

ITEM ITEMNO ITEMCOLOR ITEM ITEMNO ITEMCOLOR

Så här skulle jag vilja att det såg ut i Excel

ITEM ITEMNO ITEMCOLOR

Köp original svenskt körkort.

nonosa — 2025-06-04T21:36:41Z

Köp original svenskt körkort. Den här webbplatsen handlar mer om hur man köper körkort i Sverige utan skriftliga prov eller praktiska prov, och vi vet mycket väl att det kan verka konstigt för många, men med oss är det möjligt och 100 % säkert. Denna strategi har använts i över 10 år eftersom vi upptäcker att många kvalificerade förare inte har denna dokumentation på grund av provens intensiva och svåra natur, en svårighet som inte bara Sverige utan även andra europeiska länder står inför samma problem.

Vi är här för att erbjuda dig det enklaste sättet att få ett körkort utan att gå igenom denna teori eller praktik. Kan du dina körkoder korrekt, men teorin ger dig fortfarande problem?

Kontakta oss bara. Kontakta oss.

E-post: autoconducir@yahoo.com

Vissa kanske stöter på den här webbplatsen och undrar vad ett körkort är eller vad som är kärnan i ett körkort. Sammanfattningsvis vill jag förklara vad ett körkort är. Ett körkort är ett officiellt dokument som utfärdas av en specifik regering i ett land som bemyndigar en person att officiellt köra en bil, privat eller offentlig, efter att ha klarat de officiella körproven.

Att få körkort blir allt svårare med tiden och många letar efter enklare sätt att få det. Vi finns här för att ge alla som inte har körkort enkla sätt att få det utan att behöva oroa sig för alla de stressiga processer som den svenska regeringen har infört.

Om du har blivit utsatt för orättvisa under dina praktiska prov och misslyckats med att få körkortet, oroa dig inte mer, för vi finns här för att göra ditt liv enklare. Vi är 100 % garanterat säkra och tillhandahåller ett registrerat, verifierbart körkort.

Kontakta oss för mer information och detaljer

E-post: autoconducir@yahoo.com

Mäta storlek på textsträng

anonymous — 2025-03-07T09:03:25Z

Krångligt, men han verkar ha blivit nöjd till sist:

https://www.alltomwindows.se/topic/35949-räkna-ut-fysisk-längd-på-textsträng/

En "point" är ett fysiskt mått, till skillnad mot en "pixel" så skärmupplösningen borde inte påverka dig. Men det sliljer som vanligt mellan internationella mått och koloniala:

https://it-ord.idg.se/ord/punkt/

"en europeisk punkt, ”ciceropunkt”, är exakt 0,375 millimeter

Amerikansk typografisk punkt, ”postscriptpunkt”, 0,352777… millimeter"

Kollar man hjälpen till Words "PointsToMillimeters" så räknar de med konstanten (1 mm= 2.835 points) så det borde du kunna använda.

https://learn.microsoft.com/sv-se/office/vba/api/word.application.pointstomillimeters

Ändra tabordning i kalkylblad

Klasseman — 2025-01-13T17:15:27Z

Finns det någon som känner till någon smart metod att ändra tabordning i ett låst Excel kalkylblad?

Test om cell är en konstant

Klasseman — 2024-12-20T06:09:05Z

Hej tack för svar!

Jag kommer testa förslaget med att kontrollera längden på innehållet i cellen i kombination med ett test om innehållet inte är en formel.

Fråga om Listobject.Name

Runarsson — 2024-09-25T11:11:34Z

Jag håller på med ett makro som skapar en tabell och i den sedan skriver formler av "tabelltyp". Vid skapandet döper den tabellen till första delen i flikens namn och vid ex en summaradsformel, får det pussla ihop formeln själv med hjälp av tabellnamnet det har kvar... ex. "=SUM(" & sMyTable & "[Sålda])" skriver formeln =SUMMA(Modeller[Sålda]).

Problem kan dock uppstå när jag arbetar i en KOPIA på bladet, som då har fått ex namnet 'Modeller 240701 (2)'... och har en tabell redan skapad i ursprungsbladet. Det försöker ändå ge tabellen namnet 'Modeller' i det nya bladet, men eftersom boken redan innehåller en med det namnet döps då tabellen automatiskt till 'Modeller_1'.

Jag försökte med raden sMyTable = Activesheet.Range("A1").ListObject.Name uppdatera variabeln direkt efter skapandet av tabellen om det nu var så att tabellen fått ett annat namn än det avsedda... så att den ändå kunde skriva formlerna med korrekt tabellnamn. Men det får ändå inte in RÄTT namn när det försöker hämta in det. Om den försökt döpt tabellen till 'Modeller' och en konflikt gett den namnet 'Modeller_1', kommer denna programrad ändå att hämta in namnet 'Modeller', trots att det inte är tabellens rätta namn.

Någon som sitter med en smart lösning, endera att få den att uppdatera variabeln korrekt... eller en smart idé för att undvika att försöka namnge till redan befintligt tabellnamn. (Primärt är att slutligen få formlerna skrivna efter aktuellt tabellnamn, vad det nu må vara.)

Summera rad och exkludera dolda kolumner

Pladd — 2024-08-10T15:43:13Z

jag har ett VBA problem

i E46 till BA46 finns olika värde,

vissa av kolummerna kan vara dolda,

vill i B46 få summan av alla värde mellan

E46 och BA46 utom från dom dolda kolumerna.

Skapa flikar av cellvärde

Micke — 2024-07-31T09:59:55Z

Hej, jag sitter och har ett kundregister där jag vill ha en flik för varje kund på ett smidigt sätt och det får inte bli dubbletter av flikarna... Mina kunder är i cell A2 och neråt. Nu vill jag skapa en flik för varje kund och döpa fliken med kundens namn som står i cellen. Hur gör man detta enklast? Det kanske är något som någon redan har gjort

Tack på förhand

Automatiskt anpassa kolumnbredd efter text

anonymous — 2024-06-29T08:45:10Z

Hur kan jag automatiskt anpassa kolumnbredd efter text för hela arbetets boken

Dela fil med Macro

anonymous — 2024-05-30T14:07:53Z

Var ligger dina makron?

Gå in i VBA-editorn (ALT+F11) och kolla dina makron i projektutforskaren (Ctrl+R). Ligger modul med dina makron under din arbetsbok eller ligger den under "Personal.xlsb"?

PESONAL.XLB är en helt separat arbetsbok som ligger på din dator och fungerar som "makrohållare" så att du kan använda dina makron oavsett vilken arbetsbok du har öppen.

Om du skall kunna exportera en arbetsbok med makron så måste modulen/makrona ligga i din arbetsbok. Som dessutom måste sparas som makroaktiverad bok.

Blev du klokare av det?

När det gäller säkerheten så kan en del organisationer (Jobb/skola) låsa excel så att den helt enkelt aldrig tillåter makron. Och det är inte glasklart när man går in under trust-center.

Det nya makroverktyget Automate/office-skript går att sprida på ett helt annat sätt. Men det bygger på något slags javascript så koden blir ganska olik.

Show cell value only if selected

anonymous — 2024-05-06T10:03:30Z

Vad menar du med dold?

I excel kan du dölja rader och kolumner. Men inte enstaka celler.

Du skulle kunna göra bakgrunds och förgrundsfärg likadana så att texten blir "osynlig": Så länge bakgrundsfärgen är vit...

Börja med att markera de aktuella cellera och ge dem typsnittsfärgen vit. Då blir innehållet "osyntlig"

Se kan du använda "SelectionChange" för att ändra färgen på varje cell du markerar så att de blir synliga:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Font.ColorIndex = xlAutomatic
End Sub

Men det är som sagt var extremt enkellt att fuska genom att ädnra bakgrundsfärg

En helt annan variant är att lägga dina data på ett annat blad som du döljer (veryHidden i VBA). Sen hämtar du motsvarande data till Målbladet när någon klickar i en cell. Typ om dina data ligger i "blad3"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Worksheets("Blad3").Range(Target.AddressLocal).Value
End Sub

For loop

Dizel — 2024-05-01T15:33:57Z

Hej

Amatör som inte behärskar For Loop och skulle behöva hjälp med följande.

Har ett excel ark där jag vill gör några tusen loopar genom ett blad.

Koden ser ut som följer och det jag vill är att kunna köra samma kod men då på 8 rader neråt i bladet

och nästa gång 16 rader neråt o.s.v.

Option Explicit

Sub ExtraheraTal()

Dim ws As Worksheet

Dim i As Long

' Ange arbetsbladet där tabellen finns

Set ws = ThisWorkbook.Sheets("StigandeFallande") ' Byt ut "DittArbetsbladNamn" mot det faktiska namnet

' Loopa igenom varje rad i tabellen

For i = 3 To 10

' Hämta värden från kolumn B, C och D

Dim tal1 As Double

Dim tal2 As Double

Dim tal3 As Double

tal1 = ws.Cells(i, 2).Value

tal2 = ws.Cells(i, 3).Value

tal3 = ws.Cells(i, 4).Value

' Hämta tecknet från kolumn K

Dim tecken As String

tecken = ws.Cells(i, 11).Value

' Beräkna det önskade talet baserat på tecknet

Dim resultat As Double

Select Case tecken

Case "1"

resultat = tal1

Case "X"

resultat = tal2

Case "2"

resultat = tal3

End Select

' Skriv resultatet till kolumn F

ws.Cells(i, 6).Value = resultat

Next i

Call ExtraheraStigandeFöljder

End Sub

Sub ExtraheraStigandeFöljder()

Dim ws As Worksheet

Dim i As Long

Dim stigande As Long

Dim strA As String, tidigare As String

' Ange arbetsbladet där tabellen finns

Set ws = ThisWorkbook.Sheets("StigandeFallande") ' Byt ut "DittArbetsbladNamn" mot det faktiska namnet

' Loopa igenom varje rad i tabellen

For i = 4 To 11

' Hämta aktuellt tal från kolumn F

Dim aktuelltTal As Double

aktuelltTal = ws.Cells(i, 6).Value

' Hämta föregående tal från kolumn F

Dim forrigeTal As Double

forrigeTal = ws.Cells(i - 1, 6).Value

' Jämför värdena för att avgöra om det är ett stigande tal

If aktuelltTal > forrigeTal Then

strA = strA & forrigeTal & "-"

tidigare = aktuelltTal

Else: If strA <> "" Then ws.Cells(i - 1, 8) = strA & tidigare

strA = ""

End If

Next i

Call ExtraheraFallandeFöljder

End Sub

Sub ExtraheraFallandeFöljder()

Dim ws As Worksheet

Dim i As Long

Dim stigande As Long

Dim strA As String, tidigare As String

' Ange arbetsbladet där tabellen finns

Set ws = ThisWorkbook.Sheets("StigandeFallande") ' Byt ut "DittArbetsbladNamn" mot det faktiska namnet

' Loopa igenom varje rad i tabellen

For i = 4 To 11

If i = 11 Then

ws.Cells(i, 6) = 1000

End If

' Hämta aktuellt tal från kolumn F

Dim aktuelltTal As Double

aktuelltTal = ws.Cells(i, 6).Value

' Hämta föregående tal från kolumn F

Dim forrigeTal As Double

forrigeTal = ws.Cells(i - 1, 6).Value

' Jämför värdena för att avgöra om det är ett fallande tal

If aktuelltTal < forrigeTal Then

strA = strA & forrigeTal & "-"

tidigare = aktuelltTal

Else: If strA <> "" Then ws.Cells(i - 1, 9) = strA & tidigare

strA = ""

End If

Next i

ws.Cells(11, 6) = ""

End Sub

Numeriskt Ja eller Nej ??

fleXcel — 2024-04-23T19:34:38Z

Hej och Tack jag skall testa din kod när jag får en lucka...

/fleXcel

Vilken formel eller VBA i Excel krävs för utskrift av alla möjliga kombinationer av 7 bokstäver?

Sleipner — 2024-04-23T12:36:22Z

Vilken formel eller VBA i Excel krävs för utskrift av alla möjliga kombinationer av 7 bokstäver i olika grupper?

Jag har de här sju bokstäverna i den första gruppen, var och en på sin egen rad:

A
B
C
D
E
F
G

Nu vill jag att Excel matar ut de kombinationer som är möjliga som grupper där A och B dock är konstanta (finns alltid i 1:a och 2:a positionen). Exempel på början av utmatningen:

A
B
C
D
E
F
G

A
B
D
C
E
F
G

A
B
D
E
C
F
G

Jag tror det ska bli 20 sådana här grupper av kombinationer. Går att att lösa med en formel i Excel, eller behövs VBA?

Utskriftsområde

Ingvar — 2024-04-19T09:00:57Z

Hej! Skulle vilja kunna lägga in ett utskriftsområde med ett visst antal rader som kan variera beroende vad som står i cell T1.

Utskriftsområdet skall vara A1:R(och den siffran som står i cell T1)

Är detta möjligt, jag förmodar detta, men har själv inte stor kunskap i VBA

Mvh Ingvar

flytta siffror till toma celler

nisse — 2024-04-10T16:19:28Z

hej jag kollar här jo så här är det
skulle vilja ha hjälp med detta
i exel cell b2 står det 1 c2 srtår det 2 sen likadant upp till 8

i cell b3 står det 9 c3 10 d3 11 e3 12
i cell b4 13 c4 14 d415

en rad 1till 8
andra raden 9-12
3 raden 13-15
jag vill med en knapp att om tex om 8 är tom vill jag att han fyller på med 9 flyttar framm sifrorrna ett steg

hoppas ni förstår

VBA

Användarinformation

Open file

Mail från Ecxel

Kopiera mellan två blad

Transponera celler som finns på samma rad så de kommer under varandra?

Köp original svenskt körkort.

Mäta storlek på textsträng

Ändra tabordning i kalkylblad

Test om cell är en konstant

Fråga om Listobject.Name

Summera rad och exkludera dolda kolumner

Skapa flikar av cellvärde

Automatiskt anpassa kolumnbredd efter text

Dela fil med Macro

Show cell value only if selected

For loop

Numeriskt Ja eller Nej ??

Vilken formel eller VBA i Excel krävs för utskrift av alla möjliga kombinationer av 7 bokstäver?

Utskriftsområde

flytta siffror till toma celler

More...