Hallo,
Bedankt voor jullie eerdere gegeven macro's,
Als het kan zou ik op de volgende macro een aanpassing willen,
wie o wie helpt me uit de brand:
Sub invoer()
Application.ScreenUpdating = False
Range("A1").Select
If Selection.Value = "" Then _
Selection.FormulaR1C1 = InputBox("Hoe heet het woord wat je wilt invoegen")
Range("A1").Select
Selection.Cut
Sheets("Blad2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Blad1").Select
Range("A1").Select
If Selection.Value = "" Then _
Selection.FormulaR1C1 = InputBox("Wat is de afkorting van dat woord")
Range("A1").Select
Selection.Cut
Sheets("Blad2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Blad1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Ik dacht dat ik het dan naar mijn eigen stijl kon aanpassen maar ik zie de logica nog niet echt.
Wat de macro doet is goed, alleen ik zal het bereik even goed!! doorgeven.
na het invullen "wat is het woord" moet dat woord komen in cel a7"lijst"
(zo heet het werkblad)
en na het invullen van de "afkorting" moet de afkorting komen in cel b7 "lijst"
en alle volgende ingevulde waardes moet komen in a9 en b9, a11 en b11, a13 en b13.
etc etc etc.
dus zo als jullie zien slaat hij steeds een regel over.
Ik hoop dat het lukt alvast bedankt voor het denkwerk.
gr Ulla.
Bedankt voor jullie eerdere gegeven macro's,
Als het kan zou ik op de volgende macro een aanpassing willen,
wie o wie helpt me uit de brand:
Sub invoer()
Application.ScreenUpdating = False
Range("A1").Select
If Selection.Value = "" Then _
Selection.FormulaR1C1 = InputBox("Hoe heet het woord wat je wilt invoegen")
Range("A1").Select
Selection.Cut
Sheets("Blad2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Blad1").Select
Range("A1").Select
If Selection.Value = "" Then _
Selection.FormulaR1C1 = InputBox("Wat is de afkorting van dat woord")
Range("A1").Select
Selection.Cut
Sheets("Blad2").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Blad1").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Ik dacht dat ik het dan naar mijn eigen stijl kon aanpassen maar ik zie de logica nog niet echt.
Wat de macro doet is goed, alleen ik zal het bereik even goed!! doorgeven.
na het invullen "wat is het woord" moet dat woord komen in cel a7"lijst"
(zo heet het werkblad)
en na het invullen van de "afkorting" moet de afkorting komen in cel b7 "lijst"
en alle volgende ingevulde waardes moet komen in a9 en b9, a11 en b11, a13 en b13.
etc etc etc.
dus zo als jullie zien slaat hij steeds een regel over.
Ik hoop dat het lukt alvast bedankt voor het denkwerk.
gr Ulla.