Yürüyen Bakiye çalışma sorunu

[canburak]

Merhaba Arkadaslar , bu assagidaki formulu birturlu calistiramiyorum- islemi baska sayfada yapmam gerekiyor, formulun baska sayfada (yani CdDetay) calismasi gerekiyor sayfa tanimini silipp ayni sayfada yapinca calisiyor , ama bana lazim olan makronun bu sekilde calismasi


Sub Yuruyenbakiye()

Dim sat As Long, a As Long

sat = Sheets("CdDetay").Cells(65536, "AM").End(xlUp).Row

For a = 2 To sat

Sheets("CdDetay").Range("AS" & a) = Sheets("CdDetay").Range("AP" & a - 1) + Sheets("CdDetay").Range("AP" & a) - Sheets("CdDetay").Range("AR" & a)

Next a


End Sub

-----------------------

Makro ile calisilan sayfa ayni sayfada ise calisiyor , ve calisan makro assagida gibidir,


Sub Yuruyenbakiye()
Dim a As Integer

Range("I5") = Range("D5") + Range("G5") - Range("E5") - Range("F5")
For a = 6 To Range("A" & Rows.Count).End(xlUp).Row
Range("I" & a) = Range("I" & a - 1) + Range("D" & a) + Range("g" & a) - Range("e" & a) - Range("f" & a)

Next a
End Sub


Tesekkurler

 

[PLİNT]

Merhaba
Anladığım gibi sıkıntı üstteki kodda ise;
sat = Sheets("CdDetay").Cells(65536, "AM").End(xlUp).Row
kırmızı sütun adını (en fazla) dolu sütun adı ile değiştirip deneyiniz.

 

[canburak]

Merhaba
Anladığım gibi sıkıntı üstteki kodda ise;
sat = Sheets("CdDetay").Cells(65536, "AM").End(xlUp).Row
kırmızı sütun adını (en fazla) dolu sütun adı ile değiştirip deneyiniz.

Donus yaptiginiz icin tesekkurler AM-AN-AO-AP dahil busutunlatim hepsi doludur, rsira numaralari AM sutunundan basliyor

 

[PLİNT]

Çalışmıyordan kastınız; bir hatamı veriyor veriyorsa kodun hangi satırında?

 

[canburak]

Neyse Suan Cozdum dim in altinda ki satirdaki eslesmeleri unutmusuz ve digerleri suan calisiyor
Calisir hali assagidadir , Ilginiz icin tesekkurler.

Sub Yuruyenbakiye()

Dim sat As Long, a As Integer


Sheets("CdDetay").Range("AS2") = Sheets("CdDetay").Range("AP2") - Sheets("CdDetay").Range("AR2")
sat = Sheets("CdDetay").Cells(65536, "AM").End(xlUp).Row

For a = 3 To sat

Sheets("CdDetay").Range("AS" & a) = Sheets("CdDetay").Range("AS" & a - 1) + Sheets("CdDetay").Range("AP" & a) - Sheets("CdDetay").Range("AR" & a)


Next a


End Sub

 

[cems]

Bu kodların yürümesi gereken sayfayı seçtirmeniz sonucu daha güvenli sağlayabilir.

 Sheets( " çalışması gereken sayfa ").select

ile başlatırsanız kodlar verilerin sayfasına odaklanmış olur.

Sayfaya kod yapıştırırken Kodların üstüne [ code] altına da [ /code] yazmanız dağılmasını engeller .