DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub birleştir()
Dim i, son As Integer
son = Cells(65536, 2).End(xlUp).Row
For i = 1 To son
Cells(i, 6).Value = Cells(i, 1) & Left((Cells(i, 2)), 6) & "/" & Left(Cells(i, 4), 1) & Cells(i, 3)
Next
End Sub