ComboBox tan girilen verinin olmamamıs halinde ekleme nasıl yapabilir

[ojibu]

Diyelim ki Sayfa1 de A2:A20 kadar bir liste ComboBox ile çağrılıyor. Ancak istediğimiz isim yok ise listede ComboBox yazdığımız zaman onu listeye eklemesi ve bir sonraki kullanımda ComboBox tan görünmesi.
teşekkürler.

 

[Orion1]

Comboboxa verileri nasıl alıyorsunuz additem metodu ilemi rowsource metodu ilemi.Çünkü her metodun verilri alma kodu başkadır.

 

[ojibu]

rowsourse metodu ile bir sayfadan mesela A2:A20 hücresi alıyor.

 

[Orion1]

Dim k As Range
Set k = Range("A2:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If k Is Nothing Then
    Cells(65536, "A").End(xlUp)(2, 1) = ComboBox1.Value
    ComboBox1.RowSource = "A2:A" & Cells(65536, "A").End(xlUp).Row
End If
Set k = Nothing

 

[torrasar]

Dim k As Range
Set k = Range("A2:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If k Is Nothing Then
    Cells(65536, "A").End(xlUp)(2, 1) = ComboBox1.Value
    ComboBox1.RowSource = "A2:A" & Cells(65536, "A").End(xlUp).Row
End If
Set k = Nothing

Evren Bey,

Bir konuda da ben danışmak istiyorum:

Userformda işlem yaparkıen:

sheets(1).visible=true
sheets(1).select
cells(1,2).select
yazarsam çalışıyor.

Sheets(1) gizli iken, userforma bu sayfadan veri almanın veya bu sayfaya kayıt yapmanın yolu yok mudur?
"sheets(1).cells(1,2).select" komutu, sayfa gizli ise veya başka sayfa şeçili ise ofis 2003'te çalışıyor, ofis 2007'de hata veriyor.

 

[ojibu]

Sayın Evren ilginize teşekkürler. ancak garip bir şey oluyor . harf harf kaydediyor.ekte örneği bir inceleyin

 

[Orion1]

Sayın Evren ilginize teşekkürler. ancak garip bir şey oluyor . harf harf kaydediyor.ekte örneği bir inceleyin

Kodu textboxın change olayına yazmayın .Bir buton koyun ve butona yazın.

 

[Ayhan Ercan]

Evren Bey,


Sheets(1) gizli iken, userforma bu sayfadan veri almanın veya bu sayfaya kayıt yapmanın yolu yok mudur?

Gizli sayfalara veya gizli sayfalardan veri almak/vermek için

.select ifadesini kullanmadan direk olarak yazın, yani örneğin;

Sheets("Sayfa1").Select
Textbox1 = Range("A1").value

yerine:

Textbox1 = Sheets("Sayfa1").Range("A1").Value
gibi...


Gizli Sayfalar için Select ve Activate ifadelerini kullanamassınız..

 

[ojibu]

Sayın Evren ilginize teşekkürler