Waarde Cel stapsgewijs verhogen

Pagina: 1
Acties:

Onderwerpen

Vraag


Acties:
  • 0 Henk 'm!

  • Jenson94
  • Registratie: Augustus 2015
  • Laatst online: 26-09 09:18
Hallo,

Ik ben bezig om een leidingsysteem door te rekenen. Nu zou ik graag de waarde van een cel (bijv. B1) stapje voor stapje verhogen/verlagen tot een andere cel (bijv. A1) de gewenste waarde gehaald heeft. Bij elke verhoging moet dus opnieuw getoetst worden of A1 al de gewenste waarde gehaald heeft. De cel A1 veranderd dus als cel B1 wordt verhoogd/verlaagd. Is dit mogelijk in Excel?

Groeten,

Jens

Beste antwoord (via F_J_K op 11-10-2018 11:19)


  • Jenson94
  • Registratie: Augustus 2015
  • Laatst online: 26-09 09:18
Beste Jean,

Ik heb het inmiddels opgelost met het volgende stukje visual basic:

Private Sub CommandButton1_Click()

If Range("AQ21").Value < 60.7 Then
Do Until Range("AQ21").Value > 60.7
Range("AT6").Value = Range("AT6").Value + 1
Loop

ElseIf Range("AQ21").Value > 60.7 Then
Do Until Range("AQ21").Value < 60.7
Range("AT6").Value = Range("AT6").Value - 1
Loop
End If

End Sub

Alle reacties


Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Jenson94 schreef op maandag 1 oktober 2018 @ 20:24:
Nu zou ik graag de waarde van een cel (bijv. B1) stapje voor stapje verhogen/verlagen tot een andere cel (bijv. A1) de gewenste waarde gehaald heeft. Bij elke verhoging moet dus opnieuw getoetst worden of A1 al de gewenste waarde gehaald heeft. De cel A1 veranderd dus als cel B1 wordt verhoogd/verlaagd. Is dit mogelijk in Excel?
Ik denk dat je de Doelzoeken-functie zoekt: https://support.office.co...a4-417f-b1c3-4f369d6e66c7

[ Voor 51% gewijzigd door F_J_K op 02-10-2018 13:55 . Reden: quote zodat er een alert volgt :P ]

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

  • Jean luc Picard
  • Registratie: Augustus 2016
  • Laatst online: 14-09 08:49

Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

@Jenson94 een reactie wordt gewaardeerd ;)

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • Beste antwoord
  • 0 Henk 'm!

  • Jenson94
  • Registratie: Augustus 2015
  • Laatst online: 26-09 09:18
Beste Jean,

Ik heb het inmiddels opgelost met het volgende stukje visual basic:

Private Sub CommandButton1_Click()

If Range("AQ21").Value < 60.7 Then
Do Until Range("AQ21").Value > 60.7
Range("AT6").Value = Range("AT6").Value + 1
Loop

ElseIf Range("AQ21").Value > 60.7 Then
Do Until Range("AQ21").Value < 60.7
Range("AT6").Value = Range("AT6").Value - 1
Loop
End If

End Sub