Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Range("H10").GoalSeek Goal:=0, ChangingCell:=Range("H1")
End If
End Sub
böyle bi komut var elimde.
A1'e deger girdikten sonra H10 sifir olana kadar H1 degisiyor.
Burda iterasyonun tetikleyicisi A1 görüldügü üzere.
Ayni sekilde A2, A3, A4 .... de trigger olsun istiyorum ama yukaridaki komutu tek tek yazmak cok zaman alir malumunuz.
tüm sütunu birden secmek mümkün müdür acep?
tesekkürler cok.
target.column komutunu kullanabilirsin diye düşünüyorum.
bunun yerine:
If Target.Address(0, 0) = "A1" Then
bunu yazmak gibi mi?
If Target.Column(0, 0) = 1 Then
bi de yazmayi unutmusum ben hic anlamam visual basic'ten. :)
a1 hücresini yerine komple a sütunu demek icin if target.column (0,0) = A mi diyorum yani?
denedim olmadi da.
puc, dedigin sekilde hallettim:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then
Range("H10").GoalSeek Goal:=0, ChangingCell:=Range("H1")
End If
End Sub
cok tesekkürler
cevabını şimdi gördüm, yapmışsın zaten. tebrikler.