B10 yerine üstte n=10 deyip Bn yapmak

[emre_muhendis]

merhaba,

benim aşağıdaki gibi bir kodum var. ama bunu satır sayısı ne olursa olsun yukardan değişikliği yapıp yeni veriye uygulamak istiyorum ama yapamadım.

10 satırlık verim var. n=10 dedim ama bunu sütun isminde aşağıdaki gibi yapamadım.

nasıl yapabilirim?

Dim N As Integer
Dim x As Integer
x = 2
N = 10

Range("Ax:CN").Select
Selection.Copy
Sheets("Sheet2").Select
Range("Bx").Select
ActiveSheet.Paste
Range("B(N+x+1)").Select
ActiveSheet.Paste
Range("B(2(N+1)+1)").Select
ActiveSheet.Paste
Range("B(3(N+1)+1)").Select
ActiveSheet.Paste
Range("B(4(N+1)+1)").Select
ActiveSheet.Paste
Range("B(5(N+1)+1)").Select
ActiveSheet.Paste
Range("B(6(N+1)+1)").Select
ActiveSheet.Paste
Range("B(7(N+1)+1)").Select
ActiveSheet.Paste
End Sub

 

[Murat OSMA]

Lütfen yapmak istediğinizi örnek üzerinde gösterir misiniz ?

 

[emre_muhendis]

tabiki ,

bu olan..

Range("A2:C10").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B2").Select
ActiveSheet.Paste
Range("B13").Select
ActiveSheet.Paste
Range("B24").Select
ActiveSheet.Paste
Range("B35").Select
ActiveSheet.Paste
Range("B46").Select
ActiveSheet.Paste
Range("B57").Select
ActiveSheet.Paste
Range("B68").Select
ActiveSheet.Paste
Range("B79").Select
ActiveSheet.Paste
End Sub

olmasını istediğim ise şu. B13 yerine x ve N tanımlayarak B13 ü aşağıdaki gibi yazdırmak.

Dim N As Integer
Dim x As Integer
x = 2
N = 10

Range("Ax:CN").Select
Selection.Copy
Sheets("Sheet2").Select
Range("Bx").Select
ActiveSheet.Paste
Range("B(N+x+1)").Select
ActiveSheet.Paste
Range("B(2(N+1)+1)").Select
ActiveSheet.Paste
Range("B(3(N+1)+1)").Select
ActiveSheet.Paste
Range("B(4(N+1)+1)").Select
ActiveSheet.Paste
Range("B(5(N+1)+1)").Select
ActiveSheet.Paste
Range("B(6(N+1)+1)").Select
ActiveSheet.Paste
Range("B(7(N+1)+1)").Select
ActiveSheet.Paste
End Sub

 

[Korhan Ayhan]

Merhaba,

Yazım şekliniz yanlış. Bu sebeple sonuç alamıyorsunuz.

Range("A" & [COLOR=red]X[/COLOR] & ":C" & [COLOR=red]N[/COLOR]).Copy

 

[emre_muhendis]

bu kodu nasıl yazacağız?

Range("B(2(N+1)+1)").Select

 

[Korhan Ayhan]

Bu şekilde hangi hücreyi seçtirmeye çalışıyorsunuz.