Menu invoer vlak

[Egon]

Hallo Leden,,

Ik ben sinds gister aan het puzzelen en ik kom er zelf niet uit ,

hoe krijg ik iets ingevoerd op blad 2,
dat weer word gegeven op blad 3 en vast word gezet, zodat wanneer ik een nieuw invoer plaats, het eerst ingevoerd getal of text blijft staan,

NA Aanpassing compleet bestand ge-upload van hoe ik het graag zou willen zien ,,

 

[Wigi]

Egon

probeer eens te kijken naar Bewerken > Plakken speciaal > waarden, nadat je een aantal formules (bv. celverwijzingen naar het andere tabblad) geselecteerd en gekopieerd hebt.

 

[Egon]

Egon

probeer eens te kijken naar Bewerken > Plakken speciaal > waarden, nadat je een aantal formules (bv. celverwijzingen naar het andere tabblad) geselecteerd en gekopieerd hebt.

Wigi ,,

is er geen manier om een "vlak \ venster" te maken , waarin kan worden geschreven,. zoals deze schrijf venster? en waarna je op enter drukt of "reactie plaatsen" het in een ander blad ziet staan ?

 

[Wigi]

Wigi ,,

is er geen manier om een "vlak \ venster" te maken , waarin kan worden geschreven,. zoals deze schrijf venster? en waarna je op enter drukt of "reactie plaatsen" het in een ander blad ziet staan ?

Dat kan zeker. Als je wat meer gegevens verstrekt, zal ik de VBA code schrijven bij gelegenheid. Dus info geven over wat waar wordt ingetypt, en waar het moet komen na druk op een knop.

Wigi

 

[Egon]

Dat kan zeker. Als je wat meer gegevens verstrekt, zal ik de VBA code schrijven bij gelegenheid. Dus info geven over wat waar wordt ingetypt, en waar het moet komen na druk op een knop.

Wigi

Wigi ,,, als je dat zou willen doen ben je mijn held

ik zou op blad berekening, wat willen invullen, wat vervolgens op de desbetreffende tabbladen "vast" komt te staan ,, zodat ik wat nieuw data kan invoeren,

het goede bestand staat in mijn eerste post,

alvast super bedankt,

Groet Egon

 

[Wigi]

Zet dit achter de code voor het blad Berekening.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("C5:D9")) Is Nothing Then
    ActiveSheet.Range("C5:D9").Copy
    Sheets("Klasse 3").Range("B2").PasteSpecial xlPasteValues
    
ElseIf Not Intersect(Target, Range("C13:D17")) Is Nothing Then
    ActiveSheet.Range("C13:D17").Copy
    Sheets("Klasse 4").Range("B2").PasteSpecial xlPasteValues

ElseIf Not Intersect(Target, Range("C21:D25")) Is Nothing Then
    ActiveSheet.Range("C21:D25").Copy
    Sheets("Klasse 5").Range("B2").PasteSpecial xlPasteValues
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Wigi

 

[Egon]

Wigi ,,, super wat je me gemaakt hebt ,,, het werkt top ! ! ,,

is het ook mogelijk om op een andere pagina de ingevoerde text vast te zetten ? .
dus wanneer ik alles verwijder op de invoer vlak dat het vast blijft staan op de andere pagina? ..

Groet Egon ,,

 

[Wigi]

Wigi ,,, super wat je me gemaakt hebt ,,, het werkt top ! ! ,,

is het ook mogelijk om op een andere pagina de ingevoerde text vast te zetten ? .
dus wanneer ik alles verwijder op de invoer vlak dat het vast blijft staan op de andere pagina? ..

Groet Egon ,,

Zo misschien?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("C5:D9")) Is Nothing Then
    If WorksheetFunction.CountA(Range("C5:D9")) > 0 Then
        ActiveSheet.Range("C5:D9").Copy
        Sheets("Klasse 3").Range("B2").PasteSpecial xlPasteValues
    End If
    
ElseIf Not Intersect(Target, Range("C13:D17")) Is Nothing Then
    If WorksheetFunction.CountA(Range("C13:D17")) > 0 Then
        ActiveSheet.Range("C13:D17").Copy
        Sheets("Klasse 4").Range("B2").PasteSpecial xlPasteValues
    End If

ElseIf Not Intersect(Target, Range("C21:D25")) Is Nothing Then
    If WorksheetFunction.CountA(Range("C21:D25")) > 0 Then
        ActiveSheet.Range("C21:D25").Copy
        Sheets("Klasse 5").Range("B2").PasteSpecial xlPasteValues
    End If
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Wigi

 

[Egon]

Heej Wigi

Kan hij ook na invoer en save de volgende vlak pakken ? de 4 daaronder,
zodat hij het automatisch sorteert ?

dan ben ik klaar ,,

Super bedankt trouwens ,,,

Egon,,

 

[Wigi]

Heej Wigi

Kan hij ook na invoer en save de volgende vlak pakken ? de 4 daaronder,
zodat hij het automatisch sorteert ?

Dit is Chinees vrees ik.

 

[Egon]

Haha ,,

Na het invoeren van gegevens op blad 2 komt het te staan op blad 3,
en het staat ook vast, je kan het opslaan, maar als je een nieuw invoer doet , dan overschijft hij de eerst ingevoerde,, omdat ik met allemaal blokken werk, zou het mooi zijn dat het onder elkaar komt

voorbeeld
Regel 8 - Merk x x x x
Regel 9 - Type x x x x
Regel 10 - Klasse x x x

na invoer komt dit op blad 3 te staan, dit wordt gesaved,
en met nieuw invoer gaat hij verder op regel 8, het zou mooi zijn als hij door zou gaan op regel --12-- met een leeg regel tussen,

zou dit opgelost zou kunnen worden?

Ik hoop dat ik me zelf iets duidelijker heb gemaakt.
Alvast bedankt, Egon,

 

[Wigi]

Zie bijlage Egon.

Er is een knop gekomen in plaats van het automatisch overzetten.

Ga in het blok staan dat je wilt overzetten, en druk op de knop.

Je wordt gevraagd of er al dan niet een nieuw blok gebruikt moet worden in het blad waar je naartoe kopieert.

Wigi

 

[Egon]

Wigi super bedankt

,,,, ik heb het al wel door dat ik een boek VB nodig heb,,

Bedankt voor de tijd en moeite,,

Groet egon

 

[Wigi]

,,,, ik heb het al wel door dat ik een boek VB nodig heb,,

Neen, VBA, Visual Basic for Applications. Specifiek voor Excel dan nog.