Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Kapalı Konu
 
Paylaş Konu Araçları Görünüm Modları
Eski 29-05-2009, 13:36   #1
sakaryavedat
 
Giriş: 16/04/2009
Şehir: tr
Mesaj: 31
Excel Vers. ve Dili:
office 2013
Varsayılan Combobox lardan seçilen veriye göre işlem yapma

Arkadaşlar hepinize merhaba.
Problemi dosyada açıkladım lütfen acilen yardıma ihtiyacım var.
Eklenmiş Dosyalar
Dosya Türü: xls deneme.xls (102.0 KB, 37 Görüntülenme)
sakaryavedat Çevrimdışı  
Eski 30-05-2009, 15:42   #2
sakaryavedat
 
Giriş: 16/04/2009
Şehir: tr
Mesaj: 31
Excel Vers. ve Dili:
office 2013
Varsayılan SURU?

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

Neden cevap gelmiyor bu konuda.
sakaryavedat Çevrimdışı  
Eski 10-06-2009, 23:05   #3
sakaryavedat
 
Giriş: 16/04/2009
Şehir: tr
Mesaj: 31
Excel Vers. ve Dili:
office 2013
Varsayılan

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.
sakaryavedat Çevrimdışı  
Eski 10-06-2009, 23:37   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,723
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
sakaryavedat tarafından gönderildi Mesajı Görüntüle
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.
Orion1 Çevrimdışı  
Eski 10-06-2009, 23:52   #5
fedeal
Banned
 
Giriş: 29/05/2008
Şehir: uşak
Mesaj: 1,987
Excel Vers. ve Dili:
2003 tr
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
Eklenmiş Dosyalar
Dosya Türü: rar comboboxdeneme(1).rar (30.0 KB, 72 Görüntülenme)

Bu mesaj en son " 11-06-2009 " tarihinde saat 00:29 itibariyle fedeal tarafından düzenlenmiştir....
fedeal Çevrimdışı  
Eski 13-06-2009, 02:12   #6
sakaryavedat
 
Giriş: 16/04/2009
Şehir: tr
Mesaj: 31
Excel Vers. ve Dili:
office 2013
Varsayılan

Konunun anlaşıldığına çok sevindim. İşte cevap...
FEDEAL çok teşekkür ederim, mükemmel olmuş ellerine sağlık.
sakaryavedat Çevrimdışı  
Eski 23-06-2009, 20:49   #7
sakaryavedat
 
Giriş: 16/04/2009
Şehir: tr
Mesaj: 31
Excel Vers. ve Dili:
office 2013
Varsayılan

Konuyu kapatmayı unutmuşum kusura bakmayın
sakaryavedat Çevrimdışı  
Kapalı Konu


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:30


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden