macro werkt niet onder knop?

[DeCor]

Hoe komt het dat ik deze macro koppel aan een knop dat hij niet meer werkt? Op zich werkt hij prima.


Sub test()
'
' test Macro
' De macro is opgenomen op 17/11/2005 door dc.
'
Selection.Cut
Sheets("blad2").Select
Range("A3").Select

While ActiveCell.Value <> ""
On Error GoTo volgende
volgende:
ActiveCell.Offset(1, 0).Select

Wend
ActiveSheet.Paste
ActiveCell.Value = "0"
'6 cellen opzij
ActiveCell.Offset(0, 6).Select
ActiveCell.Value = Date

Sheets("blad1").Select
Selection.Delete Shift:=xlUp

Sheets("blad2").Select
Range("A3").Select

Sheets("blad1").Select
ActiveCell.Value = "0"
'
End Sub


Alvast bedankt,
DeCor

 

[Gremail]

dat komt omdat je bij de keuze van een knop de focus verlegt en dus je selectie niet meer geselecteerd wordt.
Is eenvoudig op te lossen door je knop op een Userform te hangen.

 

[DeCor]

Kan ik de userform vast op mijn sheet plaatsen zodat ik steeds andere regels kan selecteren en de knop op de userform bedienen?
Anders is het niet handig om het voor deze toepassing te gebruiken.

Alvast bedankt voor de reactie.

 

[Gremail]

Ja, je kan bij de eigenschappen van de userform een vaste positie ingeven (Left en Top). De gootte van de userform hoeft ook niet veel groter dan de knop te zijn, ook bij eigenschappen (height en width). Als je er niet uitkomt zet het bestandje er dan bij dan kijk ik even.

 

[DeCor]

Het userform1 (is reeds gemaakt) zou op de plaats waar nu UITSCHRIJVEN staat vast moeten staan.

Het doel is dan men een rij selecteerd en vervolgens op één van de knoppen op het userform1 drukt om de macro te activeren, dit steeds opnieuw.

Alvast bedankt.

Groeten,

 

[DeCor]

Ik heb op aanraden de formule veranderd, deze werkt prima onder een knop;


Sub test()

With Sheets("blad2").Range("A65536").End(xlUp)
Selection.Cut .Offset(1, 0)
.Offset(1, 0).Value = 0
.Offset(1, 6).Value = Date
End With

Selection.Delete Shift:=xlUp
ActiveCell.Value = 0
'
End Sub



Toch nogmaals bedankt Gremail

Groeten,

 

[Gremail]

Volgens mij is dit het.

 

[Gremail]

Sorry, bijlage zat er niet bij maar ik zie dat het al opgelost is.

Succes.