cell invullen aan de hand van datum van dtpicker

[HSV]

Het lijkt op tekst (links gecentreerd).
Gebruik eens cdate(dtpicker1.value).
Wat komt er dan te staan?

 

[bjornesto]

dit is het resultaat

datum rechts is diegene met wat je gevraagd hebt

De linkse datum is na aanpassing van de code activecell.offset(0,0) en op format date gezet

ATTACH=CONFIG]301115[/ATTACH]

 

[HSV]

Doe dit even in een ander blad.
Als de cel eenmaal de opmaak tekst heeft gehad krijg je het niet gemakkelijk weer op een ander formaat.

 

[bjornesto]

dit is het resultaat is op een ander blad gedaan met als opmaak datum

deze staat rechts

 

[HSV]

Doe hetzelfde eens voor:

range("a1") = month(dtpicker1.value)

 

[bjornesto]

heb het voor een andere range gedaan maar komt op hetzelfde neer

maar in de userform geeft bij dtpicker is 03/06/2017 en geeft dan in de cel het cijfer 6 weer dus dat lijkt te werken.

Het rare is dat als je jou formule gebruikt hij meteen 36 vakjes opzij zet, dus dat is het dubbele

 

[HSV]

6*3-2=16
Offset(,16)
Geen idee wat de activecell kolom is, maar month(6)*3-2 is hetzelfde.

 

[bjornesto]

Beste

Deze code werkt wel (heb wel maar een deel er op gezet)

fraai is het niet maar hij doet het werk

Sub test1()

Dim mydate As Variant:      mydate = Month(DTPicker1)
Dim title As String:        title = ActiveWorkbook.Worksheets(1).Range("C8")

If mydate = 1 Then GoTo 1
If mydate = 2 Then GoTo 2
If mydate = 3 Then GoTo 3
If mydate = 4 Then GoTo 4
If mydate = 5 Then GoTo 5
If mydate = 6 Then GoTo 6
If mydate = 7 Then GoTo 7
If mydate = 8 Then GoTo 8
If mydate = 9 Then GoTo 9
If mydate = 10 Then GoTo 10
If mydate = 11 Then GoTo 11
If mydate = 12 Then GoTo 12
'--------------------------------------------------------------------------------------------------
1:
If ActiveCell.Offset(0, 5).Value > 0 Then GoTo 1110                  'cell is (0,8) has been filled
If ActiveCell.Offset(0, 5).Value = "" Then                          'cell is (0,8) is empty
ActiveCell.Offset(0, 5).Value = title
Exit Sub
End If

1110:
    If ActiveCell.Offset(0, 5 + 1).Value > 0 Then GoTo 1120          'cell is (0,5 +1) has been filled
    If ActiveCell.Offset(0, 5 + 1).Value = "" Then                  'cell is (0,5 +1) is empty
            ActiveCell.Offset(0, 5 + 1).Value = title
    End If
Exit Sub

1120:
    If ActiveCell.Offset(0, 5 + 2).Value > 0 Then GoTo msgbox       'cell is (0,5 +1) has been filled
    If ActiveCell.Offset(0, 5 + 2).Value = "" Then                  'cell is (0,5 +1) is empty
            ActiveCell.Offset(0, 5 + 2).Value = title
    
    End If
    
Exit Sub
End Sub

 

[HSV]

Maak van elke 'Activecell' in de code eens:
Cells(activecell.row,1), zo weet ik zeker dat de code start vanaf kolom A.

 

[snb]

Sjonge....
Dit lijkt me voldoende.

Sub test1()
  with ActiveCell.Offset(, 4+Month(DTPicker1))
     .offset(,abs(.value=0)) =sheets(1).Range("C8")
  end with 
end sub

Maar beter is de code onafhankelijk te maken van de activecell.

 

[HSV]

Alleen jammer dat

activecell.offset(,1)

er niet tussen zit.
Vandaar de mont(dtpicker) * 3-2.

 

[bjornesto]

HSV:

Heb gedaan zoals je gevraagd hebt maar er kwam niets in de maand van functie met cells

NSB

U code ook getest maar ook niets

De datepicker doet moeilijk

 

[HSV]

In cel A1 staat een datum (wat je DTPicker1 moet voorstellen).

Verander de maand in A1 en ga op rij 4 staan en laat de code twee keer lopen.
Test dan nog maar op een paar maanden.