Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-12-2017, 14:26   #1
EDFATURİZM
Altın Üye
 
Giriş: 22/12/2015
Şehir: istanbul
Mesaj: 6
Excel Vers. ve Dili:
TURKCE
Varsayılan Uçak bilet sistemi

Değerli makro-vba üyeleri,

ekte gönderdiğim UserForm3 içindeki günlük uçak bileti girişi yapılırken ComboBox1 satış sisteminde seçtiğim adına göre ComboBox2deki hava yolu isimlerinin gelmesi için tarafınızdan yardımcı olmanızı rica ederim.

örneğin:ComboBox1 de seçtiğim Quickres değere göre
ComboBox2 de anadolujet ve türk hava yolları gelmesi
Eklenmiş Dosyalar
Dosya Türü: xlsm EDFA TURİZM HESAPLAR -DENEME.xlsm (828.2 KB, 12 Görüntülenme)

Bu mesaj en son " 28-12-2017 " tarihinde saat 16:16 itibariyle EDFATURİZM tarafından düzenlenmiştir....
EDFATURİZM Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2017, 18:06   #2
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Dosyayı indirebileceğim bir yere yüklerseniz yardımcı olayım.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2017, 20:02   #3
EDFATURİZM
Altın Üye
 
Giriş: 22/12/2015
Şehir: istanbul
Mesaj: 6
Excel Vers. ve Dili:
TURKCE
Varsayılan Uçak bilet günlük girişler

tekrar yükledim
Eklenmiş Dosyalar
Dosya Türü: xlsm EDFA TURİZM HESAPLAR -DENEME.xlsm (828.3 KB, 14 Görüntülenme)
EDFATURİZM Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2017, 23:36   #4
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

www.dosya.tc ya da www.filebig.net gibi bir dış servera zipleyerek yükleyip linki bir üstteki mesajınıza eklerseniz , altın üye olmayan ama kodları iyi bilen üyelerden de yardım alma olasılığınız maksimum olabilir.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 10:27   #5
EDFATURİZM
Altın Üye
 
Giriş: 22/12/2015
Şehir: istanbul
Mesaj: 6
Excel Vers. ve Dili:
TURKCE
Varsayılan

http://s7.dosya.tc/server/gtaqe3/EDF...Kopya.rar.html
EDFATURİZM Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 20:46   #6
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Hocam excel'e DENEME isimli bir sayfa açtım ve "Satış Sistemi"'nde belirttiğiniz isimleri hücrelere, hücrelerinde alt satırlarına bağlı oldukları "Hava Yolları" adlarını örnek olarak yazdım. Aşağıdaki kodu da ComboBox1'in Change özelliğine ekledim. Bu sayede, ComboBox1'de hangi Satış Sistemi'ni seçerseniz, DENEME sayfasında yer alan o adı bulacak ve altındaki satırları ComboBox2'ye aktaracak. Her seçimde işlemi sıfırlayıp, tekrarlayacak. İstediğiniz bu sanırım. Bakıp dönüş yaparsanız sevinirim. Eğer buysa şöyle bir öneride bulunmak isterim; Bir UserForm tasarlayın ve Satış Sistemi ve Hava Yolu adlarını o UserForm ile DENEME Sayfasına yazdırın. ComboBox1 listesini o sayfanın ilk - son hücre döngüsü ile alın. Bu sayede güncellemeleri daha rahat yaparsınız.

Excel dosyasınız
http://dosya.co/qpyc6q2p7pg4/EDFA_TU...opya.xlsm.html


Kullandığım kodlar:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox1_Change()
ComboBox2.Clear
ilk_hücre = 1
Son_Hücre = Sheets("DENEME").Cells(1, Columns.Count).End(xlToLeft).Column

For v = ilk_hücre To Son_Hücre
If Sheets("DENEME").Cells(1, ilk_hücre).Value = ComboBox1.Text Then GoTo dur
ilk_hücre = ilk_hücre + 1
Next v

dur:
tpl = ilk_hücre
son_satır = WorksheetFunction.CountA(Worksheets("DENEME").Range(tpl & ":" & tpl))
For i = 2 To son_satır
ComboBox2.AddItem Worksheets("DENEME").Cells(i, tpl)
Next i
End Sub
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-12-2017, 23:17   #7
EDFATURİZM
Altın Üye
 
Giriş: 22/12/2015
Şehir: istanbul
Mesaj: 6
Excel Vers. ve Dili:
TURKCE
Varsayılan

hocam,
öncelikle yardımcı olduğunuz için teşekkür ederim.Gönderdiğiniz cevaba ek dosyayı indiremedim.Ayrıca yazdığınız kodları kopyalayıp userform içerisine taşıyıp deneme sayfası açtım fakat işlem çalışmadı.tekrar dosyayı göndermenizi rica ederim.
EDFATURİZM Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-12-2017, 15:24   #8
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

https://www.dosyaupload.com/9nnH

Buyrun.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-12-2017, 20:37   #9
EDFATURİZM
Altın Üye
 
Giriş: 22/12/2015
Şehir: istanbul
Mesaj: 6
Excel Vers. ve Dili:
TURKCE
Varsayılan

hocam,elinize sağlık ALLAH razı olsun.henuz sistemi bitiremedim.Makro konusunda daha yeniyim.diğer işlemler için yardımcı olurmusunuz.
EDFATURİZM Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-12-2017, 08:15   #10
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Bu yaptığım işinizi gördü mü? Yani bunu mu istiyordunuz?

Ve evet, ilmimin yettiğince her konuda yardımcı olmak isterim.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


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 10:28


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- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden