| Forfatter |
 Emne Søg  Emne funktioner
|
Bjarnehansen 
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
 Emne: indsæt række og trække format og formeler ned
Sendt: 07.Nov.2022 kl. 12:11 |
|
|
|
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
|
 |
|
|
|
|
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 159
|
Sendt: 08.Nov.2022 kl. 16:30 |
|
Hej det med at trække en række ned, er forholdsvis nemt, men skal det være når du er i celle B25 eller ved brug af en knap, hvordan men udvider rækken i J9:j24 har jeg ingen ide om, da jeg ikke ved hvordan man retter formler i VBA.
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 08.Nov.2022 kl. 16:53 |
|
Hej Det skulle gerne være med en knap
|
|
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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 08.Nov.2022 kl. 17:15 |
Sub Indsaet_raekke() ' ' Indsaet_raekke Makro ' ' Rows("28:28").Select kanne ændres så den indsætter den på første ledige række Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("B27:T27").Select denne skal så trække formelerne ned rækken lige op over Selection.AutoFill Destination:=Range("B27:T28"), Type:=xlFillDefault denne skal også tilpasses Range("B27:T28").Select DO Range("B28").Select DOEnd Sub
jeg har optaget denne macro men kan den ændres så den ind sætter den nye række på første ledige række håber den kan lade sig gøre bruges til knap
|
|
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
|
|
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 159
|
Sendt: 08.Nov.2022 kl. 17:52 |
|
Jeg mener ikke det kan løses med den makro, da man ikke kan rette i "B27:T27" i VBA men i stedet bruger man ARK1.CELLS ( y , x) hvor x og y er variabler så kan man med Do While finde den ledige række og ARK1.Cells( y,2).Copy Destination:= Ark1.Cells(y+1, 2)
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 08.Nov.2022 kl. 19:38 |
ok hvordan skal det så bygges op 
|
|
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
|
|
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 159
|
Sendt: 08.Nov.2022 kl. 20:51 |
|
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
|
Sendt: 09.Nov.2022 kl. 15:15 |
den skulle ind sætte en række derved udvider den de navngivne områder som dato og vand_forbrug når de 2 sidste rækker i området er tomme flytter den dem jo en række ned og derved udvider den området har indvrikning på celle AA12
|
|
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
|
|
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 159
|
Sendt: 09.Nov.2022 kl. 16:38 |
hvis du sletter fra for y til next og erstatter det med data = Rows(i - 1 & ":" & i - 1) Rows(i - 1 & ":" & i - 1).Insert Shift:=xlUp Rows(i - 1 & ":" & i - 1) = data skulle det virke
|
|
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
indsæt række og trække format og formeler ned