ComboBox üzerine alınan veriler

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; ekli dosyamda olduğu gibi Userform üzerinde bulunan ComboBoxlara veri şu kodla alınıyor;

Private Sub UserForm_Initialize()
For X = 2 To [C10000].End(3).Row
ComboBox1.AddItem Cells(X, "C")
ComboBox2.AddItem Cells(X, "I")
Next

End Sub

ama ben bu verileri, ComboBox üzerine bir kere gelmesini istiyorum (örneğin C kolonunda bulunan hacı isimlerinin combobox'a bir kere gelmesi), bunun için nasıl bir kod yazılır. herkese teşekkürler.

 

[Murat OSMA]

Şu şekilde bir deneyiniz;

[SIZE="2"]dim c as integer
dim bul as range
for each bul in range("c2:c" & range("c65536").end(3).row)
for c = 2 to range("c65536").end(3).row
if worksheetfunction.countif(bul.value),cells(c, "c").value) = 1 then
combobox1.additem bul.value
end if
next c
next bul[/SIZE]

 

[Hacı Bayram ÖZKAN]

if worksheetfunction.countif(bul.value),cells(c, "c").value) = 1 then
üstadım bu satır kırmızı yandı, ayrıca c ve I kolonları ile birlikte olacak teşekkürler.

 

[Murat OSMA]

Kodları denemedim ezberden yazdığım için bul.value) deki ) işareti olmamalı...

Size yeni bir dosya hazırladım isterseniz bunu kullanın...
Geldiği ve Gönderildiği Yerlerin çok fazla olmadığını düşünüyorum. Gelen ve Gidenleri iki sütuna böldüm, farklı bir yer olursa altlarına ilave edersiniz...

 

[Hacı Bayram ÖZKAN]

MURAT bey galiba ben anlatamadım, bu bir evrak kayıt programı zaten benim verdiğim kodla bunları combo üzerine alıyor, bu satırlar alt alta devam ediyor, burda 9000'e kadar satır çıkıyor, c kolonu ve ı kolunu üzerinde bulunan verileri tek olarak olarak comboya alması sizinki ise ayrı bir şey yapmışsınız, eksik olmayın ama zaten bu veriler dediğim gibi C ile I sütunlarında alt alta sıralanıyor, mesela şu kodla oluyor;
Private Sub UserForm_Initialize()
Dim AllCells As Range, Cell As Range
Dim ciftolmayan As New Collection
Dim Item
' A1:A105 arası öğeleri yükler
Set AllCells = Range("A1:A105")

On Error Resume Next
For Each Cell In AllCells
ciftolmayan.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
' Benzersiz öğeleri Combobox'a ekler
For Each Item In ciftolmayan
UserForm1.ComboBox1.AddItem Item
Next Item
UserForm1.Show
End Sub
ama bu kod userformu kapatınca hata veriyor, buna bir bakarmısın teşekkürler.

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; bu dosyama bakmanız mümkün mü?

 

[gmz5317]

veri girişi

Merhaba ,öncelikle makroda çalışmaya daha yeni başladığım için acemiyim.Hazırladığım arayüzde textboxlar ve combobox lar mevcut.Bunlara veri girişi yapıp sayfa 2 de sırasıyla kaydetmek istiyorum.Sayfa 2 deki daha önce kaydedilmiş veriler bulunacak .Ben bunlara yeni eklenecek veriler için bir arayüz hazırladım. Bu konuda bana yardımcı olur musunuz ? İlginiz için teşekkür ederim.

 

[kovanci]

Merhaba arkadaşlar; bu dosyama bakmanız mümkün mü?

Aşağıda verdiğim kodu bir dene

Private Sub UserForm_Initialize()
For x = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("c2:c" & x), Cells(x, "c")) = 1 Then
ComboBox1.AddItem Cells(x, "c").Value
End If

Next


For y = 2 To Cells(65536, 1).End(xlUp).Row

If WorksheetFunction.CountIf(Range("i2:i" & y), Cells(y, "i")) = 1 Then
ComboBox2.AddItem Cells(y, "i").Value
End If
Next

End Sub