message box

[HammerJohn]

Ik gebruik een messagebox om 2 waarden in te geven, maar als hij openstaat zou ik graag door
het tabblad kunnen scrollen om de waardes op te zoeken.
Ik weet niet of dat mogelijk is, met een userform weet ik wel hoe ik dat kan maar met de
messagebox absoluut niet.
Het zal wel niet kunnen of ..... heel simpel zijn.

 

[OctaFish]

Een Msgbox laat alleen wat zien; ik vermoed dat je een Inputbox bedoelt?

 

[HSV]

Met een inputbox is dat geen probleem, je kan zelfs in de cel klikken met de muis.

 

[sylvester-ponte]

er is verschil tussen Inputbox en Application.InputBox
met x=Application.InputBox("secteer een cel", , , , , , , 8)
kun je met de muis een waarde aanwijzen in een sheet .

 

[HammerJohn]

Ja sorry een input box.... maar ik probeer als ik de macro gestart heb dus door het tabblad te scrollen
maar het laat het niet toe. Ook niet na het invullen van de eerste waarde.

Sub vullen()
ActiveSheet.Unprotect "JVH"
Range("A1").Select
akt = Range("B24:H40")
weken = --InputBox("Hoeveel weken wil je plannen?", "Aantal weken")
weekvraag = --InputBox("In welke week wil je beginnen?", "Week")
For w = weekvraag To weekvraag + weken - 1
startkol = 2 + (w - 1) * 8
week = Cells(4, startkol).Resize(17, 7).Address
rst = Range(week)
    For aktkol = 1 To 17
        For aktrij = 1 To 7
            If rst(aktkol, aktrij) = "" Then rst(aktkol, aktrij) = akt(aktkol, aktrij)
        Next aktrij
    Next aktkol
    Range(week) = rst
Next w
ActiveSheet.Protect "JVH"
End Sub

 

[HSV]

Lees #4 nog eens goed.

 

[HammerJohn]

Ok bedankt idd dit geeft de oplossing!!

Sub vullen()
ActiveSheet.Unprotect "JVH"
Range("A1").Select
akt = Range("B24:H40")
weken = --InputBox("Hoeveel weken wil je plannen?", "Aantal weken")
weekvraag =[COLOR="#FF0000"] Application[/COLOR].InputBox("In welke week wil je beginnen?", "Week"[COLOR="#FF0000"],,,,,,8[/COLOR])
For w = weekvraag To weekvraag + weken - 1
startkol = 2 + (w - 1) * 8
week = Cells(4, startkol).Resize(17, 7).Address
rst = Range(week)
    For aktkol = 1 To 17
        For aktrij = 1 To 7
            If rst(aktkol, aktrij) = "" Then rst(aktkol, aktrij) = akt(aktkol, aktrij)
        Next aktrij
    Next aktkol
    Range(week) = rst
Next w
ActiveSheet.Protect "JVH"
End Sub

 

[VenA]

Waarom pas je iets soortgelijks ook niet toe voor weken? --"a" zal ongetwijfeld een fout opleveren.

 

[HammerJohn]

De weken is of een traject van 4 of, een traject van 6 weken en bij hoge uitzondering 8
en de begeleider weet dat.
Is niet nodig omdat op de zelfde manier te doen, maar zou als een optie ook kunnen.

 

[VenA]

Bestudeer application.inputbox eens. Hiermee kan je ook afdwingen dat er alleen getallen ingevoerd kunnen worden. Daar doelde ik op.