Beste
Ik heb een userform met daarin een datum.
Eens men alles heeft ingevuld, gaat de computer eerst een lijst invullen op huidige worksheet en dan gaat hij worksheets (2) selecteren en zoeken naar de naam.
Staat deze in de lijst gaat hij die cell selecteren.
Staat hij niet in de lijst gaat hij de naam van de persoon er automatisch onder zetten. (deze code werkt)
Echter zou ik aan de hand van de maand moeten bepalen waar hij een bepaalde waarde moet zetten in een ander worksheet.
kun je hiervoor select case gebruiken of niet
voorbeeld datum is = 12/05/2017 dan zou hij de waarde in worksheets (2) kolom 6 moeten zetten
Hier is de code die de lijst invult en dan naar de worksheet gaat aan de hand wat er van ingevuld is
Dit is de code die zoekt of de persoon al in de lijst staat of niet
dit is de code die ik heb voor de cell in te vullen
Ik heb een userform met daarin een datum.
Eens men alles heeft ingevuld, gaat de computer eerst een lijst invullen op huidige worksheet en dan gaat hij worksheets (2) selecteren en zoeken naar de naam.
Staat deze in de lijst gaat hij die cell selecteren.
Staat hij niet in de lijst gaat hij de naam van de persoon er automatisch onder zetten. (deze code werkt)
Echter zou ik aan de hand van de maand moeten bepalen waar hij een bepaalde waarde moet zetten in een ander worksheet.
kun je hiervoor select case gebruiken of niet
voorbeeld datum is = 12/05/2017 dan zou hij de waarde in worksheets (2) kolom 6 moeten zetten
Hier is de code die de lijst invult en dan naar de worksheet gaat aan de hand wat er van ingevuld is
Code:
Private Sub CommandButton1_Click()
'check userform if field has been filled in
If Me.cmbbx_nom_du_poste_client_NOH.Value = NullString Then
MsgBox ("please fill in the following" & vbNewLine & " - " & Me.lbl_nom_du_poste_client_NOH.Caption), vbInformation, "Please fill in field"
Me.cmbbx_nom_du_poste_client_NOH.SetFocus
Exit Sub
End If
ThisWorkbook.Worksheets(6).Select
'find first empty cell counted from the buttom of column B
With ActiveWorkbook.Worksheets(4)
Range("B65536").End(xlUp).Offset(1, 0).Select
End With
On Error Resume Next
'set data from userform in activecell
With ActiveCell
.Offset(0, 0) = Me.txtbx_po 'heading cell B6
.Offset(0, 1) = Me.DTPicker1 'heading cell C6
.Offset(0, 2) = Me.DTPicker1 'heading cell D6
.Offset(0, 3) = Me.cmbbx_nom_du_poste_client_NOH 'heading cell E6
.Offset(0, 4) = Me.cmbbx_personne_de_contact_rencontrees 'heading cell F6
.Offset(0, 5) = Me.DTPicker3 'heading cell G6
.Offset(0, 6) = Me.ComboBox3 'heading cell H6
.Offset(0, 7) = Me.ComboBox6 'heading cell I6
.Offset(0, 8) = Me.DTPicker2 'heading cell J6
.Offset(0, 9) = Me.TextBox1 'heading cell K6
.Offset(0, 10) = Me.TextBox2 'heading cell L6
.Offset(0, 11) = Me.txtbx_contenu_action_entreprises_ou_decidees 'heading cell M6
End With
On Error GoTo 2
'contact externe client is checked
If CheckBox1.Value = True Then
ActiveWorkbook.Worksheets(9).Select
test
End If
Exit Sub
2:
If CheckBox2.Value = True Then
ActiveWorkbook.Worksheets(8).Select
End If
End Sub
End IfDit is de code die zoekt of de persoon al in de lijst staat of niet
Code:
Private Sub test()
Dim ws As Worksheet
Dim FindString As String
Dim Rng As Range
Set ws = ThisWorkbook.Worksheets(9)
FindString = details_contacts.cmbbx_personne_de_contact_rencontrees.Value
If Trim(FindString) <> "" Then
Set Rng = ws.Cells.Find( _
What:=FindString, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox ("person has been found in the list"), vbInformation
Else
MsgBox ("Nothing found" & _
vbNewLine & "I have already set the name in the list"), vbInformation
Dim LastBlankRow As Long
'Step 2: Capture the last used row number.
LastBlankRow = Cells(Rows.Count, 6).End(xlUp).Row + 1
'Step 3: Select the next row down
Cells(LastBlankRow, 6).Select
With ActiveCell
.Value = details_contacts.cmbbx_personne_de_contact_rencontrees.Value 'see userform2
End With
End If
End If
test1
End Subdit is de code die ik heb voor de cell in te vullen
Code:
Sub test1()
'Dim mydate As Variant
Select Case True
Case "01"
If Mid(Me.DTPicker1.value, 4, 6) = "01" Then
ActiveCell.Offset(0, 1).Value = Format(details_contacts.DTPicker1.Value, "mm")
End If
End Sub
