Sayfa için değişken tanımlamak

[snskutlu]

Merhaba arkadaşlar..
Aşağıdaki kodlarda Sayfa2 değişebiliyor. Ancak hücre başvuruları aynı. Değişen sayfa isimleri nedeni ile yeni sayfalar için tekrar kod yazmak zorunda kalıyorum. Sayfa için bir değişken tanımlaması yapabilirmiyiz. Teşekkürler.

Sub say_yaz()
Dim i As Integer
For i = 6 To 15
Sayfa2.Range("D" & i + 5) = Cells(i, ActiveCell.Column).Value
Next i

For i = 16 To 25
Sayfa2.Range("E" & i - 5) = Cells(i, ActiveCell.Column).Value
Next i

For i = 26 To 35
Sayfa2.Range("F" & i - 15) = Cells(i, ActiveCell.Column).Value
Next i

For i = 36 To 45
Sayfa2.Range("G" & i - 25) = Cells(i, ActiveCell.Column).Value
Next i

For i = 46 To 55
Sayfa2.Range("H" & i - 35) = Cells(i, ActiveCell.Column).Value
Next i

End Sub

 

[Orion1]

syf ismini combobox1'den aldığı farzedilmiştir.
Siz nerden alıyorsanız onu yazınız.
dim syf as string
syf = combobox1.value
For i = 6 To 15
sheets(syf).Range("D" & i + 5) = Cells(i, ActiveCell.Column).Value
Next i

 

[snskutlu]

Teşekkürler Orion2.