- Katılım
- 25 Mayıs 2022
- Mesajlar
- 2
- Excel Vers. ve Dili
- 2016 Türkçe
Merhabalar . Öncelikle kod bilgim hiç yok . Yazdığım kodları da ben yazmadım . Şunu istiyorum eğer mümkünse buradaki kodlarla hücreleri birleştiriyorum veri kaybı olmadan . Buna ek olarak birleştirdiğim ve sonrasında boş olan satırların silinmesini istiyorum. Çünkü her seferinde boş olanları silmek zor oluyor . Teşekkürler şimdiden
Const seper As String = " " 'bİRLESTİRME aYİRACI."
Sub BirlestirdegerKaybetmeden()
Dim sRange As Range
Dim cll As Range
Dim tmpStr As String
Set sRange = Selection
If sRange.MergeCells = True Then Exit Sub
For Each cll In sRange.Cells
tmpStr = tmpStr & seper & CStr(cll.Value)
Next cll
tmpStr = Mid(tmpStr, Len(seper) + 1)
Application.DisplayAlerts = False
With sRange
.ClearContents
.Merge
.Value = tmpStr
End With
Application.DisplayAlerts = True
End Sub
Const seper As String = " " 'bİRLESTİRME aYİRACI."
Sub BirlestirdegerKaybetmeden()
Dim sRange As Range
Dim cll As Range
Dim tmpStr As String
Set sRange = Selection
If sRange.MergeCells = True Then Exit Sub
For Each cll In sRange.Cells
tmpStr = tmpStr & seper & CStr(cll.Value)
Next cll
tmpStr = Mid(tmpStr, Len(seper) + 1)
Application.DisplayAlerts = False
With sRange
.ClearContents
.Merge
.Value = tmpStr
End With
Application.DisplayAlerts = True
End Sub