Klaus W Forsker
15. april 2019 - 07:58 Der er 2 kommentarer og
1 løsning

Slet af celler i forskellige Ark

Hej

Jeg vil gerne lave en knap i vba der slette fra w2 til w48

I 3 Ark med hver deres navn

Jeg har prøvet men de koder jeg har slette jun i den ene, og vender ikke til bage til det Ark knappen befinder sig i.

Er der nogle der kan hjælpe

Klaus w
Jan Hansen Ekspert
15. april 2019 - 08:37 #1
Hej Klaus


    Dim ws As Worksheet, wsRens As Worksheet
    Dim rArea As Range
    Dim sArk(1 To 3) As String ' 1 to 3 kan 3 ændres hvis du har flere  ark
    Dim sCeller As String
    Dim iCount As Integer
   
    Set ws = ActiveSheet
   
    sArk(1) = "Ark1" ' udskift Ark1 med navnet på dit ark
    sArk(2) = "Ark2" ' -//-
    sArk(3) = "Ark3" ' -//-
   
    sCeller = "W2:W48" ' Skriv "første celle : sidste celle"

    For iCount = LBound(sArk, 1) To UBound(sArk, 1) ' gennemløber alle dine ark (3)
        Set wsRens = Sheets(sArk(iCount))
        Set rArea = wsRens.Range(sCeller)
        rArea.Clear 'sletter indhold vil du også have slettet formatering så brug "rArea.ClearContents"
    Next
    ws.Activate



Jan
store-morten Ekspert
15. april 2019 - 09:37 #2
Prøv:
Private Sub CommandButton1_Click()
    Sheets("Ark1").Range("W2:W48").ClearContents
    Sheets("Ark2").Range("W2:W48").ClearContents
    Sheets("Ark3").Range("W2:W48").ClearContents
End Sub
Klaus W Forsker
15. april 2019 - 09:39 #3
Hej Jan det køre bare

Klaus W
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

Opret Preview

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





Premium
Region Nordjylland vælger Systematic som leverandør af stort EPJ-system: Danmarks EPJ-landskab nu reelt delt i to
Region Nordjylland vælger Systematic som leverandør af regionens kommende EPJ-løsning. Med beslutningen er Danmark nu reelt delt op i to på EPJ-området. “Det giver god mening,” siger regionsrådsformand. Se her, hvor mange brugere Systematic-systemet Columna nu står til at få i Danmark.
Computerworld
Google tvinger stort skifte igennem: Alle Android-telefoner skal kunne bruge sms’ens afløser
Google vil ikke vente på teleoperatørerne længere. Nu slipper selskabets RCS-teknologien løs på Android-platformen.
Job & Karriere
På jagt efter et nyt ingeniør-job? Her er otte attraktive stillinger, der er ledige netop nu
Find dit nye ingeniørjob her. Lige nu er der ledige stillinger hos blandt andet E-boks, Milestone Systems og Georg Jensen.
White paper
Hvad gør du? Printsikkerhed er en trussel for din virksomhed!
Du tænker nok: Er printere virkelig så stort en sikkerhedstrussel? På mange måder ja, for i en tid med konstante angreb, er en printer et nemt og ofte overset mål. Blandt andet viser undersøgelsen i dette whitepaper, at der er 68% større sandsynlighed for at printere er kilden til en ekstern trussel eller brist, end der var i 2016, og hele 118% større sandsynlighed for sker internt. Med dette in mente er det overraskende, at kun 30% af de adspurgte it-professionelle anerkender at printere udgør en sikkerhedsrisiko. Læs dette whitepaper og bliv klar over hvad det er du skal være opmærksom på.