08. november 2003 - 13:44Der er
10 kommentarer og 2 løsninger
kopiering af sheet
Nedenstående vba kopierer et regneark(Data) og indsætter det efter nævnte ark. I det nye ark skal viste Range cleares og visse celler låses op. Koden fungerer sådan set (med række 5+6 indsat i stedet for række 3+4). Problemet er at jeg ikke kan regne med at det nye ark hedder: Data (2). Det må kunne løses med en variabel eller hva'?
Dim d As Date Dim sht As Sheets.Name Sheets("Data").Copy After:=Sheets("Data") = sht sht.Range("C25:ae45").ClearContents 'Sheets("Data (2)").Range("C25:AE45").Select 'Selection.ClearContents Range("C25").Select ActiveSheet.Unprotect Password:="varde" Range("C9:Ae9").ClearContents d = InputBox("Indtast arkets første dato (ex: 12-12)") Range("C10").Value = d Range("C10").Locked = False EnableSelection = xlUnlockedCells ActiveSheet.Protect Password:="varde", DrawingObjects:=True, Contents:=True, Scenarios:=True
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
jeg forstår ikke dette (det kan jo være min fejl) Dim sht As Sheets.Name Sheets("Data").Copy After:= Sheets("Data") = sht sht.Range("C25:ae45").ClearContents
Det holder desværre ikke "stilen" i projektmappen. Jeg er nok nødt til at anvende tal-rækkefølgen men således at den automatisk øges med 1 hvis arket eksisterer (hvis du forstår hvad jeg mener)
Pyt - problemet er faktisk klaret med "ActiveSheet da jeg derved kan køre clearcontents i det nye ark uanset navn. Det må vist være kabbak jeg skylder et par point :0) Er det OK med jer - tak til begge!!!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
