Excel hücresindeki TARİH'in TextBox'da farklı farklı görünmesi 03.15.2008 gibi

goco · 14 Mart 2008

VBA konusunda yeniyim. Öğrenmeye çalışıyorum. Yardımcı olursanız memnun olacağım. Benim 2 sorum olacaktı.
1.SORUM: Bir excel hücresindeki(14.03.2008) tarih Textbox'da hatalı(03.14.2008) olarak görünüyor. Bunu nasıl düzeltebilirim? Çünkü zaman zaman TextBoxlar üzerinden bu tarihleri çağırıp değiştireceğim.
2.SORUM: 8 tane TextBox'ım var.
Text1 =200,25 YTL
Text2 =300,50 YTL
Text3 =499,25 YTL
Text4 =1000,00 (Text1 +Text2+Text3)
Text5 = 5 kişi
Text6 =200,00 YTL (Text4 / Text5)
Text7 =155,00 YTL
Text8 ="ALTINDA" Yani Text6 Text7 den büyük olduğundan altında yazdı, küçük olsaydı "ÜSTÜNDE" yazacaktık.
Bunu VBA da yapabilir miyiz?
NOT: Bu sayıları TextBoxda virgülden sonra yazmada problemle karşılaştım. Bu konuyu da göz önüne alırsanız memnun olurum.
İlginize şimdiden teşekkür ederim efendim. Kolay gelsin.

karadami · 14 Mart 2008

ekteki dosyayi inceleyiniz

goco · 14 Mart 2008

karadami Üstadım,
Doğrusu ne diyeceğimi bilemiyorum. Çok aradım, uğraştım fakat bulamamıştım. Çok Çok teşekkür ederim. Elinize sağlık.

goco · 16 Mart 2008

EŞİtlİk Durumunda "eŞİt" Yazabİlİr Mİyİz?

karadami' Alıntı:
ekteki dosyayi inceleyiniz

Private Sub TextBox7_Change()
If TextBox7 = "" Then TextBox8 = ""
If Val(TextBox7.Value) < Val(TextBox6.Value) Then
TextBox8 = "ALTINDA"

Else
TextBox8 = "ÜSTÜNDE"

End If
End Sub

Karadami Üstadım, bu kodların devamında "Text6 = Text7 ise
TextBox8 ="EŞİT" yazdırabilir miyiz?
Size zahmet olacak ama. Çok teşekkür ederim.

Orion1 · 16 Mart 2008

Aşağıdaki kodu deneyiniz.

Kod:

Private Sub TextBox7_Change()
If Textbox7 = "" Then Textbox8 = ""
If Val(Textbox7.Value) < Val(Textbox6.Value) Then
Textbox8 = "ALTINDA"

ElseIf Textbox6.Value = Textbox7.Value Then
Textbox8.Value = "EŞİT"
Else

Textbox8 = "ÜSTÜNDE"

End If
End Sub

karadami · 16 Mart 2008

