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
Dansk iværksætter står bag et af Europas hurtigst voksende it-selskaber: Her er hele historien om hans op- og nedture
Det danske it-selskab Anytech365 leverer så høje vækstrater, at det er kommet med på Financial Times liste over de hurtigst voksende virksomheder i Europa. Her er historien om den danske iværksætter Janus Rægaard Nielsen, der har to konkurser bag sig og leder virksomheden fra Marbella.
CIO
SAP's nye nordiske direktør: "De seneste uger har jeg besøgt en del kunder her i Norden - og alle talte om at vende tilbage til en eller anden form for standard."
Det store ryk til cloud brød med mange års it-konsolidering og skabte komplicerede it-miljøer. Men nu peger kundernes kompas den anden vej, fortæller erfaren SAP-boss efter nordisk rundrejse.
White paper
Markedsanalyse: Sådan forbedrer EDI din samhandel
I en markedsundersøgelse fra august 2018 blev 300 retailers og producenter spurgt til, hvordan EDI og supply chain-teknologi hjælper dem med at forbedre deres samhandel. Det er ikke nogen hemmelighed, at konkurrenceforholdene er blevet skærpet i det seneste årti, og specielt priserne er udsat for øget pres. Dette betyder, at virksomheder hele tiden skal arbejde for at implementere mere effektive handelsprocesser. Heldigvis er der stadig forretningsområder, som er nemme at strømline ved hjælp af intelligente outsourcede løsninger. Ét af disse er den elektroniske udveksling af ordrer og fakturaer (EDI). I dette whitepaper kigger vi nærmere på de fem vigtigste områder, hvor EDI ifølge de 300 respondenter spiller en stor rolle i at forbedre virksomhedernes samhandel.