Makro Çalışması

[eyeofthetiger]

Herkese Merhaba;
excelde makro ile ilgili bir çalışma hazırladım.Ama takıldığım yerler oldu.
Mümkünse yardımcı olabilirseniz sevinirim.
user formda bir tablo hazırladım. İstedğim;
eğer yükleme tarihi ile ilgili kısma tarih bilgisi girilmişse onun üzerine 180 eklesin, değilse o zaman geçici yükleme tarihini vade olaral alsın dedim.
Ama yükleme tarihini 21.06.2009 diye giriyorum. Ancak vadeyi bana 21062189 gibi bir rakam veriyor.
Ayrıca; komisyon hesabını istiyorum. Bunun için gereken formül yazdığım kodda da belli olduğu gibi şöyle;
(vade-açılış tarihi)* ((toplam tutar*komisyon oranı)/360)
Dosya ektedir. Yardımcı olursanız sevinirim.

 

[halit3]

vade bilgisini aşağıdaki kodu dene
TextBox8.Value = CDate(TextBox5.Value) + 180

komüsyon hesabını anlayamadım nasıl hesaplandığını anlatırsan yardımcı olmaya çalışıyım

 

[Mx@Raid]

kardeş ilgili textboxu bu şekilde düzenler misin?

Private Sub TextBox8_Change()
TextBox8 = Format(Date + 180)
End Sub

 

[eyeofthetiger]

Merhaba

vade bilgisini aşağıdaki kodu dene
TextBox8.Value = CDate(TextBox5.Value) + 180

komüsyon hesabını anlayamadım nasıl hesaplandığını anlatırsan yardımcı olmaya çalışıyım

Öncelikle ilgiizden dolayı çok teşekkür ederim saolun.
Komisyon hesabının mantığı şöyle;
(vade tarihi -açılış tariihi ) bu bana ne kadar süre için komisyon hesaplayacağımı gösterir.(2 günlük mü 20 günlük mü komisyon)
Toplam tutarı (açılış tutarı *1,1 ile hesaplanır.onun kodu doğru çalıştı.yani açılış tutarından toplam tutarı bulabiliyorum) yıllık 0,004 olan komisyon oranı ile çarpıoruz. sonra 360'a bölüyor 1 günlüğü buluyorum en sondada yukarıda anlattığım gibi vade-açılış tarihinden bulduğum rakamla çarpıyorum.
Umarım açıklayıcı olmuştur.
Şİmdiden teşekkürler

 

[Mx@Raid]

Tarih formatını ingiliz tarih biçimine göre veriyor. Onun yerine şunu da kullanabilirsiniz. Halit beyin dikkatinden kaçmış olabilir. Gün içerisinde o kadar çok soruya cevap veriyor ki bu normal.

TextBox8.Value = Format(CDate(TextBox5.Value) + 180, "dd.mm.yyyy")

 

[halit3]

evet sayın Mx@Raid düzenlemesi doğrultusunda aşağıdaki kodları denermisiniz.

Private Sub CommandButton1_Click()
TextBox4.Text = Format(TextBox2.Value * 1.1, "#,###.00")
End Sub
Private Sub CommandButton2_Click()
If TextBox5.Value <> "" Then
TextBox8.Value = Format(CDate(TextBox5.Value) + 180, "dd.mm.yyyy")
Else
If TextBox7.Value <> "" Then
TextBox8.Value = CDate(TextBox7.Value)
Else
MsgBox "geçici tarh yazılı değil"
End If
End If
End Sub
Private Sub CommandButton3_Click()
Dim m As Integer
Dim n As Integer
If TextBox1.Text = "" Then
MsgBox "Tarih yazılı değil"
Exit Sub
End If
If TextBox8.Text & TextBox7.Text = "" Then
MsgBox "Vade veya geçici tarih yazılı değil"
Exit Sub
End If
If TextBox4.Text = "" Then
MsgBox "Toplam tutar yazılı değil"
Exit Sub
End If
If TextBox9.Text = "" Then
MsgBox "Komüsyon oranı yazılıdeğil"
Exit Sub
End If
If TextBox8.Text <> "" Then
a = CDate(TextBox8.Text)
Else
a = CDate(TextBox7.Text)
End If
m = Val(a - CDate(TextBox1.Text))
n = Val((TextBox4.Text) * TextBox9.Text)
yer = Round(Val(m) * / 360, 2) * Val((m))
TextBox10.Text = Format(yer, "#,###.00")
End Sub
Private Sub TextBox5_Change()
Dim i As Date
End Sub
Private Sub TextBox6_Change()
Dim i As Date
End Sub

 

[eyeofthetiger]

Çok teşekkür ederim saolun üstadlar. ALLAH razı olsun....

 

[eyeofthetiger]

Tekrar Merhabalar;
Sayın üstadlar eğer mümkünse sizden bir ricam daha olacak. Kullandığım userform1'e bir commandbutton daha eklemek istiyorum. Adı raporlar olacak şekilde düğmeye bastığımda;
yukarıdan aşağıya userformdaki tüm label'leri bir defaya mahsus oacak şekilde sheet3'te başlık olarak eklesin.(zaten diğer userformların labelleride aynı olacak sadece textbox'larda bir değişiklik olacak.Yani akbank'ın açlış tarihi ile şekerbank'ın açılış tarihi birbirinden farkılıdır gibi) userformdaki labelleri excelde sayfa 3'ekledikten sonra altına geçip labelleirn yanındak textbox'lardaki değerleri ait olduğu labelin altına atasın.
bundan sonra açacağım userformlar içindeki textbox'ları yine sayfa 3'e doğru bir alt satıra gelecek şekilde atasın.
Yarıdmlarınız için şimdiden çok teşekkür ederim.Saolun

 

[halit3]

böyle bir kodmu istiyorsun

Private Sub CommandButton4_Click()
For i = 1 To 9 'Label nesnesi kadar sayı gireceksin
Controls("Label" & i) = Sheets("Sheet3").Cells(1, i).Value
Next i
End Sub

 

[eyeofthetiger]

Kod Hata veriyo

Mrb;
ya son verdiğiniz kodu uyguladım ama hata veriyor.
benim istediğim şey;
userforma 4.commanbuton ekleyecem onun click olayına;
öyle bir kod yazayım ki userformdaki labelleri başlık olarak sheet3'e atsın. altına da label'lerin karşısındaki textbox'ta yer alan bilgileri girsin. Örneğin;
Açılış Tarihi
21.06.2009
bu şekilde raporla düğmesine bastığımda bunları sheet 3'e yerleştirsin. Hangi hücre olduğu önemli değil.
Birtürlü çalışmayı bitiremedim. Yardımcı olursanız sevinirim.