Macro altijd 1 rij hoger invoegen

[dewendyzelf]

Hoi,

'n excel-vraagje voor de excel-experts onder jullie...:thumb:

Ik wil graag in een werkblad dmv een macro een rij invoegen/deleten zodat de beveiliging niet van het werkblad afgehaald moet worden.

Als excel-leek ben ik er ingeslaagd een macro te maken (hiphoi!), maar eigenlijk wil ik niet telkens op rij 2 iets invoegen, maar voor elke button op de rij erboven. (dus button op rij 5 voegt juist boven rij 5 etc...)

Sub invoegen()
'
' invoegen Macro
'

'
ActiveSheet.Unprotect "DW"
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub

Wat betreft het deleten wil ik graag de rij zelf (waar je de button aanklikt) deleten d.m.v macro. Kan dit???

Wie oh wie kan mij helpen?

 

[Wigi]

Hang een klein indicatief bestandje bij, zodat we zien welke buttons, opmaak, enz.

 

[dewendyzelf]

Hi Wigi, merci voor uw reactie zenne!
Het lukt me niet om een .xls bestanden te uploaden?
Enig idee wat er fout gaat misschien?

DW

 

[Haaren101]

xls bestanden kunnen niet direct worden ge-upload. U zult het bestand eerst moeten "zippen".

Ron

 

[dewendyzelf]

Super...weeral iets geleerd!
bestandje zit erbij

 

[Wigi]

Het is veel simpeler om slechts 2 buttons te gebruiken, en te zien in welke rij de cel geselecteerd is.

 

[dewendyzelf]

Oke...hoe simpeler, hoe beter!

Maar hoe moet ik dat dan aangeven in de VBA?

 

[Wigi]

zet je cursor eens ergens, en voer deze macro uit:

MsgBox Selection.Row

of

MsgBox Selection.Range("A1").Row

Zo kan je dus de rij te weten komen.

Het 2de stukje code werkt voor het geval meerdere cellen zijn geselecteerd.

Wigi

 

[Cobbe]

Ik had nog iets liggen.

Cobbe

 

[dewendyzelf]

Whaaw Cobbe, dat werkt...!!!

Maar als ik 't nu toepas in mijn document, dan worden zowat alle rijen ingevoegd. Da's gek...ik doe zeker weer iets verkeerd...?

Enfin, ik heb het originele documentje maar bijgevoegd...hopelijk hebt ge hier ook een briljante oplossing voor!?

 

[Cobbe]

De oplossing was toch niet zó briljant hé, want het werkt niet.

Maar de oplossing die ik u gaf werkt ook wel in uw bestand echter door de vele samengevoegde cellen wordt de selectie steeds uitgebreid tot het hele opmaakgebied.
Dus: haal die samengevoegde cellen uit elkaar, die zijn niet echt nodig en een pest om mee te werken.

Dan werken die beide macro's ook in dit bestand.

Cobbe

 

[dewendyzelf]

Awel JA zenne Cobbe!
Ik heb de samengevoegde cellen weer los gehaald en't werkt...ikke blij

Bedankt voor alle hulp!
en Wigi, gij uiteraard ook bedankt voor alle input...ik ben er zeker weer wat wijzer van geworden. (goeie website heb je trouwens!)

TOP gasten!:thumb:

 

[Wigi]

Ik heb de samengevoegde cellen weer los gehaald en't werkt...ikke blij

De laatste regel in mijn handtekening is dus al van nut geweest!

Bedankt voor de belangstelling.

De vraag mag nog op opgelost komen aub.

 

[dewendyzelf]

Ow ow...kom ik toch weer wat tegen.
Op de rijen zitten cellen met validatie (indirect) en deze worden niet meegekopieerd via de macro.

Nog een slimme suggestie hiervoor misschien???

 

[Cobbe]

Gelukkig vertrek ik op vakantie.
Want met zo'n vragen kun je beter niet thuis geven.

Cobbe

 

[dewendyzelf]

Allez seg, toch nie omdat 't 'n domme vraag is zeker...:shocked:

Enfin, ik wens u alvast een fijne vakantie....met heeeeeel veeeeeeel zon

 

[Cobbe]

Neeeen, de vraag scheen schijnt lastig te zijn. daarom!
En dat van die vakantie was niet echt zo, toch bedankt voor de wensen.
'T is alsof ik toch vertrek.

Snap het waarschijnlijk weeral verkeerd.
Maar de validatie wordt wel degelijk mee gekopïeerd.

Of is het toch iets anders?

Cobbe

 

[dewendyzelf]

Doe (speciaal voor u) 't voorbeeldje erbij...hihi

Regel 11 heb ik bijgevoegd met de macro...en dan blijft de validatie dus dezelfde als op rij 12.

=INDIRECT($B$12)

owowow...doe @#$%^&* addertjes onder 't (natte) gras!?

 

[Cobbe]

Waar vind ik die formule: =INDIRECT($B$12) ?

Cobbe

Sorry heb het gevonden!!

=INDIRECT($B12) en dat in al de betreffende cellen aanpassen.
Wellicht veel werk, maar moet gebeuren.

Cobbe

 

[dewendyzelf]

Cobbe,

Ge zijt ne KEI!
Ik heb 't werkend nu...me happy!

Bedankt voor alle nuttige info he.
DW