VERİ AKTARIMI VE TOPLAMA

[CAHİTBAVİK]

MERHABA..EKLİ DOSYA EKTEDİR...

sayfa 1 den sayfa 2 ye verileri aktardığım zaman sayfa 2 de en son veriler girildikten sonra ( mesala 10 ar adet veri girince hemen en alt satırın yanında hücrede toplam alıcak)...acaba bununla ilgili komut nedir..şimdiden tşkürler

 

[CAHİTBAVİK]

SAYIN MODERATÖR ARKADAŞLARIM..BARİ SİZ Bİ CEVAP VERİN..GERÇKTEN ÇÖÜZMÜ OLMAYAN BİR SORUMU SORDUM ACABA...BUNUNLA İLGİLİ BİR KOD YAZIMI VARDIR MUTLAKA...ŞİMDİDEN TŞKÜRLER :dua: :yardim:

 

[Metin Karaağaç]

Ya sorularınız açık ve net değil, ya da ben bu aralar anlama güçlüğü çekiyorum.
Düğme oluşturma dışındaki sorularınızın hiçbirini anlayamadım.

 

[Levent Menteşoğlu]

Sn CAHİTBAVİK

Sorunuzu gerçektende anlaşılması pek mümkün olmayan bir şekilde sormuşsunuz, sorunuzu hücre isimlerinide belirterek sorun. Birde lütfen büyük harfle yazmayın. büyük harf okumada güçlük oluşturmaktadır.

Not:Sn Acemi1 sizde bir anormallik yok endişeniz olmasın.

 

[Metin Karaağaç]

Teşekkür ederim.
Boşuna kendimden şüphelenmişim k::

 

[CAHİTBAVİK]

VERİ AKTARIMI VE TOPLAMA(ANLAŞILIR BİR ŞEKİLDE)

MERHABA..öncelikle ilginize tşkürler...ben sorumu bu sefer elimden gelince anlaşılır bir şekilde sormaya çalışacağım..iyi çalışmlalar

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[CAHİTBAVİK]

sayın leventm gerçekten çok tşkürler...yalnız ufak bir şey daha istesem haddim olmayarak....bu toplam yazılıyorya f sütunundaki hücreye..ben bir önceki toplmaların görünmesini istemiyorum..yani yeni bir data girince sadece o satırın yanındaki f hücresinde görünsün toplam...şimdiden tşkürler..saygılar

 

[CAHİTBAVİK]

cevaplarınızı bekliyorum..tşkürler

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:cba98aa0bc]Sub KAYDET()
Set s1 = Sheets("SAYFA2")
a = WorksheetFunction.CountA(s1.Range("b4:b100"))
s1.Range("B" & a + 4) = [B6]
s1.Range("C" & a + 4) = [B7]
s1.Range("D" & a + 4) = [B8]
s1.Range("E" & a + 4) = [B6] * [B7] * [B8]
s1.Range("F" & a + 4) = WorksheetFunction.Sum(s1.Range("E4:E" & a + 4))
s1.Range("F" & a + 3).ClearContents
s1.Select
MsgBox "kayıt tamamlandı"
End Sub
[/vb:1:cba98aa0bc]

 

[CAHİTBAVİK]

gerçekten harikasınız...çok teşekürler