For Next Döngüsüne Çevirme

[okan32]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba Arkadaşlar Kolay Gelsin Aşağıdaki makroları kısaltmak için nasıl bir döngüye alabiliriz. Yapmaya çalıştım ama yapamadım.

Görüntülemek için giriş yapmanız gerekmektedir.
(108 satır)

 

Hücredeki Değere Göre Tarih ve Saat Atama

Girilecek Kriterlere Göre Tablo Hazırlama

[ExcelDepo]

Ö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

 

[okan32]

İlginiz için çok teşekkür ederim örnek dosyam ektedir. Bahadır bey

 

[ExcelDepo]

Sadece kodlara bakarak kısalttım, işlemin detayını bilemediğim için kodları test etmedim.
Bir inceleyin bakalım olmuş mu?

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

 

[okan32]

Öncelikle çok teşekkür ederim Bahadır Bey,
Borçluları güncelleme makrosu olmuş ama gelir gider makrosu toplam geliri getirmiyor.

 

[ExcelDepo]

ÖNCELİKLE ÇOK TEŞEKKÜR EDERİM BAHADIR BEY
BORÇLULARI GÜNCELLEME MAKROSU OLMUŞ AMA GELİR GİDER MAKROSU TOPLAM GELİRİ GETİRMİYOR.

Dediğiniz kodda, i - 2 kısmını yanlış yazmışım. O kısmı i - 1 olarak revize edip dener misiniz?

 

[okan32]

Tm şimdi oldu bahadır bey ilgi ve alakanız için çok teşekkür ederim.