Forfatter |
Emne Søg Emne funktioner
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Emne: Dato til bliver til tekst. Sendt: 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
|
|
|
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Accepteret svar
Sendt: 29.Jun.2017 kl. 17:54 |
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 23.Jun.2017 kl. 11:26 |
Er der ingen der har et bud på det her? :)
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 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
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 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.?
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 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 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
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 27.Jun.2017 kl. 20:48 |
uploads/1673/Faktura_DRF.xlsm
Okay her er den så. Skriv endeligt hvis ikke det giver mening.
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 27.Jun.2017 kl. 21:38 |
|
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
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 29.Jun.2017 kl. 15:01 |
Okay jeg prøver lige at 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.
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 29.Jun.2017 kl. 17:48 |
|
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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Accepteret svar
Sendt: 29.Jun.2017 kl. 17:54 |
|
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
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 29.Jun.2017 kl. 20:43 |
Bjarne. Det gjorde lige præcis hvad jeg ønskede. Tusind tak for hjælpen.
Vh Lasse
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 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
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 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?
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 29.Jun.2017 kl. 21:41 |
|
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
|
|
Reincheck
Bronze bruger
Medlem: 19.Apr.2016
Status: Offline
Point: 39
|
Sendt: 29.Jun.2017 kl. 21:45 |
Ja det virkede. Tak. Jeg kan ikke rigtig se hvad du gjorde?
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5494
|
Sendt: 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
|
|