Hücre sonuna boşluk ekleme

[sldrkyurdal]

Arkadaşlar merhaba ,
Bir konuda desteğe ihtiyacım olacak örneğin excelde hücrede bulunan karakterlerin toplamının 100 olmasını istiyorum yüze tamamlanması için hücre sonuna boşluk koymak istiyorum değerli yardımlarınızı rica ederim Teşekkürler

 

[YUSUF44]

Aşağıdaki formülü deneyin:

=EĞER(UZUNLUK(A1)<100;A1&YİNELE(" ";100-UZUNLUK(A1));A1)

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

Sub Test()
    Dim i As String * 100
    i = Range("A1")
    Range("A1") = i
End Sub

 

[YUSUF44]

Eğer veriler 100 karakterden uzunsa ilk 100 karakteri alması için aşağıdaki formülü kullanabilirsiniz. Bir önceki formülde 100 karakterden uzun olanları aynen alıyordu:

=EĞER(UZUNLUK(A1)<100;A1&YİNELE(" ";100-UZUNLUK(A1));SOLDAN(A1;100))

 

[sldrkyurdal]

Merhaba.
Aşağıdaki gibi yapabilirsiniz.

Sub Test()
    Dim i As String * 100
    i = Range("A1")
    Range("A1") = i
End Sub

Çok teşekkürler oldu dolu olan tüm satırlara yapmak istiyorum nasıl yaparım

 

[sldrkyurdal]

Eğer veriler 100 karakterden uzunsa ilk 100 karakteri alması için aşağıdaki formülü kullanabilirsiniz. Bir önceki formülde 100 karakterden uzun olanları aynen alıyordu:

=EĞER(UZUNLUK(A1)<100;A1&YİNELE(" ";100-UZUNLUK(A1));SOLDAN(A1;100))

Çok teşekkürler

 

[sldrkyurdal]

Aşağıdaki formülü deneyin:

=EĞER(UZUNLUK(A1)<100;A1&YİNELE(" ";100-UZUNLUK(A1));A1)

Çok teşekkürler

 

[Muzaffer Ali]

Çok teşekkürler oldu dolu olan tüm satırlara yapmak istiyorum nasıl yaparım

Sayfadaki bütün hücrelere uygulamak için.

Sub Test()
    Dim i As String * 100
    Dim r As Range
    For Each r In Cells.SpecialCells(xlCellTypeConstants)
        i = r
        r = i
    Next
End Sub

Sadece "A" kolonuna uygulamak için.

Sub Test2()
    Dim i As String * 100
    Dim r As Range
    For Each r In Range("A1:A" & Cells(Rows.Count, "A").End(3).Row)
        i = r
        If Not r = "" Then r = i
    Next
End Sub

 

[sldrkyurdal]

Sayfadaki bütün hücrelere uygulamak için.

Sub Test()
    Dim i As String * 100
    Dim r As Range
    For Each r In Cells.SpecialCells(xlCellTypeConstants)
        i = r
        r = i
    Next
End Sub

Sadece "A" kolonuna uygulamak için.

Sub Test2()
    Dim i As String * 100
    Dim r As Range
    For Each r In Range("A1:A" & Cells(Rows.Count, "A").End(3).Row)
        i = r
        If Not r = "" Then r = i
    Next
End Sub

Çok teşekkürler emeğinize sağlık

 

[elmango]

Merhaba
VBA da hücre karakter sayısı sınırlandırmak ve istenilen karakterden az ise boşluk ile tamamlamak için aşağıdaki kodu kullanıyorum. Fakat aynı kod libre office de çalışmıyor. Bu kodun libre office karşılığı yada vba için bir alternatifi var mıdır. Yardımcı olursanız sevinirim
Dim kurum_kodu As String * 5