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"?
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.
