Bir hücreyi başka sayfadaki hücreye döngü ile kopyalamak

[facenoise]

İyi akşamlar arkadaşlar,

Sorunum;

For I = 1 To 10
For W = 1 To 3
Worksheets("ver").Range(W, I).Value = Worksheets("Al").Range(W, I).Value
Next
Next
End Sub

butona bastığım zaman Ver çalışma sayfasındaki verileri 2 tane döngü ile Al çalışmasındaki hücreler aktarmak. Yani 1in 1 al sayfasındaki 1in 1e kopyalamak..
Acaba bu komut yanlışmı yada bence başka bir komut kullanmam gerekiyor..

 

[facenoise]

Sheets("ver").Cells(W, I) = Sheets("al").Cells(W, I) kodu bunlarla değiştirdim çalıştı. Acaba Value kelimelerini eklemem de bir fayda olurmu?

 

[Korhan Ayhan]

Merhaba,

".Value" ifadesini kullanmasanızda olur. Vba'da varsayılan olarak ".Value" değeri baz alınmaktadır.

Not: Veri alacağınız hücrede uzun metinler varsa bunları aktarmak için mutlaka ".Text" olarak kullanmalısınız. Aksi halde eksik veri aktarımı yapmış olursunuz.

 

[facenoise]

Merhaba,

".Value" ifadesini kullanmasanızda olur. Vba'da varsayılan olarak ".Value" değeri baz alınmaktadır.

Not: Veri alacağınız hücrede uzun metinler varsa bunları aktarmak için mutlaka ".Text" olarak kullanmalısınız. Aksi halde eksik veri aktarımı yapmış olursunuz.

Çok teşekkür ederim, bu uyarıyı unutmayacağım..