Her yeni çalışma sayfasında satır sayısına göre işlem

[adainsaat]

Selamlar,

hazırladığım makroyu her açılan yeni sayfada uygulayabiliyorum. fakat bir eksik var.

her yeni açılan sayfada veri sayısı değişiyor. yani satır sayısı değişken.

istediğim aslında basit:

açtığım sayfada ne kadar satır varsa istediğim işlemin tüm satırların yanına işlenmesini istiyorum.

örnek: a.xls dosyasında 10 satır var. yani d kolonunda d1:d10 hücreleri dolu.
b.xls dosyasında ise d1:d15 hücreleri dolu.

ben a.xls dosyasında e1 hücresine +d1+10 istiyorum
ve bu işlemin a.xls teki e10 hücresinde bitmesini istiyorum

b.xls açınca ise bu işlemin son satır olan e15 te bitmesini istiyorum.

umarım anlatabilmişimdir.

şimdiden teşekkürler...

 

[Erdem Akdemir]

Örnek dosyaları ekleyebilir misiniz?

Daha net cevaplar alabilirsiniz.

 

[adainsaat]

Örnek dosyaları ekleyebilir misiniz?

Daha net cevaplar alabilirsiniz.

http://s3.dosya.tc/server6/w4qwr1/A.xlsx.html

Açıklaması içindedir.

Teşekkürler...

 

[adainsaat]

yardımcı olabilecek kimse yok mu??

 

[Ömer BARAN]

yardımcı olabilecek kimse yok mu??

Merhaba. Umarım yanlış anlamadım.
Aşağıdaki KOD'u boş bir MODÜL'e yapıştırın.

Sub HESAP_BARAN()
son = ActiveSheet.[A65536].End(3).Row
If son = 1 Then Exit Sub
Range("B1:C" & son).ClearContents
    Cells(1, 1) = "DEĞER": Cells(1, 2) = "FARK": Cells(1, 3) = "SONUÇ"
    Cells(2, 2) = 0 - Cells(2, 1)
For sat = 2 To son
    Cells(sat, 3) = Cells(sat, 1) + Cells(2, 2)
Next
End Sub

Aşağıdaki kod'u ise bahsettiğiniz işlemin yapılacağı sayfaların kod bölümüne ayrı ayrı yapıştırın (belgenize yeni sayfa eklerseniz o sayfanın kod bölümüne de).

Private Sub Worksheet_Activate()
    Call HESAP_BARAN
End Sub

Sayfa değiştirdiğinizde bahsettiğiniz işlemler otomatik olarak gerçekleşecektir.
İşlemin yapılacağı bir sayfanın B ve C sütunundaki verileri silip, başka sayfaya geçin, eski sayfaya tekrar döndüğünüzde işlemin tekrar yapıldığını görebilirsiniz.

 

[adainsaat]

Merhaba. Umarım yanlış anlamadım.
Aşağıdaki KOD'u boş bir MODÜL'e yapıştırın.

Sub HESAP_BARAN()
son = ActiveSheet.[A65536].End(3).Row
If son = 1 Then Exit Sub
Range("B1:C" & son).ClearContents
    Cells(1, 1) = "DEĞER": Cells(1, 2) = "FARK": Cells(1, 3) = "SONUÇ"
    Cells(2, 2) = 0 - Cells(2, 1)
For sat = 2 To son
    Cells(sat, 3) = Cells(sat, 1) + Cells(2, 2)
Next
End Sub

Aşağıdaki kod'u ise bahsettiğiniz işlemin yapılacağı sayfaların kod bölümüne ayrı ayrı yapıştırın (belgenize yeni sayfa eklerseniz o sayfanın kod bölümüne de).

Private Sub Worksheet_Activate()
    Call HESAP_BARAN
End Sub

Sayfa değiştirdiğinizde bahsettiğiniz işlemler otomatik olarak gerçekleşecektir.
İşlemin yapılacağı bir sayfanın B ve C sütunundaki verileri silip, başka sayfaya geçin, eski sayfaya tekrar döndüğünüzde işlemin tekrar yapıldığını görebilirsiniz.

Hocam teşekkürler aslında istediğim bu fakat ben bunu kendi makromla (bu verilerle grafik oluşturan makro) entegre olsun istiyorum.Ayrı ayrı yapıştırmadan yapamaz mıyız?

 

[adainsaat]

Hocam teşekkürler aslında istediğim bu fakat ben bunu kendi makromla (bu verilerle grafik oluşturan makro) entegre olsun istiyorum.Ayrı ayrı yapıştırmadan yapamaz mıyız?

Hallettim hocam çok teşekkürler...