TextBoxt içerisine parametre sayfasından veri alma?

[Emine Şahin]

Merhaba arkadaşlar.
Userformumda bulunan TextBox'ımın içine otomatik tanımlama yapma istiyorum.
Ama bu verileri excelde bulunan "parametreler" sayfasından almasını istiyorum.
Şayet ben parametreler sayfasından yeni bir tanımlama yaptığımda veya sildiğimde güncelleme de yapmasını istiyorum. Mümkün mü?
Umarım anlatabildim...

 

[Orion1]

Textbox değilde combobox kullanın.
İnitialize (userformda) olayına aşğıdaki kodu ve dediğiniz yerdeki verileri alınız.

Private Sub UserForm_Initialize()
ComboBox1.ShowDropButtonWhen=0

 

[Emine Şahin]

Sayfayı ve sütunları nasıl tanımlamam gerek?
Bunu eklediğimde ComboBoxım TextBox gibi göründü?

 

[Orion1]

A sütunda en son veriye kadar verileri alır(comboboxa")
buyurun.

Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("parametreler").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox1.ShowDropButtonWhen = 0
ComboBox1.RowSource = "parametreler!A1:A" & sat
End Sub

 

[Emine Şahin]

Teşekkür ederim. Harika oldu. Birde bazı TextBox'larım var.
İlk başta tarih için kullandığım:

TextBox1.Value = Format(Date, "dd.mm.yyyy")

Kodlarım var. Bunu nasıl entegre edebilirim?
Ayrıca birden çok ComboBox kullanacağım. Verdiğiniz kodu nasıl çoğaltabilirim?

Çok oldum. Kusura bakmayın.

 

[Emine Şahin]

Kodlarımı aşağıdaki gibi derledim. Bir hatam var mı?
Şu an istediğim gibi çalışıyor.

Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("parametreler").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox2.ShowDropButtonWhen = 0
ComboBox2.RowSource = "parametreler!A2:A" & sat
sat = Sheets("parametreler").Cells(Rows.Count, "C").End(xlUp).Row
ComboBox1.ShowDropButtonWhen = 0
ComboBox1.RowSource = "parametreler!C2:C" & sat
TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

Birde sayın Orion bana neden ComboBox Kullanın dediniz?
Bunun elbette teknik açıdan bir sebebi vardır. Merak ettim.
Bu konuyla alakalı son bir sorum daha olacak. "paremetreler" sayfasından alınanveriler dışında veri girilmesini engellemek istiyorum. Bunu şu anki kod diziminden mi halledebiliriz veyahut kaydet butonunda kullacağım kodlarla mı halledebiliriz?

 

[Orion1]

Kodlarımı aşağıdaki gibi derledim. Bir hatam var mı?
Şu an istediğim gibi çalışıyor.

Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("parametreler").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox2.ShowDropButtonWhen = 0
ComboBox2.RowSource = "parametreler!A2:A" & sat
sat = Sheets("parametreler").Cells(Rows.Count, "C").End(xlUp).Row
ComboBox1.ShowDropButtonWhen = 0
ComboBox1.RowSource = "parametreler!C2:C" & sat
TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

Birde sayın Orion bana neden ComboBox Kullanın dediniz?
Bunun elbette teknik açıdan bir sebebi vardır. Merak ettim.
Bu konuyla alakalı son bir sorum daha olacak. "paremetreler" sayfasından alınanveriler dışında veri girilmesini engellemek istiyorum. Bunu şu anki kod diziminden mi halledebiliriz veyahut kaydet butonunda kullacağım kodlarla mı halledebiliriz?

initialize olayına aşağıdaki koduda giriniz.
Combobox kullanın dedim çünkü bu istediğniz işlemi ancak combobox ile

yapabilirsiniz.:cool:ComboBox1.Style = 2

 

[Emine Şahin]

Aşağıdaki gibi kodu girmeye çalıştım ama hataverdi?

Private Sub UserForm_Initialize()
: cool: ComboBox1.Style = 2
Dim sat As Long
sat = Sheets("parametreler").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox2.ShowDropButtonWhen = 0
ComboBox2.RowSource = "parametreler!A2:A" & sat
sat = Sheets("parametreler").Cells(Rows.Count, "C").End(xlUp).Row
ComboBox1.ShowDropButtonWhen = 0
ComboBox1.RowSource = "parametreler!C2:C" & sat
TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

 

[HASAN40]

" : cool : " bu ifadeyi kaldırın

 

[Orion1]

Aşağıdaki gibi kodu girmeye çalıştım ama hataverdi?

Private Sub UserForm_Initialize()
: cool: ComboBox1.Style = 2
Dim sat As Long
sat = Sheets("parametreler").Cells(Rows.Count, "A").End(xlUp).Row
ComboBox2.ShowDropButtonWhen = 0
ComboBox2.RowSource = "parametreler!A2:A" & sat
sat = Sheets("parametreler").Cells(Rows.Count, "C").End(xlUp).Row
ComboBox1.ShowDropButtonWhen = 0
ComboBox1.RowSource = "parametreler!C2:C" & sat
TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

ilgili satır aşağıdaki gibi olmalı.

ComboBox1.Style = 2

 

[Emine Şahin]

Ne bileyim.
Kodlardan ancak bu kadar anlıyorum.
O sanırım smiley değil mi?

 

[HASAN40]

Evet, Emine hanım.
Size tavsiyem, ben aslında çok anlamam kodlardan ama hazır kodları alıp çalışmaya yapıştırmayı da sevmiyorum. Kodları anlamaya ve küçük küçük kodlar yazmaya başlar ve ilgili makaleler ve yazılar da okursanız kod bilginiz gelişir diye düşünüyorum. Uzmanlarımız daha iyi bilir tabi.
Hayırlı geceler...

 

[Orion1]

Ne bileyim.
Kodlardan ancak bu kadar anlıyorum.
O sanırım smiley değil mi?

evete ifededir o.

 

[Emine Şahin]

Evet, Emine hanım.
Size tavsiyem, ben aslında çok anlamam kodlardan ama hazır kodları alıp çalışmaya yapıştırmayı da sevmiyorum. Kodları anlamaya ve küçük küçük kodlar yazmaya başlar ve ilgili makaleler ve yazılar da okursanız kod bilginiz gelişir diye düşünüyorum. Uzmanlarımız daha iyi bilir tabi.
Hayırlı geceler...

Merhaba Hasan Bey. Tavsiyeniz ve düşünceniz doğrultusunda bir şeyler kavramaya, yaptığımızı anlamaya çalışıyoruz. Ne var ki, öğrenmenin bir metodu olması gerek. Bunu da sosyal durumumuz gereği yapmak mümkün olmuyor.

İlgili makaleler okuyorum. Hepsi düzeyime hitap etmediği için seçici olmak zorunda kalıyorum. Çok fazla alternatif de bulamadığım için anlamakta zorlanıyorum. Ama şu an bulduğum bir sözlük var. Oradaki kelimeleri ve anlamlarını ezber etmeye çalışıyorum. Elbet bir yerlerden başlamak gerek.

Alakanız için teşekkür ederim.

evete ifededir o.

Anladığımda iş işten geçmişti. Biraz da tezcanlıyım. Kusura bakmayın, flood filan. Altını üstüne getiriyorum forumun.