Macro vasıtası ile Otomatik filtre

limanC34 · 8 Kasım 2007

Sayın omerceri

Ürettiğiniz çözümleri hayretle izledim.Bu tablo üzerinde (kişiye göre tarihler arası aratma),(ön izleme),(yazdır),(yenikayıt),(düzelt),(sil) eklenebilirmi?

Teşekkürler.

noxious · 8 Kasım 2007

Hocam konu benim açımdan bitmişti ama insan uğraştıkça daha fazlasını istiyor.

Gönderdiğiniz kod gerçekten çok işime yaradı ve beni büyük bir dertten kurtardı. Tekrar emeğiniz için teşekkürler

Hazırladığım dosyada (Ekte) bir iki eklenti yaptım.

userform üzerine birkaç tane textbox yerleştirdim. Süz işlemi yaptığımızda süz den sonra çıkan sonuçlarda a, b, c, ........ o ya kadar sütunlar var bu sütunların içerisinde çıkan sayıları toplayarak ilgili sütunun toplamı=userform üzerinde kendi harfine ait textbox a yazılabilirmi mümkünatı varsa bir iki kutu için yaparsanız ben gerisini hallederim. Kusura bakmayın fazla oldum ama biz öğrenciler siz hocalarımız sayesinde birşeyler öğrenmeye çalışıyoruz. Tekrar saygılarımla.

noxious · 9 Kasım 2007

Hocam senin kodlarına şöyle bir ekleme yaparak sorunumu çözdüm ancak bu biraz fazla uzun, benim eklediğim kodlarda (Toplama işlemi) kısaltma gibi bir durum olabilirmi? (Hasbelkader rapor sayfasında 65001 sütunu silinirse oraya yazdığım toplama formülü silinecektir bunun yerine başka bir formül uyarlıyabilirmiyiz)

Private Sub CommandButton2_Click()
ActiveSheet.Unprotect "543216" ' Sayfa Şifresini Açar
TextBox1 = Format(Calendar1, "dd.mm.yyyy")
TextBox2 = Format(Calendar2, "dd.mm.yyyy")
bastar = CLng(CDate(TextBox1))
bittar = CLng(CDate(TextBox2))
[rapor!b2:AF65500].ClearContents ' Rapor Sayfasını 65000 üncü satıra kadar temizler (Toplama işlemlerini 65001 satırına ekledim)
For a = 2 To [I65536].End(3).Row
deg = Cells(a, "I")
If deg >= bastar And deg <= bittar Then
son = [rapor!b65536].End(3).Row + 1
Sheets("rapor").Range("b" & son & ":AF" & son) = Range("b" & a & ":AF" & a).Value
say1 = Sheets("rapor").Range("b2").CurrentRegion.Rows.Count - 1 ' TextBox görüntüsünü sen a1 den başlatmıştın ben b1'e başlıklarımı ekledim başlıklarla toplamda toplam 1 fazla çıkıyordu o yüzden senin kodunun peşine -1 yazdım
Topla1 = Sheets("rapor").Range("L65501") ' 1. Toplam
Topla2 = Sheets("rapor").Range("M65501") ' 2. Toplam
Topla3 = Sheets("rapor").Range("N65501") ' 3. Toplam
Topla4 = Sheets("rapor").Range("O65501") ' 4. Toplam
Topla5 = Sheets("rapor").Range("P65501") ' 5. Toplam
Topla6 = Sheets("rapor").Range("Q65501") ' 6. Toplam
Topla7 = Sheets("rapor").Range("R65501") ' 7. Toplam
Topla8 = Sheets("rapor").Range("S65501") ' 8. Toplam
Topla9 = Sheets("rapor").Range("T65501") ' 9. Toplam
Topla10 = Sheets("rapor").Range("U65501") ' 10. Toplam
Topla11 = Sheets("rapor").Range("V65501") ' 11. Toplam
Topla12 = Sheets("rapor").Range("W65501") ' 12. Toplam
Topla13 = Sheets("rapor").Range("X65501") ' 13. Toplam
Topla14 = Sheets("rapor").Range("Y65501") ' 14. Toplam
Topla15 = Sheets("rapor").Range("Z65501") ' 15. Toplam
End If
Next
ListBox1.RowSource = "rapor!a1:AF" & [rapor!I65536].End(3).Row
ListBox1.Visible = True
TextBox3.Value = say1
TextBox4.Value = Topla1
TextBox5.Value = Topla2
TextBox6.Value = Topla3
TextBox7.Value = Topla4
TextBox8.Value = Topla5
TextBox9.Value = Topla6
TextBox10.Value = Topla7
TextBox11.Value = Topla8
TextBox12.Value = Topla9
TextBox13.Value = Topla10
TextBox14.Value = Topla11
TextBox15.Value = Topla12
TextBox16.Value = Topla13
TextBox17.Value = Topla14
TextBox18.Value = Topla15
ActiveSheet.Protect "543216" ' Sayfayı tekrar şifreler
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = "15;50;70;90;150;50;28;28;66;33;65;25;25;25;25;55;55;55;55;55;55;55;35;35;35;60;90;90;90;90" ' TextBox içerisinde süzülen görüntülerin benim verilerime göre sütun aralıkları
ListBox1.ColumnCount = 30
End Sub

omerceri · 11 Kasım 2007

Sn noixous
Kusura bakma benim kızın dersleri çok yoğun bilgisayarın başına yeni geçebildim.
TextBox3.Value =Application.Sheets("rapor").Range("L2:L" & say1)
şeklinde daha doğrudan toplama yaptırabilirsin.

noxious · 11 Kasım 2007

Estafurullah Hocam ne kusuru. Tek sorun biz acemiler biraz aceleciyiz ya o kadar

Çözüm için sağol

omerceri · 11 Kasım 2007

TextBox3.Value =Application.Sum.Sheets("rapor").Range("L2:L" & say1)
şeklinde olacak eksik yazmışım.

noxious · 11 Kasım 2007

Sayın omerceri hocam sizi hazır yakalamışken bırakmak istemiyorum

sayfa üzerinde bulunan çalışma.rar dosyası

http://www.excel.web.tr/attachment.php?attachmentid=27513&d=1194553611

son kodlar size ait olduğu için sizin başınızı ağrıtıyorum kusura bakmayın

UserForm3 üzerinde bulunan Listbox1 e veriler gelirken en başta Sütun A, Sütun B, ...... diye gidiyor. Bunların yerine TümAdres sayfasında bulunan A1 hücresi Sıra, B1 Hücresi İlçesi, C1 hücresi İş Yeri Adı, ........ içerdiğinden ListBox1 sabit kısma sadece hücre içindeki Sıra, İlçesi, İş Yeri Adı ...... yazsa ve süzülen veriler aşağıya doğru devam etse olmazmı. Bir yerde gördüm ama uyarlıyamadım. Tekrar kusura bakmayın başınızı ağrıtıyorum.

omerceri · 12 Kasım 2007

Sn noxious
İşine karışmak istemem ama forum kullamak bu bu çalışmada luzumsuz gibi geliyor bana, Forumsuz bir örnek hazırladım.

noxious · 12 Kasım 2007

Hocam eline sağlık aslında ben çalışmak için form hazırlamıştım ama bir sorun oluştu forma 24 değişik macro ile işlem yaptırdığımdan dolayı çalıştığı makina hızlı olmazsa kasılıyor. Benim kullandığım makina hızlı ama bilgileri ağda paylaşacağım ve diğer makinalar bu kadar hızlı olmadığından sorun çıkartıyor. Senin gönderdiğin bu şekil hız olayını %50 arttırdı formdan vazgeçip bu şekilde baştan ayarlama yapacağım çok teşekkürler

omerceri · 14 Kasım 2007

İşine yaradığına sevindim.

Macro vas&#305;tas&#305; ile Otomatik filtre

Macro vasıtası ile Otomatik filtre