Kodlamada düzeltme

[recepkull]

Arkadaşlar aşağıdaki kodda Application.WorksheetFunction.CountIf(Range("AM$23:AM" & i), Cells(i, 39)) satırında sorun yaşıyorum. Ben AM sütununun 23. satırından başlayıp son dolu hücreye kadar olan aralığı seçsin istedim ama AM sütununun 1. satırından başlıyor. Bu konuda yardımlarınızı bekliyorum.

Sub Veriliste()
Dim i, n As Integer, x As String
For i = 1 To Cells(Rows.Count, 39).End(3).Row
    n = Application.WorksheetFunction.CountIf(Range("AM$23:AM" & i), Cells(i, 39))
    If Cells(i, 39) <> "" And n = 1 Then
    x = x & "," & Cells(i, 39)
    End If
Next i
Sheets("Hesaplama").Select
With Range("O8:BL8, O11:BL11, O14:BL14, O17:BL17, O20:BL20, O23:BL23, O26:BL26, O29:BL29, O32:BL32, O35:BL35, O38:BL38, O41:BL41, O44:BL44, O47:BL47, O50:BL50, O53:BL53").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=x
End With
End Sub

 

[recepkull]

Güncel

 

[Ömer]

Merhaba,

Range("AM$23:AM" & i) burada i değeri 1 den başladığı için AM1 den başlıyor. İstediğiniz AM23:AM&son sütun indisi ise; i yerine aşağıdaki ibareyi kullanın.

Columns.Count

 

[recepkull]

Ömer hocam teşekkür ederim.