Ne Alaka Dedirten Hata id 5'e Yaz Diyorum Gidip 3'e Yazıyor

[esnekplastik]

Ödenen kısmında ödeme ekle dediğimizde; hata id yi doğru yere yazmıyor 3'ten başlatıyor.

Dosya ekte yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Merhaba.

OdenenSonSatir = WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("H:H")) + 1

Satırının sonundaki silin 3 yazın. Aşağıdaki gibi olacak.

OdenenSonSatir = WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("H:H")) + 3

 

[esnekplastik]

Merhaba.

OdenenSonSatir = WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("H:H")) + 1

Satırının sonundaki silin 3 yazın. Aşağıdaki gibi olacak.

OdenenSonSatir = WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("H:H")) + 3

Çok teşekkür ederim hocam onu değiştirecektim ama sürekli aklıma +1 ekleyecek şeklinde olduğu için değiştirmedim.

 

[Muzaffer Ali]

WorksheetFunction.CountA(Worksheets("Elektrikçiler").Range("H:H"))
Satırı dolu hücreleri sayar, dolu olan 2 satır hücre olduğu için + 1 yazarsanız 3. satırdan itibaren yazmaya başlar.
Siz 5. satırdan itibaren yazmaya başlamasını istediğiniz için +3 yazmalısınız.
Kolay gelsin.