Arkadaşlar selam.
Private Sub Worksheet_Activate()
Cells(5, 3).Activate
If [C20] = 0 Then
[D17] = "KASADA PARAMIZ YOK"
ElseIf [C20] < 0 Then
[D17] = "KASADA " & Format([C20] * -1, "#,##0.00") & " TL. AÇIK VAR"
ElseIf [C20] > 0 Then
[D17] = "KASADA " & Format([C20], "#,##0.00") & " TL. PARAMIZ VAR."
End If
End Sub
kodları, sayfa aktif olduğunda çalışıyor.
Ben, sayfa aktif olduğunda değil de sayfada değişiklik olduğu anda çalışması için, kodların ilk satırını,
Private Sub Worksheet_Change(ByVal Target As Range)
şeklinde değiştiriyorum fakat kodlar çalıştığında dosya kendini kapatıyor.
Sebebi ve çözümü nedir?
Şimdiden teşekkürler.
Private Sub Worksheet_Activate()
Cells(5, 3).Activate
If [C20] = 0 Then
[D17] = "KASADA PARAMIZ YOK"
ElseIf [C20] < 0 Then
[D17] = "KASADA " & Format([C20] * -1, "#,##0.00") & " TL. AÇIK VAR"
ElseIf [C20] > 0 Then
[D17] = "KASADA " & Format([C20], "#,##0.00") & " TL. PARAMIZ VAR."
End If
End Sub
kodları, sayfa aktif olduğunda çalışıyor.
Ben, sayfa aktif olduğunda değil de sayfada değişiklik olduğu anda çalışması için, kodların ilk satırını,
Private Sub Worksheet_Change(ByVal Target As Range)
şeklinde değiştiriyorum fakat kodlar çalıştığında dosya kendini kapatıyor.
Sebebi ve çözümü nedir?
Şimdiden teşekkürler.