Boş Karekterleri silme

[musaagac]

Arkadaşlar Sayfa Bir Hücrede yazılı olan karekter var fakat karekter 4 Harf yanı sıra 22 karekter boşluk var bunu ben sayfa2 sadece 4 Harf olan kısmını almak istiyorum. Nasıl yapabilirim mümkün mü?

Örneğin
A1 Hücresinde Musa yazılı. Musa******************
Yıldızlar boşluklar oluyor.

 

[İhsan Tank]

dosya ekler misiniz bu şekilde nasıl çözelim

 

[musaagac]

Ekli Dosya

Dosya Ekledim

 

[İhsan Tank]

Dosya Ekledim

merhaba

Option Explicit
Sub parçala()
Dim ts, kaplan
kaplan = MsgBox("Verileri Taşıyayım Mı_?", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Sheets("Sayfa2").Range("A:B").ClearContents
For ts = 1 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa2").Cells(ts, "A") = Mid(Sheets("Sayfa1").Cells(ts, "A").Value, 1, 4)
Sheets("Sayfa2").Cells(ts, "B") = Mid(Sheets("Sayfa1").Cells(ts, "B").Value, 1, 4)
Next
MsgBox "Verileri Taşıdım", vbInformation, "Bitiş"
End Sub

bu kodu boş bir module kopyalayarak deneyiniz

 

[musaagac]

10 Karekterli ismi 4 Karektere indiriyor. Dolu Karekter Kaç ise o kalsın boş karekterleri silmesini istiyorum

 

[musaagac]

En Uzun Karekter 15 En Kısa Karekter 3 içeriyor. 3 Karekterli olanda 3 karekterden sonrasına silecek 15 karekterden ise 15 karekterden sonra silinecek

 

[İhsan Tank]

En Uzun Karekter 15 En Kısa Karekter 3 içeriyor. 3 Karekterli olanda 3 karekterden sonrasına silecek 15 karekterden ise 15 karekterden sonra silinecek

bunu deneyin

Option Explicit
Sub parçala()
Dim ts, kaplan
kaplan = MsgBox("Verileri Taşıyayım Mı_?", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Sheets("Sayfa2").Range("A:B").ClearContents
Sheets("Sayfa1").Range("A1:B65536").Copy
Sheets("Sayfa2").Range("A1:B65536").PasteSpecial
Application.CutCopyMode = False
Sheets("Sayfa2").Range("A1").Select
For ts = 1 To Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa2").Cells(ts, "A") = Replace(Sheets("Sayfa2").Cells(ts, "A"), " ", "")
Sheets("Sayfa2").Cells(ts, "B") = Replace(Sheets("Sayfa2").Cells(ts, "B"), " ", "")
Next
MsgBox "Verileri Taşıdım", vbInformation, "Bitiş"
End Sub

 

[musaagac]

Sheets("Sayfa2").Range("A1").Select
bu alanda hata veriyor

 

[İhsan Tank]

ben böyle bir hata ile karşılaşmadım deniyorum ve hata vermiyor
sizin asıl sayfa adlarınız farklı olabilir mi_?

 

[musaagac]

Çözdüm Tşk Ederim

 

[İhsan Tank]

Çözdüm Tşk Ederim

lütfen türkçemizi kısaltmayalım yazmaktan mı korkuyorsunuz yoksa