En son satırdaki metin ve sayısal değeri nasıl alabilirim?

[assenucler]

Dostlar merhaba;

İyi pazarlar...

Ekteki dosyada aylar itibariyle gider toplamı bulunmaktadır.

Yapamadığım;

A2 hücresinde "EYLÜL SONU TOPLAM" yazısının,
A3 hücresinde Eylül toplamının gözükmesi..

Ancak A2 hücresinde örneğin Ekim ayı'na sayısal değerler girilmişse, bu kez "EKİM", sonraki ayların değeri girildiğinde de o ayların ismi çıkmalı..

Yine aynı şekilde, A3 hücresinde E44 alanındaki hep son rakamsal değerin gözükmesidir.

İlgi ve yardımınız için önceden teşekkürler..

 

[Ferhat Pazarçevirdi]

Merhabalar,

A2 hücresine aşağıdaki formülü giriniz.

=KAYDIR($D$1;0;BAĞ_DEĞ_DOLU_SAY($E$2:$P$2)) & " SONU TOPLAM"

.

 

[assenucler]

Sayın Ferhat Pazarçevirdi;

Hocam iyi pazarlar..

İlgi ve yanıtınız için teşekkürler..

Sevgi ve saygılar..

 

[ynmcan]

Syn. assenucler ; Aşağıdaki kod işinize yararmı ?
Ekteki dosyayı inceleyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = Sheets("Sayfa1").[E4].End(xlToRight).Column
Sheets("Sayfa1").Cells(2, 1) = Sheets("Sayfa1").Cells(1, i) & "  SONU TOPLAMI"
Sheets("Sayfa1").Cells(3, 1) = Sheets("Sayfa1").Cells(4, i)
End Sub

 

[assenucler]

Yaramaz olur mu? Bir ricam var sizden..

Sayın ynmcany;

İyi akşam ve haftalar..

İlginiz ve çözümünüz beni memnun etti.

Yukarıya eklediğim dosya, gerçekte apartmanımızın denetimini yaparken kullandığım tablolardan kısa bir özet bölümdü.

Size karşı bir saygısızlık kabul etmezseniz. Eklediğim sayfada "Sayfa3" bu formülü kullanabilir miyim? VBA' deki kodların ne anlama geldiğini tam olarak çözemediğim için takılıp kaldım. Dikkat edeceğim noktaları açıklayabilir misiniz?

Her şey gönlünüzce olsun..

Sevgi ve saygılar..

 

[ynmcan]

Syn. assenucler ;
Dosyanız ekte.
Açıklamayı daha sonra yaparım, Şu anda vaktim yok.
Hayırlı akşamlar

 

[assenucler]

Sayın ynmcany;

Olayı çözdüm, yardımınız için bir kez daha teşekkürler..

İyi akşamlar..