Excel combobox yardım

ShifazDark' Alıntı:

bu tam oalrak ne işe yarıyor?

Genişletmek için tıklayın ...

karakrall01' Alıntı:

Araç markalarını yan yana değil alt altta yaz, diğerlerinide o şekilde yap ve Sonrasında;


Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a1:a" & Range("a65000").End(xlUp).Row
End Sub

Private Sub ComboBox1_Change()
Dim a As Integer, i As Long
With Sheets("sayfa1")
a = .Range("a1:a" & .Range("a65536").End(3).Row).Find(ComboBox1.Value, , , 1).Row
ComboBox2.Clear
For i = 2 To .Range("ıv" & a).End(1).Column
ComboBox2.AddItem .Cells(a, i).Value
Next i
End With
a = Empty: i = Empty
End Sub


Örnek olarak kullanabilirsin ama dediğim gibi sıralamalarını yan yana değil de alt altta yapsan daha kolaylık olur senin için.

Genişletmek için tıklayın ...

Aphenon' Alıntı:

dostum proje verdi hoca

Post automatically merged: 12 Mar 2022

dostum araç markaları alt alta yazdım fakat modeller çok fazla nasıl hangisinin hangisi olduğunu seçicek

Genişletmek için tıklayın ...

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a2:a" & Range("a65000").End(xlUp).Row
End Sub
Private Sub ComboBox1_Change()
Dim a As String
a = ComboBox1.Text
If a = "SEAT" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!b2:b" & Range("b65000").End(xlUp).Row
End If
If a = "FORD" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!c2:c" & Range("c65000").End(xlUp).Row
End If
If a = "BMW" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!d2:d" & Range("d65000").End(xlUp).Row
End If
If a = "RENAUT" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!e2:e" & Range("e65000").End(xlUp).Row
End If
End Sub

karakrall01' Alıntı:

dostum senin istediğin tam olarak bu oluyor;

Kod:

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a2:a" & Range("a65000").End(xlUp).Row
End Sub
Private Sub ComboBox1_Change()
Dim a As String
a = ComboBox1.Text
If a = "SEAT" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!b2:b" & Range("b65000").End(xlUp).Row
End If
If a = "FORD" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!c2:c" & Range("c65000").End(xlUp).Row
End If
If a = "BMW" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!d2:d" & Range("d65000").End(xlUp).Row
End If
If a = "RENAUT" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!e2:e" & Range("e65000").End(xlUp).Row
End If
End Sub

Bağlantıları görmek için lütfen Giriş Yap

bu resime bakarak oluştur excelini, üste verdiğim kod ile istediğini elde ediceksin.
Not: arabalardan hiç anlamam markalarına gülme salladım hep

Genişletmek için tıklayın ...

ComboBox1.RowSource = "sayfa1!a2:a" & Range("a65000").End(xlUp).Row

Dim a As String
a = ComboBox1.Text

If a = "FORD" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!c2:c" & Range("c65000").End(xlUp).Row
End If

karakrall01' Alıntı:

dostum senin istediğin tam olarak bu oluyor;

Kod:

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a2:a" & Range("a65000").End(xlUp).Row
End Sub
Private Sub ComboBox1_Change()
Dim a As String
a = ComboBox1.Text
If a = "SEAT" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!b2:b" & Range("b65000").End(xlUp).Row
End If
If a = "FORD" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!c2:c" & Range("c65000").End(xlUp).Row
End If
If a = "BMW" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!d2:d" & Range("d65000").End(xlUp).Row
End If
If a = "RENAUT" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!e2:e" & Range("e65000").End(xlUp).Row
End If
End Sub

Bağlantıları görmek için lütfen Giriş Yap

bu resime bakarak oluştur excelini, üste verdiğim kod ile istediğini elde ediceksin.
Not: arabalardan hiç anlamam markalarına gülme salladım hep

Post automatically merged: 13 Mar 2022

Ayrıca
mantığını açıklamak gerekirse eğer ödev amaçlı olduğu için açıklayayım mantığını;

Kod:

ComboBox1.RowSource = "sayfa1!a2:a" & Range("a65000").End(xlUp).Row

Burası a sutununda 1. Hücreden başlayarak 65.000 hücresine kadar combobox1 item kısmına olan verileri ekliyor.

Kod:

Dim a As String
a = ComboBox1.Text

“a” isminde bir değişken tanımlıyoruz ve “a” değişkenine combobox1.text(yani seçilen yazı) atıyoruz.

Kod:

If a = "FORD" Then
ComboBox2.Text = ""
ComboBox2.RowSource = "sayfa1!c2:c" & Range("c65000").End(xlUp).Row
End If

Direk şunu demek istedik “eğer “a” değişkenimizde “FORD” verisi seçili ise, Combobox2.text’in içini temizle ve combobox2 nin item kısmına c sutununun 2. Hücresinden başlayarak 65000 hücresine kadar dolu olan hücreler deki veriler aktar dedik ve bu şekilde diğer markalarında verilerini uyarlayarak combobox itemimize çektirdik mantığı bu dostum.

