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
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