veriyi hem harf hemde sayı olarak görme

[maxpalulu]

Aşağıdaki kodlarda bir hata var ama ben düzeltemiyorum.
Aktar tuşuna tıkladığımda çalışan makro bayi kodu bölümünü sayı olarak görüp işlem yapıyor. Sonuç bayiliste sayfasındaki vade verileri güncellenemiyor. Makronun bayikodu bölümünü olduğu gibi yani genel (hem sayı hem harf) olarak görmesini sağlayabilmek için bu makroda nasıl bir değişiklik yapmamız lazım yardımcı olabilirmisiniz.??

Dosya ektedir.....





Private Sub CommandButton2_Click()
If (MsgBox("UYARI:Borçlar Genel vade Sayfasına aktarılacak.... !" & vbCrLf & _
Chr(13) & " Emin misin ?", vbYesNo)) _
<> vbYes Then Exit Sub
son = Sheets("Genel vade").Range("a65536").End(3).Row + 1
sy = son
For i = 3 To Sheets("Bugün").Range("a65536").End(3).Row
'**** YENİ BAYİ DENETLEYELİM ********
Set ARA = Sheets("BAYİLİSTE").Range("a2:a65536").Find(Val(Sheets("Bugün").Cells(i, 1)), , xlValues, xlWhole)
If Not ARA Is Nothing Then
BORC = Sheets("BAYİLİSTE").Cells(ARA.Row, 3).Value
'BU ARADA BORCU GÜNCELLEYELİM.
Sheets("BAYİLİSTE").Cells(ARA.Row, 3).Value = (Sheets("BAYİLİSTE").Cells(ARA.Row, 3).Value - CDbl(Sheets("Bugün").Cells(i, 3))) + CDbl(Sheets("Bugün").Cells(i, 4))
Else
SON1 = Sheets("BAYİLİSTE").Range("a65536").End(3).Row + 1
Sheets("BAYİLİSTE").Cells(SON1, 1).Value = Val(Sheets("Bugün").Cells(i, 1))
Sheets("BAYİLİSTE").Cells(SON1, 2).Value = Sheets("Bugün").Cells(i, 2)
Sheets("BAYİLİSTE").Cells(SON1, 3).Value = CDbl(Sheets("Bugün").Cells(i, 4)) - CDbl(Sheets("Bugün").Cells(i, 3))
BORC = 0
End If
'************************************
For k = 1 To 7
If Sheets("Genel vade").Cells(son - 1, k).Interior.ColorIndex <> 36 Then Sheets("Genel vade").Cells(sy, k).Interior.ColorIndex = 36
If k < 3 Then Sheets("Genel vade").Cells(sy, k).Value = Sheets("Bugün").Cells(i, k).Value
If k = 3 Then Sheets("Genel vade").Cells(sy, k).Value = DateValue(Sheets("Bugün").Cells(1, 1).Value)
If k = 4 Then Sheets("Genel vade").Cells(sy, k).Value = CDbl(BORC)
If k > 4 And k < 7 Then Sheets("Genel vade").Cells(sy, k).Value = Sheets("Bugün").Cells(i, k - 2).Value
If k = 7 Then Sheets("Genel vade").Cells(sy, k).Value = (CDbl(BORC) - CDbl(Sheets("Bugün").Cells(i, 3))) + CDbl(Sheets("Bugün").Cells(i, 4))
Next k
sy = sy + 1
Next i
MsgBox "Aktarım Başarılı...", , "***********"
End Sub