sayfadan combobox'a veri aktarımı

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?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sn. yilmazcem,

Sorunuzu gayet kısa bir şekilde sormuşsunuz ama bahsettiğiniz combobox nesnesini sayfa üzerindemi yoksa userform üzerindemi kullanacağınızı belirtmemişsiniz. Ayrıca verileriniz hangi satır ve sütundan başlıyor?
 

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

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Son düzenleme:

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
SN.Evren Bey

Günaydın biliyorum dün akşamdan biraz kızgınsınız bana ama ilginize teşekkür ederim.Yaptığınız işlem doğru yalnız sorumda belirtmiştim isimler adlı sayfadan alsın siz ilk açılış sayfasından alsın demişsiniz.Birde Şu dtpicker uygulamasını yükleyemedim bunuda yapabilirmiyiz.ben uğraşıyorum ama iyice bozuluyor rica ediyorum sizden.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyayı düzenledim.
4 nolu mesajdan indirebilirsiniz.
DTPicker nesensini userforma siz koyunuz.Zira Windows'unuzda DTPicker nesnesi yoksa ben koyarsam hata verir.
Sizde yoksa ilgili OCX dosyasını windowsun sytem32 klasörüne kopyalayın ve başlattan regsvr32 dosyası ile çalıştırraark windowsa tanıtınız.:cool:
 

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
eklemeyi yaptım yalnız eski combobox içindeki kodu dtpicker içine yapıştırsam olur mu? yani dtpickerde seçtiğim tarihi eskisi gibi yerine yazarmı?
userformda textboxlar arası enter tuşu ile ilerlemeyi bulamadım forumda bunu nasıl yaparız.
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
ToolBox'a sağ tıklayın.
additionalcontrols'a tıklayın.
Microsoft Date and Time Picker Control 'u bulup seçiniz.
DTPicker nesnesi toolbox'ta gözükecektir.
 

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
userforma ekledim ama seçtiğim tarihi formda uygun kriterlere uygun hücreye yapıştırmak için ne yapmamız gerek.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
4 NO.lu mesajdan dosyayı indirebilirsiniz.:cool:
 

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
Evren hocam çok iyi gidiyoruz wallahi sizin sayenizde büyük bir dertten kurtuluyorum.

usErformdaki tab indeks değerine göre sıralamayıda yaptım tek kalan eksikliği dosyamda belirttim yardımcı olurmusunuz
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,603
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
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
 
Son düzenleme:

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
şöyle bir hata oluşuyor.

mühür numaralarını userform üzerinden girişini yapmıyorum.numaralar zaten sabit.
birde kaydet'e basınca dtpick özelliği çalışmıyor yani tarih ilgili satıra yazmıyor.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
korhan hocamın verdiği kodlarda iligili kodu aşağıdaki ile değiştirip deneyiniz.:cool:
Kod:
S1.Cells(SATIR, 5) = Format(DTPicker[B][COLOR="Red"][SIZE="3"]1[/SIZE][/COLOR][/B], "dd.mm.yyyy")
 

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
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)
 

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
Sn evren hocam biliyorum bu konu sizi sıktı ama son 1-2 aşama kaldı.Lütfen benden bilgilerinizi esirgemeyin.İnanınki ilk ben yapmaya çalışıyorum ama olmuyor.
 

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
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)
hocam yardımcı olabilecekminiz?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
14 nolu mesajdaki korhan hocamın kodları istediğiniz yapmıyormu?
 
Üst