DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub trım()
For Each t In Sheets("sayfa1").Range("e1:e1847").Cells
If Not t.HasFormula Then
t.Value = WorksheetFunction.Trim(t.Value)
End If
Next
End SubNecati Bey Teşekkürler...
Dim My_Total As Double
Sub Auto_Open()
Application.OnKey "{F3}", "Selection_Sum"
Application.OnKey "{F4}", "Write_Sum"
End Sub
Sub Selection_Sum()
My_Total = WorksheetFunction.Sum(Selection)
End Sub
Sub Write_Sum()
Selection = My_Total
End Sub
Sub Auto_Close()
Application.OnKey "{F3}"
Application.OnKey "{F4}"
End SubNecati Bey Selamlar...
Aşağıdaki mesajı inceleyiniz.
Sub ReplaceLineBreak()
Dim rng As Range
Dim i As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(i, "A")
rng.Value = Replace(rng.Value, Chr(10), " ") 'Tırnak işareti arasına değişecek değer girilir.
Next i
End SubTeşekkürler... Çalışıyor.Aşağıdaki mesajı inceleyiniz.
A'da işlem yapar B'ye yazar.
Soru - alt+enter ile yapılan boşluğu silip normal boşluk koymak
Merhaba, Örneğin A1 hücresinin içerisinde aşağıdaki bir boşluk (alt+enter) olduğunda bu boşluğu normal boşlukla düzeltmek için bir formül var mıdır ? Sorun: Bu bir örnek cümledir. Olması Gereken: Bu bir örnek cümledir. Kısaca sheetteki tüm alt+enter ile yazılmış boşlukları normal boşluğa...www.excel.web.tr
Sadece A sütununda işlem yapar.
C++:Sub ReplaceLineBreak() Dim rng As Range Dim i As Long For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set rng = Cells(i, "A") rng.Value = Replace(rng.Value, Chr(10), " ") 'Tırnak işareti arasına değişecek değer girilir. Next i End Sub
RBozkurt Bey SelamlarAşağıdaki mesajı inceleyiniz.
A'da işlem yapar B'ye yazar.
Soru - alt+enter ile yapılan boşluğu silip normal boşluk koymak
Merhaba, Örneğin A1 hücresinin içerisinde aşağıdaki bir boşluk (alt+enter) olduğunda bu boşluğu normal boşlukla düzeltmek için bir formül var mıdır ? Sorun: Bu bir örnek cümledir. Olması Gereken: Bu bir örnek cümledir. Kısaca sheetteki tüm alt+enter ile yazılmış boşlukları normal boşluğa...
Sadece A sütununda işlem yapar.
C++:Sub ReplaceLineBreak() Dim rng As Range Dim i As Long For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row Set rng = Cells(i, "A") rng.Value = Replace(rng.Value, Chr(10), " ") 'Tırnak işareti arasına değişecek değer girilir. Next i End Sub
Peki kod sadece boş satırları silecek şekilde düzenlenebilir mi acaba
Tekrar merhaba,
Sub ReplaceLineBreak()
Dim rng As Range
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
Dim f As Long
Dim g As Long
For a = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(a, "A")
rng.Value = Replace(rng.Value, Chr(10), "~")
Next a
For b = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(b, "A")
rng.Value = Replace(rng.Value, "~~~~~~", Chr(10))
Next b
For c = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(c, "A")
rng.Value = Replace(rng.Value, "~~~~~", Chr(10))
Next c
For d = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(d, "A")
rng.Value = Replace(rng.Value, "~~~~", Chr(10))
Next d
For e = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(e, "A")
rng.Value = Replace(rng.Value, "~~~", Chr(10))
Next e
For f = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(f, "A")
rng.Value = Replace(rng.Value, "~~", Chr(10))
Next f
For g = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Cells(g, "A")
rng.Value = Replace(rng.Value, "~", "")
Next g
End Sub