makro kodunda değişiklik

[bmutlu966]

Aşağıdaki kod da kolonu kendim seçmek istiyorum. kolon için nasıl bir değişken tanımlayabilirim ve bu kod da nasıl bir değişiklik yapmam gerek.

son = [A65536].End(3).Row

 

[bmutlu966]

Sub Bossatirsil()
Dim X As Integer

With Application
.ReferenceStyle = xlR1C1
End With

X = InputBox(" Hangi sütuna göre boşlukları silmek istiyorsunuz ?")


With Application
.ReferenceStyle = xlA1
End With


Y = MsgBox(" Belirttiğiniz sütundaki boşlukların bulunduğu satırlar komple çıkartılacak onaylıyor musunuz ?", 20, "BMutlu")

If Y = 6 Then GoTo 10 Else End

10
son = [A65536].End(3).Row
For Z = son To 2 Step -1
If Cells(Z, X) = "" Or Cells(Z, X) = "error" Or Cells(Z, X) = "false" Or Cells(Z, X) = "wrong" Then
Rows(Z).Delete
End If
Next


Yukarıdaki makroda sütun numarasını istiyorum ve bu rakam x değişkenine atanıyor.
Ancak bu girdiğim sütun numarasına göre

son = [A65536].End(3).Row

satırında nasıl bir değişiklik yapmam gerek ?

 

[halit3]

bunu denermisiniz.

son = Cells(65536, X).End(xlUp).Row

 

[bmutlu966]

Çok teşekkürler.

 

[halit3]

Çok teşekkürler.

iyi çalışmalar