GoTo yönlendirme.

[vardar07]

Merhaba arkadaşlar. bir makrodan diğer makro içindeki satıra yönlendirmek istiyorum. Lakin bir çözüm bulamadım.

Sub abc()
......... kodlar.....
[COLOR="Red"]GoTo 10[/COLOR]
...............kodlar.........

Sub bcd()
......... kodlar.....
[COLOR="red"]10:[/COLOR]
...............kodlar.........

 

[Emir Hüseyin Çoban]

. . .

Bir örnek hazırladım. İnceleyiniz...

. . .

 

[vardar07]

Öncelikle ilginize teşekkürler. Sizin örnekte açıklamak gerekirse:

Sub bir()
Cells.ClearContents
Sheets("kontrol").Range("A1") = 0
For i = 1 To 5
Cells(i, "A") = i
If i = 4 Then
Call iki
End If
Next
[COLOR="Blue"][B]atla1:[/B][/COLOR]
Sheets("kontrol").Range("A1") = 1
Call iki
End Sub

Sub iki()
For a = 1 To 5
Cells(a, "B") = a + 10
[COLOR="blue"][B]if a = 5 Then GoTo atla1[/B][/COLOR]
Next a
For s = 1 To 5
Cells(s, "C") = s + 10
Next s
End Sub

ikinci kodda şart uyarsa GoTo atla1 yapmak için ne yapmak lazım. Onu çözmeye çalışıyorum.

 

[Emir Hüseyin Çoban]

Ornegi incelediniz mi
Sayfada bir alani kullanarak goto atla dan once o alana yazin
Goto atla yerine call ile diger koda gecin
Sart olusturularak gecilmisse atla islemi yaparak istediniz satirdan devam ettirin.
Suan bilgisayar basinda degilim.

.

 

[Korhan Ayhan]

Bu işlem için prosedürleri birleştirmeniz gerekir.

 

[vardar07]

Ornegi incelediniz mi
Sayfada bir alani kullanarak goto atla dan once o alana yazin
Goto atla yerine call ile diger koda gecin
Sart olusturularak gecilmisse atla islemi yaparak istediniz satirdan devam ettirin.
Suan bilgisayar basinda degilim.
.

Örneği inceledim. Lakin sayfadan almadan yönlendirebilir miyiz demiştim.
Anlaşılan direkt olmayacak. Tekrar teşekkür ederim.

Bu işlem için prosedürleri birleştirmeniz gerekir.

Korhan Bey kodu kolay takip edebilmek için parçalardan oluşturdum. Kullanışlı olmaz ise tekrar birleştireceğiz başka yolu yok. Size de bilgi için teşekkürler.

 

[trigon]

Yonlendirme icin static bir degisken ata. Static a gibi. Buunu option explicit bolumune yaz. Dolayisiyle digere procedure gittiginde sifirlanmasin. Call ...... ile o procedure yani suba gonder. A dolu ise hangi satirdan baslayacaksa oraya gonder ve oradan a soyle ise diye kosul yazip exit sub yap.