Bireysel Öneri Sistemi

[bekir38]

merhaba arkadaşlar,
bireysel öneri sistemini (bös) firmamızda uygulamaya aldık. puanların takibi için ekte bulunan çalışmayı uyarlamaya çalışıyorum.

yalnız kabul red kriterine göre rapor alıyor, diğerlerine göre bölüm, fayda ve isme göre sorgulama yaptıramadım,

yardımlarınızı bekliyorum.

iyi çalışmalar,

 

[bekir38]

inceleyen oldu mu arkadaşlar?

 

[AS3434]

Sn. bekir38
Dosyanızı açmak ve kod sayfasına ulaşmak ve oradan da Excele dönmek o kadar zor ki. Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=16775

3-Bazı dosyalar açılışta Excel uygulamasını gizleyen kodlar içermektedir. Bu durum; soruyu incelemek için açan kişinin karşısında bir userform görmesine yani excele ulaşamamasına neden olmaktadır. Buda yetmezmiş gibi userformu kapattığınızda ya excelde kapanmakta yada gizli olarak açık kalmaktadır. Tabii bu durumda, dosyayı zoraki kapat, tekrar açarken makroları devre dışı bırak, sonra exceli gizleyen kodları iptal et, dosyayı kaydet, makroları devreye alarak dosyayı tekrar aç ve halin kalırsa soruyu incele gibi işkence halini alan bir durum ortaya çıkmaktadır.
Kendi adıma yazıyorum; ben bundan sonra bu tür dosyaları kesinlikle dikkate almayacağım.

 

[bekir38]

Sn. bekir38
Dosyanızı açmak ve kod sayfasına ulaşmak ve oradan da Excele dönmek o kadar zor ki. Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=16775

merhaba sayın as3434,
uyarınız için teşekkürler,
bilmiyordum böyle bir kural olduğunu, kusura bakmayın,

yeni dosya ektedir,

iyi çalışmalar,

 

[AS3434]

Sn. bekir38
Yazmış olduğum linki okusaydınız bunun kural değil, foruma eklenen dosyalarla ilgili genel bir eleştiri olduğunu anlardınız. (Ayrıca Forum Kuralları'nda Eklenen Dosyalar bölümünde dikkat edilmesi gereken hususlar var)
Maksadım eleştirmek değil, cevap almanızı hızlandırmak.

yalnız kabul red kriterine göre rapor alıyor, diğerlerine göre bölüm, fayda ve isme göre sorgulama yaptıramadım,

Herhalde bu kodlardan bahsediyorsunuz.

Private Sub ComboBox1_Change()
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1
End Sub
Private Sub ComboBox2_Change()
Selection.AutoFilter Field:=2, Criteria1:=ComboBox2
End Sub
Private Sub ComboBox3_Change()
Selection.AutoFilter Field:=3, Criteria1:=ComboBox3
End Sub

Sorunuzun cevabını net olarak bilmiyorum. Çünkü makro bilgim zayıf ve Userform ile hiç çalışmadım. Yalnız burada belirli bir sayfa seçmeniz gerekmezmi.?

Private Sub ComboBox2_Change()
[COLOR="Blue"]Sheets("Dbase").Select[/COLOR]
Selection.AutoFilter Field:=2, Criteria1:=ComboBox2
End Sub

gibi.

 

[bekir38]

merhaba arkadaşlar,
dosyayı değiştirdim, yani userformu kaldırdım.
direk makrolarla yaptım. yalnız PER sayfasında personelin toplam puanını hesaplattırıyorum ama bu puanı kaç adet öneri sonucu aldığını yapamadım.

yardımcı olursanız sevinirim,

 

[AS3434]

Fonksiyonla şöyle;
Per sayfası c5 hücresine

=EĞER(B5="";"";EĞERSAY(STOK!$D$2:$D$200;B5))

yazın.


Makrosu da şöyle;

Sub say()
Set s1 = Sheets("Per")
Set s2 = Sheets("stok")
s1.Select
For x = 5 To [b65536].End(3).Row
If x = "" Then Exit Sub
Cells(x, 3) = WorksheetFunction.CountIf(s2.[d:d], Cells(x, 2))
Next
End Sub

 

[AS3434]

ETOPLA fonksiyonu ile beraber makro şöyle oluyor. (Bende aklıma geldikçe birşeyler ilave ediyorum.)

Sub say()
Set s1 = Sheets("Per")
Set s2 = Sheets("stok")
s1.Select
For x = 5 To [b65536].End(3).Row
If x = "" Then Exit Sub
Cells(x, 3) = WorksheetFunction.CountIf(s2.[d:d], Cells(x, 2))
Cells(x, 4) = WorksheetFunction.SumIf(s2.[d:d], Cells(x, 2), s2.[f:f])
Next
End Sub

 

[bekir38]

Fonksiyonla şöyle;
Per sayfası c5 hücresine

=EĞER(B5="";"";EĞERSAY(STOK!$D$2:$D$200;B5))

yazın.


Makrosu da şöyle;

Sub say()
Set s1 = Sheets("Per")
Set s2 = Sheets("stok")
s1.Select
For x = 5 To [b65536].End(3).Row
If x = "" Then Exit Sub
Cells(x, 3) = WorksheetFunction.CountIf(s2.[d:d], Cells(x, 2))
Next
End Sub

çok teşekkürler, gayet güzel çalıştı,
proğramda birde puan harcama kısmını ilave edip siteye ekleyeceğim,

çok teşekkürler sn. as3434

iyi çalışmalar,

 

[bekir38]

çok teşekkürler, gayet güzel çalıştı,
proğramda birde puan harcama kısmını ilave edip siteye ekleyeceğim,

çok teşekkürler sn. as3434

iyi çalışmalar,

tamamladım arkadaşlar,
emeği geçenlere çok çok teşekkürler,

umarım işinize yarar,

 

[seramist]

arkadaşlar kolay gelsin. neden ben dsyayı indiremiyorum.
boş sayfa açlıyo ve öylece kalıyo

 

[adensar]

Teşekkürler

 

[HAKANP]

Forumdaki tek öneri takip sistemi çalışması. Diğer arakadşlardan elinde olan var ise paylaşsın lütfen bu eski dosya açılmıyor çünkü