=topla(A1:A5)

Katılım
10 Aralık 2006
Mesajlar
26
Excel Vers. ve Dili
exel 2002 turkce
MAKRODA =topla(A1:A&V17) yazdıgımda programın =topla(A1:A5) olarak algılamasını ıstıyorum fakat V17 hucresındekı degerı ındıs olarak tanıtıp toplama ıslemını gerceklestıremedım.

yardımcı olan arkadaslara sımdıden tesekkurler
 
Katılım
10 Aralık 2006
Mesajlar
26
Excel Vers. ve Dili
exel 2002 turkce
w = CInt([V17])
S2.Range("A" & w) = 10

olarak yazdıgımda w'nın degerını ındıs olarak gormesı ıcın ne yapmalıyım,
 

Mahmut Kök

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
indis olarak görmesi derken ne kast ediyorsunuz? Tam olarak ne olmasını istiyorsunuz?

Şu haliyle, V17 hücresinde 5 yazıyor ise, A5 hücresine 10 yazar. Ancak, w'yi tanımlarken, V17'nin hangi sayfada olduğunu da belirtiniz. Mesela ( V17 ) S1'de mi veya S2'de mi diye....

İyi çalışmalar..
 
Katılım
10 Aralık 2006
Mesajlar
26
Excel Vers. ve Dili
exel 2002 turkce
S2.Select kodu ıle hangı sayfada calıstıgımı belırttım fakat sızınde dedığıniz gibi v17'de 5 yazılıysa a5 hücresine 10 değerini ataması gerekirken bunu yapmadı.

S2.Select yazmam yeterli oldu onu bilemiyorum. Belki başkabir yerde hata var.

Yardımların için teşekkürler.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
w = CInt([V17])
S2.Range("A" & w) = 10

olarak yazdıgımda w'nın degerını ındıs olarak gormesı ıcın ne yapmalıyım,
Yukarıdaki yazım şekliniz doğrudur. =topla(A1:A5) için ise aşağıdaki gibi olabilir.

Kod:
"=topla(A1:A" & [v17] & ")"
 
Katılım
10 Aralık 2006
Mesajlar
26
Excel Vers. ve Dili
exel 2002 turkce
Dediğini yaptıgımda hucrenin içeriği =topla(A2:A8) olarak görünmesine ragmen hucrede #AD? yazıyor. Ancak ben hücreyi seçip enter tuşuna basarsam bu sefer toplam değeri gösteriyor
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Aşağıdaki kodu bir deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
[A20].Formula = "=SUM(A1:A19)" & [V17]
Application.EnableEvents = True
End Sub
 
Üst