diğer sayfalardaki veri değişmesin

[noxious]

benim bir derdim var exel e yeni başladım ve kendimi ilerletmek istiyorum. sayfa1 veri girişi, sayfa2 haftalık toplam, sayfa3 aylık toplam olacak. hücreleri birbirine bağladım sayfa1 e yazdığım sayfa2 ye ordanda sayfa3 e geçiyor. ben sayfa1 e her gün değişik sayısal veriler girmek zorundayım ve sonucu bana haftalık ve aylık olarak toplayarak karşıma çıkartması lazım ama sayfa 1 de bulunan örneğin C3 bölümündeki veriyi sildiğimde otomatikman sayfa2 ve sayfa3 te o hücreye denk gelen veride siliniyor. benim sizden istediğim sayfa1 de bulunan hücrelerdeki verileri sildiğimde sayfa2 ve sayfa3 te bulunan eşdeğer hücrelerin içeriği silinmesin ve ben sayfa1 e veri girdikçe sayfa2 ve sayfa3 te bana toplamlarını göstersin amacım hafta sonunda ve ay sonunda yapılan işlerle ilgili istatistik çıkartmak şimdiden teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına kopyalayarak deneyin. Sayfa1 C3 hücresine değer yazdığınızda çalışır.

[vb:1:19be35a3d1]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$3" Then Exit Sub
[sayfa2!c3] = Target + [sayfa2!c3]
[sayfa3!c3] = Target + [sayfa3!c3]
End Sub
[/vb:1:19be35a3d1]

 

[Ali]

İlk başlayan biri için makrolarla çok hızlı bir giriş olmazmı

 

[Levent Menteşoğlu]

İlk başlayan biri için makrolarla çok hızlı bir giriş olmazmı

Elbette olur ama sorulan sorunun en kısa çözümü sanırım makro ile oluyor.

 

[noxious]

yeni başlıyor olmam hızlı ilerlememi engellememeli değilmi sayın ustalar LEVENTM arkadaşım kod için sağol benim çlışmam yaklaşık olarak 20 tane verinin gireleceği bir tablo alt altta ve yanyana yazdığın kod bu sorunuma fayda sağlarmı çok teşekkürler

 

[Levent Menteşoğlu]

Bu haliyle elbette sağlamaz, kod sadece C3 hücresi için yazılmıştır. Bir örnek dosya eklerseniz onun üzerinden gidelim.

 

[noxious]

icraat diye bir dosya ekledim üzerinde daha çalışacağım yukarıdaki saydığımdan başka günlük verileri girdikten sonra haftalık ve aylık olarak ayrılması lazım

 

[Levent Menteşoğlu]

Aşağıdaki kodu GÜNLÜK İCRAAT sayfasında bir butona bağlayarak çalıştırın.

[vb:1:6ddd4ddc54]Sub aktar()
[b45:y57].Copy
Sheets("HAFTALIK İCRAAT").Select
[b46].PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
[b46:y58].Copy
Sheets("AYLIK İCRAAT").Select
[b46].PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Application.CutCopyMode = False
Sheets("GÜNLÜK İCRAAT").Select
End Sub
[/vb:1:6ddd4ddc54]

 

[noxious]

ilgin için sağol arkadaşım ama ekleme yaparken bir yerde hata yapıyorum her halde karşıma hata msj çıkıyor

 

[Seceren]

Yapabilmişmiyim. Sadece kodları ilave ettim.

 

[trafikci]

sayın; noxious,

ekteki dosyaya bi bakın umarım işinize yarar

ii çalışmalar

Ã?NEMLİ: KODLAR sayın leventm e aittir

 

[noxious]

LEVENTM ustam ellerine sağlık tam anlamı ile inceleyemedim ama gördüğüm kadarı ile istediğimden fazlasını bana sunmuşsun sağol

:arkadas:


Bu arada arkadaşlar kodlar LEVENTM usta tarafından yazılmıştır emeğe saygı

 

[noxious]

pardon düzenleyen trafikçi arkadaş her halde sanada çok sağol ellerin dert görmesin

 

[trafikci]

noxious, k::