vba probleempje

[ruva]

Beste excelliefhebbers,

Misschien dat een van jullie mij kan helpen??

Ik heb een programma gemaakt in vba
Nu zoek ik een macrocode die het volgende doet.

Ik selecteer een rij handmatig, dmv een klik op een button wordt er een rij ingevoerd.
Dat gaat goed.

Nu wil ik dat de cel geaktiveerd blijft in de eerste cel van de rij. hij gaat nu automatisch naar cel B4

Wie kan mij helpen
Alvast bedankt

 

[Justes]

Hallo ruva,

Sub Macro1()

Rows("8:8").Select
Selection.Insert Shift:=xlDown
Range("A8").Select
End Sub

Gr Justes

 

[Wigi]

Het lijkt niet zo'n groot verschil op het eerste zicht, maar dit

Sub Macro1()
Rows("8:8").Insert Shift:=xlDown
Range("A8").Select
End Sub

is echt wel beter. Vermijd selecteren.

Wigi

 

[ruva]

bedankt

Beste Wigi en Justus,

Bedankt voor jullie oplossing het werkt perfect.
Mijn programma draait goed, ik wil hem alleen nog verfraaien, omdat er ook andere mensen mee moeten werken.

Is het mogelijk dat wanneer ik op een button druk, eerst een melding krijgt met een "ja" en "nee" optie.
Wanneer men op "Ja" drukt dat men dan verder kan.
Of ga ik nu heel erg ver???

In ieder geval bedankt voor de eerdere hulp

gr Ruva

 

[Wigi]

Ruva

maak je knop en zet dit erop:

Private Sub CommandButton1_Click()
Dim ans
ans = MsgBox("Doorgaan?", vbYesNo)
If ans = vbNo Then ThisWorkbook.Close False
End Sub

Wigi

 

[ruva]

Code

Beste Wigi,

Het lukt me niet met die code, misschien dat het te maken heeft dat ik geen commandbutton heb maar een gewone button??
De code die ik heb is als volgt
De bedoeling is dus, dat wanneer ze op Button61 klikken eerst een message bericht krijgen met de mogelijkheid ja of nee bij "nee" niet de worksheet afsluiten maar dat er een mogelijkheid bestaat om de juiste cel te aktiveren.
Ik hoop dat ik een beetje duidelijk ben.

Sub Button61_Click()
'
' Button61_Click Macro
' Macro recorded 17-8-2006 by Hans Smits
'

'
ActiveSheet.Shapes("Button 61").Select
Selection.Characters.Text = "Archief:Selecteer een cel in kolom A"

 

[jpvs]

Ruva,

zie bijlage

Pierre

PS
zie ook eens naar : http://www.helpmij.nl/forum/forumdisplay.php?f=235
TIP : Werkset Besturingdelementen
TIP : Formulieren

 

[Wigi]

Ruva

maak je knop en zet dit erop:

Zoals Pierre aangeeft: klik op de werkbalk Visual Basic. Klik op Werkset Besturingdelementen. En teken dan een knop in het blad. Klik op de liniaal. Klik dan rechts op de knop, kies Programmacode weergeven. Zorg dat dit er dan staat (de eerste en laatste regel krijg je al gratis van Excel).

Private Sub CommandButton1_Click()
Dim ans
ans = MsgBox("Doorgaan?", vbYesNo)
If ans = vbNo Then
Msgbox "Selecteer een cel in kolom A"
End Sub

Ik heb de code aangepast voor het selecteren.

Wigi

 

[ruva]

code

Wigi en Pierre bedankt voor jullie reactie.
Het werkt perfect, het heeft even moeite gekost, maar dan heb je ook wat.

Nogmaals bedankt en fijn weekend

Gr Ruva