| Facebook ile Bağlan | Twitter İle Bağlan | Google+ İle Bağlan

Excel Userform Da Listbox Nesnesi Alanlarının Biçimlendirmesi Hakkında.

Oğuz Türkyılmaz

Excel Cevaplanmış Soruları

4966

16/02/2021, 11:15 #1

Aktif Üye

Oğuz Türkyılmaz

Bul

Aktif Üye

Adı Soyadı: Oğ.... Tü....

Yaşı: 55

Konum: Antalya

Ofis Versiyonu: Ofis 2019 64 Bit

Son Oturumu: 03/05/2023,09:23

Yorumları: 1.583

Konuları: 265

Kayıt Tarihi: 08/02/2018

Teşekkür Puanı: 0

Mesleğiniz: İşletmeci

Merhaba herkese sağlıklı günler dilerim.

Excel çalışmasında düzenlediğim User Form da kayıtları listelediğim Listbox'ın Tutar alanında ki rakamları sağa dayalı yapmak ve ID alanını Büyükten küçüğe sıralamak istiyorum. Bunu nasıl yapabilirim. Yardımlarınız için teşekkür ederim.

Kod:

Dim SonSatir As Variant



Private Sub btn_KayitEkle_Click()



If txt_MasrafTarihi <> "" And Com_Firma <> "" And txt_BelgeNo <> "" And Com_MasrafTuru <> "" And txt_Tutar <> "" Then



    SonSatir = WorksheetFunction.CountA(Worksheets("Ana Sayfa").Range("A:A")) + 1



    If SonSatir = 2 Then



                Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1

                Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 3) = Com_Firma.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 5) = Com_MasrafTuru.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Acıklama.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_Tutar)

                

                Else

                

                Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1

                Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 3) = Com_Firma.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 5) = Com_MasrafTuru.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Acıklama.Value

                Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_Tutar)

    End If

                

Else



MsgBox "Giriş Alanlarının Tümünü Doldurunuz", , "Masraf Giriş Formu"



End If



Com_Firma.Value = ""

Com_MasrafTuru.Value = ""

txt_Acıklama.Value = ""

txt_BelgeNo.Value = ""

txt_MasrafTarihi.Value = ""

txt_Tutar.Value = ""





txt_MasrafTarihi = Format(Date, "dd.mm.yyyy")

Com_Firma.SetFocus









End Sub



Private Sub byn_Kapat_Click()



Unload UserForm1



End Sub



Private Sub txt_MasrafTarihi_Exit(ByVal Cancel As MSForms.ReturnBoolean)



txt_MasrafTarihi = Replace(txt_MasrafTarihi, ".", "")

txt_MasrafTarihi = Left(txt_MasrafTarihi, 2) & "." & Mid(txt_MasrafTarihi, 3, 2) & "." & Right(txt_MasrafTarihi, 4)



End Sub



Private Sub UserForm_Initialize()



ListBox1.ColumnCount = 7

ListBox1.RowSource = "MasrafListesi"

ListBox1.ColumnWidths = "30;70;70;70;240;170;70"



txt_MasrafTarihi = Format(Date, "dd.mm.yyyy")



End Sub