Userform'da kayıt desteği.

[vardar07]

Userform'da farklı kayıt desteği.

Arkadaşlar kısacası kişilere göre Combobox2 den yapılan seçimi otomatik olarak 1 artırmak istiyorum. Yani" ELDEN ALINAN 1" ise kayıt ederken Combobox2 'de "ELDEN ALINAN "seçilince kayıt anında "ELDEN ALINAN 2" olarak kayıt yapabilirmiyiz.

 

[vardar07]

Arkadaşlar Konu Güncel

 

[vardar07]

Arkadaşlar Konu Güncel.Yokmudur bir çözümü.

 

[Emir Hüseyin Çoban]

. . .

2007 ve üstü sürüm kullanıyorsanız. Çokeğersay formülü ile yapabilirsiniz.
Ama tablonuz çok karmaşık ve gizli alanlar mevcut. İlave etmeniz gereken kod şu şekilde.

Ancak yerini siz bulmalısınız.

say = WorksheetFunction.CountIfs(Range("C2:C65536"), ComboBox1.Text, Range("E2:E65536"), ComboBox2.Text & "*") + 1

. . .

 

[vardar07]

. . .

say = WorksheetFunction.CountIfs(Range("C2:C65536"), ComboBox1.Text, Range("E2:E65536"), ComboBox2.Text & "*") + 1

. . .

Çok teşekkür ederim.Aşağıdaki şekli ile çalıştı.

Sheets("veri").Range("e" & Bos_Satir).Value = ComboBox2.Text & " " & WorksheetFunction.CountIfs(Range("C2:C65536"), ComboBox1.Text, Range("E2:E65536"), ComboBox2.Text & "*") + 1