Listboxda sütunların formatı nasıl ayarlanır

[ulutanas]

Arkadaşlar merhaba

listboxdan combobox ile veri süzüyorum fakat süzdükden sonra listxboxladaki kolon değerleri değişiyor. Eklemiş olduğum dosyada konuyla ilgili detaylı bilgi bulunmaktadır. Yardımlarınız için şimdiden teşekkür ederim.

Iyi çalışmlar....

Saygılarımla.

 

[Orion1]

Dosyanız ektedir.
Not : suz diye bir sayfa ekledim.
Orada süzülen verileri listeleyip rowsource yöntemi ile verileri listboxa alıyorum.

Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ListBox1.RowSource = Empty
    Sheets("suz").Range("A:M").ClearContents
    With Worksheets("PERSONEL_GİRİŞ_ÇIKIŞ")
        With .Range("$A$1:$M$" & Rows.Count)
            .AutoFilter
            If ComboBox1.Text = "" Then
                .AutoFilter Field:=4
            Else
                .AutoFilter Field:=4, Criteria1:=ComboBox1.Text
            End If
            If ComboBox2.Text = "" Then
                .AutoFilter Field:=2
            Else
                .AutoFilter Field:=2, Criteria1:=ComboBox2.Text
            End If
        End With
        .Range("A1:M" & Rows.Count).CurrentRegion.Copy Sheets("suz").Range("[B][COLOR="red"]A2[/COLOR][/B]")
        .Range("A1").AutoFilter
        Application.CutCopyMode = False
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    ListBox1.RowSource = "suz![B][COLOR="Red"]A3[/COLOR][/B]:M" & Sheets("suz").Cells(Rows.Count, "A").End(xlUp).Row
End Sub

 

[ulutanas]

Evren hocam çok teşekkürler tam istediğim gibi olmuş. Yanlız süz işlemimi yaptıkdan sonra süz sayfasında veriler a1 den itibaren aktarılıyor bunu a3 den itibaren aktarılması için nerede değişiklik yapmalıyım.

 

[Orion1]

Evren hocam çok teşekkürler tam istediğim gibi olmuş. Yanlız süz işlemimi yaptıkdan sonra süz sayfasında veriler a1 den itibaren aktarılıyor bunu a3 den itibaren aktarılması için nerede değişiklik yapmalıyım.

2 nolu mesajda dosyayı güncelledim.Mesajdaki kırmızı yaptığım yerleri değiştirdim.

 

[ulutanas]

Evren hocam olayın mantığını daha iyi çözmeme yardımcı oluyorsunuz. Yardımınız için çok teşekkür ederim.

İyi çalışmlar...

Saygılarımla.

 

[Orion1]

Evren hocam olayın mantığını daha iyi çözmeme yardımcı oluyorsunuz. Yardımınız için çok teşekkür ederim.

İyi çalışmlar...

Saygılarımla.

Rica ederim.
Saygılar benden.