Print side | Luk vindue

Slet rækker i specifik tabel

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=3091
Udskrevet den: 30.Apr.2024 kl. 18:48


Emne: Slet rækker i specifik tabel
Besked fra: PGA
Emne: Slet rækker i specifik tabel
Posteringsdato: 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


Svar:
Besked fra: PGA
Posteringsdato: 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" rel="nofollow - https://www.sendspace.com/file/viqua2"

Besked fra: EXCELGAARD
Posteringsdato: 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.

Besked fra: PGA
Posteringsdato: 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.

Besked fra: EXCELGAARD
Posteringsdato: 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.


Print side | Luk vindue