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


Emne lukketSlet rækker i specifik tabel
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
PGA Se dropdown
Forum Begynder
Forum Begynder


Medlem: 11.Jul.2017
Land: Danmark
Status: Offline
Point: 6 		Direkte link til dette indlæg Emne: Slet rækker i specifik tabel
    Sendt: 11.Jul.2017 kl. 11:24


Hej med jer - håber i kan hjælpe med lidt kode til nedenstående spørgsmål.

Jf. vedhæftede har jeg oprettet 3 tabeller ("enhed", "farve" og "type"). Jeg har prøvet at lave en vba-kode, som gør det muligt kun at slette linjer fra tabellen "enhed", mens man får en fejl-meddelelse hvis man forsøger at køre koden i én af de andre tabeller.
Hvordan skriver man dette? det må være noget med at definere et listobject?

Håber i kan hjælpe (se venligst vedhæftede fil)

uploads/2006/Eksempel_-_slet_række_i_specifiktabel_2017-07-11_11-23-41.xlsm - Eksempel_-_slet_række_i_specifiktabel_2017-07-11_11-23-41.xlsm
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 11.Jul.2017 kl. 11:43
Indsæt disse kodelinjer, før du sletter: 
If ActiveCell.Row < Range("Enhed").Row Or ActiveCell.Row > Range("Enhed").Row + Range("Enhed").Rows.Count - 1 Then
    MsgBox "Man kan kun slette rækker i tabellen, 'Enhed'."
    Exit Sub
End If
Til top
PGA Se dropdown
Forum Begynder
Forum Begynder


Medlem: 11.Jul.2017
Land: Danmark
Status: Offline
Point: 6 		Direkte link til dette indlæg Sendt: 11.Jul.2017 kl. 11:27
ahh excel-eksempel filen blev ikke uploaded.
Den kan i stedet downloades fra følgende link "https://www.sendspace.com/file/viqua2"
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 11.Jul.2017 kl. 11:43
Indsæt disse kodelinjer, før du sletter: 
If ActiveCell.Row < Range("Enhed").Row Or ActiveCell.Row > Range("Enhed").Row + Range("Enhed").Rows.Count - 1 Then
    MsgBox "Man kan kun slette rækker i tabellen, 'Enhed'."
    Exit Sub
End If
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.
Til top
PGA Se dropdown
Forum Begynder
Forum Begynder


Medlem: 11.Jul.2017
Land: Danmark
Status: Offline
Point: 6 		Direkte link til dette indlæg Sendt: 11.Jul.2017 kl. 13:04
Tak for hurtig tilbagemelding, det er virkelig fornemt!

I øvrigt virker det perfekt!!

Jeg skulle lige huske at sætte nogle parenteser rundt om:

"MsgBox( "Man kan kun slette rækker i tabellen, 'Enhed'.")

hvorefter det var lige til at indsætte i mit regneark.
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 11.Jul.2017 kl. 13:06
Du skal kun sætte (paranteser) omkring MsgBox argumenterne, hvis du skal bruge retuneringsværdien til noget - ellers er det ikke nødvendigt.

Husk, at markere svaret som accepteret, hvis det kan bruges, så andre også kan få glæde af svaret.
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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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