VERİ AKTAR

[ceikibin]

SİZİN YAZDIĞINIZ VE TESADÜFEN BULDUĞUM VERİ AKTAR MAKROSU İNANILMAZ FAYDALI OLDU. MÜMKÜNSE BU MAKRO İLE OLUŞTURDUĞUM NISAN02 SAYFASINDA YEŞİL RENKLİ OLAN SATIRDA (R33 DEN AZ33 E KADAR OLAN) (=TOPLA(R1:R32)/BAĞ_DEĞ_DOLU_SAY(R1:R32)) FORMULÜ İLE TOPLAM ALMAK İSTİYORUM. FAKAT 33 SATIRI KOPYALANAN SAYFALARIN SAYISINA BAĞLANTILI OLARAK DEĞİŞKEN OLUYOR. BU NEDEN İLE FORMÜLÜMDE KOPYALANAN SAYFALARA GORE DEĞİŞKEN OLMALI FAKAT BİR TÜRLÜ BAŞARAMADIM. YARDIMCI OLURSANIZ ÇOK SEVİNİRİM.

TEŞEKKÜRLER,

 

[Levent Menteşoğlu]

Dosyadaki kodunuza son üç satır olarak aşağıdaki mavi renkli satırları ilave edin.

[vb:1:4fcd9b501c]
.
.
.
Sheets("NISAN02").Range("A1").Select
son = [a65536].End(3).Row
adr = "R" & son & ":AZ" & son
Range(adr) = "=SUM(R1:R" & son - 1 & ")/COUNTA(R1:R" & son - 1 & ")"
End Sub
[/vb:1:4fcd9b501c]