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
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