slette data og kun data ikke formel
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=5101
Udskrevet den: 16.Sep.2024 kl. 21:14
Emne: slette data og kun data ikke formel
Besked fra: Bjarnehansen
Emne: slette data og kun data ikke formel
Posteringsdato: 06.Jul.2024 kl. 12:45
|
Hej Jeg har denne makro til at slette data der hvor har brugt denne slettede den indtastede data men nu vil jeg have den at slette data nogle celler der er en formel men det sletter det hele, hvordan kan det ændres? jeg har den stående i januar og jeg vil gerne have at den også sletter i de andre måneder har forsøgt med shets("") men det virker ikke Private Sub CommandButton1_Click() '' sletceller Makro If MsgBox("Ønsker Du at slette Data ?", vbYesNo, "Slette Data") = vbNo Then Exit Sub ' Range("D3:H33").Select Selection.ClearContents Range("J3:J33").Select Selection.ClearContents 'Sheets("Februar").Range("D3:H33").Select 'Selection.Clear Application.Goto reference:="R18C3" End Sub ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Svar:
Besked fra: Bjarnehansen
Posteringsdato: 06.Jul.2024 kl. 13:10
|
den første del med at slette data og ikke formel har jeg løst ved at kun slette input cellerne men den med de andre måneder har jeg ikke lige styr på..... den med Sheets("").range(D3:E33).select er den jeg ikke har styr på ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: H_sønderskov
Posteringsdato: 06.Jul.2024 kl. 16:43
|
Sub Rektangelafrundedehjørner1_Klik() Dim x As Integer Dim slet(2) As String slet(1) = "Januar" slet(2) = "Februar" For x = 1 To 2 Sheets(slet(x)).Range("D3:H33") = Null Next End Sub 'Virker fint her.
|
Besked fra: Bjarnehansen
Posteringsdato: 06.Jul.2024 kl. 19:45
|
Takker det virker bare tak for hjælpen..... ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Bjarnehansen
Posteringsdato: 06.Jul.2024 kl. 19:46
|
Hvad laver denne: Rektangelafrundedehjørner1_Klik() ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: H_sønderskov
Posteringsdato: 06.Jul.2024 kl. 19:58
|
Det er bare en knap til at starte med fra Sheets VH
 |
Besked fra: Bjarnehansen
Posteringsdato: 06.Jul.2024 kl. 20:26
|
ok kendte bare ikke Rektangelafrundedehjørner laver den runde hjørner ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: H_sønderskov
Posteringsdato: 07.Jul.2024 kl. 10:32
|
Hej du løste et problem jeg havde med ark1..ark12 da controls ikke virker på arks men kan kaldes direkte på Sheets, så kan alle ark kaldes med en variabel "X" I faner skrives År2024_1..År2024_12 Sub sletdata() Dim x As Integer For x = 1 To 12 Sheets("År2024_" & CStr(x)).Range("D3:H33") = Null Next End Sub tak
 |
Besked fra: Bjarnehansen
Posteringsdato: 07.Jul.2024 kl. 11:26
|
Ok så har vi begge lært lidt idag da.... ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |