Sola Taşıma İşlemi

[aliturkmen]

Merhaba,
Ekli örnek dosyada bulunan ve "D" sütununda bulunan 1-2-3 haneli rakamları a-b-c sütunlarına taşınması konusunda yardımlarınızı bekliyorum. Teşekkürler.

 

[leumruk]

Merhaba,
Kodu bir module kopyalayıp çalıştırın:

Sub duzelt()
Application.ScreenUpdating = False
For x = 3 To Cells(Rows.Count, "e").End(3).Row
If Cells(x, 4) <> "" Then
deg = Split(Cells(x, 4), "-")
sayi = Len(Trim(deg(1)))
hcr = Cells(x, 4): Cells(x, 4).ClearContents
Cells(x, sayi - 2) = hcr
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı."
End Sub

 

[Vedat Özer]

Selamlar,

Altarnatif olsun formül olarak,

A3 Hücresine,

=EĞER(UZUNLUK(PARÇAAL($D3;1;MBUL("-";$D3)-1))=1;$D3;"")

B3 Hücresine,

=EĞER(UZUNLUK(PARÇAAL($D3;1;MBUL("-";$D3)-1))=2;$D3;"")

C3 Hücresine,

=EĞER(UZUNLUK(PARÇAAL($D3;1;MBUL("-";$D3)-1))=3;$D3;"")

Yapıştırıp aşagıya doğru çekin,

 

[aliturkmen]

Vedat bey, çok teşekkürler elinize sağlık güzel bir uygulama oldu.
Mustafa bey, sizlerede teşekkürler elinize sağlık, fakat makroyu çalıştırınca bazı düzensizlikler oluştu.

 

[leumruk]

Mustafa bey, sizlerede teşekkürler elinize sağlık, fakat makroyu çalıştırınca bazı düzensizlikler oluştu.

Makroyu, Olması istenen şekil tablosunu sildikten sonra çalıştırın. Makro son dolu satıra göre ayarlı olduğu için ister istemez altında veri varsa ona göre işlem yapacaktır. Ya da asıl dosyanızın tablo yapısı eklediğiniz örnekle örtüşmüyor olabilir. Eğer sebep bunlardan biri değilse ne tür bir hata olduğunu belirtin inceleyelim.