Soru Döngü Durmak Bilmiyor

[stirra_ej]

Private Sub Worksheet_Change(ByVal Target As Range) döngüsüne

If Range("D16").Value = "" Then
Range("D16").Value = ""
Exit Sub
Else
If Range("D16").Value <> "" And Range("e16").Value = "" Then
Range("D16").Value = Range("D16").Value & (" ") & BitisMer.Value

End Sub

D 16 boş ise boş

D 16 dolu ise ve E 16 boş ise
D 16 e16 içeriği ile label içeriyini yan yana getiriyor

ancak döngü hiç durmuyor ve sürekli label içeriyini defalarca yazıyor..

 

[yanginci34]

Böyle denermisiniz.
Private Sub Worksheet_Change(ByVal Target As Range) döngüsüne
If Intersect(Target, [D16, E16]) Is Nothing Then Exit Sub
If Range("D16").Value = "" Then
Range("D16").Value = ""
Exit Sub
Else
If Range("D16").Value <> "" And Range("e16").Value = "" Then
Range("D16").Value = Range("D16").Value & (" ") & BitisMer.Value

End Sub

 

[stirra_ej]

Böyle denermisiniz.
Private Sub Worksheet_Change(ByVal Target As Range) döngüsüne
If Intersect(Target, [D16, E16]) Is Nothing Then Exit Sub
If Range("D16").Value = "" Then
Range("D16").Value = ""
Exit Sub
Else
If Range("D16").Value <> "" And Range("e16").Value = "" Then
Range("D16").Value = Range("D16").Value & (" ") & BitisMer.Value

End Sub

Hocam BitisMer. Valuede bir değer var ve bu değer durmadan tekrarlayarak kendini hücreye yazıyor. Aynı hata devam ediyor..

 

[yanginci34]

Hocam BitisMer. Valuede bir değer var ve bu değer durmadan tekrarlayarak kendini hücreye yazıyor. Aynı hata devam ediyor..

Örnek dosya yüklermisiniz

GM 8 d cihazımdan Tapatalk kullanılarak gönderildi