ekleme

[zeki_isk]

Metin yazılı bir çok hücreye metnin sonuna aynı harfi nasıl eklerim.

 

[Ömer]

Merhaba,

Aynı hücre üzerindemi eklenecek yoksa farklı bir sütunda mı?

Örnek bir dosya ekleyerek açıklarmısınız.

.

 

[zeki_isk]

ekteki her hücrenin sonuna M eklensin

 

[Ömer]

ekteki her hücrenin sonuna M eklensin

Module kopyalayıp çalıştırınız.

Sub HarfEkle()
 
    Dim i As Integer
 
    Sheets("Sayfa1").Select
    
    For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(1, i) <> "" Then
            Cells(1, i) = Cells(1, i) & "M"
        End If
    Next i
 
End Sub

.