Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Formule "als" uitvoeren in vba  (gelezen 2696 keer)

0 leden en 1 gast bekijken dit topic.

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Formule "als" uitvoeren in vba
« Gepost op: 05 februari 2008, 07:56:03 »
Via “.find” ga ik naar deze cel “c.Offset(r, 29) = CDbl((Val(TextBox28.Value)) + 1)
Daar tel ik het aantal keer dat die rij is aangemaakt .
Dus, telkens ik op de button klik telt die één bij.
Het probleem is nu, dat er geen waarde in die cel staat. Daarom geeft die bij de twee aanmaak van de rij het cijfer 1. In een excelformule zou ik op deze mannier kunnen oplossen, (hiermee is de cel op het werkblad nooit leeg, in vba wel):
=als(c.Offset(r, 29)=””  ; 1 ;  c.Offset(r, 29)+1)
Anders uitgelegd: als de cel leeg is, dan is de waarde één, anders één bijtellen.
Kan iemand dit doen werken?
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Formule "als" uitvoeren in vba
« Reactie #1 Gepost op: 05 februari 2008, 08:25:37 »
Moo, Maar wat wil je dan precies bereiken? Nu zie ik dat je de waarde van je tekstbox + 1 in het offsetbereik wilt hebben...
Volgens mij bedoel je dat je de waarde van de offset + 1 wilt hebben? Dan zou het zoiets worden
c.Offset(r, 29) = c.Offset(r, 29) + 1

Groet, Leo
______________________________

Groet, Leo

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Re: Formule "als" uitvoeren in vba
« Reactie #2 Gepost op: 05 februari 2008, 09:12:33 »
Weer dank voor uw reactie.
Citaat
de waarde van de offset + 1 wilt hebben?
Neen, want die cel is bij de start leeg. Nul plus één is één, maar dit moet twee zijn. Het is immers al bij het begin de eerste keer, ook al is de cel leeg.
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Formule "als" uitvoeren in vba
« Reactie #3 Gepost op: 05 februari 2008, 10:32:40 »
Moo, ik vind het persoonlijk niet erg logisch om met 2 te beginnen... Maar ja, de ontwikkelaar is koning! ;D
Doe dan dit maar....
c.Offset(r, 29).Value = WorksheetFunction.Max(c.Offset(r, 29).Value + 1, 2)
Groet, Leo
______________________________

Groet, Leo

Offline Moo

  • Ambassadeur
  • *****
  • Berichten: 1.165
  • Geslacht: Man
  • Waar het hart van vol is, loopt de tekst van over.
Re: Formule "als" uitvoeren in vba
« Reactie #4 Gepost op: 05 februari 2008, 13:43:41 »
Weer juist wat ik zoek, u bent uw tittel waardig, bedankt.
In afwachting dat ik ooit God word, ben ik nu nog klein peerke, maar ik mag ook al eens moeilijk doen he? :d Of was dat nu al de gewoonte? :d :d
Het is eigenlijk poepsimpel, ik geef gegevens in in een rij, maar vertrek op een leeg werkblad, toch wil ik weten wanneer ik aan de tweede rij begin. Ik heb ooit op de nieuwsgroep mijn probleem in zijn geheel voorgelegd, maar niemand kon er kop nog staart aan krijgen. Dus, heb ik heel die handel in stukken gehakt en heb een betere locatie gezocht ;)
Nu lukt het aardig.
ASRock P43 Pro/USB3, Intel 2 Quad cpu Q9550 2.83GHz, 2840 MHz, NVIDIA GeForce GTS 450, Win7 oem 64bit pre NL, Realtek, HD:1tb, 4 Gb DDR3, KIS, Firefox, Ms-Outlook 2007, Telenet

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Formule "als" uitvoeren in vba
« Reactie #5 Gepost op: 05 februari 2008, 14:36:10 »
Citaat
ben ik nu nog klein peerke
Och... zo voel ik me óók nog hoor!
Maar ik ben blij dat ik je kan helpen.

Groet, Leo
______________________________

Groet, Leo

 


www.combell.com