[]
makro düzeltmesi
Aşağıdaki formüle istinaden i değişkenine bulduğum bir rakamı atıyorum. Bu rakam sütuna denk geliyor. Örneğin sonuç şu an 4 benim için D hücresine karşılık geliyor. Yazmak istediğim ise; ve(d49<65;c49<65).
Formülü aşağıdaki gibi yazınca çalışmadı tabii bir sıkıntı var. O sıkıntı nerede ?
Sub BUL()
Dim i As Integer
i = Range("P49").Value
Range("G89").Formula = _
"=IF(AND(Cells(49,i-1)<65,Cells(49,i)<65),""Eskalasyon Süreci Başlatılır"",""Eskalasyon Sürecine Gerek Yoktur"")"
End Sub
Formülü aşağıdaki gibi yazınca çalışmadı tabii bir sıkıntı var. O sıkıntı nerede ?
Sub BUL()
Dim i As Integer
i = Range("P49").Value
Range("G89").Formula = _
"=IF(AND(Cells(49,i-1)<65,Cells(49,i)<65),""Eskalasyon Süreci Başlatılır"",""Eskalasyon Sürecine Gerek Yoktur"")"
End Sub
tırnak içinde yazılan formülde Cells kullanamazsın.
Kod şöyle olmalı:
Dim i As Integer
i = Range("P49").Value
Range("G89").Formula = _
"=IF(AND(R49C[" & CStr(i - 8) & "]<65,R49C[" & CStr(i - 7) & "]<65),""Eskalasyon Süreci Başlatılır"",""Eskalasyon Sürecine Gerek Yoktur"")"
burada CStr(i -8) ifadesi, formülü girdiğin hücre referans kabul edildiği için -8 oluyor. P49 hücresinde 4 değeri varsa G89 hücresinde oluşan formül şöyle oluyor bu koddan sonra:
=IF(AND(C$49<65;D$49<65);"Eskalasyon Süreci Başlatılır";"Eskalasyon Sürecine Gerek Yoktur")
Kod şöyle olmalı:
Dim i As Integer
i = Range("P49").Value
Range("G89").Formula = _
"=IF(AND(R49C[" & CStr(i - 8) & "]<65,R49C[" & CStr(i - 7) & "]<65),""Eskalasyon Süreci Başlatılır"",""Eskalasyon Sürecine Gerek Yoktur"")"
burada CStr(i -8) ifadesi, formülü girdiğin hücre referans kabul edildiği için -8 oluyor. P49 hücresinde 4 değeri varsa G89 hücresinde oluşan formül şöyle oluyor bu koddan sonra:
=IF(AND(C$49<65;D$49<65);"Eskalasyon Süreci Başlatılır";"Eskalasyon Sürecine Gerek Yoktur")
- himmet dayi
(08.03.22 11:26:10 ~ 11:30:57)
1
