farklı 4 biçimde metinsel yazının içindeki 2 adet sayıyı farklı hücrelere alma

[modoste]

düzeltme değil hocam cevapların olması gerektiği değeri ve biçimini yazdım
sizin sayılsal verilerin virgülden sonra 000 değeri alması dolayısıyla olması gereken 3 haneli değeri belirttim.
hocam siz sadece sayıyı virgülden sonra 3 haneli bulduğunda biçimlendirmeyi ben zaten yapabilirim.

 

[Haluk]

Yahu, ben mi göremiyorum nedir ?

Aşağıdaki resimde B-C sütunlarında benim bulduğum, sarı alanda da sizin "düzelttim" dediğiniz veriler var.

Farklılıklar nerde ?

.

.

 

[modoste]

hocam dosya inince bende böyle açıldığı için bu sıkıntı oldu galiba bende anlamadım sorunu

 

[Haluk]

Sizin bilgisayarda bir sorun var herhalde ..... ondalık ayraç işaretini kontrol ettiniz mi?

.

 

[modoste]

ayarlarım tamam hocam,
binlik ayıracım (.)
ondalık ayıracım (,)

 

[Haluk]

Bir de şunu deneyin;

Fonksiyona aşağıdaki kırmızı satırı ilave edin, sonra hücrelerden birine F2 ile girip, çıkın.

Function getKM(myRng As Range, KM As Integer)
    Dim reg As Object
    Application.Volatile
    If reg Is Nothing Then
        Set reg = CreateObject("VBScript.RegExp")
        reg.Pattern = "[Km]?:?\s?(\d{1,3}\+\d{1,3}[\d+,]*)-(\d{1,3}\+\d{1,3}[\d+,]*)"
        reg.Global = False
        reg.IgnoreCase = True
    End If
    
    If reg.Test(myRng) Then
        getKM = Replace(reg.Execute(myRng)(0).SubMatches(KM - 1), "+", "") + 0
    Else
        getKM = "HATA"
    End If
End Function

.

 

[modoste]

Yarın deneyecem hocam hayırlı ramazanlar

 

[modoste]

hocam denedim şimdi
ama değişen birşey olmadı

 

[Haluk]

Hücrelere F2 ile girip, çıktınız mı?

.

 

[Korhan Ayhan]

Ek olarak makroların etkin olduğundan emin olun.

 

[modoste]

dediklerinizi yaptım hocam ama değişen birşey yok,
verileride bulduğunuz ktf ile sonuçları da F2 ile girdim escape ile çıktım ama değişen birşey yok

hocam sizin bilgisayardan çözdüğünüz dosyayı buraya ekleseniz ben indirsem öyle baksam

 

[Haluk]

ilk hücrenin içine girip, formülü kopyalayın .... sonra başka boş bir hücrenin içine girip, formülü yapıştırıp çıkın.

Yine aynı şey oluyor mu?

.

 

[modoste]

değişen birşey olmuyo hocam.
excel ayarlarımda herhangi bir sıkıntı yok hocam zaten 1 hafta boyunca Korhan Hocam' ında başının etini yedim yine böyle Km leri sorularım vardı.
ben sorunu bilemiyorum ama bende hep aynı formatta çıkıyo

 

[Haluk]

Anlıyorum, sağlık olsun .....

Dosyayı başka bir bilgisayarda denersiniz.

.

 

[modoste]

KTF hariç makrolu çözüm yada formüllü çözeüm üretilir mi diye bu soru için beklemede olucam

 

[Haluk]

O zaman bir de ekli dosyayı deneyin...

.

 

[modoste]

hocam bir tuhaflık var ama. hala çözülemedi.

 

[modoste]

acaba çözümlü dosyayı korhan hocam yada başka bir hocam yapıp eklese onu indirip açsam nasıl olur

 

[Mahir64]

Başından beri Haluk Beyin eklediği dosyalar fevkalade çalışmakta, sorun muhtemelen sizde.

Haluk Beyin dosyasının ekledin farkı ne olacak bilemedim.

 

[modoste]

hocam belki başka pc den eklenen excel dosyasında sorun çözülür diye düşündüm
ama siz öyle diyosanız kabulum hocam.