indsæt række og trække format og formeler ned
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4811
Udskrevet den: 22.Nov.2024 kl. 10:56
Emne: indsæt række og trække format og formeler ned
Besked fra: Bjarnehansen
Emne: indsæt række og trække format og formeler ned
Posteringsdato: 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 |
|||||||||||||
Svar:
Besked fra: H_sønderskov
Posteringsdato: 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. |
Besked fra: Bjarnehansen
Posteringsdato: 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 |
Besked fra: Bjarnehansen
Posteringsdato: 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 DO End 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 |
Besked fra: H_sønderskov
Posteringsdato: 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) |
Besked fra: Bjarnehansen
Posteringsdato: 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 |
Besked fra: H_sønderskov
Posteringsdato: 08.Nov.2022 kl. 20:51
|
uploads/2975/Aflæsning_på_bakkegaard_version_2_2022-11-07_12-10-26.00_2022-11-07_12-10-26.008_beta_2022-11-07_12-10-26.xlsm" rel="nofollow - uploads/2975/Aflæsning_på_bakkegaard_version_2_2022-11-07_12-10-26.00_2022-11-07_12-10-26.008_beta_2022-11-07_12-10-26.xlsm Som jeg skrev ved jeg ikke hvordan du ændre formlerne i kvartals sammentælling, men det kan måske laves med indirekte. |
Besked fra: Bjarnehansen
Posteringsdato: 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 |
Besked fra: H_sønderskov
Posteringsdato: 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
|