Invoer en in dezelfde cel blijven.

[Chris15]

Invoer en in dezelfde cel blijven.

Is het mogelijk om na een invoer met enter op dezelfde cel te blijven en dat de nieuwe invoer eronder komt?

Zie bijlage.

Invoercel is A8, en de nieuwste invoer moet in A9 komen, en alles naar beneden laten gaan.

 

[edmoor]

Tegenstrijdig.
Je wilt in dezelfde cel blijven?
A8 is toch een andere dan A9.

Een nieuwe regel in een cel kan je doen door van die cel in de Uitlijning de Terugloop aan te vinken.
Zo'n nieuwe regel voer je dan in door ALT+Enter.

 

[Chris15]

Dank je!

 

[emields]

tenzij je zoiets bedoeld?

 

[Chris15]

Dat bedoel ik Emields! Geweldig

Nu moet alleen nog de cel ernaast hetzelfde blijven. Ik gebruik nu voor de cel ernaast =+A9 maar die veranderd steeds een nummer hoger: A10 A11 enz.

Hoe kan ik deze vastzetten?

Zie bijlage:

 

[AD1957]

zo ? , begrijp alleen niet wat hiervan de bedoeling is.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a8]) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    Range("a8").Insert
    Range("b9") = Abs(Range("a9"))
    Application.Goto Range("a8")
    Application.EnableEvents = True
End If
End Sub

 

[Chris15]

Nu blijft alleen de eerste cel gelijk (B8) maar de hele rij moet gelijk blijven. zie:

8 8
1 1
22 22
33 33
21 21
15 15
13 13
12 12
9 9
8 8
7 7

enz enz.

 

[Chris15]

Dus als de A9 naar beneden geduwd is, dan moet B9 de formule hebben +B9 en niet +B10 en dit moet ook gelden voor de hele B rij..... Snap je het nog?

 

[AD1957]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a8]) Is Nothing And Target.Count = 1 Then
    Application.EnableEvents = False
    Range("a8").Insert
    i = Range("a" & Rows.Count).End(xlUp).Row
    Range("a9:a" & i).Copy Range("b9")
    
    Application.Goto Range("a8")
    Application.EnableEvents = True
End If
End Sub

Ik begrijp niet wat hier de bedoeling van is.

 

[AD1957]

wat verwacht je eigenlijk van de formule =+A9 ?

 

[Chris15]

Dat de exacte formule blijft staan, dus als de cellen van kolom A naar beneden schuiven, moet in kolom B de formules blijven staan....

 

[AD1957]

Dat was niet mijn vraag.

Wat denk je dat de formule =+A9 doet ?

p.s. heb je de code uit post #9 al geprobeerd.

 

[Chris15]

Ik begrijp je niet.... +A9 geeft in de cel (bijv B9) de waarde aan van A9.... Of bedoel je dit niet?

De waardes moeten gebruikt worden in andere formules, maar als de A kolom steeds 1 cel naar beneden gaat, veranderen alle formules in het werkblad.

Dus vandaar een 2e (B) kolom die de exacte waardes moeten weergeven voor alle andere formules....

Snap je het nog?

Jou #9 werkt natuurlijk niet, omdat maar 1 cel gelijk blijft.

 

[AD1957]

zo dan

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a8]) Is Nothing And Target.Count = 1 Then
  Application.EnableEvents = False
    Range("a8").Insert
    Application.Goto Range("a8")
    i = Range("A" & Rows.Count).End(xlUp).Row
  Application.EnableEvents = True
  
    For Each ct In Range("B9:B" & i)
        ct.FormulaR1C1 = "=RC[-1]"
    Next
End If
End Sub

Of daarmee de rest van het probleem is opgelost betwijfel ik. Anders maar een goed gelijkend voorbeeld bestand plaatsen.

 

[Chris15]

Hahaha Albert!!!

Dit werkt (volgens mij) perfect!

Bedankt voor je moeite!