• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

koşula göre seçim yapma

A

alimutlu2308

Katılım
22 Kasım 2007
Mesajlar
90
Excel Vers. ve Dili
excel 2003
Sayın hocalarım merhaba

Burada yapmak istediğim koşullara göre bilgilerin userformdaki ilgili alanlara getirilmesi. Sırası ile anlatmak gerekirse

1- C sütunundaki bilgileri ComboBox1'e getirmesi
2- D sütunundaki bilgileri ComboBox2'ye getirmesi
3- E Sütunundaki bilgileride 1 ve 2 ComboBox'taki bilgilere
göre TextBox1 getirmesi. Örneğin şube olarak İzmir, Kullanım yeri
olarakta PazarlamaAraca1 seçseydik TextBox1 plakanın 34 AB 124 getirilmesi gerekecekti. TextBox1'ede manuel girişe kapalı olması lazım. Bilgileri sadece tablodan çekmesi lazım. Teşekkürler.
 

Ekli dosyalar

alimutlu2308' Alıntı:
Sayın hocalarım merhaba

Burada yapmak istediğim koşullara göre bilgilerin userformdaki ilgili alanlara getirilmesi. Sırası ile anlatmak gerekirse

1- C sütunundaki bilgileri ComboBox1'e getirmesi
2- D sütunundaki bilgileri ComboBox2'ye getirmesi
3- E Sütunundaki bilgileride 1 ve 2 ComboBox'taki bilgilere
göre TextBox1 getirmesi. Örneğin şube olarak İzmir, Kullanım yeri
olarakta PazarlamaAraca1 seçseydik TextBox1 plakanın 34 AB 124 getirilmesi gerekecekti. TextBox1'ede manuel girişe kapalı olması lazım. Bilgileri sadece tablodan çekmesi lazım. Teşekkürler.
Genişletmek için tıkla ...

Ekteki dosyayı incelermisiniz.
 
Son düzenleme:
Sayın hocam ilginiz için çok teşekkür ederim. Tablada örnek denediğimde
Şube seçimi yaptığımda kullanım yeri kısmı düzgün gelmiyor. Burada şöyle yapılabilirmi acama ComboBox2'nin veri tabanını başka bir sütunda yapsak örneğin F sütununda yapsak aramayı o şekilde yapsa olurmu acaba. Birde hocam TextBox1 elle müdahale edilmesini istemiyorum verileri tablodan getirmesini istiyorum bu engellenebiliyormu acaba
 

Ekli dosyalar

alimutlu2308' Alıntı:
Sayın hocam ilginiz için çok teşekkür ederim. Tablada örnek denediğimde
Şube seçimi yaptığımda kullanım yeri kısmı düzgün gelmiyor. Burada şöyle yapılabilirmi acama ComboBox2'nin veri tabanını başka bir sütunda yapsak örneğin F sütununda yapsak aramayı o şekilde yapsa olurmu acaba. Birde hocam TextBox1 elle müdahale edilmesini istemiyorum verileri tablodan getirmesini istiyorum bu engellenebiliyormu acaba
Genişletmek için tıkla ...

F stununa gerek yok hatayı duzeltiim dosyayı tekrar inceleyin.
 

Ekli dosyalar

Hocam teşekkür ederim. Yanlız PazarlamaAracı2 ComboBox2'de hiç çıkmıyor.
 
Tamam hocam nereden kaynaklandığını buldum. Yardımlarınız için tekrar teşekkür ederim.
 
alimutlu2308' Alıntı:
Hocam teşekkür ederim. Yanlız PazarlamaAracı2 ComboBox2'de hiç çıkmıyor.
Genişletmek için tıkla ...

:)) kod aşağıdaki ile değiştirirmisin +2 yi iki kere kullanmışım:)

Kod: 
Private Sub ComboBox1_Change()
ComboBox2.Clear
TextBox1.Value = ""
Sheets("Sheet1").Select
Range("C:C").Select
a = Selection.Find(What:=ComboBox1, LookAt:=xlWhole).Row
With ComboBox2
    .AddItem Cells(a + 1, "D").Value
    .AddItem Cells(a + 2, "D").Value
    .AddItem Cells(a + 3, "D").Value
End With

End Sub
 
