Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketNy linje i ark med Makro/VBA

 Besvar Besvar
Forfatter
M8DK Se dropdown
Forum Begynder
Forum Begynder


Medlem: 03.Feb.2022
Land: Danmark
Status: Offline
Point: 2
Direkte link til dette indlæg Emne: Ny linje i ark med Makro/VBA
    Sendt: 03.Feb.2022 kl. 20:08
Hej
Jeg forsøger at lave en knap der indsætter en ny linje med formatet fra den aktive linje, under eller over den aktive linje. det jeg har lavet virker ikke, med indsætning af flere linje og når jeg vil indsætte linje via knap 2 går det helt galt. 
Er nybegynder i Makro/VBA, så alt hjælp vil være meget værdsat. 
https://forum.excel-regneark.dk/uploads/2907/test.xlsm - uploads/2907/test.xlsm
Skriv hvis jeg skal uddybe.
Makroer:
Sub data2()
    Range("data33").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("data22").Select
    Selection.Copy
    Range("A7").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("D7:F7").Select
 End Sub

Sub data1()
  Range("data22").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("data11").Select
    Selection.Copy
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("D5:F5").Select
End Sub 
Til top



Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5475
Direkte link til dette indlæg Sendt: 05.Feb.2022 kl. 09:02
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
M8DK Se dropdown
Forum Begynder
Forum Begynder


Medlem: 03.Feb.2022
Land: Danmark
Status: Offline
Point: 2
Direkte link til dette indlæg Sendt: 06.Feb.2022 kl. 22:00
Hej 
Nu er jeg novice ud i programmering, men det du linket til vil konvertere indholdet af en celle til flere celler i et nyt ark, så vidt jeg kan forstå det.
Det var ikke helt det jeg er ude efter, jeg har behov for at indsætte nye linjer i et ark, efterhånden som man skal bruge dem og indsætte det samme format som den forgående linje.
min meget simple makro kan sætte 1 linje ind, men næste gang du skal sætte en ny linje ind, går det galt, da det jo er en fast celle jeg bruger for indsætning af det kopieret format, så det skal være en variable på en eller anden måde som jeg ikke har viden om(forstand på) Smile  
hvis du har andet du kan byde ind med, vil det være yderst velkommen.


Til top
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 140
Direkte link til dette indlæg Sendt: 11.Nov.2022 kl. 11:51
dim data as variant
dim i as interger
'find første række der er tom
i =1
do while ark1.cells(i,1) <> ""
' i er den række den søger i efter , er den kolonne ark nr er i det ark du vil bruge
i = i + 1
loop
data = Rows(i - 1 & ":" & i - 1) 
Rows(i - 1 & ":" & i - 1).Insert Shift:=xlUp
Rows(i - 1 & ":" & i - 1) = data
' de sidste 2 linier er ens undtaget formlerne som er som normal indsæt
' så data i celler skal nul stilles med ark1,cells(i,1) = "" de steder der er nødvendig
lav en knap og kopier dette excel
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk