Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: ahatbek - 13 Ağustos 2011, 16:13:19

Başlık: Gün süresine göre tarih belirleme
Gönderen: ahatbek - 13 Ağustos 2011, 16:13:19

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

Başlık: Ynt: Gün süresine göre tarih belirleme
Gönderen: Bülent Öztürk - 13 Ağustos 2011, 16:45:19

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?

Başlık: Ynt: Gün süresine göre tarih belirleme
Gönderen: ahatbek - 14 Ağustos 2011, 00:16:24

Ç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.

Başlık: Ynt: Gün süresine göre tarih belirleme
Gönderen: Bülent Öztürk - 14 Ağustos 2011, 06:16:03

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ı?

Alıntı

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.