DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=" "&A1
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
Merhaba,. . .
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.)
Dada sonra B sütunundaki verileri kopyala > özel yapıştır > değerleri seçeneği ileKod:=" "&A1
A sütununa yapıştırın.
=BİRLEŞTİR(YİNELE(" ";60);A1)
=YİNELE(" ";60)&A1
[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]