Kodlama yardım

[recepkull]

Arkadaşlar aşağıda makro ile kopyalama yapıştırma kodu var. Bu kod verileri kopyalarken verilerdeki formülleri de kopyalıyor. Bunu sadece değerleri kopyalaması için koda nasıl bir ekleme yapmak gerekiyor. Lütfen yardım 2 gündür bunu bekliyorum.

 Syf = CStr(Sheets("Veri").[Z2])
    If Sheets("Veri").Range("Z3") = 1 Then Sheets("Veri").Range("N9:V26").Copy Sheets(Syf).Range("O16")

 

[veyselemre]

Sub test()
    syf = CStr(Sheets("Veri").[Z2])
    If Sheets("Veri").Range("Z3") = 1 Then
        Sheets("Veri").Range("N9:V26").Copy
        Sheets(syf).Range("O16").PasteSpecial Paste:=xlPasteValues
    End If
End Sub

 

[recepkull]

Alt alta yazmayla yan yana yazma arasındaki fark nedir

 

[veyselemre]

Alt alta yazmayla yan yana yazma arasındaki fark nedir

Alt alta yazmakla alakası yoktur. Yanına yazarak sadece düz yapıştırma işlemi yapılabilir.
Aşağıdaki şekilde özelYapıştır/Değerleri demek istiyoruz.

.PasteSpecial Paste:=xlPasteValues

 

[recepkull]

Hocam yanlış anlamayın öğrenmek için soruyorum. Alt alta yada yan yana yazmakla alakası yok ise neden sizin alt alta yazdığınız kod düzgün bir şekilde çalışıyorken benim yan yana yazdığım bu kod hata veriyor ?

 Syf = CStr(Sheets("Veri").[Z2])
    If Sheets("Veri").Range("Z3") = 1 Then Sheets("Veri").Range("N9:V26").Copy Sheets(Syf).Range("O16").PasteSpecial Paste:=xlPasteValues

 

[veyselemre]

Yanına sadece düz kopyalamayı pratik olarak yapmak için bir kullanım yapmışlar. Yani sadece düz paste işlemini yapıyor.

Alakası yok derken pastespecial yapılacağını, düz paste yapılmayacağını demek istemiştim.

Özel yapıştır şeklinde kullanmak için ayrıca yazmak mecburiyetindesiniz.

 

[Haluk]

Veysel Bey'in müsaadesiyle bir bilgi vereyim, belki faydası olur.

Kodu "If Şart then *****" olarak 1 satırlık kullanıyorsanız, ******* olarak belirtilen yerde sadece 1 adet komut kullanabilirsiniz. Eğer If şartı doğruysa ve 1'den fazla komut kullanacaksanız o zaman; If-End If bloğu arasındaki her satıra komutları ayrı ayrı yazacaksanız.

Sizin durumunuzda Veysel Beyin önerdiği kodda, şart sağlandığında yürütülmesi gereken 2 adet komut var. 1nci komut Kopyalama, 2nci komut ise Özel Yapıştır.

Durum bundan ibarettir...

.

 

[PriveT]

Hocam yanlış anlamayın öğrenmek için soruyorum. Alt alta yada yan yana yazmakla alakası yok ise neden sizin alt alta yazdığınız kod düzgün bir şekilde çalışıyorken benim yan yana yazdığım bu kod hata veriyor ?

Sizin koda ek olarak @veyselemre beyin kodlamasının sonunda fazladan
.PasteSpecial Paste:=xlPasteValues
End If
End Sub
var. Belki dikkatinizi çekmemiştir.

 

[recepkull]

Yanına sadece düz kopyalamayı pratik olarak yapmak için bir kullanım yapmışlar. Yani sadece düz paste işlemini yapıyor.

Tamam işte öğrenmek istediğim buydu yan yana yazılan kod sadece düz kopyalama yapıyor. .PasteSpecial Paste:=xlPasteValues komutunu kullanmak için al alta yazmak zorundayız Bunu öğrenmek istiyordum teşekkür ederim.

 

[recepkull]

Veysel Bey'in müsaadesiyle bir bilgi vereyim, belki faydası olur.

Kodu "If Şart then *****" olarak 1 satırlık kullanıyorsanız, ******* olarak belirtilen yerde sadece 1 adet komut kullanabilirsiniz. Eğer If şartı doğruysa ve 1'den fazla komut kullanacaksanız o zaman; If-End If bloğu arasındaki her satıra komutları ayrı ayrı yazacaksanız.

Sizin durumunuzda Veysel Beyin önerdiği kodda, şart sağlandığında yürütülmesi gereken 2 adet komut var. 1nci komut Kopyalama, 2nci komut ise Özel Yapıştır.

Durum bundan ibarettir...

.

@Haluk hocam teşekkür ederim sizde öğretici bir şekilde anlatım yapmışsınız elinize sağlık.