hej alla och "ett nytt forum ?"
Jag har anledning att göra en sorts räknare med en inmatningsCell "D10", den enda olåsta på det i övrigt skyddade och låsta arket, jag kallar det Blad2. I cell "D10" skriver jag in ett värde och meningen är att jag skall få ut det värdet i en ny cell 3 rader under D10, alltså i cell D13 samt nollställa cell D10. När jag vidare matar in ännu ett värde i D10 skall det hamna ytterligare 3 rader under den förra cellen, alltså i cell D16, o.s.v.
Mitt problem är att koden jag skriver in på Blad2 inte fattar att jag skrivit in ngt i cell D10, det fungerar bara om jag först skriver in ett tal i D10 och sen stegar med F8 i koden för att sen, när F8 stegats klart och D10 blivit noll - då matar jag in ett nytt värde och stegar med F8... Jag hoppas att jag kan få till den yttre loopen så hela körningen kan avslutas med Escape ??
Kan det inre makrot bli ngt sorts evighetsloop som bara bryts av Enter - jag läste någonstans att man kunde utvärdera värdet av en tangentnedrtyckning där Enter hade sitt eget värde, hexadecimalt och Esc ett annat. Jag tänker då att när jag skrivit in mitt värde i D10 och när jag trycker Enter rasslar makrot iväg och lägger ut värdet för att sen återgå till evighetsloopen tills nästa värde matats in och Enter tryckts... Och att hela körningen slutligen kan avslutas med Esc ??
Jag gissar att jag måste göra ngn sorts funktion i en modul för att detta skall fungera men jag har ingen aning om hur denna funktion skall skrivas ??
vänliga hälsningar /fleXcel
Dim vad As Integer
Sub whatEver_click()
I = 13
Do Until Worksheets("Blad2").Cells(10, 4) = "Escape"
Do Until Worksheets("Blad2").Cells(10, 4).Value = 0 or "Escape"
If Worksheets("Blad2").Cells(10, 4).Value > 0 Then
vad = Worksheets("Blad2").Cells(10, 4).Value
I = I + 3
'Worksheets("Blad2").Cells(10, 4) = 0
End If
Worksheets("Blad2").Cells(I, 4) = vad
Loop
Loop
End Sub