hücrenin başına boşluk ekleme

[jinken]

merhaba,


a1 hücresinde bulunan a1:a5000 yada daha fazla olabilir hücrelerin başına 60 tane boşluk eklenebilirmi? manuel yapmak çok zahmetli.

 

[jinken]

hücre içindeki yazıların yada rakamların baş tarafına boşluk eklemek istiyorum.

 

[manyakbiri]

Biraz daha açabilir misin?

Bunun kolay bir yolu var fakat siz kaç tane hücrenin içindeki değerlerinin başına 60 tane boşluk koymak istiyorsunuz.

Sadece A1'deki mi?

Yoksa A1:A5000'i kapsayan tüm hücrelere mi?

 

[manyakbiri]

Excel dosyasını dosyatc'den upload et, yapmaya çalışayım.

 

[jinken]

örnek olarak a1 hücresinde elma yazsın elma yazısının başına 60 tane boşluk yapsın a1 hücresinden başlayarak a1 ve a65536 ya kadar dolu olan tüm hücrelerin başına 60 tane boşluk bıraksın.

A1 den a500 e kadar ne varsa daha fazla satırda olabilir.

 

[manyakbiri]

Tamam bu yapılabilir, birkaç işlem gerekiyor bunun için.

Anlatmamı ister misin, yoksa dosyanı upload edecek misin?

 

[Emir Hüseyin Çoban]

. . .

Formül ile
B1 hücresine şu formülü yazın ve aşağıya doğru çoğaltın.
(Hücrenin sağ alt köşesindeki doldurma kulpunu çift tıklayın. Son hücreye kadar çoğaltacaktır.)

="                                                            "&A1

Dada sonra B sütunundaki verileri kopyala > özel yapıştır > değerleri seçeneği ile
A sütununa yapıştırın.

Makro ile
Boş bir modüle kodları yapıştırın.

Sub kod()
    Application.ScreenUpdating = False
    For i = 1 To [A65536].End(3).Row
        Cells(i, "A").NumberFormat = "@"
        Cells(i, "A") = "                                                            " & Cells(i, "A")
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[Seyit Tiken]

 

[manyakbiri]

. . .

Formül ile
B1 hücresine şu formülü yazın ve aşağıya doğru çoğaltın.
(Hücrenin sağ alt köşesindeki doldurma kulpunu çift tıklayın. Son hücreye kadar çoğaltacaktır.)

="                                                            "&A1

Dada sonra B sütunundaki verileri kopyala > özel yapıştır > değerleri seçeneği ile
A sütununa yapıştırın.

Merhaba,

60 kere space tuşuna basmak yerine aşağıdaki formülle yapmak daha kısa geliyor bana.

=BİRLEŞTİR(YİNELE(" ";60);A1)

veya

=YİNELE(" ";60)&A1

Saygılar.

 

[Murat OSMA]

Makro ile alternatif;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i As String [COLOR="Red"]* 60[/COLOR], a%
    [COLOR="Red"]i = " "[/COLOR]
    For a = 1 To Range("A65536").End(3).Row
        Cells(a, 1) =[COLOR="Red"] i & Cells(a, 1)[/COLOR]
    Next a
    i = "": a = Empty
End Sub[/FONT]

Not: Sütundaki veriler Metin türünde ise işlem yapar.