Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: Gün süresine göre tarih belirleme  (Okunma sayısı 5668 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ahatbek

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ahat BEK
  • Doğum Yılınız: 1964
  • İl / İlçe: Ankara
  • İşletim Sisteminiz: win7
  • Mesleğiniz: Serbest
  • Office Versiyonunuz: 2003
Gün süresine göre tarih belirleme
« : 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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Gün süresine göre tarih belirleme
« Yanıtla #1 : 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?
« Son Düzenleme: 13 Ağustos 2011, 16:48:15 Gönderen: Bülent Öztürk »
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı ahatbek

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ahat BEK
  • Doğum Yılınız: 1964
  • İl / İlçe: Ankara
  • İşletim Sisteminiz: win7
  • Mesleğiniz: Serbest
  • Office Versiyonunuz: 2003
Ynt: Gün süresine göre tarih belirleme
« Yanıtla #2 : 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.
« Son Düzenleme: 14 Ağustos 2011, 00:25:23 Gönderen: ahatbek »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Gün süresine göre tarih belirleme
« Yanıtla #3 : 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.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)