Formüllü satıra elle veri girildiğini algılama

[ismail-34]

Çok değerli Excel wb ailesine selamlar saygılar.

Benim sorum normalde formüllü bir sütun olan f sütununun satırına elle veri girildiğinde, normalde elle veri girişi yapılan E sütununun satırının formüllü hale gelmesi ile ilgili.

Örnekteki sarıyla belirttiğim gibi f hücresine elle veri girdiğim zaman, bitişiğindeki e hücresi forrmüllü hale dönüşsün istiyorum.

Örnek ektedir.

 

[hamitcan]

Böyle bir şey mi istiyor sunuz ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Cells(Target.Row, Target.Column - 1) = "=IF(ISERROR(RC[+1]/RC[-2]),,RC[+1]/RC[-2])"
End Sub

 

[ismail-34]

Böyle bir şey mi istiyor sunuz ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Cells(Target.Row, Target.Column - 1) = "=IF(ISERROR(RC[+1]/RC[-2]),,RC[+1]/RC[-2])"
End Sub

Aynen budur hocam. çarpımlı olanı uyuyor. yani aşağıdaki..Teşekkür ederim hamit hocam sağolun varolun.hocam bişi daha sorcam aynı satırı sarı ile renklendirebilinirmi ? .a dan j ye kadar. ama koşullu renklendirme gibi reklendirsin istemiyorum.başka bir makro orayı normal renklendirme gibi algılamak istiyorda.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
Cells(Target.Row, Target.Column - 1) = "=IF(ISERROR(RC[+1]*RC[-2]),,RC[+1]*RC[-2])"
End Sub

 

[hamitcan]

Böyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 6 Then Exit Sub
    Range("a2:j" & [a65536].End(3).Row).Interior.ColorIndex = xlNone
    Cells(Target.Row, Target.Column - 1) = "=IF(ISERROR(RC[+1]/RC[-2]),,RC[+1]/RC[-2])"
    Range("a" & Target.Row & ":" & "j" & Target.Row).Interior.Color = vbYellow
End Sub

 

[ismail-34]

harikasınız hamit hocam çok teşekkür ederim.koşullunun renklendirmesinden kurtuldum ve diğer makroda çalıştı

Sağolun Varolun değerli hocam.