LİSTBOXA AKTARIM

[enginbagci]

LÝSTBOXA AKTARIM

arkadaşlar textboxa yazdığım yazdığımda listboxa aktarabiliyorum yalnız benim listboxta gözükmesinin istediğim listede aynı isimler var ise eğer bunların sadece tek bir isminin cıkmasını

 

[Levent Menteşoğlu]

Bunun için bir dosya ekleyin.

 

[enginbagci]

aktarma

istediğim aynı isimse listboxta tek bir isim gözüksün

 

[Levent Menteşoğlu]

Textboxtaki kodu aşağıdaki ile değiştirin.

[vb:1:097cefd717]Private Sub TextBox1_Change()
Dim MyRange As Range
Dim noA As Integer
ListBox1.Clear
noA = WorksheetFunction.CountA(Sheets("1").Range("A: D"))
For Each MyRange In Sheets("1").Range("b3:b" & noA)
deg = Left(LCase(MyRange), Len(TextBox1))
say = WorksheetFunction.CountIf(Range("b3:b" & MyRange.Row), MyRange)
If deg = LCase(TextBox1) And say = 1 Then ListBox1.AddItem (MyRange)
Next
End Sub
[/vb:1:097cefd717]

 

[enginbagci]

teşekkür ederim levent bey
hızır acil gibi yetişiyorsunuz
Allah Razı olsun sizden

 

[enginbagci]

levent bey benim yaptığım çalışmayı ben ana makineye kuracam ve paylasımla calıştıracağım kullandığım calışmada yapılan işlemden sonra tarih saat otomatik atıyor ben bu tarih saati sadece ana makinenin tarih saatini atmasını istiyorum bunu yapabilirmiyiz

 

[Levent Menteşoğlu]

Paylaştırılmış dosyalarla ilgili hiç çalışma yapmadım. Belki ana bilgisayarın yolu tanımlanarak ondaki saat bilgisi okunabilir. Bununda api lerden istifade edilerek veya başla bir yol ile yapılması sanıyorum mümkündür. Ama bu konuda açıkçası bilgi sahibi değilim.

 

[enginbagci]

levent bey peki ben dosyamı paylatırdım ve bir kac problemle karsılastım aynı anda iki kişi kayıt yapmaya calıştığında kayıtlar üst üste geliyor hata veriyordu. bende kayıt butonuna ilk basta sayfayı kayıt ettirip işlemi oyle yaptırdım. doğrumu yaptım acaba
teşekkürler

 

[Levent Menteşoğlu]

bende kayıt butonuna ilk basta sayfayı kayıt ettirip işlemi oyle yaptırdım. doğrumu yaptım acaba

Bununla ilgi net bir şey söylemek için kayıt yaptırdığınız kodlarınızı yazarmısınız.

 

[enginbagci]

Private Sub CommandButton3_Click()
Workbooks("sip.XLS").Save
Dim bak As Range
Dim say As Integer
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("A1:A65000")))
Next bak
say = WorksheetFunction.CountA(Range("b1:b65000"))
txtsira.Value = say
Cells(say + 2, 1).Value = txtsira.Value
Cells(say + 2, 2).Value = TextBox1.Value
Cells(say + 2, 3).Value = TextBox2.Value
Cells(say + 2, 4).Value = TextBox3.Value
Cells(say + 2, 5).Value = ComboBox2.Value
Cells(say + 2, 6).Value = TextBox5.Value
Cells(say + 2, 7).Value = TextBox6.Value
Cells(say + 2, 8).Value = TextBox7.Value
Cells(say + 2, 9).Value = ComboBox1.Value
Cells(say + 2, 10).Value = TextBox9.Value
Cells(say + 2, 11).Value = TextBox10.Value
Cells(say + 2, 12).Value = TextBox4.Value


MsgBox "Siparişiniz Kaydedildi", , "KAYIT"
CommandButton2_Click
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1

End Sub

 

[Levent Menteşoğlu]

Netice verdiğine göre yaptığınız işlem doğrudur. Kodlama anlamında bir sorun sözkonusu değil. Yalnız kodlarınızdaki aşağıdaki satırlar (eğer arada başka kodlar yoksa) gereksiz.

[vb:1:92f0dd4da0]Dim bak As Range
For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("A1:A65000")))
Next bak
[/vb:1:92f0dd4da0]