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 19-03-2017, 20:05   #1
hexadesimal
Destek Ekibi
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 646
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan Sayfa değişimlerinde formdaki comboboxa hatalı veri çekilmesi.

Form üzerinde iki combobox ile il ve ilçeleri çekiyorum. ancak formu değştirip başka bir formda işlem yaptıktan sonra ilgili comboboxların bulunduğu forma döndüğümde, comboboxlara son işem yapılan sayfadan veri alıyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox2_Change()

ComboBox3.Clear
Sheets("İL_İLÇE").Select
    For X = 2 To Cells(65536, "B").End(xlUp).Row
        If Cells(X, "A").Value = ComboBox2.Text Then
            If WorksheetFunction.CountIf(Range("B1:B" & X), Cells(X, "B")) = 1 Then
            ComboBox3.AddItem Cells(X, "B").Value
            End If
        End If
    Next
  
End Sub


Private Sub ComboBox3_Click()

Dim X, S, DHS
On Error Resume Next
Sheets("İL_İLÇE").Select
S = 0
DHS = WorksheetFunction.CountA(Range("B1:B65536"))
    For X = 1 To DHS
            If Range("B" & X) Like ComboBox2 Then
            
            End If
    Next
If S <> 0 Then
Else
End If


End Sub


Private Sub CommandButton1_Click()
Unload Me
UserForm3.Show
End Sub

Private Sub UserForm_Initialize()
Dim X As Long
For X = 2 To Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & X), Cells(X, "A")) = 1 Then
ComboBox2.AddItem Cells(X, "A").Value
End If
Next
End Sub
kodlar!...
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 20:55   #2
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 21,737
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Kodları yazarken SELECT komutunu mümkün olduğunca kullanmayın.

Sayfadaki hücreleri sorgulamak için en iyi yöntem tanımlama yapmaktır.

Sayfa ismini değişkene alıp sonra hücre sorgularında sayfa ismi ile beraber hücre adresini sorgulayın.

Basit bir örnek;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
Dim S1 As WorkSheet, X As Long
Set S1 = Sheets("İL_İLÇE")
For X = 2 To S1.Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(S1.Range("A1:A" & X), S1.Cells(X, "A")) = 1 Then
ComboBox2.AddItem S1.Cells(X, "A").Value
End If
Next
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 21:01   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,120
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
hexadesimal tarafından gönderildi Mesajı Görüntüle
Form üzerinde iki combobox ile il ve ilçeleri çekiyorum. ancak formu değştirip başka bir formda işlem yaptıktan sonra ilgili comboboxların bulunduğu forma döndüğümde, comboboxlara son işem yapılan sayfadan veri alıyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox2_Change()
ComboBox3.Clear
With Sheets("İL_İLÇE")
    For X = 2 To .Cells(65536, "B").End(xlUp).Row
        If .Cells(X, "A").Value = ComboBox2.Text Then
            If WorksheetFunction.CountIf(.Range("B1:B" & X), .Cells(X, "B")) = 1 Then
            ComboBox3.AddItem .Cells(X, "B").Value
            End If
        End If
    Next
End With
End Sub

.............
.............

Private Sub UserForm_Initialize()
Dim X As Long
With Sheets("İL_İLÇE")
For X = 2 To .Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(.Range("A1:A" & X), .Cells(X, "A")) = 1 Then
ComboBox2.AddItem .Cells(X, "A").Value
End If
Next
End With
End Sub
kodlar!...
Alternatif.

Kodlarınızda kırmızı işaretlediğim ve eklediğim kısımlarla (kırmızı NOKTA işaretlerine dikkat) istediğinizin gerçekleşmesi lazım.
Sayfa isimlerini umarım yanlış belirtmedim.
Özetle yapılacak işlem; Combobox'a alınacak verilerin hangi sayfadaki veri olduğunun belirtilmesinden ibaret.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 08:41   #4
hexadesimal
Destek Ekibi
 
Giriş: 12/09/2004
Şehir: İZMİR
Mesaj: 646
Excel Vers. ve Dili:
Excel 2010 Türkçe (Her Zaman)
Varsayılan

Korhan Bey, Ömer Bey teşekkürler..
__________________
Excel 2003
Müzmin KEMALİST
hexadesimal Ç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 17:52


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Estetik
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden