aktarırken formül yerine hücre değeri yazdırmak

[asilme]

arkadaşlar elimde aktar makrosu var
Bu makro çalıştığında C sütunundaki isme göre yeni sayfa açıyor ve açtığı sayfaya B;J ye kadar hücreleri yapıştırıyor sorun yok.
ancak istediğim sayfada kopyalanıp aktarılan değerler değer olarak gelmiyor yani B sütununda tarih var ( Bugün() ) olarak yeni açtığı sayfayada bugün olarak getiriyor ben değerlerin gelmesini istiyorum formülü aşağıya yazdım neresine ne eklemem gerekiyor yardımcı olurmusunuz şimdiden teşekkürler

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim Sayfa As String
Dim S1 As Worksheet
Set S1 = Sheets("Genel")
Application.ScreenUpdating = False
For j = 3 To Worksheets.Count
Sheets(j).Cells.Delete Shift:=xlUp
Next j
For i = 3 To S1.[B65536].End(3).Row
Sayfa = S1.Cells(i, "C")
If Not SayfaVarMi(Sayfa) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa
S1.Select
End If
S1.Range("B2:J2").Copy Sheets(Sayfa).Range("B2")
S1.Range("B" & i & ":J" & i).Copy Sheets(Sayfa).Range("B" & _
Sheets(Sayfa).[B65536].End(3).Row + 1)

Sheets(Sayfa).Range("B:J").EntireColumn.AutoFit

Next i
Set S1 = Nothing: Sayfa = vbNullString
j = Empty: i = Empty
Application.ScreenUpdating = True

End Sub

Function SayfaVarMi(SayfaAdi As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

 

[Ömer]

Merhaba,

Eklediğiniz kodlarda bir alanı kırmızı olarak renklendirdim. Bu satırların yerine aşağıdaki satırları ekleyin.

S1.Range("B2:J2").Copy
Sheets(Sayfa).Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

S1.Range("B" & i & ":J" & i).Copy
Sheets(Sayfa).Range("B" & Sheets(Sayfa).[B65536].End(3).Row + 1).PasteSpecial _
    Paste:=xlPasteValues, Operation:=xlNone

Application.CutCopyMode = False

.

 

[asilme]

Çok teşekkür ederim hocam evde bilgisayar arızalı yarın büroda deneyeceğim inşallah çalışır hakkınızı helal edin saygılar

 

[asilme]

Ömer hocam dediğiniz kodu düzelttim ancak her seferinde 1004 eror veriyor ve okeyleyince fazladan Sayfa23 bir daha çalıştırınca sayfa24 şeklinde sayfa ekliyor sizin kırmızı ile işaretlediğiniz yerin 2 satır üstünde bulunan Active. Sheet. Name = Sayfa yazan satırı sarı boyuyor yardımcı olabilirsiniz teşekkürler

 

[Ömer]

Örnek dosya eklermisiniz.

www.dosya.tc

.

 

[asilme]

hocam dosyayı yükledim bakarsanız sevinirim

 

[Ömer]

Linki paylaşmamışsınız.

 

[asilme]

http://s3.dosya.tc/server11/4jcxkg/asilme_AYRI.rar.html

 

[asilme]

Hocam tekrar yükledim

 

[Ömer]

Eklediğiniz dosyadaki "sayfalara aktar" butonuna basınca bende bir hata vermedi.

.

 

[asilme]

Eklediğiniz dosyadaki "sayfalara aktar" butonuna basınca bende bir hata vermedi.

.

hocam aktar butonu çalışmıyordu açıklamaya bakabildinizmi

 

[Ömer]

Açıklamanızı fazla anlamadım maalesef. Fakat ilk sorunuzdaki isteğinizle aynı değil sanırım.

Benim söylemek istediğim, ilk sorunuzdaki isteğinizde bir hata yok. Butona basınca istediğiniz formatta aktarım oluyor.

Önce bu konuyu halledelim diye yazdım.

.

 

[asilme]

Tamam hocam mümkünse diğeri ne bakabilirsin şimdiden teşekkür ederim sağolun

 

[asilme]

Açıklamanızı fazla anlamadım maalesef. Fakat ilk sorunuzdaki isteğinizle aynı değil sanırım.

Benim söylemek istediğim, ilk sorunuzdaki isteğinizde bir hata yok. Butona basınca istediğiniz formatta aktarım oluyor.

Önce bu konuyu halledelim diye yazdım.

.

Hocam yeni tarihleri eklerken eskiyi siliyor yeni fark ettim. Her iki formülle çalışıyor ve istediğim sayfaya kopyalıyor ancak ben alt alta kopyalama sını istiyorum formül bir öncekini silip yerine yazıyor her seferinde alta kopyalanması için formüle ne eklemem gerek