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


Emne lukketindsæt række og trække format og formeler ned

 Besvar Besvar
Forfatter
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5475
Direkte link til dette indlæg Emne: indsæt række og trække format og formeler ned
    Sendt: 07.Nov.2022 kl. 12:11
jeg vil kunne sætte en række ind i den første ledige række (her række 25)
hvor den tager formatering og formeler med ned fra rækken opover (her række 24)
er det muligt tror det skal laves i VBA
men den skal jo også udvidde det navn givende område her (J9:J24)=vand_forbrug
også at dække J25


uploads/397/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.xlsmtil
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



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: 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.
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: 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
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: 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
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: 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)
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: 08.Nov.2022 kl. 19:38
ok hvordan skal det så bygges op Confused
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
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: 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

Som jeg skrev ved jeg ikke hvordan du ændre formlerne i kvartals sammentælling, men det kan måske laves med indirekte.
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: 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
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: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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