• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

textboxta ayları sıralama

A

aydın3838

Katılım
10 Nisan 2008
Mesajlar
394
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
selamlar

listedeki comboda aylar var 1,2,3,4 diye 12 ay var

başlangıç tarihinden itibaren 30 gün arttırmalı yani 1 ay sonrasını

formdaki aylar bölümündeki textlerde sıralı görmem gerekiyor çok uğraştım ama olmadı

buradaki ayları textlerde görmedeki maksat

aylık ödemelerle günlerinde değişiklik yapma gereği duyulmasıdır

comboboxtaki değer değişiminde nasıl aylık ödemeler listeleniyorsa

aylarında listelenmesi gerekiyor

saygılar

örnekte dosyada resimli ve formlu anlatımı var
 

Ekli dosyalar

Son düzenleme:
bunu denermisiniz

For r = 18 To 18 + ComboBox1.ListIndex
k = k + 28
Controls("textbox" & r).Value = Format((Date + k - (Date - 1)), "MMMM")
Next
 
Sn. aydın3838 aşağıdaki şelikde yapınca tam sonuç veriyor
Kod: 
For r = 17 To 17 + ComboBox1.ListIndex
k = k + 29
Controls("textbox" & r).Value = Format((k + (Date - 1)), "MMMM")
Next

TextBox17nin yerini düzenledim. belki sizde yanlış sonuç verebilir.
 

Ekli dosyalar

ComboBox1_Change hemen altına bu kodu koyunuz. birde textbox nesnesi sırslı gitmiyor TextBox17 nesnesini alttan en üste getiriniz

Private Sub ComboBox1_Change()
TextBox17.Text = ""
For r = 17 To 28
Controls("textbox" & r).Text = ""
Next
For r = 17 To 17 + ComboBox1.ListIndex
Controls("textbox" & r).Text = Format((Date + k), "MMMM")
k = k + 30
Next
 
Aylara ait textboxlara taglarına numara verdim.
Ve tarih te ay ekleme yanlıştı onu düzelttim.
Dosyanız ektedir.:cool:
Kod: 
Sub liste()
[B][COLOR="Red"]Dim txtaylar As Control[/COLOR][/B]
ListBox1.Clear
ListBox1.AddItem "TOPLAM TUTAR  :  " & TextBox1.Text
ListBox1.AddItem ""
ListBox1.AddItem "PEŞİNAT                :  " & TextBox2.Text
ListBox1.AddItem ""

For k = 1 To ComboBox1.Text
ListBox1.AddItem k & ". TAKSİT :  " & Controls("textbox" & k + 3).Value & "     TAHSİLAT TARİHİ :  " & [B][COLOR="Red"]DateAdd("m", k, CDate(TextBox3.Text))[/COLOR][/B]
[B][COLOR="Red"]For Each txtaylar In Me.Controls
    If TypeName(txtaylar) = "TextBox" Then
        If IsNumeric(txtaylar.Tag) And txtaylar.Tag = k Then
            txtaylar = Format(DateAdd("m", k, CDate(TextBox3.Text)), "dd.mm.yyyy")
        End If
    End If
Next[/COLOR][/B]
Next

End Sub
 
selamlar

sayın arkadaşlar yapmış olduğunuz kodlar süper çalışması falan güzel

hepinize teşekkürler fakat benim çalışmamda olması gereken alttaki gibi

text 3 teki tarihi + 30 gün artımıyla text 17 den sıralı olarak text 28 de

görmem gerekiyor bu artışıda combodaki 1.taksit 2. taksit olayına bağlamam

gerekiyor combodaki rakam arttıkça zaten kodlar taksitleme işlemini nasıl sıralı

yapıyorsa aylar bölümüde aynı şekilde text 3 teki tarihi + 30 artımıyla text 17

den sıralı yazacak bu yüzden tarihleri manuel değişim için textlerde görmem

gerekiyor

SAYGILAR İLGİNİZ İÇİN TEŞEKKÜRLER
 
Sn. aydın3838 bu şekilde deneyin.
Kod: 
For k = 1 To ComboBox1.Text
ListBox1.AddItem k & ". TAKSİT :  " & Controls("textbox" & k + 3).Value & "     TAHSİLAT TARİHİ :  " & CDate(TextBox3.Text) + (k * 30)
Controls("textbox" & k + 16).Value = Format(CDate(TextBox3.Text) + (k * 30), "dd.mm.yyyy")
Next
Listboxtaki tarihleri birebir veriyor. Eğer ay ismini görmek istiyorsanız "dd mmmm yyyy" şeklinde de yazabilirsiniz.
 
Son düzenleme:
sayın Mx@Raide

kodlar süper çalıştı elinize sağlık bu olayı yukarıdada anlatmıştım

bu kodlar combodaki 1 de 12 ye sıralı rakamlar ayları temsil ediyor bu yazılan kodu combonun

seçimine göre ayarlanabilirmi

aynı AYLIK TUTAR bölümü gibi combodaki değer artınca textlerdeki değerlerde artıp eksilecek

olma ihtimali varsa sevinirim

saygılar
 
bir sorum daha olacak bu ayları benim manuel olarak değişim için ihtiyacım var demiştim

farzedelim 15,08,2009 ben bu tarihte ödeme gününü 25 yapmam gerekiyor yani müşteri ayın 25 lerini istedi bizim kodlara göre ise bu gün 08.08.2009 text 3 bu güne göre baz alıyor ve kodlarda bu yönde çalışır benim sadece günlerini değiştirmem için bir yol varmı

saygılar
 
Benim yazdığım 5nci mesajdaki kodları denedinizmi?
Neresi olmamış.Olmamışsa olmayan tarafını söyleyin.:cool:
Nasıl olması gerektiğinide söyleyin.:cool:
 
vayyyy evren hocam merhaba

sayın evren bey sizin kodları denedim olmadı çalışmadı yani dosya eklemişsiniz dosyada yok
benim istediğime gelince hocam şu anlatayım

combodaki değere göre nasıl taksitlere bölüm işlemi gerçekleşiyorsa

aynısını aylardada görmem gerekiyor

anlatayım

toplam tutarı combodaki rakamlarla aylara bölüyoruz bu bölmeyi listede zaten görüyorum

maksadımız ödemeleri manuel olarak değiştirmek olduğundan textlerdede görmem gerekti

anlattığımın aynını ödeme günlerindede yapmam gerekiyor sorunum bu

saygılar
 
aydın3838' Alıntı:
bir sorum daha olacak bu ayları benim manuel olarak değişim için ihtiyacım var demiştim

farzedelim 15,08,2009 ben bu tarihte ödeme gününü 25 yapmam gerekiyor yani müşteri ayın 25 lerini istedi bizim kodlara göre ise bu gün 08.08.2009 text 3 bu güne göre baz alıyor ve kodlarda bu yönde çalışır benim sadece günlerini değiştirmem için bir yol varmı

saygılar
Genişletmek için tıkla ...

sayın evren bey bu konudada yardım lazım
 
Enren hocamın kodları çalışıyordur şüphesiz; ancak textbox17 den itibaren görünmesi gerekiyordu. TextBoxlar boş geliyor. sayın aydın 3838 TextBox3 ün TabStop ayarını True yapın TabIndex değerini 3 yapın tarihi değiştirebilirsiniz. Diğer sorunuzla ilgili de uğraşıyorum.
Kolay gelsin.
 
Evren Gizlen' Alıntı:
Aylara ait textboxlara taglarına numara verdim.
Ve tarih te ay ekleme yanlıştı onu düzelttim.
Dosyanız ektedir.:cool:
Kod: 
Sub liste()
[B][COLOR="Red"]Dim txtaylar As Control[/COLOR][/B]
ListBox1.Clear
ListBox1.AddItem "TOPLAM TUTAR  :  " & TextBox1.Text
ListBox1.AddItem ""
ListBox1.AddItem "PEŞİNAT                :  " & TextBox2.Text
ListBox1.AddItem ""

For k = 1 To ComboBox1.Text
ListBox1.AddItem k & ". TAKSİT :  " & Controls("textbox" & k + 3).Value & "     TAHSİLAT TARİHİ :  " & [B][COLOR="Red"]DateAdd("m", k, CDate(TextBox3.Text))[/COLOR][/B]
[B][COLOR="Red"]For Each txtaylar In Me.Controls
    If TypeName(txtaylar) = "TextBox" Then
        If IsNumeric(txtaylar.Tag) And txtaylar.Tag = k Then
            txtaylar = Format(DateAdd("m", k, CDate(TextBox3.Text)), "dd.mm.yyyy")
        End If
    End If
Next[/COLOR][/B]
Next

End Sub
Genişletmek için tıkla ...

sayın Mx@Raid teşekkürler
 
Sn. aydın3838 aşağıdaki kodu
Kod: 
Private Sub ComboBox1_Change()
For t = 4 To 15
Controls("textbox" & t).Enabled = False
Next

If TextBox1.Text = "" Then
MsgBox "tutar giriniz..."
TextBox1.SetFocus
TextBox1.BackColor = &HFF&

Exit Sub
End If


If TextBox2.Text = "" Then
MsgBox "peşinat giriniz en az 0 tl olmalı..."
TextBox2.SetFocus
TextBox2.BackColor = &HFF&

Exit Sub

End If
If ComboBox1.Text = "" Then
MsgBox "taksit sayısı boş olmaz"
For v = 4 To 15
Controls("textbox" & v).Enabled = False
Controls("textbox" & v).Value = ""
Next
Exit Sub
End If
For v = 4 To 15
Controls("textbox" & v).Value = ""
Next
taksit = (CDbl(TextBox1.Text) - CDbl(TextBox2.Text)) / CDbl(ComboBox1.Text)
For t = 4 To ComboBox1.Text + 3
Controls("textbox" & t).Value = taksit
Next
For t = 4 To ComboBox1.Text + 2
Controls("textbox" & t).Enabled = True
Next

For t = 1 To ComboBox1.Text
Controls("label" & t).Visible = True
Controls("textbox" & t + 3).Visible = True
Controls("textbox" & t + 16).Visible = True
Next
Call liste
End Sub
yazarsan taksitlendirdiğin kadar liste gelir. Yalnız ilgili label ve textbox ların Visible özelliğini öncelikle False yapman gerekiyor. aksi taktirde kodun ugulamasını göremezsiniz. Bir eksiği var taksidi azalttığımda tekrar azalmıyor ya da tamamen kaybolmuyor. bu nokta da uzman arkadaşlar yardım eder umarım.
 
sayın Mx@Raid

çok teşekkür ederim bana çpk yardımınız dokundu

For k = 1 To ComboBox1.Text
ListBox1.AddItem k & ". TAKSİT : " & Controls("textbox" & k + 3).Value & " TAHSİLAT TARİHİ : " & CDate(TextBox3.Text) + (k * 30)
Controls("textbox" & k + 16).Value = Format(CDate(TextBox3.Text) + (k * 30), "dd.mm.yyyy")
Next

bu kodunuzu kullandım

ekli dosyadada sizin anlatmak istediğiniz olay var çok teşekkür ederim

sorum şuydu
yılları arttırmada sorun yok

ayları arttırmada sorun yok

günler artarken text3 teki günün üzerine topluyor

bunun çözümü varmı sorum bu

15.08.2009 sa

15.09.2009 olabilirmi

teşekkürler iyi çalışmalar

dosyayı inceleyin
 

Ekli dosyalar

ekli dosyaya bakarmısınız

kuruşlara ait yuvarlamalar enson taksit ayına eklenmiştir
 

Ekli dosyalar

Son düzenleme:
Textboxların taglarına 1 den başlayarak numara vermeniz gerekirdi.
Bunu mesajımda belirtmiştim.ç
Sanırım dosyayı eklemeyi unutmuşum.
Dosya ektedir.:cool:
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst