Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: programmaprobleem Private Sub userform

  1. #1
    Vraag is niet opgelost

    programmaprobleem Private Sub userform

    In onderstaande code heb ik een probleem. Ik ben hier al een paar dagen aan het zoeken, maar ik vind geen oplossing.

    In een userform heb ik een commandbutton en een textbox met een tweede commandbutton.

    Bedoeling is dat bij de eerste commandbutton een + ingevoerd wordt in de eerste vrije cel van de A kolom (startende van A153) en met de 2de commandbutton dat de tekst van de txtbox in de eerste vrije cel van de D kolom komt (startende van D153).

    Het invoeren van de tekst uit de Textbox met de commandbutton lukt wel, maar de + zet hij niet in de eerste vrije cel (vb. A153) maar in A167.

    Dit is de code

    Private Sub CMDPOSITIEF_Click() 'eerste command button

    Dim WS As String

    WS = Sheets("NAVIGATIE").Range("AR13").Value

    Range("A152:A163").Select
    Sheets(WS).Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Sheets(WS).Range("AS13").Value

    End Sub

    Private Sub CommandButton1_Click() 'tweede commandbutton

    Dim WS As String

    WS = Sheets("NAVIGATIE").Range("AR13").Value

    Sheets(WS).Select

    Range("D152163").Select
    Range("D" & Rows.Count).End(xlUp).Offset(1).Value = Me.TXTNOTA.Value
    Range("A1").Select
    End Sub

    Kan iemand me helpen aub?

    Groetjes
    Dido

  2. #2
    Het helpt om een voorbeeldbestand bij te voegen. Ik kan i.i.g. uit de code niet halen wat er aan de hand is. Een tweede goed gebruik is overigens om codes tussen code tags te zetten. Dat komt de leesbaarheid ten goede
    Mogelijk moet je door mij voorgestelde formules vertalen. Bv. via deze link.

    Ik ben dan wel senior maar niet te oud om te leren. Ik weet dus ook niet alles ...

  3. #3
    Mega Senior
    Verenigingslid

    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Ik gok dat er in de cellen tot A167 dan toch nog iets staat waardoor ze niet als lege cellen worden gezien.
    Niemand is slim genoeg om zijn eigen domheid te bevatten!

    Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen