cem yılmaz
Altın Üye
- Katılım
- 23 Aralık 2006
- Mesajlar
- 359
- Excel Vers. ve Dili
- Office365 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 20-10-2026
sayfa 2 de olan verilerimi combobox içinde görmek istiyorum.yardım edermisiniz?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dosyanız ekte.Sn evren hocamla bir userform oluşturduk.bu userformda sicil no isimli combobox var almak istediğim veriler ise isimler adında 2.sayfada.
örnek çalışma ektedir.
Çalışma sayfasında bir yeremi eklemek istiyorsunuz?userforma ekledim ama seçtiğim tarihi formda uygun kriterlere uygun hücreye yapıştırmak için ne yapmamız gerek.
Private Sub CommandButton2_Click()
Set S1 = Sheets("Sayfa1")
Set BUL = S1.[B:B].Find(TextBox2)
If Not BUL Is Nothing Then
MsgBox TextBox2 & " MÜHÜR NO DAHA ÖNCEDEN KAYDEDİLMİŞTİR." & Chr(10) & "LÜTFEN KONTROL EDİNİZ !", vbExclamation, "DİKKAT !"
Else
SATIR = S1.[B65536].End(3).Row + 1
S1.Cells(SATIR, 2) = TextBox2
S1.Cells(SATIR, 3) = TextBox3
S1.Cells(SATIR, 4) = TextBox1
S1.Cells(SATIR, 5) = Format(DTPicker1, "dd.mm.yyyy")
S1.Cells(SATIR, 6) = ComboBox1
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
DTPicker1 = Format(Date, "dd.mm.yyyy")
TextBox2.SetFocus
End If
Set S1 = Nothing
Set BUL = Nothing
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub
S1.Cells(SATIR, 5) = Format(DTPicker[B][COLOR="Red"][SIZE="3"]1[/SIZE][/COLOR][/B], "dd.mm.yyyy")
hocam yardımcı olabilecekminiz?Evren hocam hatırlarsanız mühür no verileri önceden kayıtlıydı. bu kodlarda kendisi kaydetmek istiyor
birde kayıttan sonra formu temizleyip tekrar imleci mühür no kısmına geri getirsin(yeni kayıt için)