açık kodlu plan

[saltan]

tekstil işiyle uğraşanlar bilirler üretim öncesi planda öteleme zahmetli bir iş bu yüzden 4 gündür macro ile basitleştirmek için uğraşıyorum

ötelemede ve tarihle ilgili takıldığım bazı yerler var excelin içinde açıklama'ya yazdım bana yardımcı olursanız sevinirim

not: öteleme bütün textboxlar için geçerli ama bana birisini söyleseniz bile yeter

...bu arada bu macroyu office97de kullanacaklar...

 

[Levent Menteşoğlu]

Textboxtaki tarih formatını ayarlamak için ilgili satırı aşağıdaki gibi düzenleyin.

.Cells(siralama, 6).Value = Format(TextBox6.Value, "dd.mmm")

Tarih çıkartma ve toplama işlemlerini aşağıdaki gibi yapabilirsiniz. Örneğin tarihler textbox1 ve 2 de olsun.

fark=clng(cdate(textbox1))*1-clng(cdate(textbox2))*1

Diğer sorunuzu anlayamadım.

 

[saltan]

formatlar uyuşmuyor

gönderdiğin mesajda cdate komutu gerçektende çok işe yaradı ve buna göre yeniledim

format komutunuda ekledim ama menüye girdikten sonra bilgileri girip tamam diyorum format komutunda hata veriyor çözemedim office97den kaynaklı olabilirmi bu?

 

[Levent Menteşoğlu]

Açıkçası bu basit bir komut hata vermesi tuhaf, belki 97 bu komutu desteklemiyordur bilemiyorum. Daha üst versiyonlarda deneme şansınız varsa onda denemenizi öneririm.

 

[saltan]

çok sağol

tarih formatını düzeltemiyordum forumda aramayıda yeni kavradım
gene sizin verdiğiniz cevapla sorunu çözdüm


ben textbox'dan excel hücresine bu şekilde aktarıyordum
.Cells(siralama, 6).Value = Format(TextBox6.Value, "dd.mmm")

sonra bu adresi gördüm
http://www.excel.web.tr/showthread.php?t=19530&highlight=tarih+format%FD

ve bu adrese göre düzenledim

.Cells(siralama, 5).Value = CLng(CDate(TextBox6))

çok sağol

 

[saltan]

for next döngüsü

for next döngüsüyle

combobox,textbox, yada label'leri sıraya sokarak nasıl bilgi aktarabilirim ?

elimde....
combobox1
combobox2
combobox3
combobox4
....nesneleri var

for i = 1 to 4
combobox(i).value = worksheets(1).cells(i,1).value
next i

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

for i = 1 to 4
controls("combobox" & i) = worksheets(1).cells(i,1).value
next i