Kod:

 if val(textbox7.value=val(textbox6.value) then textbox8="E&#350;&#304;T"

bu kodu yolladiginiz koddaki end if ile end sub arasina yazin.
...
end if
if val(textbox7.value=val(textbox6.value) then textbox8="EŞİT"
end sub
olarak..

goco · 16 Mart 2008

Evren Gizlen' Alıntı:

Aşağıdaki kodu deneyiniz.

Kod:

Private Sub TextBox7_Change()
If Textbox7 = "" Then Textbox8 = ""
If Val(Textbox7.Value) < Val(Textbox6.Value) Then
Textbox8 = "ALTINDA"

ElseIf Textbox6.Value = Textbox7.Value Then
Textbox8.Value = "EŞİT"
Else

Textbox8 = "ÜSTÜNDE"

End If
End Sub

Evren Gizlen USTAM, verdiğiniz kodlar eşitlik durumunda yine "EŞİT" yazmadı. Bir zahmet bakabilir misiniz? Çok teşekkür ederim.

goco · 16 Mart 2008

Karadimi ustam ellerine sağlık. Tamamdır. Çok teşekkür ederim.
Ayrıca Evren Gizlen Ustama da teşekkür ederim.

Orion1 · 16 Mart 2008

goco' Alıntı:
Evren Gizlen USTAM, verdiğiniz kodlar eşitlik durumunda yine "EŞİT" yazmadı. Bir zahmet bakabilir misiniz? Çok teşekkür ederim.

Eminmisiniz?

Önceki textbox7 change olayını sildinizmi?
Ayrıca kodların çalışabilmesi için en son Textbox7 ye veri girmelisiniz.

Zeki Gürsoy · 16 Mart 2008

Önemsiz görünebilir ancak hatırlatmakta yarar olabilir.

Bildiğiniz gibi VBA da ondalık ayracı "." dır. Biz "," kullanırız. Val () fonksiyonu virgülü string olarak değerlendirdiği için virgüle kadar olan kısmı sayı olarak alır.

Bunun sonucu olarak da, kuruşlu/ondalık sayılarda kıyaslama yapıldığında hep eşitsizlik dönecektir.

Orion1 · 16 Mart 2008

Zeki Gürsoy' Alıntı:
Önemsiz görünebilir ancak hatırlatmakta yarar olabilir.

Bildiğiniz gibi VBA da ondalık ayracı "." dır. Biz "," kullanırız. Val () fonksiyonu virgülü string olarak değerlendirdiği için virgüle kadar olan kısmı sayı olarak alır.

Bunun sonucu olarak da, kuruşlu/ondalık sayılarda kıyaslama yapıldığında hep eşitsizlik dönecektir.

Zeki hocam verdiğiniz bilgiler için teşekkürler.
Bende zaten yadığım kodda VAL kullanmadım.

Kod:

ElseIf Textbox6.Value = Textbox7.Value Then
Textbox8.Value = "EŞİT"

goco · 16 Mart 2008

Buraya kadar tamam da yalnız bir sorun görünüyor. Rakamlar YTL den sonra YKRŞ yazılmıyor. Örn. 150,25 yazdığım zaman toplamında 150,00 yazıyor(TextBox4'e). Örnek kodu da şöyle:

TextBox1 = Format(TextBox1, "###0.00 YTL")

Burada Kuruşları da toplamasını istiyorum. Bu konu da yardımcı olabilir misiniz?

Orion1 · 16 Mart 2008

Zeki Gürsoy;255913' Alıntı:
Önemsiz görünebilir ancak hatırlatmakta yarar olabilir.

Bildiğiniz gibi VBA da ondalık ayracı "." dır. Biz "," kullanırız. Val () fonksiyonu virgülü string olarak değerlendirdiği için virgüle kadar olan kısmı sayı olarak alır.

Bunun sonucu olarak da, kuruşlu/ondalık sayılarda kıyaslama yapıldığında hep eşitsizlik dönecektir.

goco' Alıntı:
Buraya kadar tamam da yalnız bir sorun görünüyor. Rakamlar YTL den sonra YKRŞ yazılmıyor. Örn. 150,25 yazdığım zaman toplamında 150,00 yazıyor(TextBox4'e). Örnek kodu da şöyle:

TextBox1 = Format(TextBox1, "###0.00 YTL")

Burada Kuruşları da toplamasını istiyorum. Bu konu da yardımcı olabilir misiniz?.

Zeki bey sizi uyarmıştı.

karadami · 17 Mart 2008

Bende bır sorun gozukmuyor, kusuratları da topluyor.... verdıgım ornek dosyada userform ustunde belırttıgım gıbı kusurat gırmek ıcın "." kullanın dıye not bırakmıstım....

goco · 17 Mart 2008

KÜsÜratli Toplamlari ??

Üstadlarım, Gönderdiğim bu formu yardımlarınızla yapmaya çalıştım. Fakat Formda bazı hatalar var; çözemedim. Bir zahmet bakabilir misiniz?
İlginize Teşekkür ederim.

Bu Arada yardımları nedeniyle
"Karadami, Evren Gizlen ve Zeki Gürsoy" Uzmanlarıma TEŞEKKÜR ediyorum.
EMEĞE SAYGI DUYMAK LAZIM

goco · 17 Mart 2008

Sayın Evren Gizlen Usta,
Dediklerinizi yaptım fakat Formda problem çıktı. Açıklaması ile birlikte yukarıda gönderdim. Bir zahmet bakabilir misiniz?
İlginize teşekkür ederim.

karadami · 17 Mart 2008

1. sorunuzu anlamadım. zaten direk olarak alıyorsunuz form üstüne siz nasıl bir şey istiyorsunuz anlayamadım.
örnek olarak
150.25 => DOGRU KULLANIM
150,25 => YANLIS KULLANIM Bu şekilde yazarsanız 15025 olarak kabul edilir.
2.sorunuzun cevabı için daha önceki mesajlarda da belirttiğim gibi kuruş girmeden önce "." kullanin "," degil.
3. sorunuzun cevabı

Kod:

Private Sub TextBox6_Change()
If TextBox7 <> "" Then TextBox8 = ""
If (TextBox7.Value) < (TextBox6.Value) Then
TextBox8 = "1/3'&#252;n &#220;ST&#220;NDE"
Else
TextBox8.Value = "1/3'&#252;n ALTINDA"
End If
If (TextBox7.Value) = (TextBox6.Value) Then TextBox8 = "1/3'&#252;ne E&#222;&#221;T"
End Sub

goco · 17 Mart 2008

karadami' Alıntı:
1. sorunuzu anlamadım. zaten direk olarak alıyorsunuz form üstüne siz nasıl bir şey istiyorsunuz anlayamadım.
örnek olarak
150.25 => DOGRU KULLANIM
150,25 => YANLIS KULLANIM Bu şekilde yazarsanız 15025 olarak kabul edilir.
2.sorunuzun cevabı için daha önceki mesajlarda da belirttiğim gibi kuruş girmeden önce "." kullanin "," degil.
3. sorunuzun cevabı

Kod:

Private Sub TextBox6_Change() If TextBox7 <> "" Then TextBox8 = "" If (TextBox7.Value) < (TextBox6.Value) Then TextBox8 = "1/3'ün ÜSTÜNDE" Else TextBox8.Value = "1/3'ün ALTINDA" End If If (TextBox7.Value) = (TextBox6.Value) Then TextBox8 = "1/3'üne EÞÝT" End Sub

Karadami Ustam, teşekkür ederim. Dediklerinizi harfiyen yaptım. Fakat;
1.SORUM: Tarih ve sayıyı Excel Sayfasından değil de UserForm üzerindeki herhangi biryerden(TextBox vs. den) almak istemiştim.
2.SORUM: Text1,2,3 ve 13'e yazdıklarımın toplamı Text4'e Küsüratlı olarak geçmiyor. Gönderdiğim dosya üzerinde dener misiniz? "," yerine "."NOKTA kullanıyorum zaten. Yazarken yazıyor fakat Toplama geçmiyor.
3.SORUM: Text6 ile Text7'nin eşitliği durumunda "EŞİT" de yazmıyor. Form üzerinde deneyebilir misiniz?

karadami · 17 Mart 2008

goco' Alıntı:
Karadami Ustam, teşekkür ederim. Dediklerinizi harfiyen yaptım. Fakat;
1.SORUM: Tarih ve sayıyı Excel Sayfasından değil de UserForm üzerindeki herhangi biryerden(TextBox vs. den) almak istemiştim.
2.SORUM: Text1,2,3 ve 13'e yazdıklarımın toplamı Text4'e Küsüratlı olarak geçmiyor. Gönderdiğim dosya üzerinde dener misiniz? "," yerine "."NOKTA kullanıyorum zaten. Yazarken yazıyor fakat Toplama geçmiyor.
3.SORUM: Text6 ile Text7'nin eşitliği durumunda "EŞİT" de yazmıyor. Form üzerinde deneyebilir misiniz?

sayin goco son verdigim kodlari formlar arasina ekleyin. dikkat edin textbox6_change()
...
end sub

sizin kodlarinizda bu yok. yada textbox 7 nin ustune 2 tiklayin ve textbox7_change deki 7 i 6 yapin. o zaman esittir yaziyor.

eklediginiz dosya bende sorunsuz calisiyor kusuratlarida topluyor isleme de dahil ediyor.

goco · 18 Mart 2008

karadami' Alıntı:
sayin goco son verdigim kodlari formlar arasina ekleyin. dikkat edin textbox6_change()
...
end sub

sizin kodlarinizda bu yok. yada textbox 7 nin ustune 2 tiklayin ve textbox7_change deki 7 i 6 yapin. o zaman esittir yaziyor.

eklediginiz dosya bende sorunsuz calisiyor kusuratlarida topluyor isleme de dahil ediyor.

Sayın Karadimi Hocam, İnanın dediklerinizi denedim. Fakat hata verdi. Dosya burada bir bakıp düzeltebilir misiniz acaba? Başınızı ağrıtıyorum kusura bakmayın. İlginize teşekkür ederim.