PasteSpecial

[cocoa35]

Arkadaşlar merhaba aşağıdaki kod'larda bir hücre değeri =2 olduğunda bazı hücrelerin başka sayfadaki hücrelere kopyalanmasını istiyorum ( içindeki formül olmadan) aşağıdaki kod çalışıyor ancak ilk satır çalışıyor (C96).Copy diğerleri kopyalamıyor formülde hatam nerde acaba!

Private Sub CommandButton1_Click()
Sayfa140.Range("B69").Value = UserForm328.TextBox1.Text
Sayfa140.Range("B70").Value = UserForm328.TextBox2.Text
Sayfa140.Range("B71").Value = UserForm328.TextBox3.Text
Sayfa140.Range("B72").Value = UserForm328.TextBox4.Text
Sayfa140.Range("B73").Value = UserForm328.TextBox5.Text
Sayfa140.Range("B74").Value = UserForm328.TextBox6.Text
Sayfa140.Range("B75").Value = UserForm328.TextBox7.Text
Sayfa140.Range("B76").Value = UserForm328.TextBox8.Text

If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C96").Copy
Sayfa2.Range("G47").PasteSpecial xlFormats
Sayfa140.Range("C97").Copy
Sayfa2.Range("C9").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C99").Copy
Sayfa2.Range("C10").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C98").Copy
Sayfa18.Range("G158").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C101").Copy
Sayfa2.Range("L31").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C100").Copy
Sayfa2.Range("E33").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C102").Copy
Sayfa1.Range("G39").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("F64") = 2 Then
Sayfa140.Range("C103").Copy
Sayfa18.Range("F22").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
If Sayfa140.Range("E65") = 1 And Sayfa140.Range("L64") = 1 Then
Sayfa146.Range("D6").Copy
Sayfa16.Range("E14").PasteSpecial xlFormats
Application.CutCopyMode = False
End If
Sayfa18.Range("$C$22") = 2
Unload Me
UserForm317.Show
End Sub

 

[Korhan Ayhan]

Bu komut biçim yapıştırır..

PasteSpecial xlFormats