Çözüldü For Next Döngüsüne Çevirme
- Konuyu başlatan okan32
- Başlangıç tarihi
Çözüm
ExcelDepo
Site Kurucusu
Örnek bir dosya eklerseniz üzerinden gitmek daha kolay olur.
Kodu yazmak için veri oluşturmak cevap verenleri her daim yorar.
Benim bir de kodlarınıza dair küçük bir geri bildirimim olacak:
Sheets("Sayfa50")... şeklinde giden kodlar her zaman sıkıntılıdır.
Neden derseniz?
Biri gelir Sayfa50 olan sayfa adını değiştirir ve kodlarınız arızaya düşer.
Eğer Sayfa50 olan sayfanın adı da (kod adı) Sayfa50 ise, bu kullanımı, Sayfa50.Range("C2") şeklinde yazmanız daha sağlıklı olacaktır.
Bu şekilde sayfa adlarında yapılacak değişiklikler kodu etkilemeyecektir.
Kolaylıklar
Kodu yazmak için veri oluşturmak cevap verenleri her daim yorar.
Benim bir de kodlarınıza dair küçük bir geri bildirimim olacak:
Sheets("Sayfa50")... şeklinde giden kodlar her zaman sıkıntılıdır.
Neden derseniz?
Biri gelir Sayfa50 olan sayfa adını değiştirir ve kodlarınız arızaya düşer.
Eğer Sayfa50 olan sayfanın adı da (kod adı) Sayfa50 ise, bu kullanımı, Sayfa50.Range("C2") şeklinde yazmanız daha sağlıklı olacaktır.
Bu şekilde sayfa adlarında yapılacak değişiklikler kodu etkilemeyecektir.
Kolaylıklar
İlginiz için çok teşekkür ederim örnek dosyam ektedir. Bahadır bey
ExcelDepo
Site Kurucusu
Sadece kodlara bakarak kısalttım, işlemin detayını bilemediğim için kodları test etmedim.
Bir inceleyin bakalım olmuş mu?
Bir inceleyin bakalım olmuş mu?
Kod:
You must log in to view content
(7 satır)
Kod:
You must log in to view content
(6 satır)
Çözüm
Öncelikle çok teşekkür ederim Bahadır Bey,
Borçluları güncelleme makrosu olmuş ama gelir gider makrosu toplam geliri getirmiyor.
Borçluları güncelleme makrosu olmuş ama gelir gider makrosu toplam geliri getirmiyor.
ExcelDepo
Site Kurucusu
Dediğiniz kodda, i - 2 kısmını yanlış yazmışım. O kısmı i - 1 olarak revize edip dener misiniz?
Tm şimdi oldu bahadır bey ilgi ve alakanız için çok teşekkür ederim.
- Durum