sayfa sayfa hücre toplama

[alemadam]

Şimdi elimde bir excel dosyası var. Bu dosyanın içinde de excel formüllerinde de sıkıntım var.bu konu hakkında bilgi vermek istiyorum...
1 den 31 kadar günler var bunların içinde de tablolar var ve en sonun da da aysonu var. ben 1 den 31 e kadar bu sayıların hem artarak hemde üzerlerine sayı yazarak toplmasını istiyorum... yani sayfa 2 de " ='1'!E5+'2'!E5 " ama bunu ben '2'!E5 üzerine rakam yazıp '3'!E5 yazmasını istiyorum.yardımcı olabilecek arkadaşları bekliyorum... şimdiden teşekürler......

 

[uzmanamele]

merhaba

aşağıdaki kod işinizi görür mü?

Sub deneme()
For i = 2 To Sheets.Count
Sheets(i).Range("b5") = Sheets((i - 1)).Range("b5") + 100
'+100 opsiyonel, kendinize göre değiştirin
Next
End Sub

 

[alemadam]

yi de ben bu kodu nereye yazacam ve nasıl ypacagım....

 

[alemadam]

yani örnekte yapaı da gönderirsen akadaşım çok sevinirim olmassada canın saolsun şimdiden teşekür ederim...,

 

[alemadam]

Sub deneme()
For i = 2 To Sheets.Count
Sheets(i).Range("b5") = Sheets((i - 1)).Range("b5") + 100
'+100 opsiyonel, kendinize göre değiştirin
Next
End Sub


arkadaşım ben bu kodda +100 yerine eklemek istegim sayıya da yanına yazmak istiyorum.... bu nasıl olacak

 

[uzmanamele]

merhaba

Sub deneme()
For i = 2 To Sheets.Count
Sheets(i).Range("b5") = Sheets((i - 1)).Range("b5") + 100
'+100 opsiyonel, kendinize göre değiştirin
Next
End Sub


arkadaşım ben bu kodda +100 yerine eklemek istegim sayıya da yanına yazmak istiyorum.... bu nasıl olacak

doğru mu anladım bilmiyorum ki
+100 opsiyonel diye söylemişdim zaten, sizin eklemeniz gereken 200 ise
Sheets(i).Range("b5") = Sheets((i - 1)).Range("b5") + 200 yazın

 

[alemadam]

ben bu butonu istiyorum bu butonun yanında bir boşuk olsun ki bende rkamı yazayım b5 işlensin sadece bunu isityorum...

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub deneme()
sayı = InputBox("ilave edilecek sayıyı giriniz")
For i = 2 To Sheets.Count
Sheets(i).Range("b5") = Sheets((i - 1)).Range("b5") + sayı
'+100 opsiyonel, kendinize göre değiştirin
Next
End Sub

 

[alemadam]

evet bu olabilir sizden ricam bu 1-31 sayfaları içinde olacak 1. syfada b5 100 Ytl ise 2 sayfada 100 olacak üstüne eklediğimde de 2 sayfadaki b5 değişmiyecek. bu olablirmi olursada örnek alabilirmiyim....

 

[alemadam]

Sub deneme()
sayı = InputBox("ilave edilecek sayıyı giriniz")
For i = 2 To Sheets.Count
Sheets(i).Range("b5") = Sheets((i - 1)).Range("b5") + sayı
'+100 opsiyonel, kendinize göre değiştirin
Next
End Sub

bide mause ile mela c45 veya e32 yani mause ile tıladım böygeye istegim rakamı yazmak istiyorum bu button la...

 

[alemadam]

cevap veren yok muuuuuuuuuuuuuuuuuuuuuu