Just nu i M3-nätverket
Jump to content

Jämföra datum i Excel mha VBA


Dwinnie

Recommended Posts

Nu ger jag upp, klockan är över 3 och det funkar inte.

 

Jag har en textbox där jag skriver i fakturadatum och ett annat där man skriver i summan och en radioknapp där man kan välja valuta. Valutakolumnen plockas fram och sedan är det bara att hitta rätt datum. Datumen är alltid den första i månaden, medan fakturadatum kan vara vad som helst. Därför tar jag det inskrivna datumet, gör datum = dateserial(year(var), month(var), 1).

 

Sedan försöker jag göra workbooks(1).columns(1).find(datum) och det funkar inte.

 

Någon som vet vad jag gör för fel?

 

Link to comment
Share on other sites

Hej,

 

Så här:

 

Private Sub OK_Click()
Dim Datum As Variant
Datum = Me.TextBox1.Text

Datum = DateSerial(Year(Datum), Month(Datum), 1)

ActiveWorkbook.Worksheets(1).Columns(1).Find (Datum)

End Sub

 

 

 

 

Link to comment
Share on other sites

Tack!

 

Det var ungefär som jag hade gjort och nu när jag fick bekräftat att jag hade tänkt rätt så kunde jag börja tänka vidare och problemet låg inte där utan när jag försökte göra saker med värdet. Utan dig hade jag fortfarande suttit och försökt hitta felet på fel ställe =)

 

Mattias

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...