Forfatter |
Emne Søg Emne funktioner
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563
|
Indlæg funktioner
Tak(0)
Citér Svar
Emne: slette data og kun data ikke formel Sendt: 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
|
![Til top Til top](forum_images/back_to_top.png) |
|
|
![Til top Til top](forum_images/back_to_top.png) |
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151
|
Accepteret svar
Indlæg funktioner
Tak(1)
Citér Svar
Sendt: 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.
|
![Til top Til top](forum_images/back_to_top.png) |
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 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
|
![Til top Til top](forum_images/back_to_top.png) |
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151
|
Accepteret svar
Indlæg funktioner
Tak(1)
Citér Svar
Sendt: 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.
|
![Til top Til top](forum_images/back_to_top.png) |
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 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
|
![Til top Til top](forum_images/back_to_top.png) |
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 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
|
![Til top Til top](forum_images/back_to_top.png) |
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 06.Jul.2024 kl. 19:58 |
Det er bare en knap til at starte med fra Sheets VH ![Smile Smile](smileys/smiley1.gif)
|
![Til top Til top](forum_images/back_to_top.png) |
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 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
|
![Til top Til top](forum_images/back_to_top.png) |
H_sønderskov
Sølv bruger
Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 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 ![Shocked Shocked](smileys/smiley3.gif)
|
![Til top Til top](forum_images/back_to_top.png) |
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563
|
Indlæg funktioner
Tak(0)
Citér Svar
Sendt: 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
|
![Til top Til top](forum_images/back_to_top.png) |