makroyu seçili hücrelere uygulatma yolu nedir?

[x_files_x]

Merhaba arkadaşlar dün bir makro için forumdan yardım istemiş ve saolsun arkadaş yardımcı olmustu, formül şuydu;

    For i = 3 To 13
Cells(i, "D") = Cells(i, "K")
Range("E" & i & ":J" & i) = ""
Next i

burada 3. satır ile 13. satırlar arası için yapıldı ancak diyelim ben böyle değilde 21. ve 25. satırları seçtim ve bir buton oluşturdum bu butonun görevi ise sectigim bu satırları görüp yukarıda vermiş oldugum formulu uygulatmak, yani ben
formüldeki satırlar değişken oldugu için ,önce mouse ile secim yapıp sonra yapmış oldugum secime formülü uygulatmak istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()

With Selection
    ilk_sat = .Row
    son_sat = .Rows.Count + ilk_sat - 1
End With

For i = ilk_sat To son_sat
Cells(i, "D") = Cells(i, "K")
Range("E" & i & ":J" & i) = ""
Next i

End Sub

. . .

 

[halit3]

Alternatif kod

Sub deneme()

hucre = ActiveWindow.RangeSelection.Address
deg1 = Split(hucre, ":")
If UBound(deg1) > 0 Then
sat1 = Range(deg1(0)).Row
sat2 = Range(deg1(1)).Row
Else
sat1 = Range(hucre).Row
sat1 = Range(hucre).Row
End If

For i = sat1 To sat2
Cells(i, "D") = Cells(i, "K")
Range("E" & i & ":J" & i) = ""
Next i
End Sub