If kodu yazılımı

[nihatra]

=Kolay gelsin

EĞER(BF8="G";0;TAVANAYUVARLA($BK8/BAĞ_DEĞ_DOLU_SAY($BF8:$BJ8);1))

formülü

Private Sub Worksheet_Change(ByVal Target As Range)


=EĞER(BF8="G";0;TAVANAYUVARLA($BK8/BAĞ_DEĞ_DOLU_SAY($BF8:$BJ8);1))


End Sub

olarak nasıl yazılabilir.
Teşekkürler.

 

[İsmailCen]

Örnek dosyanız olamdığı için emin değilim ama umarım bu kodlar işinizi görür...

Private Sub Worksheet_Change(ByVal Target As Range)
    Bölen = WorksheetFunction.CountA(ActiveSheet.Range("BF8:BJ8"))
    If ActiveSheet.[BF8] = "G" Then
      Mesaj = 0
    Else
      Mesaj = WorksheetFunction.Ceiling(ActiveSheet.[BK8] / Bölen, 1)
    End If
MsgBox Mesaj
End Sub

 

[fremen17]

=EĞER(BF8="G";0;TAVANAYUVARLA($BK8/BAĞ_DEĞ_DOLU_SAY($BF8:$BJ8);1))

If Sheets("Sayfa1").Range("a1").Value = "G" Then
Sheets("Sayfa1").Range("buraya hücre ismini yazın").Value = 0
Else

Sheets("Sayfa1").Range("buraya hücre ismini yazın").Value = _
Ceiling((Sheets("Sayfa1").Range("BK8"))) / CountA(Sheets("Sayfa1").Range("BF8:BJ8"))

End If

denermisiniz