Hocam sadece alttoplamlara göre işlem yapacam.

UserForm1 deki fazla TextBoxları silerek dosyayı yediden yükledim.

ilk mesajda yazdığınız sorunun userformlarla ilişkisini kuramadım. Sorunuzda sayfadaki hücre değerine göre öbür hücreye şunu yazsın demişsiniz benim yazdığım kod da onu yapıyor

Hocam benim istediğim UserForm1 deki ListBox da Alacaklıyız veya borçluyuz ibaresinin görünmesi mesaj 1 de eksik bilgi yazmışım kusura bakmayın.

Sub alttoplamAl() Koduna alttakileri ekeyip deneyin.

.Range("L" & son + 1).Value = Range("L" & son).Value

 If .Range("L" & son + 1).Value > 0 Then .Range("K" & son + 1).Value = "BİZ ALACAKLIYIZ."

 If .Range("L" & son + 1).Value < 0 Then .Range("K" & son + 1).Value = "BİZ BORÇLUYUZ"

Çok teşekkürler Hocam ellerinize sağlık. Tam istediğim gibi olmuş.

Hocam BİZ BORÇLUYUZ VEYA BİZ ALACAKLIYIZ ve karşısındaki rakam ile birlikte  ListBox ta Excel sayfasında olduğu gibi renkli gösteril veya çizgi içinde gösterilebilirmi.

Listboxta çizgi ve renk yok biliyorum.Listviewde var renk ve çizgi olayı.