Listbox

[batuklar]

HERKESE MERHABA
bir takip programı yapıyorum listbox 'a sabit rakam ve yada kelimeler nasıl atarım.

 

[turist]

Sorunuzu kendi hazırladığınız bir "örnek" excel dosyası ekleyerek sorarsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.
Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/ bakınız.

 

[batuklar]

BURDAKİ USERFORM DAKİ 1.LİSTBOXA AYLAR 2.LİSTBOX A 1 DEN 12 KADAR RAKAMLAR SABİT ATAMAK İSTİYORUM

 

[turist]

UserForm1 de aşağıdaki kodu uygulayıp deneyin.

Private Sub UserForm_Initialize()
Dim syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "TAKİP" Then
        ComboBox1.AddItem syf.Name
    End If
Next
'If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
With ListBox1
        .AddItem "Ocak"
        .AddItem "Şubat"
        .AddItem "Mart"
        .AddItem "Nisan"
        .AddItem "Mayıs"
        .AddItem "Haziran"
        .AddItem "Temmuz"
        .AddItem "Ağustos"
        .AddItem "Eylül"
        .AddItem "Ekim"
        .AddItem "Kasım"
        .AddItem "Aralık"
        End With
        For i = 1 To 12
        ListBox2.AddItem i
        Next i
       
       
End Sub

 

[batuklar]

teşekkür ederim DUACIN OLDUM turist.
biraz daha yardım edebilirmisin.
combobox ile seçtiğim sayfaya
listboxla seçtiğim ay
listboxla seçtim sayı
textbola seçtiğim açıklama ve tutarların hücreye kayıt etmesini istiyorum.

 

[Korhan Ayhan]

Merhaba,

Hata kontrolleri eklemedim. Onları siz ayarlarsınız.

Deneyiniz.

Private Sub CommandButton1_Click()
    With Sheets(ComboBox1.Text)
        Son = .Cells(.Rows.Count, 1).End(3).Row + 1
        .Cells(Son, 1) = ListBox1.Value
        .Cells(Son, 2) = TextBox2.Value
        .Cells(Son, 3) = TextBox1.Value
        .Cells(Son, 4) = ListBox2.Value
        .Cells(Son, 5) = .Cells(Son, 3) / .Cells(Son, 4)
    End With

    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[batuklar]

teşekkür ederim DUACIN OLDUM turist.

 

[Korhan Ayhan]

İsim hatalı oldu sanırım...

 

[batuklar]

İsim hatalı oldu sanırım...

ÖZÜR DİLERİM
Korhan Ayhan
teşekkür ederim DUACIN OLDUM

 

[batuklar]

1. SUTUNA TEXBOX3 EKLEYİP TARİH ATMAK İSTİYORUM EKLEME YAPABİLİRMİSİN MİNNETTARIM SANA

 

[Korhan Ayhan]

Aslında kodlara bakarak kendinizde eklemeler yapabilirsiniz.

Private Sub CommandButton1_Click()
    With Sheets(ComboBox1.Text)
        Son = .Cells(.Rows.Count, 1).End(3).Row + 1
        .Cells(Son, 1) = CDate(TextBox3.Value)
        .Cells(Son, 2) = ListBox1.Value
        .Cells(Son, 3) = TextBox2.Value
        .Cells(Son, 4) = TextBox1.Value
        .Cells(Son, 5) = ListBox2.Value
        .Cells(Son, 6) = .Cells(Son, 3) / .Cells(Son, 4)
    End With

    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[batuklar]

@Korhan Ayhan
teşekkür ederim

 

[batuklar]

arkadaşlar son satırda tutarı verilen adetle taksite böldük fakat sonucun ayna satır devamına kaç taksit ise göstermesini istiyorum nasıl yaparım.yani
bu tablodaki gibi satır sonuna ayrı hücrelere ay adı ve taksitleri yazabilirmiyiz.

TARİH AY AÇIKLAMA TUTAR TAKSİT AYLIK ÖDEME TAKSİTLER
27.12.2018 Aralık TOPRAK 500 4 125,00 ocak 125 şubat125 mart 125


Private Sub CommandButton1_Click()
With Sheets(ComboBox1.Text)
Son = .Cells(.Rows.Count, 1).End(3).Row + 1
.Cells(Son, 1) = CDate(TextBox3.Value)
.Cells(Son, 2) = ListBox1.Value
.Cells(Son, 3) = TextBox2.Value
.Cells(Son, 4) = TextBox1.Value
.Cells(Son, 5) = ListBox2.Value
.Cells(Son, 6) = .Cells(Son, 4) / .Cells(Son, 5)

End With

MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[batuklar]

İYİ GÜNLER HERKESE KODALAMDA SON SUTUNDA TUTARI TAKSİTE BÖLDÜM ÇIKAN KAÇ TAKSİT İSE ALT SUTUNLARA TAKSİT SAYINCA TUTARI YAZDIRMAK İSTERMSEM NASIL BİR KOD GİRMELİYİM.

Private Sub CommandButton1_Click()
With Sheets(ComboBox1.Text)
Son = .Cells(.Rows.Count, 1).End(3).Row + 1
.Cells(Son, 1) = CDate(TextBox3.Value)
.Cells(Son, 2) = ListBox1.Value
.Cells(Son, 3) = TextBox2.Value
.Cells(Son, 4) = TextBox1.Value
.Cells(Son, 5) = ListBox2.Value
.Cells(Son, 6) = .Cells(Son, 4) / .Cells(Son, 5)

End With

MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Erdem Akdemir]

Sayın batuklar,

İnternet forumlarında büyük harfle yazmak bağırmak ve kızgınlık anlamına gelir.Görsel olarak'ta güzel görünmüyor.
Mesajlarınızı küçük harfle yazabilir misiniz.