Combobox lardan seçilen veriye göre işlem yapma

[sakaryavedat]

Arkadaşlar hepinize merhaba.
Problemi dosyada açıkladım lütfen acilen yardıma ihtiyacım var.

 

[sakaryavedat]

SURU?

Arkadaşlar bir yerde bir hatamı var acaba....

Neden cevap gelmiyor bu konuda.

 

[sakaryavedat]

Tekrar merhaba arkadaşlar....

Problemi kendi kanaatimce yeteri kadar açıklayabildiğimi düşünüyorum, Lütfen okuyup anlayamadıysanız anlaşılmayan yerini sorunuz.

Ben yinede bir açıklma daha yapayım.

Bildiğiniz üzre excel de düşeyara diye bir foksiyon var. Ne yapıyoruz aranacak bir hücre bilgisi seçiyoruz, ardından nerede arayacağımızı seçiyoruz, sonrada bulduğumuzu nereye ne yazacağımızı yazıyoruz. Benim istediğim kod da buna benzer bir kod. Yani Combobox2 de seçtğim bir veriyi SERİ NO sayfasının B2 den B277 ye kadar olan hücrelerinde arayacak bulduğu satırın F sütunundan sağa doğru dolu olan hücrelerdeki tüm verileri alıp Combobox3 e atacak. Hepsi bu kadar.

 

[Orion1]

Tekrar merhaba arkadaşlar....

Problemi kendi kanaatimce yeteri kadar açıklayabildiğimi düşünüyorum, Lütfen okuyup anlayamadıysanız anlaşılmayan yerini sorunuz.

Ben yinede bir açıklma daha yapayım.

Bildiğiniz üzre excel de düşeyara diye bir foksiyon var. Ne yapıyoruz aranacak bir hücre bilgisi seçiyoruz, ardından nerede arayacağımızı seçiyoruz, sonrada bulduğumuzu nereye ne yazacağımızı yazıyoruz. Benim istediğim kod da buna benzer bir kod. Yani Combobox2 de seçtğim bir veriyi SERİ NO sayfasının B2 den B277 ye kadar olan hücrelerinde arayacak bulduğu satırın F sütunundan sağa doğru dolu olan hücrelerdeki tüm verileri alıp Combobox3 e atacak. Hepsi bu kadar.

Combobox2 nerde,Combobox3 nerede,Userform varsa hani userform nerde.
Bunları kimse görmediği için kimsede kalkıp sorunuzu yanıtlamamış.Sanırım göremeyenler bundan sonrada yanıtlamayacaklar.Ben duramadım açıklama yaptım gene.21 kişi dosyayı indirmiş niye cevap gelmemiş acaba.Bir düşünün bakalım.Sebebi nedir.Ben bu açıklamaları yaparak size cevap verme olayını yerine getirmiş oluyorum.Oysa sorunuza yanıt veriyor olacaktım tüm bunlar olsaydı.Size kolay gelsin.

 

[fedeal]

Private Sub ComboBox1_Change()
ComboBox2.Clear
    Set d = Sheets("SERİ_NO").Range("B:B").Find(ComboBox1.Value)
    If Not d Is Nothing Then
SDS = WorksheetFunction.CountA(Sheets("SERİ_NO").Range("A" & d.Row & ":IV" & d.Row))
    If SDS < 6 Then
    cvp = MsgBox("Malzemeye ait seri numarası bulunamadı eklemek istermisiniz ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
a = InputBox("serino girin", "fedeal")
Sheets("SERİ_NO").Cells(d.Row, SDS + 1).Value = a
ComboBox2.AddItem Sheets("SERİ_NO").Cells(d.Row, 6).Value
End If
        Else
  For i = 6 To SDS
    ComboBox2.AddItem Sheets("SERİ_NO").Cells(d.Row, i).Value
    Next
    End If
    End If
End Sub

Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "TAMİR_LİSTESİ!B2:B" & Sheets("TAMİR_LİSTESİ").Cells(65536, 2).End(xlUp).Row
End Sub

dosyanız ekte ,iyi çalışmalar.

 

[sakaryavedat]

Konunun anlaşıldığına çok sevindim. İşte cevap...
FEDEAL çok teşekkür ederim, mükemmel olmuş ellerine sağlık.

 

[sakaryavedat]

Konuyu kapatmayı unutmuşum kusura bakmayın