koşullu toplam aldırma makrosu

[baygal]

Merhabalar ,
ekteki dosyada daha önce sitedeki arkadaşların yardımı ile hazırlanmış bir makro var....sayfa1 deki verilere göre makro çalışıyor.fakat sayfa2 deki verilerin formatı değişik geldiği için makroyu o sayfaya uygulayınca çalışmıyor.sebebi nedir acaba..düzeltmeme yardımcı olurmusunuz.
bir de sayfa1 de çalışan makroya toplamın alındığı hücrenin dolgusunu nasıl renklendire biliriz?
teşekkür ederim

 

[halit3]

Merhabalar ,
ekteki dosyada daha önce sitedeki arkadaşların yardımı ile hazırlanmış bir makro var....sayfa1 deki verilere göre makro çalışıyor.fakat sayfa2 deki verilerin formatı değişik geldiği için makroyu o sayfaya uygulayınca çalışmıyor.sebebi nedir acaba..düzeltmeme yardımcı olurmusunuz.
bir de sayfa1 de çalışan makroya toplamın alındığı hücrenin dolgusunu nasıl renklendire biliriz?
teşekkür ederim

bu kodu denermisiniz.

Sub aktar()
For i = 3 To [a65536].End(3).Row
Cells(i, 14).Interior.ColorIndex = xlNone
If Cells(i, 14) = "#VALUE!" Then
Cells(i, 14).Value = ""
End If
Next i
r = 3
For i = 3 To [a65536].End(3).Row
If Left(Trim(Cells(i, 1)), 1) = "#" Then
Cells(i, 14).Value = WorksheetFunction.Sum(Range(Cells(i - 1, 14), Cells(r, 14)))
If Cells(i, 14).Value > 0 Then
Cells(i, 14).Interior.ColorIndex = 43
End If
i = i + 1
r = i
End If
Next i
End Sub

 

[baygal]

Denedim olmadı

 

[halit3]

Denedim olmadı

bende çalışıyor dosyan ekte

 

[baygal]

sizin gönderdiğiniz makro tam istediğim gibi çalışıyor...fakat makroyu kopyalayıp kendi dosyama yapıştırdığımda hata veriyor..If Cells(i, 14) = "#VALUE!" Then bu hatayı...ben hatalı bişeler yapıyorum sanırım..

 

[halit3]

o zaman kendi dosyanızı eklemeniz mümkünse onu ekleyin neden çalışmıyor bakalım

 

[baygal]

bu dosya..şimdiden emekleriniz için çok teşekkürler

 

[baygal]

dosyayı ekleyemedim

 

[baygal]

şimdi ekledim

 

[halit3]

koddaki bunun hemen üstüne

If Cells(i, 14) = "#VALUE!" Then

bunu koy

On Error Resume Next

 

[baygal]

eline , aklına asğlık..!!!! harika oldu.çok teşekkür ederim