macro automatisch verspringen in excel

Status
Niet open voor verdere reacties.
O

Ollie78

Gebruiker
Lid geworden
13 sep 2006
Berichten
30
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
 
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
 
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
 
Plak deze code achter het blad waarin je aan het werken bent, dus niet in een module:

Code: 
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
 
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
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan