Numara önüne sayı ekleme

[dimitri7711]

Merhabalar ; blog ve forumlarda yazan yöntemlerin çoğunu denedim ama numaraların önüne sayı ekleyemedim,

1,3 milyon numara var, tamamını Accessten kopyala yapıştır yöntemiyle Exele geçirdim, sorunun bundan olma ihtimali varmıdır diye düşünüyorum, bilen arkadaşlar yardımcı olursa sevinirim.

Hücre içeriği biçimlendirme gibi bi özellik varmıdır acaba Wordte olan gibi ??
Sütunun içeriğinde bir sıkıntı olmalıki hiç bir kod çalışmıyor

Örnek numara : 77111222 (8 hane),
olması gereken: 577111222 (9 hane) olmalı, yardımlarınızı bekliyorum teşekkürler

 

[Ömer]

Merhaba,

Örnek olması açısından tabonuzun 5-10 satırlık bölümünü excel dosyası olarak ekleyip ne yapılması gerektiğini dosya içerisinde detaylı açıklarmısınız.

 

[dimitri7711]

örnek dosya

Ekte gönderiyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızda bir butona bağlayarak çalıştırın.

Sub basinabesekle()
say = WorksheetFunction.CountA([a:a])
For a = 1 To say
Cells(a, "a") = 5 & Cells(a, "a")
Next
End Sub

 

[lazr55]

en basitinden 500000000 + sizin değer olabilirmi acaba

 

[dimitri7711]

Levent bey sağolun, ama dosyanın bir butonuna nasıl ekleme yapılır bilmiyorum inanın, zahmet olmassa biraz açıklarsanız çok memnun olurum

 

[Ömer]

Eğer hücre değişmeden sadece biçimin değişmesini istiyorsanız;

Fare C1 hücresindeyken kopyala yapın ve daha sonra A sütununu seçerek seçili alanda herhangi bir bölgede sağ klik yapın / özel yapıştır / bölümünden "Topla" seçeneğini işaretleyin ve tamam ile işlemi bitirin.
Bu işlemden sonra A sütunu seçili iken seçili alanda herhangi bir bölgede sağ klik yapın / Hücre biçimlendirme / İsteğe uyarlanmıştan / Tür bölümüne;

5?

yazın ve tamam ile işlemi bitirin. Artık verileriniz istediğiniz format da gözükür.

-------------------------------------------------------------------------------------

Eğer biçim olarak değilde hücrenin kendisini değiştirmek isterseniz aşağıdaki kodları module kopyalayın ve çalıştırın.

Sub Duzenle()
 
    Dim i As Long
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" And Len(Cells(i, "A")) = 8 Then
            Cells(i, "A") = 5 & Cells(i, "A")
        End If
    Next i
 
End Sub

Ayrıca Modul ve buton eklemeyle ilgili aşağıdaki linkleri inceleyebilirsiniz.

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)

Eğer makro güvenlik hatası alırsanız, seçeneklerden makro güvenlik düzeyini "düşük" konuma getirin, dosyayı kapatıp açın ve tekrar deneyin.


Not: Geç kalmışım, çözümler alternatif olsun.

 

[Levent Menteşoğlu]

Levent bey sağolun, ama dosyanın bir butonuna nasıl ekleme yapılır bilmiyorum inanın, zahmet olmassa biraz açıklarsanız çok memnun olurum

Dosyanız ektedir.

 

[dimitri7711]

Ömer bey sizede teşekkür ederim açıklamanız için , ama kodlar module nasıl kopyalanır bi bilgim yok, belki basit bişeydir ama inanın bilmiyorum nasıl yapıldığını

 

[dimitri7711]

hata

ekte aldığım hatanın ekran görüntüsünü gönderdim

 

[Levent Menteşoğlu]

Görüntüdeki yazılar okunamıyor. 8 nolu mesajımdaki dosyayı tekrar indirin bir düzeltme yapmıştım. Birde makro ayarlarının yapılmış olması gerekir. Bu ayarlar için aşağıdaki linki inceleyin.

http://www.excel.web.tr/f157/office-2007de-makro-guvenlik-ayarlaryny-du-urmek-resimli-t83371.html

 

[Necdet]

Merhaba,

Asıl dosyayı görmedik ama alternatif olsun.

Boş bir hücreye 500000000 yazın ve bu hücreyi kopyalayın.

Yapıştıracağınız hücre grubunu seçin ve Özel Yapıştırdan İşlem olarak Topla deyin