Merhaba arkadaşlar;
1.000 metre kare 1 dekar etmektedir. Bende parsel alanlarını dekar metre kare olarak bölmek istiyorum.
Buna örnek verirsek;

Text: 1.548,52 yi Text1: 1 Text2: 548,52
Text: 15.350 i Text1: 15 Text2: 350
Text: 265 i Text1: boş yada 0 Text2:265

şeklinde parçalatmak istiyorum.
Teşekkür ederim.

Merhaba
daha önce aşagıdaki mesajda buna benzer bir soruya cevap verildi,kontrol edin.

virgülden öncesi ve sonrasını alma

(22/12/2014, 13:08)C*e*l*o*y*c*e yazdı: Merhaba
daha önce aşagıdaki mesajda buna benzer bir soruya cevap verildi,kontrol edin.

virgülden öncesi ve sonrasını alma

Sn. C*e*l*o*y*c*e
O örnekte kriter olarak virgül var, ancak bende virgül olabilir de olmayabilir de.
ayrıca bizim rakamlarımız virgülden sonra 1, 2, 3, 4, 5 basamaklı olabiliyor. yani

5,23 metre kare, Text1: 0 Text2: 5,23
15 metre kare, Text1: 0 Text2: 15
153,65 metre kare, Text1: 0 Text2: 153,65
1.251,65 metre kare, Text1: 1 Text2: 251,65
56.386 metre kare, Text1: 56 Text2: 386
155.327,01 metre kare, Text1: 155 Text2: 327,01

şeklinde olabiliyor bu yüzden "InStr" nin bu işi çözmekte yeterli olamayacağını düşünüyorum.
teşekkür ederim.
 

Örnek uygulamadaki kodları üstteki şekilde değiştirdiğinizde istediğiniz sonuca ulaşılmıyor mu ?

(22/12/2014, 17:37)SCavusoglu yazdı:

Kod:

Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = Format(Me.Metin0, "General Number") Then
    Me.Metin2 = Format(Me.Metin0, "General Number")
    Me.Metin4 = ""
Else
    Me.Metin2 = Left([Metin0], InStr([Metin0], ".") - 1)
    Me.Metin4 = Mid([Metin0], InStr([Metin0], ".") + 1)
End If
End Sub

Örnek uygulamadaki kodları üstteki şekilde değiştirdiğinizde istediğiniz sonuca ulaşılmıyor mu ?

yukarıda verdiğiniz kodları örnek uygulama üzerinde de aynı şekilde uyguladım fakat olmuyor. teşekkürler.

Merhaba,

Gerçi siz olmadığını söylemişsiniz ama lütfen bi inceleyin ve olmayan tarafını bildirin. Anlatıklarınızı bir kaç defa okudum ve olduğuna kanaat getirdim.