hatayı bulamadım

[hitmen06]

Konuyu yanlış yere açtıysam şimdiden özür dilerim. Benim istediğim veriaktarım sayfasında d2 hücresi dolu ise d2:O2 aralığını koplayayıp, sayfa1 de b2:m2 arasına değer olarak yapıştırmak. Yapmaya çalıştım ancak olmadı

Sub aktarr()

Dim i As Integer
For i = 2 To 10
If Sheets("veriaktarım").Range("d&i").Value <> "" Then
Sheets("veriaktarım").Range("d&i:O&i").Copy
Sheets("Sayfa2").Range("b&i:m&i").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
Next i
End Sub

 

[yanginci34]

Sheets("Sayfa2").Range("b&i:m&i").PasteSpecial (xlPasteValues)
yukarıda sayfa1 diyorsunuz kodta sayfa2 ?

 

[askm]

Sub aktarr()
 Dim i As Integer
For i = 2 To 10
If Sheets("veriaktarım").Range("d" & i).Value <> "" Then
Sheets("veriaktarım").Range("d" & i & ":O" & i).Copy
Sheets("Sayfa2").Range("b" & i & ":m" & i).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
Next i
End Sub

 

[hitmen06]

çok teşekkürler askm

 

[hitmen06]

ilginize teşekkürler sayfa1 olması gerekiyor ama hata ondan değilmiş.

 

[antonio]

Konuyu yanlış yere açtıysam şimdiden özür dilerim. Benim istediğim veriaktarım sayfasında d2 hücresi dolu ise d2:O2 aralığını koplayayıp, sayfa1 de b2:m2 arasına değer olarak yapıştırmak. ....

Merhaba,
Öncelikle kopyalamak istediğiniz verileri açıklamanızda sayfa1 e taşımaktan sözediyorsunuz, ama kodlarınızda Sayfa2 olarak yazıyorsunuz. Öncelikle buna karar vererek kodlarınızı aşağıdaki şekilde düzenleyiniz:

Sub aktarr()
Dim i As Integer
For i = 2 To 10
If Sheets("veriaktarım").Range[COLOR="red"][B]("D" & i)[/B][/COLOR].Value <> "" Then
Sheets("veriaktarım").Range[COLOR="red"][B]("D" & i & ":O" & i)[/B][/COLOR].Copy
Sheets([COLOR="red"][B]"Sayfa1"[/B][/COLOR]).Range[COLOR="red"][B]("B" & i)[/B][/COLOR].PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
Next i
End Sub

 

[antonio]

Sayın askm, sayfayı yenilemeden cevabı gönderdiğim için cevabınızı göremedim. Kusura bakmayın.