Soru F2 Enter sonrası sonuç

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Arkadaşlar Herkese merhaba,

Bahsetmiş olduğum konuda yardımlarınızı rica edebilir miyim ? Örnek olarak bir çalışma kitabı ekledim.
Seçili alanın Hücre tipleri metin olarak ayarlıyorum.Daha sonra Klavye üstünde F2 Enter yaparak sayı metin olarak biçimlendirilmiş yeşil tikli hücreler oluşturuyorum.Olması gereken işlemdir. Lakin Excel kitabındaki kodlar ile bu işlem gerçekleşmiyor. Bu konu üzerine çoğu yerde kodlar klasik olarak bu şekilde ise de çözüme ulaşılmıyor
kodlar çalışıp bittikten sonra All libraries penceresi açılıyor.Yeşil tikli hücreler oluşmuyor.

Saygılarımla.


Excel Kitabı
https://www.dosyaupload.com/jrgO

Görüntüsü
https://hizliresim.com/nb6RXg
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

C2 ve C3 de bulunan değerler (811.8, 135.3) zaten rakam değil metin. Aradaki işaret nokta olduğu için metin olarak algılıyor onun için bir hata söz onusu değil

C4 te bulunan değer (18536,1) rakamdır başına tırnak işareti koyduğunuz için metne çevrilmiş oluyor, dolayısı ile excel sizi yeşil işaret ile uyarıyor. "Metin olarak saklanan sayı".

Tam olarak ne yapmak istediğinizi anlamadım fakat

Şunları da deneyin
Bir hücreye 1.1 yazıın 1. ayın 1i olarak algılayıp otomatik "1.Ocak" şekline çevirecektir.
1.52 yazın 1952 yılının ocak ayı olarak anlayıp otomatik Ocak.52 yazacaktır.
152.65 yazın bunu hiçbir şekilde tarihe çeviremediğinden metin olarak anlayacaktır.
1,1 yazın ayraç olarak virgül kullandığınız için rakam olarak algılayacaktıır.
'1,1 yazın metin olarak algılayacaktır fakat aslında rakam olduğu için "Metin olarak saklanan sayı" mesajı ile sizi uyaracaktır.

Kolay gelsin.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Yerinekoy formülü ile yapmışsınız, daha ne istiyorsunuz?
 

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Seyit bey merhaba,

Bunun olabilecek şeklini göstermek açısından bu yöntemle izah ettim. Beyanname aktarım dosyasında bu formüller olmaması gerekiyor.
Kişi sayfaya klasik olarak rakamları girdiği zaman arka plandan bu rakamlar bu şekle dönüşmeli. Control F ile virgüller noktaya çevrilsin dediğimizde değişen ve metin tipli sayı olanların kodla neden aynı şekle gelmediği sorusunu sordum. Daha ne istiyorsunuz dediğiniz benim sorduğum kısımı kast ediyor. Çok farklı bir şey anlatmadım. Control F ile virgüller nokta olsun dediğimizde sonuç olumlu. Bunu yaparken kayıt edilen makro kodları neden bu işlemi yapmıyor. Yaparsa ki eğer bunu sayfanın altına entegre ederiz. Kullanıcı bunu bir düğme ile yapabilir.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Sizin söylediğiniz doğrudur, Makro Kaydet ile bir seferliğine virgülü noktaya çeviriyor, oluşan makro bir daha çalışmıyor. Olmuyorsa; alternatif çözümlere yönelmemiz lazım, aklıma gelen oluşturduğunuz Yerinekoy formülünü değere çeviren kodla sonuca ulaşmak.
 

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Sizin söylediğiniz doğrudur, Makro Kaydet ile bir seferliğine virgülü noktaya çeviriyor, oluşan makro bir daha çalışmıyor. Olmuyorsa; alternatif çözümlere yönelmemiz lazım, aklıma gelen oluşturduğunuz Yerinekoy formülünü değere çeviren kodla sonuca ulaşmak.
Anladım Seyit Bey, O halde beklemeye devam ediyorum.Şimdiden teşekkürler.


Saygılarımla.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,327
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Tablodaki değerler virgüllü mü olacak, yoksa virgüller nokta ile mi değişecek?

Şimdilik aşağıdaki kodu bir deneyiniz.

Alanı seçip kodu çalıştırınız.

Kod:
Sub Gib_Format()
    Dim Alan As Range, Veri As Range

    Set Alan = Selection
   
    For Each Veri In Alan
        Veri.NumberFormat = "@"
        Veri.Value = Replace(CStr(Veri.Value), ",", ".")
    Next

    MsgBox "İşleminiz tamamlanmıştır."
End Sub
 

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Merhaba,

Tablodaki değerler virgüllü mü olacak, yoksa virgüller nokta ile mi değişecek?

Şimdilik aşağıdaki kodu bir deneyiniz.

Alanı seçip kodu çalıştırınız.

Kod:
Sub Gib_Format()
    Dim Alan As Range, Veri As Range

    Set Alan = Selection

    For Each Veri In Alan
        Veri.NumberFormat = "@"
        Veri.Value = Replace(CStr(Veri.Value), ",", ".")
    Next

    MsgBox "İşleminiz tamamlanmıştır."
End Sub

Korhan bey Merhaba,

Sub Gib_Format()

Sheets("isyeriBilgileri").Select
Dim Alan As Range, Veri As Range
Set Alan = Range("P3:R19")
For Each Veri In Alan
Veri.NumberFormat = "@"
Veri.Value = Replace(CStr(Veri.Value), ",", ".")
Next
MsgBox "İşleminiz tamamlanmıştır."
End Sub

Sayfadaki format dönüşümü yapılacak yeri yapsın diye bu kısımlarda küçük bir değişiklik yaptım.Değişiklik yaptığım yerler düzgün ise Sanırım yazmış olduğunuz kod oldu. İşte bu.

Allah razı olsun elinize sağlık ve uğraşan diğer arkadaşlara da ayrıca teşekkür ediyorum. Bu kodları sayfanın activete kısmına koyarsak ana sayfaya dönmek mecburi olduğu için sayılar otomatik sizin kodla dönüşümü olmuş olacak ana sayfada XML oluştur işlemi ile beyanname hazır olacak. :))

kod aktarım format dönüşümü
https://i.hizliresim.com/5Nlv3z.png

ebeyanname gör.
https://i.hizliresim.com/bvX0aZ.png
 
Son düzenleme:

muzaffer.sm

Altın Üye
Katılım
13 Kasım 2008
Mesajlar
371
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016 TR
Korhan bey,

Kodlarınız net bir çözüm oldu. Metin tipine dönüşen sayılar aktarım için hiç sorun çıkarmıyor.Konu çözümlenmiştir.
Çok teşekkür ediyorum..Ellerinize sağlık.

Saygılarımla.
 
Üst