For Döngü İle Satır Sutün Atlama

[karatekin_18]

Merhabalar,

Aşağıdaki Macrom'da her seferinde bir rakam atlamasını istiyorum. Örneğin altaki macroda "CVS8" - Çalıştıktan sonra "CVS9" olsun o bitince 10 olsun istiyorum.

Nasıl yapabilirim.

For döngüsü ile bir türlü beceremedim.

----
Sub Macro()
Range("CVS8").Select
Range("B8:CVS8").Select
Range("CVS8").Activate
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.Copy
Range("CVV8").Select
ActiveSheet.Paste
End Sub
-----

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyiniz.

Option Explicit
Dim Satir As Long

Sub Macro()
    If Satir = 0 Then Satir = 8
    Range("CVS" & Satir).Select
    Range("B" & Satir & ":CVS" & Satir).Select
    Range("CVS" & Satir).Activate
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Copy
    Range("CVV" & Satir).Select
    ActiveSheet.Paste
    Satir = Satir + 1
End Sub

 

[karatekin_18]

Merhaba,

Aşağıdaki gibi deneyiniz.

Option Explicit
Dim Satir As Long

Sub Macro()
    If Satir = 0 Then Satir = 8
    Range("CVS" & Satir).Select
    Range("B" & Satir & ":CVS" & Satir).Select
    Range("CVS" & Satir).Activate
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Copy
    Range("CVV" & Satir).Select
    ActiveSheet.Paste
    Satir = Satir + 1
End Sub

8' satırdan sonra ilerme yapmıyor

 

[Korhan Ayhan]

Uygulama yaptığınız dosyanızı paylaşırsanız sorunu daha net anlayabiliriz.