Dolu Hücre Aktarımı

[vasifokur]

Herkese iyi günler dilerim. Örneğini eklediğim tabloda sevkli ya da raporlu olanların bu günlerini başka bir hücrede birleştirmek istedim. Eğer formülünü kullanarak çok zamanımı aldı. Sizlere bu işlemi makro ile çözebilir miyiz sorusunu yöneltirken : çözersek her zamanki gibi yardımlarınız bekliyorum.

 

[ozgretmen]

Aşağıdaki kodu dener misiniz ?

Sub aktar()
Dim bir, iki As String
For j = 4 To 6
For i = 3 To 27
If Cells(j, i).Value = "S" Then
bir = bir & Cells(3, i).Value & "-"
Cells(j, 29).Value = Left(bir, Len(bir) - 1)
Else
End If
If Cells(j, i).Value = "R" Then
iki = iki & Cells(3, i).Value & "-"
Cells(j, 30).Value = Left(iki, Len(iki) - 1)
Else
End If
Next i
bir = ""
iki = ""
Next j
End Sub

 

[vasifokur]

Sayın Ozgretmen ; verdiğiniz bilgiye çok teşekkür ederim.

 

[ozgretmen]

Rica ederim.İyi çalışmalar...