Teklif Takip

[vuslat]

Arkadaşlar merhaba;

exelde yeni olduğumdan biraz zorlanıyorum. bir konuda yardımlarınız ve yönlendirmenize ihtiyacım var. ekteki dosyada personelimizin yapmış olduğu pazarlama ile ilgili tuttuğumuz evrağin bir örneği var. ben bu örneğe listeleme eklemek istiyorum şöyle bir calışma mantığı olmasını istiyorum
-- listedeki Tramer taihini tarih aralığına göre raporlamak istiyorum
--durum da red edildi- onaylandı- bekliyor ibarelerine göre raporlamak istiyorum


yardımlarınızı önemele istiyorum arkadaşlar

saygılarımla

 

[vuslat]

yardımcı olacak kimse yokmu

 

[ertan2009]

yardımcı olacak kimse yokmu

biraz basit ama belki ekteki hali yeterli olur.
Hücrelerin yanında bir ok işareti çıkıyor. Satırlara yazdığını veriler, o işarete tıkladığınızda alfabetik olarak dizili çıkacak ve ordan seçim yapabileceksiniz.
Kendimi biraz geliştirebilirsem daha ayrıntılı çözümleri için bakacağım...

kolay gelsin...

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "DD.MM.YYYY")
End Sub
Private Sub ComboBox2_Change()
ComboBox2 = Format(ComboBox2, "DD.MM.YYYY")
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Set sv = Sheets("veri")
Set sr = Sheets("Rapor")
sr.[a4:k1000] = Empty
s = 4
For sat = 4 To sv.Cells(65536, "j").End(xlUp).Row
If sv.Cells(sat, "j") >= CLng(CDate(ComboBox1)) And _
sv.Cells(sat, "j") <= CLng(CDate(ComboBox2)) Then
sv.Range("a" & sat & ":k" & sat).Copy
sr.Range("a" & s & ":k" & s).PasteSpecial
s = s + 1
End If: Next
sr.Activate
End Sub
Private Sub CommandButton2_Click()
Set sv = Sheets("veri")
Set sr = Sheets("Rapor")
sr.[a4:k1000] = Empty
s = 4
For sat = 4 To sv.Cells(65536, "I").End(xlUp).Row
If sv.Cells(sat, "I") = (ComboBox3) Then
sv.Range("a" & sat & ":k" & sat).Copy sr.Range("a" & s & ":k" & s)
s = s + 1
End If: Next
sr.Activate
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "J4:J" & Cells(65536, "J").End(xlUp).Row
ComboBox2.RowSource = "J4:J" & Cells(65536, "J").End(xlUp).Row
ComboBox3.RowSource = "I4:I" & Cells(65536, "J").End(xlUp).Row
End Sub

 

[vuslat]

istediğim tam buydu çok teşekkür ederim

eklemek istediğim bir şey daha var

ileri tarihlerde bitecek olan poliçelerin takibinde hatırlatma yada listeleme olabilirmi yani ay ay - gün gün listeleme?

Private Sub ComboBox1_Change()
ComboBox1 = Format(ComboBox1, "DD.MM.YYYY")
End Sub
Private Sub ComboBox2_Change()
ComboBox2 = Format(ComboBox2, "DD.MM.YYYY")
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Set sv = Sheets("veri")
Set sr = Sheets("Rapor")
sr.[a4:k1000] = Empty
s = 4
For sat = 4 To sv.Cells(65536, "j").End(xlUp).Row
If sv.Cells(sat, "j") >= CLng(CDate(ComboBox1)) And _
sv.Cells(sat, "j") <= CLng(CDate(ComboBox2)) Then
sv.Range("a" & sat & ":k" & sat).Copy
sr.Range("a" & s & ":k" & s).PasteSpecial
s = s + 1
End If: Next
sr.Activate
End Sub
Private Sub CommandButton2_Click()
Set sv = Sheets("veri")
Set sr = Sheets("Rapor")
sr.[a4:k1000] = Empty
s = 4
For sat = 4 To sv.Cells(65536, "I").End(xlUp).Row
If sv.Cells(sat, "I") = (ComboBox3) Then
sv.Range("a" & sat & ":k" & sat).Copy sr.Range("a" & s & ":k" & s)
s = s + 1
End If: Next
sr.Activate
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "J4:J" & Cells(65536, "J").End(xlUp).Row
ComboBox2.RowSource = "J4:J" & Cells(65536, "J").End(xlUp).Row
ComboBox3.RowSource = "I4:I" & Cells(65536, "J").End(xlUp).Row
End Sub

 

[cryforyu27]

yardım

TEklifi biraz değiştirim excel de
sıra 3 kısmına
S.No
TC KİMLİK NO VERGİ NO PLAKA POLİÇE TARİHİ MÜŞTERİ ADI SOYADI POLİÇE TÜRÜ POLİÇE NO TUTAR VERGİ TOPLAM KOMİSYON ACENTA KODU ÖDEME TARİHİ ACENTE ÖDEMESİ PLASER AÇIKLAMA

USERFORM EKLEYEBILIRMISIN ?

İLKTARİH
SON TARİH RAPORLA

SİGORTA ŞİRKETİ RAPORLA

ACENTA ÖDEMESİ RAPORLLA

KOMİSYON RAPORLA

TUTAR RAPORLA

PLASER RAPORLA

POLİÇE TARİHİ HATIRLATMA YAPABILIRMISIN ? GUN AY YIL GIBI

BAŞKA BİR SAYFAYADA GELECEK YILDA AYNI LISTEYI YAPABILIRMIYIZ. 2010-2011 YILI GIBI…GELECEK YILDAKI LISTEMIZIN AYNISINI AKTARMA

 

[cryforyu27]

düzenleyecek varmı ?

 

[cryforyu27]

yardım edebılırmısın .............

 

[nicomedya41]

yardım

ben formu biraz değiştirdim. personele tarihe duruma göre arama yapma butonları ekledim.
şimdi benim sorunum şu. örneğin teklifi veren ve sipariş durumunda aynı anra arama yapmak istiyorum. Bir türlü beceremedim. Yardım edebilecek varmı??

 

[gokhankvs]

yardım acillll

ekte gönderdiğim tabloda roparlar kısmında kimi buton işe yarıyor kimisi yaramıyor bakabilcek olan varmıdır...... yardım