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
    Junior Member
    Geregistreerd
    12 januari 2016
    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
    Senior Member Peter B's avatar
    Geregistreerd
    8 februari 2007
    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
    SjonR's avatar
    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.

  4. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

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