Genişletmek için tıklayın ...

Aphenon' Alıntı:

Dostum çok teşekkür ediyorum. bir sorum daha var markaları ve modelleri seçtik. 2form üzerinde label'a atamasını istiyorum ve ona görede seçilen marka modele göre yıl getirmek istiyorum. Yani 1.form da marka olarak bmw seçti model olarak da 520 ilerle dedikten sonra 2.form üzerinde label da bmw 520 yazıcak ve comboxtan da araç yılı seçilecek bunu nasıl yapabilirim. sanırım excel üzerinde her marka modele göre yıl girmem ve bunu çekmem lazım

Genişletmek için tıklayın ...

Aphenon' Alıntı:

Dostum çok teşekkür ediyorum. bir sorum daha var markaları ve modelleri seçtik. 2form üzerinde label'a atamasını istiyorum ve ona görede seçilen marka modele göre yıl getirmek istiyorum. Yani 1.form da marka olarak bmw seçti model olarak da 520 ilerle dedikten sonra 2.form üzerinde label da bmw 520 yazıcak ve comboxtan da araç yılı seçilecek bunu nasıl yapabilirim. sanırım excel üzerinde her marka modele göre yıl girmem ve bunu çekmem lazım

Genişletmek için tıklayın ...

Private Sub CommandButton1_Click()
UserForm2.Label1.Caption = ComboBox1.Text & " " & ComboBox2.Text
UserForm2.Show
End Sub

Private Sub ComboBox1_Change()
UserForm2.Label2.Caption = UserForm2.Label1.Caption & " " & UserForm2.ComboBox1.Text & " Yılına Ait Araç"
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!e2:e" & Range("e65000").End(xlUp).Row
End Sub

karakrall01' Alıntı:

Userform1’ de combobox1 ve Combobox ta istediklerini seçtikten sonra ileri isimli butona tıklayıp userform2 geçmek istiyorsun, burada 1 labele userform1 den seçtiğin marka ve model aracın gelmesini istiyorsun ve bu labele göre tekrardan araç ile ilgili yıl mı seçmek istiyorsun? Doğru mu anladım?

Post automatically merged: 13 Mar 2022

Genişletmek için tıklayın ...

karakrall01' Alıntı:

Userform1’ de combobox1 ve Combobox ta istediklerini seçtikten sonra ileri isimli butona tıklayıp userform2 geçmek istiyorsun, burada 1 labele userform1 den seçtiğin marka ve model aracın gelmesini istiyorsun ve bu labele göre tekrardan araç ile ilgili yıl mı seçmek istiyorsun? Doğru mu anladım?

Post automatically merged: 13 Mar 2022

UserForm1 'e bir buton ekle ve içerisine

Kod:

Private Sub CommandButton1_Click()
UserForm2.Label1.Caption = ComboBox1.Text & " " & ComboBox2.Text
UserForm2.Show
End Sub

Userform2 yi oluştur ve içerisine 2 adet label 1 adet combobox ekle ve kod bölümüne direk şunu yaz

Kod:

Private Sub ComboBox1_Change()
UserForm2.Label2.Caption = UserForm2.Label1.Caption & " " & UserForm2.ComboBox1.Text & " Yılına Ait Araç"
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!e2:e" & Range("e65000").End(xlUp).Row
End Sub

bu kodlar işini görecektir. Önce ki sorduğun ile birleştir bunları işini görür.
yıl konusuna gelirsek eğer; ister sayfadan çek ister item olarak combobox içerisinde ekleme yaparak kullan sana kalmış artık. Ben sayfadan çektim "e" sutununa 1990-2022 yılları arasını ekledim ve bu şekilde çektirdim

Genişletmek için tıklayın ...

Aphenon' Alıntı:

Evet dostum form 1 de seçtigim marka modeli form2 de label a aktarmak istiyorum kod icin teşekkürler. Lakin yıl mevzusunu halledemedim direk kendim combox a yazsam seçtiğim araca göre yıl gelmeyecek excele girsem ordan çeksem zaten marka model var bir de araya nasıl yılları ekleyeceğim onu çözemedim

Genişletmek için tıklayın ...

karakrall01' Alıntı:

Kusura bakma çok geç cevap verdim çok işim vardı;
Bence hiç o şekilde uğraşma kayıt formu oluştur ordan tek tek kayıt gerçekleştir yaptığın kayıtta marka model yıl seçenekleri koy onları kayıt ettir sonrasında listbox aracılığı ile göster ordan seçme yaparak istediğin araca ulaş. Ama sende ki en büyük eksikliği söylüyeyim tam olarak ne istediğini kesinleştirmemişsin. Önce istediğin şeyib tasarımını tamamla sonrasında arka plan çalışmasına yönel diğer türlü durmadan yaptığın şeyler değişecek

Genişletmek için tıklayın ...

Aphenon' Alıntı:

Çok teşekkür ederim dostum. çok güzel özetlemişsin ben tam olarak ne istediğime ne yapacağıma karar veremedim ilk önce bunu kesinleştirmem lazım

Genişletmek için tıklayın ...