Excel vraagje ?

[Psychosammie]

Excel voor dummies??

[Hendrik007]

Cursus Excel

Cursus Excel - Een simpele administratie

 

 

Mischien dat je hier wat aan hebt. <img src="/forums/images/graemlins/xyxthumbs.gif" alt="" />

[Rocketscientist]

Citaat:

Weet iemand anders een forum waar ik deze vraag kan stellen ??

Ja hoor, deze! >> KLIK <<

[droomhobby]

Bedankt rocketsientist en alle andere voor de hulp.

Heb via forum snel een antwoord gekregen en het probleem is opgelost, zie onderstaande formule).

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Range("E16)").Value <> "" Then

Range("F16").Value = Range("F16").Value + Range("E16").Value

Range("E16").Value = Null

 

1 End If

End Sub

 

 

Rob

[Digiflip]

Ehhhhhh, das hogere excel school!!!

[Edd]

Vba is goed voor complexe bewerkingen.

 

Voor simpel en snel bv:

 

=H1+SOM(B1:B1000)

 

In H1 bv gooi je de start voorraad, en invoeren maar in de B kolom <img src="/forums/images/graemlins/laugh.gif" alt="" />

 

Excel basis en gevorderden cursus is de key.

 

Ed

[Con]

Citaat:

Vba is goed voor complexe bewerkingen.

Voor simpel en snel bv:

=H1+SOM(B1:B1000)

In H1 bv gooi je de start voorraad, en invoeren maar in de B kolom <img src="/forums/images/graemlins/laugh.gif" alt="" />

Excel basis en gevorderden cursus is de key.

Ed

Je kunt ook schrijven: =H1+SOM[color:"red"](B:[/color]
Dan heb je de hele kolom B te pakken.

HG CC

[Edd]

=10000+SOM(B: (getal is start)

 

Leuker kunnen we het niet maken wel .. <img src="/forums/images/graemlins/grin.gif" alt="" />

[droomhobby]

Bedankt voor alle oplossingen maar tot nu toe is de vba oplossing hieronder nog de beste oplossing voor mij.

 

Enkel nog 1 probleem de laatst ingegeven waarde in cel A1 had ik graag 1n cel C1 weggeschreven ivm een print te maken.

 

Dus als iemand me hier nog mee kan helpen.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Range("A1)").Value <> "" Then

Range("B1").Value = Range("B1").Value + Range("A1").Value

Range("C1").Value = Range("A1").Value

Range("A1").Value = Null

 

End If

End Sub