macro automatisch verspringen in excel

[Ollie78]

Hallo Allemaal,

Ik heb een vraag. Ben bezig met een excelsheet voor meetgegevens.
In deze sheet moet automatisch na 5 ingevulde waardes de invullocatie in excel verspringen naar 1 rij eronder en 5 plaatsen terug. Dus begin waardes
Als voorbeeld ik start mijn macro op postitie B2 en loopt door tot F2. Na f2 moet de macro automatisch naar B3 springen. Als ik weer op F3 ben gekomen moet hij weer 1 rij naar beneden en starten op B4 enzo.

Wie kan mij hierbij helpen.

grt,

olaf

 

[Jan van Asseldonk]

Plak onderstaande code in een module.
Plaats de cursor in de 1e cel waar je verder wilt gaan met invullen, ergens in kolom B t/m F dus en druk daarna op CTRL+SHIFT+I

Sub Invullen()
'
'
' Sneltoets: CTRL+SHIFT+I
'
Dim a

While UCase(a) <> "STOP"
a = InputBox("Geef waarde: (type STOP om te stoppen) ", "Waarde opgeven", , 7000, 5000)
If UCase(a) = "STOP" Then End
ActiveCell.Value = a
If ActiveCell.Column > 5 Then
ActiveCell.Offset(1, -4).Select
Else
ActiveCell.Offset(0, 1).Select
End If
Wend
End Sub

 

[Ollie78]

Hallo Jan,

Is het ook mogelijk dat deze macro zonder pop-up werkt.

Verder werkt deze pop-up perfect maar zonder is makkelijker voor ons.

grt,

olaf

 

[Wigi]

Plak deze code achter het blad waarin je aan het werken bent, dus niet in een module:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Column = 6 Then Target.Offset(1, -5).Select
End Sub

Wigi

 

[Wigi]

Nu ik er nog wat over nadenk:

wat je misschien beter doet is alle 5 meetgegevens in 1 cel typen, met telkens hetzelfde scheidingsteken, bv. een *

Als je klaar bent met ingeven, doe je Data > Tekst naar kolommen en * als scheidingsteken.

Dit is volgens mij de beste oplossing.

Wigi