vba datum volgende kolom

[AD1957]

in onderstaande rode code had ik graag het volgende:

datum textbox6 + jaar

          Cells(selrij, 1).Value = TextBox1.Value [COLOR="#008000"]'naam[/COLOR]
          Cells(selrij, 2).Value = TextBox2.Value [COLOR="#008000"]'adres[/COLOR]
          Cells(selrij, 3).Value = TextBox3.Value [COLOR="#008000"]'pcwoonplaats[/COLOR]
          Cells(selrij, 4).Value = TextBox4.Value '[COLOR="#008000"]telefoon[/COLOR]
          Cells(selrij, 5).Value = TextBox5.Value [COLOR="#008000"]'email[/COLOR]
          Cells(selrij, 6).Value = TextBox6.Value '[COLOR="#008000"]datum plaatsing[/COLOR]
          [COLOR="#FF0000"]Cells(selrij, 7).Value =                                [/COLOR]'[COLOR="#009900"]datumplaatsing + 1jaar???????????[/COLOR]

Groet,
Albert

 

[edmoor]

Zoiets:

Cells(selrij, 7).Value = DateAdd("yyyy", 1, Cells(selrij, 6))

Daarbij ga ik er wel vanuit dat Cells(selrij, 6) daadwerkelijk een datum bevat en geen tekst dat er uitziet als een datum.
Vandaar ook weer, een voorbeeld document is altijd beter.

 

[VenA]

Plaats volledige code en een voorbeeldbestand.
De hele code kan gereduceerd worden tot 1 regel.

Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = Array(TextBox1.Value, TextBox2.Value, etc)

 

[AD1957]

IK heb de code van edmoor gebruikt, deze werkt goed.
Echter de datumnotatie in kolom 6 veranderd.



venA; hierbij voorbeeldbestand Bekijk bijlage ONDERHOUDSLIJST2.xlsb

 

[AD1957]

code van VenA komt me bekent voor, deze heb ik al eens in een ander bestand gebruikt
toch maar eens kijken, hoe die werkt.

Gr. Albert

p.s. ben even een wandelingetje maken met de hond, hij begint in de PC te bijten

 

[edmoor]

Mijn voorbeeld doet niets met kolom 6.
Die code leest alleen die cel.

 

[HSV]

Cells(selrij, 6).Value = [COLOR=#ff0000]cdate([/COLOR]TextBox6[COLOR=#ff0000]​)[/COLOR]

 

[AD1957]

Hoi edmoor,
had graag de datumnotatie in kolom als dd-mmm-jj dit zoals de celeigenschappen zijn ingesteld.
ga eens zoeken of dit lukt met textbox6=format("dd-mmm-jj") moet alleen even kijken waar die in de code geplaatst moet worden.

code van HSV begrijp ik niet helemaal moet het niet

Cells(selrij, 7).Value = cdate(TextBox6​)

zijn??

 

[edmoor]

Je weet wel het verschil tussen de datatypen String en Date?

 

[HSV]

Nee,

 Cells(selrij, 6).Value = [COLOR=#ff0000]cdate([/COLOR]TextBox6[COLOR=#ff0000])[/COLOR][COLOR=#ff0000][/COLOR] 'datum plaatsing

 

[AD1957]

ik heb de code van HSV toegepast en alles werkt precies hoe ik graag had

Cells(selrij, 1).Value = TextBox1.Value 'naam
          Cells(selrij, 2).Value = TextBox2.Value 'adres
          Cells(selrij, 3).Value = TextBox3.Value 'pcwoonplaats
          Cells(selrij, 4).Value = TextBox4.Value 'telefoon
          Cells(selrij, 5).Value = TextBox5.Value 'email
          Cells(selrij, 6).Value = CDate(TextBox6) 'datum plaatsing
          Cells(selrij, 7).Value = DateAdd("yyyy", 1, Cells(selrij, 6)) 'datumplaatsing + 1jaar

ALs ik zie hoe jullie al die codes uit de mouw schudden :thumb::thumb:
Ben al blij als ik eenvoudige codes in elkaar gezet krijg.:d en dan is het vaak nog uren zoeken in allerlei codes die ik
op dit forum heb verzameld.
Krijg het soms in mijn kop en wil dan weer allerlei bestanden veranderen en dat geeft dan weer veel:evil:
Edmoor, het verschil tussen String en date is mij eerlijkheidshalve nog een raadsel, heb nog heel veel te leren.

In ieder geval hartelijk dank voor jullie hulp en geduld.
Groet,
Albert