Gün süresine göre tarih belirleme

[ahatbek]

Herkese merhaba,
ekteki çalışmada bir kaç yerde takıldım yardım ederseniz sevinirim.

1- TextBox3'e kod eklediğim halde günün tarihini göstermiyor.
2- Üretim tarihi ile tüketim tarihi arası Label18 deki gün sayısı kadar olacak.
Örneğin:
Üretim Tarihi    : 13.08.2011
Gün sayısı        :  90 (gün)
Tüketim tarihi  :  11.11.2011
3- Arama formunda bir sorun var başka çalışmada düzgün işliyor fakat bu çalışmaya eklediğimde çalışmiyor.
4- Özel kayıt No TextBox de görünmeli.
5-  Etiket No TextBox8 de görünmeli.
Saygılarımla

[Bülent Öztürk]

Merhaba Ahat bey,

1-
Private Sub UserForm_Initialize() 'nin hemen altına şunu ekleyin:

Kod: [Seç]

TextBox3.Value = FormatDateTime(VBA.Now, vbShortDate)
2-
Aşağıdaki kodu şu şekilde değiştirin:

Kod: [Seç]

Private Sub ComboBox1_Change()
On Local Error Resume Next
If ComboBox1.Text <> "" Then
    Label18.Caption = ComboBox1.List(ComboBox1.ListIndex, 1)
    Label19.Caption = "Gün tüketim süreniz var"
    TextBox9.Value = DateAdd("d", CInt(Label18.Caption), DTPicker1.Value)
Else
    Label18.Caption = ""
    Label19.Caption = ""
End If
End Sub
3-
Ne sorunu var, örnek verebilir misiniz?

4-
Ne zaman görünmeli, nereden gelmeli?

5-
Ne zaman görünmeli, nereden gelmeli?

[ahatbek]

Çok teşekkür ederim elinize sağlık,

Sorun 3- Form1 de arama button ekledim ve form3'ü normalde açtım fakat kod ekledikten sonra UserForm3.show da hata vererk form3'ü açmiyor, ben çalışma sayfasına button ekleyerek form3' açtım bu sefer Form çalışmiyor oysa aynı kodlarla başka bir çalışma kitabında düzgün çalışıyor.

Sorun 4- TextBox2 ye "özel_kayıt_No" sayfasından o anki kayıt numarasını yansıtılmalı.

Sorun 5- TextBox8 e "Etiket_No" sayfasından o anki Etiket numarasını yansıtılmalı.

Bu arada Form1 deki ListBox1'i Listview ile değiştirmek mümkünmü veya ListBox'a sütun başlıklarını göstere bilirmiyiz.

Saygıla.

[Bülent Öztürk]

3-
Form1'de düğme göremedim, kendim ekleyip denedim, sorun çıkmadı.
Sizde hangi satırda ve ne hatası verdi?

4. ve 5. sorunuzu yine anlamadım? Hangi aşamada o numaralar yansıtılacak? Form açılışında mı, kaydederken mi, başka bir aşamada mı?

Bu arada Form1 deki ListBox1'i Listview ile değiştirmek mümkünmü veya ListBox'a sütun başlıklarını gösterebilir miyiz?

ListBox1.RowSource = "Sayfa2!A1:M" & Sheets("Sayfa2").Range("A65536").End(xlUp).Row

Yukarıdaki komut satırında; kırmızı yazılı 1 şekline dönüştürün.

Listview de olur ama şu anki programınızda listbox zaten ihtiyacınızı karşılıyor görünüyor.