Avatar billede Latte Mester
12. november 2015 - 09:20 Der er 1 kommentar

VBA - hvordan får slette rækker i flere sheets og kaldt flere makroer på én gang

1) Kan nogen hjælpe med at udbygge nedenstående, så jeg også får slettet efter samme kriterier i Sheet "Temaer Geografier", og derefter rykker til sheet "How to"?


Sheets("Temaer Periode").Select
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 2 Step -1
If Cells(x, 11) = "0" Then
Cells(x, 11).EntireRow.Delete

End If
Next
End Sub

2) Jeg har 5 makroer. Hvordan laver jeg en makro, der kører dem én for én, så jeg ikke behøver "skrive dem sammen"?
Avatar billede finb Ekspert
12. november 2015 - 13:36 #1
efter hukommelsen:

1:
for each object in workbook
Sheets(object).Select
LastRow = ActiveSheet.UsedRange.Rows.Count
  For x = LastRow To 2 Step -1
  If Cells(x, 11) = "0" Then
    Cells(x, 11).EntireRow.Delete
  End If
  Next
next object
End Sub

2:
-og ellers, hvis du har fx 4 sheets:

sub5:
call sub1
call sub2
call sub3
call sub4
end sub5
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester