Print side | Luk vindue

Dato til bliver til tekst.

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3051
Udskrevet den: 06.Maj.2024 kl. 00:48


Emne: Dato til bliver til tekst.
Besked fra: Reincheck
Emne: Dato til bliver til tekst.
Posteringsdato: 22.Maj.2017 kl. 21:05
Hej. Jeg er ret ny til makroer, så jeg håber der måske er en der kan hjælpe her. 

Jeg har lavet en faktura skitse i Excel med en marko. 

Denne makro sender data fra et ark ("Faktura") til et andet ark ("Info"). Eksempelvis fakturadato, betalingsdato, beløb osv. 

Mit problem er at de datoer den flytter over bliver over til arket bliver laver sat ind som tekst og ikke en dato som den kommer fra.

På Forhånd tak

Vh Lasse

< ="text/"> p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #000000; background-color: #ffffff} p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; background-color: #ffffff; min-height: 13.0px} p.p3 {margin: 0.0px 0.0px 0.0px 0.0px; font: 11.0px Menlo; color: #011993; background-color: #ffffff} span.s1 {color: #011993} span.s2 {color: #000000}

Sub transfere()


Dim fakturanummer As String, amount As String, kunde As String, fakturadato As String, betaldato As String, jobnavn As String


Worksheets("Faktura").Select

fakturanummer = Range("F11")

amount = Range("F32")

amountEX = Range("F30")

kunde = Range("B9")

fakturadato = Range("F12")

betaldato = Range("F13")

jobnavn = Range("F15")


Worksheets("info").Select

Worksheets("info").Range("A1").Select


If Worksheets("info").Range("A1").Offset(1, 0) <> "" Then

Worksheets("info").Range("a1").End(xlDown).Select

End If


ActiveCell.Offset(1, 0).Select

ActiveCell.Value = kunde


ActiveCell.Offset(0, 1).Select

ActiveCell.Value = fakturanummer


ActiveCell.Offset(0, 1).Select

ActiveCell.Value = amount


ActiveCell.Offset(0, 1).Select

ActiveCell.Value = amountEX


ActiveCell.Offset(0, 1).Select

ActiveCell.Value = fakturadato


ActiveCell.Offset(0, 1).Select

ActiveCell.Value = betaldato


ActiveCell.Offset(0, 1).Select

ActiveCell.Value = jobnavn


Worksheets("Faktura").Select


End Sub



Sub clear()


Range("B9:C9").Select

Selection.ClearContents

Range("F14:F16").Select

Selection.ClearContents

Range("A18:C29").Select

Selection.ClearContents



Range("B9").Select

End Sub


Sub nextInvoice()



Range("F11").Value = Range("F11").Value + 1


End Sub








Svar:
Besked fra: Reincheck
Posteringsdato: 23.Jun.2017 kl. 11:26
Er der ingen der har et bud på det her? :)


Besked fra: Bjarnehansen
Posteringsdato: 23.Jun.2017 kl. 12:12
jeg kan ikke huske hvordan man lige gør men du have fat i format(range("f12"); "dd-mm-åååå")noget i den stil


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Reincheck
Posteringsdato: 23.Jun.2017 kl. 12:58
Så den celle der kopieres fra, skal formateres med det du skriver? Det er jo den celle der bliver sat ind i der bliver til tekst.?


Besked fra: Bjarnehansen
Posteringsdato: 23.Jun.2017 kl. 13:41
Indtastning.TextBox1.Value = Format(Indtastning.TextBox1.Value, "dd.mm.yyyy")
fakturadato = format(Range("F12"), "dd.mm.yyyy")
jeg tror det skal laves noget i denne stil.
ellers må du /topic662.html - upload dit ark så er det måske letter at hjælpe dig.


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Reincheck
Posteringsdato: 27.Jun.2017 kl. 20:48
uploads/1673/Faktura_DRF.xlsm" rel="nofollow - uploads/1673/Faktura_DRF.xlsm



Okay her er den så. Skriv endeligt hvis ikke det giver mening.


Besked fra: Bjarnehansen
Posteringsdato: 27.Jun.2017 kl. 21:19
Hvad er det der er dit problem, ?


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Bjarnehansen
Posteringsdato: 27.Jun.2017 kl. 21:38
Prøv at se på denne



uploads/397/Faktura_DRF_bj.xlsm" rel="nofollow - uploads/397/Faktura_DRF_bj.xlsm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Reincheck
Posteringsdato: 29.Jun.2017 kl. 15:01
Okay jeg prøver lige at /topic662.html - uploade et nyt for at forklare det bedere.

I den her fil er der i J5 en formel. Formlen reagere kun på data i den øverste linie i "info" ark'et da jeg har intastet datoen manuelt. Den virker ikke når jeg sender data fra faktura ark'et. 

Forskelden er at når jeg "sender" dataen med makroen står der i cellen 29/6/2017 og når jeg skriver datoen manuelt står der i stedet 29. juni 2017. Og først når det står sådan virker min formel i J5.

Håber det giver mening :) uploads/1673/Faktura_DRF_lr.xlsm" rel="nofollow - uploads/1673/Faktura_DRF_lr.xlsm




Besked fra: Bjarnehansen
Posteringsdato: 29.Jun.2017 kl. 17:42
Prøv at dim faktura as date


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Bjarnehansen
Posteringsdato: 29.Jun.2017 kl. 17:48
uploads/397/Faktura_DRF_lr_2.xlsm" rel="nofollow - uploads/397/Faktura_DRF_lr_2.xlsm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Bjarnehansen
Posteringsdato: 29.Jun.2017 kl. 17:54
uploads/397/Faktura_DRF_lr_3.xlsm" rel="nofollow - uploads/397/Faktura_DRF_lr_3.xlsm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Reincheck
Posteringsdato: 29.Jun.2017 kl. 20:43
Bjarne. Det gjorde lige præcis hvad jeg ønskede. Tusind tak for hjælpen.

Vh Lasse


Besked fra: Bjarnehansen
Posteringsdato: 29.Jun.2017 kl. 21:05
velbekomme husk at trykke på Tak.......


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Reincheck
Posteringsdato: 29.Jun.2017 kl. 21:30
Hermed gjort. En ting - Celle G ved siden af gør præcis det samme, du har ikke et bud på hvordan jeg løser den?




Besked fra: Bjarnehansen
Posteringsdato: 29.Jun.2017 kl. 21:41
prøv at se på denne:

uploads/397/Faktura_DRF_lr_4_2017-06-29_21-40-58.xlsm" rel="nofollow - uploads/397/Faktura_DRF_lr_4_2017-06-29_21-40-58.xlsm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK


Besked fra: Reincheck
Posteringsdato: 29.Jun.2017 kl. 21:45
Ja det virkede. Tak. Jeg kan ikke rigtig se hvad du gjorde?


Besked fra: Bjarnehansen
Posteringsdato: 30.Jun.2017 kl. 15:20
jeg ændrede dim af fakturadato og betalings dato til date og formatet på cellerne


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK



Print side | Luk vindue