• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü Bu kodu döngü içine nasıl alırım?

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

salanar

Yeni Üye
Katılım
4 Ağu 2021
Mesajlar
276
Çözümler
1
Aldığı beğeni
64
Excel V
Office 2007 TR
Konu Sahibi
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

yani aslında kodda yapmak istediğim şu.. C12:C100den başlayıp sağa doğru 5 sutun gidip H12:H100 sonra bi 5 daha M12:M100 gibi gibi.. Bunu döngü içine alıp istediğim yere kadar çalıştırabilmek istiyorum yukarıdaki kodu.

Şuanda benim yaptığım elle manuel yazmak

If Intersect(Target, [C12:C100]) Is Nothing And Intersect(Target, [H12:H100]) Is Nothing And

gibi. Tabi biryerden sonra VBA yazdırmıyor hata çıkarıyor. O yüzden bu koda bir döngü uydurmam gerekiyor ben beceremedim.
 
Sayın salanar döngü içine almak kolay. Ama döngü sınırlarını bilmemiz lazım. En son hangi sütuna kadar kontrol etmemiz lazım?
 
Konu Sahibi
ubak hocam en son ilgili hücre FB

oraya kadar hep 5 yana kayarak algılamalı

C12:C100 5sağa kaydım H12:H100 gibi devam etmeli taa FB12:FB100'e kadar
 
Merhabalar,
deneyiniz...
HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
End Sub yok diyor :)
 
Merhaba,
Ekli kodu revize ettim, Dosyanız ektedir.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.

EDİT: Eğer eksi değer verirse hücre rengi kırmızı olsun demişsiniz kodlarda, bu değeri silip hedef hücreyi boş bıraktığınızda hücre rengi kırmızı olarak kalıyordu. Bunun için;

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
ilgili kodu bu şekilde değiştirdim.
Değişikliğe konu dosya ekte revize edildi.
 

Ekli dosyalar

Son düzenleme:
Çözüm
alternatif olsun sadece ilk mesajdaki kısım için
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst