Combobox için 2 soru

[zamanakarsi]

1. Row source yöntemiyle;
Birleştirilmiş hücrelerdeki boşlukları almadan nasıl listeleme yapabiliriz.
B15,B16, B17 birleşince B5 oluyor. ma comboboxa alınca Aradaki b16 ve b17 boş olarak listeleniyor
2 Sayfa adı değişince makro hata variyor. Ya sayfa adı değiştirilmesin, yada exceldeki sayfa1. sayfa2 gibi kullanayım.
userform4 deki combobox1. kısmı

 

[Mahir64]

1. Row source yöntemiyle;
Birleştirilmiş hücrelerdeki boşlukları almadan nasıl listeleme yapabiliriz.
B15,B16, B17 birleşince B5 oluyor. ma comboboxa alınca Aradaki b16 ve b17 boş olarak listeleniyor
2 Sayfa adı değişince makro hata variyor. Ya sayfa adı değiştirilmesin, yada exceldeki sayfa1. sayfa2 gibi kullanayım.
userform4 deki combobox1. kısmı

Merhaba

Worksheets("UMEM KURSİYER ÖDEME LİSTESİ")
Bununla değiştirin
Worksheets(2)

 

[zamanakarsi]

Diğerini nasıl hallederiz

Tamam teşekkürlerde. Diğeri esas önemli olan. Yani boş gücreleri atlamalıyım combobxa alırken.

 

[zamanakarsi]

yokmu yardım edecek biri

 

[Excelmy]

Tamam teşekkürlerde. Diğeri esas önemli olan. Yani boş gücreleri atlamalıyım combobxa alırken.

:dusun:

Dosyanız vba menüsünde,
Userform4 Initialize kodlarını değiştirin. Kodlar ;

Private Sub UserForm_Initialize()
For i = 15 To [b65536].End(3).Row
    If Cells(i, 2) = "" Then GoTo 10
    ComboBox1.AddItem Format((Cells(i, 2)), "dd.mm.yyyy")
10
Next
ComboBox1.ListWidth = 150
For i = 1 To Sheets.Count
ComboBox2.AddItem Sheets(i).Name
Next i
End Sub

 

[zamanakarsi]

Çok Çok Teşekkür ederim sizlere. Kafayı yiyecektim ya. Bişi sorabilirmiyim döngüdeki 10 kavramını anlamadım. açıklarsanız öğrenmiş olurum. Bir diğer hususta sayfa nerdeyse orayı süsüyor. ben sayfa3 te süzme yapmasını istiyorum.

 

[zamanakarsi]

For i = 15 To Sayfa3.[b65536].End(3).Row
    If Sayfa3.Cells(i, 2) = "" Then GoTo 10
    ComboBox1.AddItem Format(Sayfa3.Cells(i, 2), "dd.mm.yyyy")
10
Next
ComboBox1.ListWidth = 150
For i = 1 To Sheets.Count
ComboBox2.AddItem Sheets(i).Name
Next i
End Sub

Sanırım böyle, Doğru çalışıyor.

 

[Excelmy]

PLAN 1 sayfanız

For i = 15 To Sheets("PLAN 1").[b65536].End(3).Row
    If Cells(i, 2) = "" Then GoTo 10
    ComboBox1.AddItem Format((Sheets("PLAN 1").Cells(i, 2)), "dd.mm.yyyy")

 

[zamanakarsi]

Teşekkürler