Sayın hocam bu çalışmayı sizinle daha önce yapmış olduğumuz hizmet aracı giderleri tablosuna uyarlamaya çalıştım. Fakat elime yüzüme bulaştırdım. Kayıt silme ile ilgili hata veriyor ve bu hatayı bir türlü çözemedim. Aslında hatayı neden verdiğini biliyorum ama çözüm üretemiyorum. Hatanın sebebi silmek istediğimiz girişi listbox'tan seçitiğimizde daha önce combobox ve textboxlar düzgün şekilde yükleniyordu sil dediğimizdede siliniyordu. Ama ben bu güncellemeyi yapınca Listboxtan seçim yaptığımızda combobox ve textboxlara veriler düzgün şekilde yüklenmiyor. Düzgün şekildede yüklenmeyincede hata silmede hata veriyor yata hatalı silme olabilir.
 

Ekli dosyalar

Hocam sorunun kaynağı aşağıdaki kod'larda bu kodlar çalıştığında listbox'taki bilgiler userform'a düzgün şekilde aktarılmıyor. Seçtiğimiz satırdaki bilgiler yerine başlıklarını aktarıyor. Bazı satırlarıdada düzgün aktarıyor. Bundan dolayıda silmede sorun yaşıyorum. Teşekkürlar

Private Sub ComboBox3_Change()
Sheets("VeriTabani").Select
Range("S:S").Select
c = Selection.Find(What:=ComboBox1, LookAt:=xlWhole).Row
If ComboBox3.Value = Cells(c + 1, "T").Value Then
TextBox6.Value = Cells(c + 1, "U").Value
ElseIf ComboBox3.Value = Cells(a + 2, "T").Value Then
TextBox6.Value = Cells(c + 2, "U").Value
ElseIf ComboBox3.Value = Cells(a + 3, "T").Value Then
TextBox6.Value = Cells(c + 3, "U").Value
End If
End Sub
 
Aslında bir önceki yazdığım kodlarda sorun yok. Ama o kodlarıda aktif hale getirincede listboxtan seçtiğim bilgiler Userform'a düzgün şekilde aktarılmıyor. Bazı yerlere o bölümün başlığı aktarılıyor. Ama o kod bölümünü pasif hale getirince düzgün aktarılıyor.
 
alimutlu2308' Alıntı:
Aslında bir önceki yazdığım kodlarda sorun yok. Ama o kodlarıda aktif hale getirincede listboxtan seçtiğim bilgiler Userform'a düzgün şekilde aktarılmıyor. Bazı yerlere o bölümün başlığı aktarılıyor. Ama o kod bölümünü pasif hale getirince düzgün aktarılıyor.
Genişletmek için tıkla ...

Private Sub ComboBox1_Change()
ComboBox3.Clear
TextBox6.Value = ""
Sheets("VeriTabani").Select
Range("S:S").Select
c = Selection.Find(What:=ComboBox1, LookAt:=xlWhole).Row
With ComboBox3
.AddItem Cells(c + 1, "T").Value
.AddItem Cells(c + 2, "T").Value
.AddItem Cells(c + 3, "T").Value
.AddItem Cells(c + 4, "T").Value
.AddItem Cells(c + 5, "T").Value
.AddItem Cells(c + 6, "T").Value
End With
End Sub

Private Sub ComboBox3_Change()
Sheets("VeriTabani").Select
Range("S:S").Select
c = Selection.Find(What:=ComboBox1, LookAt:=xlWhole).Row
If ComboBox3.Value = Cells(c + 1, "T").Value Then
TextBox6.Value = Cells(c + 1, "U").Value
ElseIf ComboBox3.Value = Cells(a + 2, "T").Value Then
TextBox6.Value = Cells(c + 2, "U").Value
ElseIf ComboBox3.Value = Cells(a + 3, "T").Value Then
TextBox6.Value = Cells(c + 3, "U").Value
End If
End Sub


Yukardaki komutlarda tam olarak ne yapmak isteniyor anlayamadım.. detaylı bir anlatım yapabilirmisiniz istediğiniz işlemin
 
