vb de döngü'yü nasıl kırabilirim

[hamit]

Sorun şu kodları yazılmasından sonra döngü oluşması;

"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
deger1 = Range("A2").Value
deger2 = Range("B2").Value
If deger1 = deger2 Then
makro2
End If
End Sub"

Ancak bunun sonuna msgbox ekleyince döngü oluşmuyor.Bu defa makro2 çalışmıyor. ilgilenen arkadaşların cevaplarını bekliyorum.
TEÞEKKÜRLER.

 

[ALPEN]

döngü nerede?

 

[Haluk]

döngü nerede?

Kırılmış, ufalanmış.....görünmüyor.

 

[ALPEN]

:mrgreen: günaydın.

 

[Haluk]

:yardim: :kafa:
Belki de döngü makro2 de. Makro2 kes kopyala yapıyor. Ancak bunu defalarca tekrarlıyor. İlgin için teşekkürler.

 

[ALPEN]

bak, tahmin edemedik işte onu. :mrgreen:

Sn. hamit makro2 yi göndermediğine göre, döngünün tipini, verdiği hatayı da bizim tahmin etmemizi bekliyor sanırım.

 

[ALPEN]

deger1 = Range("A2").Value
deger2 = Range("B2").Value
If deger1 = deger2 Then
makro2
End If

kodunu
Workbook_SheetChange olayına yazmışsınız. makro2 satır silen kodlar mevcut olduğu için, sürekli

Workbook_SheetChange olayı gerçekleşiyor.

sizin "döngü" de böyle oluşuyor.

ilk gönderdiğiniz kodu "kendini çağırmayacağı" bir yere yazın.

 

[hamit]

NEREYE ??? :? :?