*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: VBA  (gelezen 1713 keer)

0 leden en 1 gast bekijken dit topic.

Offline vdbergha

  • Volledig lid
  • **
  • Berichten: 205
  • Geslacht: Man
  • Bedankt voor uw reactie
VBA
« Gepost op: 12 mei 2017, 17:42:17 »
Wat is er fout aan onderstaand VBA.

Code: [Selecteer]
If Me.txtPNaam.Value <> "" Then
    ws.Cells(iRow, 6).Value = "Partner"     
    ws.Cells(iRow, 7).Value = Me.txtPNaam.Value
    ws.Cells(iRow, 8).Value = Me.txtPVoornaam.Value
    ws.Cells(iRow, 9).Value = Me.txtPGebDat.Value
End If
Ik wil als in txtPNaam niets is ingevuld dat in ws.Cells(iRow, 6) de tekst "Partner" wordt geplaatst
Gelogd
Win 10

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.169
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA
« Reactie #1 Gepost op: 12 mei 2017, 18:46:08 »
Citaat van: vdbergha op 12 mei 2017, 17:42:17
Wat is er fout aan onderstaand VBA.

Code: [Selecteer]
If Me.txtPNaam.Value <> "" Then
    ws.Cells(iRow, 6).Value = "Partner"     
    ws.Cells(iRow, 7).Value = Me.txtPNaam.Value
    ws.Cells(iRow, 8).Value = Me.txtPVoornaam.Value
    ws.Cells(iRow, 9).Value = Me.txtPGebDat.Value
End If
Ik wil als in txtPNaam niets is ingevuld dat in ws.Cells(iRow, 6) de tekst "Partner" wordt geplaatst

Ik vermoed dat je nu net het tegengestelde vraagt van de macro:
Code: [Selecteer]
If Me.txtPNaam.Value <> "" Then
Als "Me.txtPNaam.Value <> "" (Groter of kleiner is dan NIETS, dus..... iets is...)

Code: [Selecteer]
If Me.txtPNaam.Value = "" Then
zal dan waarschijnlijk wel werken  ;) :)

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline vdbergha

  • Volledig lid
  • **
  • Berichten: 205
  • Geslacht: Man
  • Bedankt voor uw reactie
Re: VBA
« Reactie #2 Gepost op: 14 mei 2017, 08:18:49 »
Ik heb het opgelost met een IF....THEN.....ELSE

Bedankt voor de hulp  ;D
Gelogd
Win 10
Pagina's: [1]   Omhoog
 


www.combell.com