Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


slette data og kun data ikke formel
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg 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
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér H_sønderskov Citér  BesvarSvar Direkte link til dette indlæg 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
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg 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
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér H_sønderskov Citér  BesvarSvar Direkte link til dette indlæg 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
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg 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
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg 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
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér H_sønderskov Citér  BesvarSvar Direkte link til dette indlæg Sendt: 06.Jul.2024 kl. 19:58
Det er bare en knap til at starte med fra Sheets
VHSmile
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg 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
H_sønderskov Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 18.Okt.2022
Land: Danmark
Status: Offline
Point: 151 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér H_sønderskov Citér  BesvarSvar Direkte link til dette indlæg 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
takShocked
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5563 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Bjarnehansen Citér  BesvarSvar Direkte link til dette indlæg 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
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk