Kurları yazmak

[aydgur]

rivate Sub CommandButton1_Click()
Dim sut As Range
Set sut = Sheets("N_TABLO").[N1]

Do While sut < ""
Set sut = sut.Offset(1, 0)
Loop
sut = TextBox1
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing
Unload Me
Sheets("N_TABLO").Select
End Sub
Private Sub CommandButton2_Click()
Dim sut As Range
Set sut = Sheets("N_TABLO").[N2]
Do While sut < ""
Set sut = sut.Offset(1, 0)
Loop
sut = TextBox2
TextBox1 = ""
TextBox1.SetFocus
Set sut = Nothing
Unload Me
Sheets("N_TABLO").Select
End Sub


Private Sub Workbook_Open()
UserForm1.Show
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub
Günaydın. N_TABLO adlı sayfamın N1 hücresine USD , N2 hücresine EURO kurlarını yazmak istiyorum.Fakat bu işlem dosyam açılı açılmaz ekteki dosyadaki form gelecek kurları yazacağım ve ondan sonra dosyam açılsın istiyorum.
Kodlarda nasıl bir değişiklik yapamam gerekir

 

[omerceri]

Sn Aydgur
kurları yazarken virgül kullanın

Private Sub TextBox1_Change()
If TextBox1 <> "" And Not IsNumeric(TextBox1.Value) Then
MsgBox "Sayısal değer giriniz"
TextBox1.Value = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
End If
If Mid(TextBox1, 2, 1) <> "," And Len(TextBox1) >= 2 Then
MsgBox "İkinci Karakter virgül olmak zorunda"
TextBox1.Value = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
End If
If Len(TextBox1) = 6 Then
Range("N1").Value = TextBox1 * 1
TextBox2.SetFocus

End If
End Sub

Private Sub TextBox2_Enter()
If Len(TextBox1) <> 6 Then
TextBox1.SetFocus
MsgBox "Dolar kurunu giriniz"
End If
End Sub

Private Sub TextBox2_Change()
If TextBox2 <> "" And Not IsNumeric(TextBox2.Value) Then
MsgBox "Sayısal değer giriniz"
TextBox2.Value = Mid(TextBox2.Value, 1, Len(TextBox2.Value) - 1)
End If
If Mid(TextBox2, 2, 1) <> "," And Len(TextBox2) >= 2 Then
MsgBox "İkinci Karakter virgül olmak zorunda"
TextBox2.Value = Mid(TextBox2.Value, 1, Len(TextBox2.Value) - 1)
End If
If Len(TextBox2) = 6 Then
Range("N2").Value = TextBox2 * 1
Unload UserForm1

End If
End Sub

 

[omerceri]

Sn Aydgur
Yukardaki kodlara hata kontrolleri ekledim

 

[aydgur]

Kurları yazma

Yanıtınız için teşekkür ederim ama yapamadım.Ekli dosyalardan word dosyasında userformun görüntüsü var,kurların yazılacağı dosya ve boş bir bağlantı dosyası gönderdim.Esas dosya çok büyük olduğu için örnek dosyalar gönderdim.Excel dosyamı tıkladığımda önce "devam ve bağlantıları düzenle" uyarısı geliyordu.Şimdi execel dosyamı açtığımda "devam-bağlantıları düzenle" kutucuğu gelsin arkasında hemen userform açılsın ,kurları yazınca dosyam açık önümde hazır olsun diyorum.Verdiğiniz kodları yazdım fakat "devam-bağlantıları düzenle" uyarısı gelmiyor ve dosya kendiliğinde açılmayor,tekrar dosyaya tıkladığımda "zaten açık" uyarısı veriyor.

 

[omerceri]

İlk mesajınızdaki soruya uygun bir cevap vermiştim. Buna uygun örnek ekliyorum.
Kusura bakmayın, yazdıklarınızdan ve örnek dosyanızdan ne gibi bir sorun olduğunu anlamadım.