Label üzerinde ilk ve son kayıt tarihi

[noxious]

CommandButtona tıkladığımızda açılan UserForm üzerinde Label3 "I" sütununda bulunan ilk tarihi
Label4 ise "I" sütununda bulunan son tarihi gösterecek ve sayfa içerisinde eklemeler yapılıp UserForm her açıldığında kendisini güncelleyecek
veya şöylede olabilir görüntüleme ListBox1 üzerinde olduğu için ListBox1 üzerindeki İlk ve Son kayıt tarihinide alabilir

sıralama işlemi B sütunundan başladığı için sayfa içerisinde kayıt tarihleri karışık bulunmakta


Ekli Dosya 7. mesaja taşınmıştır.

 

[isfa5878]

merhaba..
eğer sıralama hep aynı kalacaksa dosya ekte..

 

[noxious]

sayın isfa5878 aynı kodları bende kullandım ama bu kodlarla I sütununda bulunan ilk ve son veriyi alıyoruz. Benim almak istediğim sütun içerisinde değişik satırlarda bulunan ilk tarih ile son tarihi almak I2 10.01.2007 ile başlayıp I7 01.01.2007 de olabilir yani sütun içerisinde tarih sıralaması yok, sütunun içerisinde ilk ve son tarih aranarak Label içerisine yerleşecek

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
Dim adrs As String
Sheets("Sayfa1").Select
adrs = Range(Cells(2, "I"), Cells(Cells(65536, "I").End(xlUp).Row, "I")).Address
Label3.Caption = CDate(WorksheetFunction.Min(Range(adrs)))
Label4.Caption = CDate(WorksheetFunction.Max(Range(adrs)))
End Sub

 

[Mahmut Kök]

Sayın Orion da cevap vermiş, sonradan fark ettim...

Aşağıdaki kodu, formunuzun kod bölümüne ekleyip deneyebilirsiniz.

Private Sub UserForm_Initialize()
sat = [I65536].End(3).Row
son = WorksheetFunction.Max(Range("I2:I" & sat))
ilk = WorksheetFunction.Min(Range("I2:I" & sat))
UserForm1.Label3 = Format(ilk, "dd.mm.yyyy")
UserForm1.Label4 = Format(son, "dd.mm.yyyy")
End Sub

 

[noxious]

Sayın Orion2 ve Mesleki ikinizin de gönderdiği kodlar ile sorunum çözüldü çok teşekkürler

 

[noxious]

Sayın Hocalarım Label üzerine ilk ve son tarihi getirmeyi öğrendik peki UserForm'da bulunan Takvimlerin işaretlemesini ilk tarih ve son tarih olarak ayarlamak mümkünmü

Örnek üzerindeki tarih 15 Ağutos 2007 ye ayarlı. Biz veri girişi yaptıkça takvim ilk ve son tarih olarak kendini düzenleyebilirmi

 

[Orion1]

Sayın Hocalarım Label üzerine ilk ve son tarihi getirmeyi öğrendik peki UserForm'da bulunan Takvimlerin işaretlemesini ilk tarih ve son tarih olarak ayarlamak mümkünmü

Örnek üzerindeki tarih 15 Ağutos 2007 ye ayarlı. Biz veri girişi yaptıkça takvim ilk ve son tarih olarak kendini düzenleyebilirmi

Örnek üzerindeki tarih diyorsunuz .Böyle bir tarih göremedim.Birde Userformda bulunan tarihlerin diyorsunuz. Fakat userformda Calendar1 nesnesi yok.Veya tarih gösteren bir nesne yok.

 

[noxious]

Hocam son mesajıma taşımıştım düzenlediğimi 7. mesajdaki ekte label değişken.xls isimli

 

[Orion1]

Hocam son mesajıma taşımıştım düzenlediğimi 7. mesajdaki ekte label değişken.xls isimli

Bende zaten 7nci mesajda eklediğiniz dosyadan bahsediyorum.

 

[Levent Menteşoğlu]

Userformdaki kodlarınıza aşağıdaki iki satırıda ilave edin.

Calendar1 = CDate(WorksheetFunction.Min(Range(adrs)))
Calendar2 = CDate(WorksheetFunction.Max(Range(adrs)))

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
Dim adrs As String
Sheets("Sayfa1").Select
adrs = Range(Cells(2, "I"), Cells(Cells(65536, "I").End(xlUp).Row, "I")).Address
Label3.Caption = Format(CDate(WorksheetFunction.Min(Range(adrs))), "dd.mm.yyyy")
Label4.Caption = Format(CDate(WorksheetFunction.Max(Range(adrs))), "dd.mm.yyyy")
Calendar1.Value = CDate(Label3.Caption)
Calendar2.Value = CDate(Label4.Caption)
End Sub

 

[noxious]

Sayın Leventm ve Sayın Orion2
Hocalarım sağolun ikinizinde gönderdiği kodlar ile işimi çözdüm. Tekrar teşekkürler