16. april 2019 - 10:45Der er
2 kommentarer og 2 løsninger
Slette indhold i celler for flere ark
Hvis jeg gerne vil fjerne indholdet i cellerne W2 til W48 i "Ark1" til og med "Ark3" og dernæst fjerne indholdet for A2 til A48 i "Ark4" til og med "Ark9" Hvordan skal det så sættes op. Lige nu er der en linje pr. ark.
Private Sub CommandButton1_Click() Sheets("Ark1").Range("W2:W48").ClearContents Sheets("Ark2").Range("W2:W48").ClearContents Sheets("Ark3").Range("W2:W48").ClearContents Sheets("Ark4").Range("A2:A48").ClearContents Sheets("Ark5").Range("A2:A48").ClearContents Sheets("Ark6").Range("A2:A48").ClearContents Sheets("Ark7").Range("A2:A48").ClearContents Sheets("Ark8").Range("A2:A48").ClearContents Sheets("Ark9").Range("A2:A48").ClearContents End Sub
Kan man få den til at gøre det i intervaller såsom "Ark1:Ark3" og "Ark4:Ark9"?
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
Nej, her bliver du nok nødt til at se på select case tankegangen. Du skal dog huske på at selvom dine ark hedder noget andet kan de stadig i vba refereres som sheets(1) etc.
Alternativt kunne du tænke på om du i en fast celle på alle ark kan angive f.eks. om den skal køre version 1 eller 2
for i = 1 to 12 if sheet(i).range("q2").value = 1 then sheets(i).range("W2:"48").clearcontents else sheets(i).range("A2:A48").clearcontents
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.