Aslında benim yapmak istediğim eski tablomun üzerine plaka kısmını eklemek. Daha önce plaka eklemeyi atlamışım. Burada kullanım yeri seçildiğinde plakanın otomatik gelmesini isitiyordum. Sizin yazmış olduğunuz kodları burada güncelledim ve kullanım yeri seçildiğinde palaka otomatik gelmeye başladı fakat bu seferde kayıt silme işlemi ile ilgili sorun çıktı. Silme işlemini listboxtan silinecek kaydı seçim yapıp sil tuşuna basarak yapıyordum. Fakat yeni güncelleme ile sorun oluştu. listboxtan silmek istediğimiz kısmı seçtiğimiz zaman ComboBox ve Textbox'lara bilgiler düzgün olarak yüklenmiyor. Bazen satırın başlığını yüklüyor ve bu seferde silmede hata oluşuyor. Tam olarak ifade edemediysem lütfen kusuruma bakmayın. Teşekkürler
 
Kod: 
Private Sub ComboBox1_Change()
TextBox6.Value = ""
Sheets("VeriTabani").Select
For i = 2 To Range("S65536").End(3).Row
Set ara = Range(Cells(i, 19), Cells(i, 19)).Find(ComboBox1)
If ara Is Nothing Then
Else
With ComboBox3
    .Clear
    .AddItem Cells(i + 1, "T").Value
    .AddItem Cells(i + 2, "T").Value
    .AddItem Cells(i + 3, "T").Value
    .AddItem Cells(i + 4, "T").Value
    .AddItem Cells(i + 5, "T").Value
    .AddItem Cells(i + 6, "T").Value
End With
End If
Next
End Sub
Kod: 
Private Sub ComboBox3_Change()
Sheets("VeriTabani").Select

For i = 2 To Range("S65536").End(3).Row
Set ara = Range(Cells(i, 19), Cells(i, 19)).Find(ComboBox1)
If ara Is Nothing Then
Else
If ComboBox3.Value = Cells(i + 1, "T").Value Then
TextBox6.Value = Cells(i + 1, "U").Value
ElseIf ComboBox3.Value = Cells(i + 2, "T").Value Then
TextBox6.Value = Cells(i + 2, "U").Value
ElseIf ComboBox3.Value = Cells(i + 3, "T").Value Then
TextBox6.Value = Cells(i + 3, "U").Value
Else
TextBox6.Value = ""
End If
End If
Next
End Sub

Private Sub ComboBox1_Change() ve Private Sub ComboBox3_Change()

eskilerini silip yukarıdaki kodları kullanıp denermisiniz sanırım sorunu ortadan kaldıracaklar.
 
Hocam küçük bir sorun daha var sanırım. İzmir şb seçtiğimde İzmir Pınarbaşı şubenin plakaları ekrana geliyor. Birde hocam aşağıdaki kodlara gerek varmı acaba sadece ComboBox3_Change kodları yazdığımda yeterli geliyor.

Kod: 
Private Sub ComboBox1_Change()
TextBox6.Value = ""
Sheets("VeriTabani").Select
For i = 2 To Range("S65536").End(3).Row
Set ara = Range(Cells(i, 19), Cells(i, 19)).Find(ComboBox1)
If ara Is Nothing Then
Else
With ComboBox3
    .Clear
    .AddItem Cells(i + 1, "T").Value
    .AddItem Cells(i + 2, "T").Value
    .AddItem Cells(i + 3, "T").Value
    .AddItem Cells(i + 4, "T").Value
    .AddItem Cells(i + 5, "T").Value
    .AddItem Cells(i + 6, "T").Value
End With
End If
Next
End Sub
 
Sorun yaratmıyorsa problem yoktur:) değiştirme yapma değiştirirsen ondada izmir seçtiğin zaman izmir pınarbaşını getirir..

combobox3 için ektekini kopyalarsan izmir seçince izmiri alıcaktır.

Kod: 
Private Sub ComboBox3_Change()
Sheets("VeriTabani").Select

For i = 2 To Range("S65536").End(3).Row
Set ara = Range(Cells(i, 19), Cells(i, 19)).Find(ComboBox1)
If ara Is Nothing Then
ElseIf ComboBox1.Value = Cells(i, 19).Value Then
If ComboBox3.Value = Cells(i + 1, "T").Value Then
TextBox6.Value = Cells(i + 1, "U").Value
ElseIf ComboBox3.Value = Cells(i + 2, "T").Value Then
TextBox6.Value = Cells(i + 2, "U").Value
ElseIf ComboBox3.Value = Cells(i + 3, "T").Value Then
TextBox6.Value = Cells(i + 3, "U").Value
Else
TextBox6.Value = ""
End If
End If
Next
End Sub
 
Hüseyin hocam eline sağlık çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst