Userform kullanarak veri süzme ve raporlama
Tarih
13/02/2014 14:54
Konu Sahibi
fkilic76
Yorumlar
1
Okunma
1653
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
fkilic76
Aktif Üye
Kullanici Avatari
Aktif Üye
F.... K....
45
17/09/2010
0
Ankara
Ofis 2007
27/01/2017,00:19
Çözüldü 
Üstatlara ve üyelere selamlar.
Daha önce yine bu formdan faydalanarak alıp kullandığım proje sütun sayısını artırınca bana yetmez oldu.
Bu bağlamda ;

sorun1-
ekte bulunan projede 18 sütunluk veri olmasına rağmen
süzme ve raporlama sırasında sadece 10 sütun görünüyor.
muhtemel kodlarda değişiklik yapınca ya hata veriyor ya da değişiklik olmuyor.
sorun2-
combo1 deki süzme işi harf olunca çalışıyor ama rakam yazarsam süzmüyor.

yardımlarınız için şimdiden teşekkür ederim.


Ek Dosyalar
.rar   form_ile_süzme.rar (Dosya Boyutu: 17,56 KB / İndirme Sayısı: 75)
Cevapla

ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sponsor Reklam
Sn:fkilic76
Hata kullandığınız kodlardan kaynaklanıyor Listbox çoğuzaman bu hataları verir.Bu hatalardan kurtulmak için RowSource özelliğini kullanman gerekiyor.Müşteride olduğum için fazla detaylı ilgilenemedim ama aşağıdaki düzenlemeler sana yol gösterecektir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub UserForm_Initialize()
Dim sh As Worksheet
Dim i%
Set sh = Sheets("Sayfa2")
Sheets("Sayfa2").Select
Baslangic = True
    With ComboBox1
        .AddItem "Tümü"
         For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
        If Application.WorksheetFunction.CountIf(sh.Range("A2:A" & i), sh.Cells(i, 1)) = 1 Then
        .AddItem sh.Cells(i, 1)
        End If
        Next i
        .ListIndex = 0
    End With
            With ComboBox2
                .AddItem "Tümü"
                For i = 2 To sh.Cells(65536, 2).End(xlUp).Row
                If Application.WorksheetFunction.CountIf(sh.Range("B2:B" & i), sh.Cells(i, 2)) = 1 Then
                .AddItem sh.Cells(i, 2)
                End If
                Next i
                .ListIndex = 0
            End With


ListBox1.Clear
With ListBox1
     .ColumnCount = 18 '*********************************burayı değiştirdim olmadı
     .RowSource = "A2:r65536"
     .ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50"
                     
     .ColumnHeads = False
     
End With

Set sh = Nothing
End Sub


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton2_Click()
Dim sh As Worksheet, shR As Worksheet
Set sh = Sheets("sayfa2")
Set shR = Sheets("RAPOR")
shR.Range("A2:R65000").ClearContents
Dim i As Long, sat As Long
Application.ScreenUpdating = False
sat = 2
Sheets("Rapor").Range("A6:CZ65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
        Sheets("Rapor").Range("A" & sat & ":CZ" & sat).Value = _
        Range("A" & i & ":CZ" & i).Value
        sat = sat + 1
Next
Application.ScreenUpdating = True
shR.Select
Set sh = Nothing
Set shR = Nothing
End Sub


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Çoklu Süzme Arama alanında Hata kenevir47 8 420 09/12/2016, 16:18 kenevir47
  Hazır Alış Listeye Süzme Ekleme kenevir47 17 551 06/12/2016, 22:05 atoz112
  Excel'de Raporlama bentürk 3 650 22/06/2016, 12:12 bentürk
  userform güncelleme hatası yok_06 3 521 18/06/2016, 15:09 atoz112
  userform açıldığında excel kitaplarının kapanması bydogannn67 11 2.470 09/06/2016, 20:09 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status