[]
visual basic sorusu
selamlar.
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.
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.
- puc
(06.04.16 15:19:34)
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.
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.
- ben de
(06.04.16 15:26:04)
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
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
- ben de (06.04.16 15:56:37)
cevabını şimdi gördüm, yapmışsın zaten. tebrikler.
- puc (06.04.16 16:39:19)
1
