Makroda Tek Kod Satırını Çalıştırmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

bluefalcon

Altın Üye
Altın Üye
Katılım
22 Aralık 2005
Mesajlar
423
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
03.12.2025
Merhaba,

Üzerinde çalıştığım proje de çalışma kitabında mevcut modüllerden makro çağırıyorum ve sonuçta bir bütün olarak sistem çalışıyor. Ancak güncellenen şirket işleyişi nedeniyle bazen tüm kod satırlarını çalıştırmaktansa tek bir satırı çalıştırmak istiyorum. Bu mümkün müdür?

Örnek vermek gerekirse baştaki boyut tanımlamalarından sonra gelen ilk satır değilde sadece 3.satırı çalıştırmak gibi.
 
Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
Örnek vermek gerekirse baştaki boyut tanımlamalarından sonra gelen ilk satır değilde sadece 3.satırı çalıştırmak gibi.
Merhaba
Aşağıdaki örnekteki gibi ilk satırları atlatabilirsiniz.
Kod:
[SIZE="2"]Sub makro()
[COLOR="blue"]sor = MsgBox("Tüm satırlar çalışsınmı?", vbYesNo)
If sor = vbNo Then GoTo atla[/COLOR]
'...
MsgBox "1.bölüm"
'.....

MsgBox "2.bölüm"
'......

[COLOR="Blue"]atla:
'.......
MsgBox "3.bölüm"
'.........
If sor = vbNo Then GoTo atla2[/COLOR]
'....

MsgBox "4.bölüm"
'.....

MsgBox "5.bölüm"
'.......

[COLOR="blue"]atla2:[/COLOR]
End Sub [/SIZE]
 

bluefalcon

Altın Üye
Altın Üye
Katılım
22 Aralık 2005
Mesajlar
423
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
03.12.2025
Sayın Plint çok teşekkür ederim, aslında demek istediğim bu değildi ama yine yeni şeyler için bu paylaştığınız kodu kullanabileceğim. Tekrar teşekkürler. Bildiğiniz üzere F8 ile tek tek satırları çalıştırabiliyoruz. Peki bu şekilde kod içerisindeki istediğim bir satırı çalıştırabilir miyim? Bu konuda bir öneriniz varsa ve paylaşırsanız çok memnun olacağım.
 
Katılım
23 Eylül 2004
Mesajlar
1,754
Excel Vers. ve Dili
Excel 2010 TR
makro bulunduğu hücrede çalışır.

Sub Deneme()
Target.Value="5555"
End sub

Hücrenin bulunduğu sütunun 1 ile 500 satırlarında işlem yapar.


Sub Deneme2()

For i = 1 To 500

Cells(i,Target.Column).Value= "555"

Next i

End Sub

Hücrenin bulunduğu satrın 1 ile 10 sütunlarında işlem yapar.


Sub Deneme3()

For i = 1 To 10

Cells(Target.row,i).Value= "555"

Next i

End Sub
 

bluefalcon

Altın Üye
Altın Üye
Katılım
22 Aralık 2005
Mesajlar
423
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
03.12.2025
Sayın Huseyinkis zaman ayırıp yanıt yazdığınız için teşekkür ederim. Yanıtınız aslında sayın Plint ile benzerlik gösteriyor. Benim izah etmeye çalıştığım husus kodlama penceresi içerisindeki durum yani programı dizayn aşamasında kontrol için istediğim satırı çalıştırabilir miyim şeklinde. Örneğin 150 satırlık bir kodun sadece 75. satırını veya 36. satırını çalıştırabiliyor muyuz?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,133
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kullandığınız kodu en başından başlamak suretiyle F8 tuşuna basarak adım adım çalıştırabilirsiniz.

Bunun dışında kod bloğunun içinde herhangi bir satırı dilediğiniz zaman çalıştıramazsınız.
 

bluefalcon

Altın Üye
Altın Üye
Katılım
22 Aralık 2005
Mesajlar
423
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
03.12.2025
Teşekkür ederim Korhan Bey
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst