Pop-up messages sto Excel me macros

[marios07]

Palikaria tou Insomnia,

 

Gia alli mia fora epikalume tin gnosi ekinon pou gnorizoun pos na programmatizoune VBA mesa sto Excel.

 

Thelo na dimiourgiso ena pop-up message mesa sto Excel to opio tha petagete molis kapios anoigei to arxio.

 

To message thelo na leei "Give me Calendar week number" kai na exei xoro gia na pliktrologisei kapios ton arithmo.

 

Apo kato na exei dio koumpia. Koumpi "OK" pou molis to patisei kapios o arithmos pou pliktrologisame na pigenei kai na mpainei sto sheet 2 tou arxiou sto keli B3.(proeretiko an kserei na to kanei kaneis inai an ginete emeis na dilonoume enan arithmo alla na pigenei kai na mpenei sto keli " space space space space CW arithmos" koinos 4 kena+CW+keno+arithmos)

 

Kai koumpi CANCEL pou molis kapios to patisei, na kleinei telios to arxio tou excell xoris na kanei save tis changes. Ton kodika gia to cancel koumpi mporo na ton kano xoris provlima. O ipolipos kodikas inai ligo po****a gia na ton kano.

 

Plz voithiste kapios an gnorizete

 

Marios

[gv]

a = InputBox("Give me Calendar week number")

Worksheets("sheet2").Cells(3, 2) = a

 

ton parapano kodika kanton epikollisi sto workbook.open

 

'

den kanei ola ayta pou 9es alla pistevo 9a se ikanopoiisei ...