Soru Degişken

[clleker88]

ElseIf Cells(Target.Row, Range("A1:AF1").Find("Partükül Büyüklüğü (Katılar İçin)").Column)= "sivi" Then
Cells(Target.Row, Range("A1:AF1").Find("Partükül Büyüklüğü (Katılar İçin)").Column) = "Yok"
Cells(Target.Row, Range("A1:AF1").Find("Partükül Büyüklüğü (Katılar İçin)").Column).Locked = True
End If


ben bu şekilde uzun uzaya yazman mı gerekiyor "Cells(Target.Row, Range("A1:AF1").Find("Partükül Büyüklüğü (Katılar İçin)").Column)" nu kodu bir degişkene atıp işlem yapabilirmiyim yapabilirsem hangi tür

 

[Ömer]

Merhaba,

Yapmak istediğinizi tam olarak anlayamadım. Tanımlamada olabilir aşağıdaki gibi With komutuyla da olabilir.
İstediğiniz bu mu?

    With Cells(Target.Row, Range("A1:AF1").Find("Partükül Büyüklüğü (Katılar İçin)").Column)
        ElseIf .Value = "sivi" Then
        .Value = "Yok"
        .Locked = True
    End With