Soru UserForm Problemi

muhammethezer

New member
Üye
#1
Affınıza sığınıyorum, bir önceki mesajım biraz karışık geldi, Düzeltme ihtiyacı duydum.

Örnek1; C4 numaralı hücreyi seçtiğimde, USER Form açılıyor, Form üzerine 05 Ekim 2018 Cuma Saat 10.00 tarihinde yapılan kayıtlar ve bu kayıtların referans numaralarının gelmesini istiyorum.

Örnek2; D9 numaralı hücreyi seçtiğimde, USER Form açılacak ve Form üzerine 06 Ekim 2018 Cumartesi Saat 15.00 tarihinde yapılan kayıtlar ve bu kayıtların referans numaralarının gelmesini istiyorum.
Yardımcı olmanızı rica ediyorum.
 

Ekli dosyalar

muhammethezer

New member
Üye
#3
Bu başka bir soru mu, aynı konuyla ilgili mi?
Hocam bu konuyu halletim. İlginiz için Teşekkür ederim. Sayfada tıkladığınızda açılan USER Form üzerinden Referans numarasına göre kayıtları getirebiliyorum. Ancak, Yapamadığım; Referans numarasından önce ilgili tarihte (C8) hücresine tıkladığımda, O Tarihte hangi mahallelere program yapılmışsa Referans bilgileri ona göre gelsin.


Kayıtlar sayfasında SARI renkli işaretli kısım Mahalle Seçimi ComboBoxta gelmeli. İşte bunu başaramadım.
 

Ekli dosyalar

OrkmesB

Administrator
Yönetici
Admin
#5
Ben taşıdım otomatik olarak. UserForm bir makro sorusudur, o kısma aldım.
Şu an benim müsait durumum yok ne yazık ki ama yine arkadaşlar ya da ben müsait olduğumuzda destek oluruz.

Selamlar
 

metehan8001

Moderator
Yönetici
Moderatör
#7
Hocam bu konuyu halletim. İlginiz için Teşekkür ederim. Sayfada tıkladığınızda açılan USER Form üzerinden Referans numarasına göre kayıtları getirebiliyorum. Ancak, Yapamadığım; Referans numarasından önce ilgili tarihte (C8) hücresine tıkladığımda, O Tarihte hangi mahallelere program yapılmışsa Referans bilgileri ona göre gelsin.
Kayıtlar sayfasında SARI renkli işaretli kısım Mahalle Seçimi ComboBoxta gelmeli. İşte bunu başaramadım.
Tarih kısmında bir hata var. Sarı renkli işaretlediğiniz yerde ki tarih 06.10.2018 14:00, userforumda ki seçilen tarih veya tıklan C8 hücresi tarihi 05.10.2018 görünmekte. Yani açıklamalarınız ile yüklemiş olduğunuz dosyada yapılacak işlemler arasında çelişki var. Bu durumda çalışma açıklamanıza göre mi yapacağız yoksa dosyada verilen örneğe göre mi yapılacak.
 

Erman Sekitmez

Moderator
Yönetici
Moderatör
#8
Muhammet bey, tekrar merhaba.. . Metehan bey' in bahsettiği problemide düzeltip güncellenmiş dosyayı ekliyorum. Önceki mesajınızdaki dosyayıda bununla birlikte düşünürsek ortaya hem görsel hem işlevsel güzel bir planlama programı çıkacak gibi.
 

Ekli dosyalar

metehan8001

Moderator
Yönetici
Moderatör
#9
Referans numarasından önce ilgili tarihte (C8) hücresine tıkladığımda, O Tarihte hangi mahallelere program yapılmışsa Referans bilgileri ona göre gelsin.
@Erman Sekitmez hocam konuyu çözümlemiş. Konu üzerinde kafa yorduğum için buda benden alternatif olsun. Yukarıda alıntı yaptığım açıklamanıza göre yaptım kodları.
Aşağıdaki kodu sayfanızda ki UserForm_Initialize() kod bölümüne yazınız.
Kod:
For i = 2 To k.Cells(Rows.Count, "Q").End(xlUp).Row
trh = Format([g2] & "  " & Format(Cells(ActiveCell.Row, 2), "hh:mm"), "d/m/yy h:mm;@")
trh1 = Format(Cells(i, "q").Value, "d/m/yy h:mm;@")
If trh = trh1 Then
ComboBox2.AddItem Cells(i, "b")
End If
Next i
 
#10
Değerli Hocalarım;
Hücreye tıkladığımda açılan User Form üzerinden Referans Numarası olan bir tarihi seçince aynı User Form üzerinde Frame aktif oluyor. Bu Frame içerisinde TextBoxlar var. Bilgi girişini yapıp kayıt butonuna tıkladığımda seçili Referans satırının sonuna bilgileri kaydeceğine en alt satırda ilgili hücrelere atıyor. Bana bu konuda Yardımcı olabilir misiniz?
 

Ekli dosyalar

#11
Aşaığıdaki kodu ComboBox3 nesnesine yazdım. hata veriyor. Bir de ricam acaba, ComboBox3 de veri varken Label24, Label25, Label26, TextBox18, TextBox19 ve TextBox20 Pasif hale diğer TextBox lar aktif hale gelebilir mi?



Kod:
If ComboBox3 <> "" Then
Satir = Worksheets("Kayıtlar").Range("B65530").End(3).Row
Satir = WorksheetFunction.Match(ComboBox3, Sheets("Kayıtlar").[B:B], 0)
TextBox1 = Sheets("Kayıtlar").Cells(Satir, "C")
TextBox2 = Sheets("Kayıtlar").Cells(Satir, "D")
TextBox3 = Sheets("Kayıtlar").Cells(Satir, "E")
TextBox4 = Sheets("Kayıtlar").Cells(Satir, "F")
TextBox5 = Sheets("Kayıtlar").Cells(Satir, "G")
End If
End Sub
 

Ekli dosyalar

Moderatör tarafında düzenlendi:

metehan8001

Moderator
Yönetici
Moderatör
#12
Kod:
Private Sub ComboBox3_Change()

If ComboBox3 <> "" Then
For Each Nesne In Me.Controls
'If Not ComboBox3 = Nesne.Name Then
Nesne.Enabled = True
'End If
Next
Label24.Enabled = False
Label25.Enabled = False
Label26.Enabled = False
TextBox18.Enabled = False
TextBox19.Enabled = False
TextBox20.Enabled = False
Set Satir = Worksheets("Kayıtlar").Columns(3).Find(ComboBox3.Value)
If Not Satir Is Nothing Then
'    Satir = Worksheets("Kayıtlar").Range("B65530").End(3).Row
    Satir = Satir.Row
    TextBox1 = Sheets("Kayıtlar").Cells(Satir, "C")
    TextBox2 = Sheets("Kayıtlar").Cells(Satir, "D")
    TextBox3 = Sheets("Kayıtlar").Cells(Satir, "E")
    TextBox4 = Sheets("Kayıtlar").Cells(Satir, "F")
    TextBox5 = Sheets("Kayıtlar").Cells(Satir, "G")
        Else
    MsgBox "Kayıtlar sayfasında Mahalle adı bulunamadı"
    End If
    Else
    UserForm_Initialize
    End If
End Sub
 
#13
metehan8001 Hocam, Cevap için teşekkür ederim. Aynı kod bloğunun içerisine ComboBox2 için de kontrol bırakıp, Sayfada Referans bilgisi yoksa
ComboBox2.Enabled = False Bilgi varsa ComboBox2.Enabled = True olayını yapıp ComboBox2 içerisine Referans numaralarını getirebilir myiz?
 
Üst