Komut ile kodu değiştirme

[BBBBuRaKKKK]

Merhabalar, bir kodu çalıştırdığım anda

Lütfen ilk sütun sayısını girin: Y6

Lütfen son sütun sayısını girin: Y401

Dediğim anda

"X6" yerine"Y6"

"X401" yerine"Y401"

yazmasını istiyorum bu mümkün mü acaba ?

    Range("X6").Select
    ActiveCell.FormulaR1C1 = "=COUNT(RC[-20]:RC[-1])"
    Selection.AutoFill Destination:=Range("X6:X401"), Type:=xlFillDefault
    Range("X6:X401").Select

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

ilkhucre = InputBox("Lütfen ilk hücre adresini girin.", "İlk adres girişi")
sonhucre = InputBox("Lütfen son hücre adresini girin.", "Son adres girişi")

Range(ilkhucre).FormulaR1C1 = "=COUNT(RC[-20]:RC[-1])"
Range(ilkhucre).AutoFill Destination:=Range(ilkhucre & ":" & sonhucre), Type:=xlFillDefault
Range(ilkhucre & ":" & sonhucre).Select

 

[BBBBuRaKKKK]

teşekkür ederim Levent hocam