Şimdi Ara

Excel'den İYİ ANLAYAN Gelsin..

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
16
Cevap
1
Favori
736
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • elimde aşağıdaki gibi 1000 adet numara var. Bu numaralar arasında boşluk olmaması gerekiyor.

    yani numaralar yan yana boşluksuz yazılması lazım. Örneğin 4569998817555682 bu şekilde.

    Excelde aralardaki boşlukları sildiğinizde 4,57E+15 gibi bir numara çıkıyor.

    Bunun bir formülü var mıdır?

    Çok aradım ama cevabı bulamadım.



    4569 9988 1755 5682

    3254 9988 1773 1755

    6352 9988 1778 3251

    2182 9988 1780 3237




  • uppp

  • sayı olarak kullanılmayacaksa boşlukları silmeden önce;

    ya hücrede veri başına ' (tırnak) ekle

    ya da hücreleri seçip sağ tıkla / hücre biçilendir / Sayı / Metin

    seç

  • Hepsini seç ctrl f e bas değistir de ilk satıra boşluk koy aşağıdaki satira bisey yapma değiştir de boşluklar silinecektir. Sonrada hepsini sayiya cevirirsin
  • MetaLisT_ kullanıcısına yanıt

    bunu daha önce denemiştim ama çözüm değil :(

  • akcan kullanıcısına yanıt

    bunu da daha önce denedim ama 1000 satır olduğu için tüm toplu hepsini yapmak için dediğiniz yöntem çözüm değil :(

  • kaç satır hücre seçerseniz o kadar işlem yapar. sayının 1000 olması önemli değil.

    formül ile yapmak isterseniz formül şu:


    =YERİNEKOY(A1;" ";"")

  • eğer dediğiniz buysa

    Excel'den İYİ ANLAYAN Gelsin..


    https://www.extendoffice.com/documents/excel/3357-excel-insert-space-after-3-characters.html


    vba'i açıp şu kodu yapıştırın. sonra text alanlarını seçip kodu F5 ile koşturun.


    Sub addspace()

    'updateby Extendoffice

        Dim As Long

        Dim xCell As Range

        Dim xRg As Range

        Dim xTxt As String

        Dim xStr As String

        Dim xUpdate As Boolean

        On Error Resume Next

        xTxt = ActiveWindow.RangeSelection.Address

        Set xRg = Application.InputBox("Please select the data range:""Kutools for Excel", xTxt, , , , , 8)

        Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

        If xRg Is Nothing Then Exit Sub

        xUpdate = Application.ScreenUpdating

        Application.ScreenUpdating = False

        For Each xCell In xRg

            xStr = xCell.Text

            xTxt = ""

            For i = 1 To Len(xStr) Step 4

                If xTxt = "" Then

                    xTxt = Mid(xStr, i, 4)

                Else

                    xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)

                End If

            Next

            xCell = xTxt

        Next

        Application.ScreenUpdating = xUpdate

    End Sub




    < Bu mesaj bu kişi tarafından değiştirildi 61gün -- 28 Ocak 2021; 23:12:17 >




  • 61gün kullanıcısına yanıt

    tam tersini istiyorum aslında. Boşlukları silmek istiyorm.

  • Normalde işimin yoğunluğundan forma çok sık girmiyorum ancak denk geldi ve sorununu çözeyim dedim. Kolaylıklar dilerim.

    Excel'den İYİ ANLAYAN Gelsin..
  • erbilge E kullanıcısına yanıt

    sanırım fark etmedin ama hücreyi biçimlendir dedikten sonra ilgili rakamın sonuna daima sıfır rakamını atıyor.

    Sende kendi hazırladığın excel'i kontrol edersen o şekilde :)

  • Senin için sayı olarak saklanması önemli yoksa metin olarak kalmasının bir mahsuru var mı?

  • @akcan üstadın yerinekoy formülü gayet güzel çalışıyor.

    Formülü aşağıya doğru çekip, daha sora sütunu komple seçip, kopyala/değerleri yapıştır yapınca, rakamlar düzgün görünüyor.


    Bunlara matematiksel işlemler yapmayacaksanız, görüntülemede sorun olmaz.

  • VitesKolundakiTesbih V kullanıcısına yanıt
    Hücre formatını sayı dan yazıya/text e çevirrseniz 457E li gözükmezler
  • akcan kullanıcısına yanıt

    bu formül gayet başaralı ve kolay.

    Yardımlarınız için teşekkür ederim.

  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.