sayfalar arası verileri baska bir sayfada aktarma

[yamgur]

Arkadaslar ben 3 köyden süt topluyorum vede bunların hesabını 3 ayrı sayfada tutuyorum.Şimdi ben bu toplamları Genel toplam sayfasına otomatik olarak göndermek istiyorum.Şimdiden teşekkür ederim

 

[Orion1]

Arkadaslar ben 3 köyden süt topluyorum vede bunların hesabını 3 ayrı sayfada tutuyorum.Şimdi ben bu toplamları Genel toplam sayfasına otomatik olarak göndermek istiyorum.Şimdiden teşekkür ederim

Örnek dosyanızı hazırlayın ve aşağıdaki linkten yükleyerek kopyalayıp buraya yapıştırın.

DOSYAYI İNDİR

..

 

[yamgur]

link

http://s3.dosya.tc/server7/w1niyc/sut.rar.html

 

[vardar07]

Genel toplam sayfası kod bölümüne ekleyip deneyiniz.

Private Sub CommandButton1_Click()
Range("B2:P4").ClearContents
Set s1 = Sheets("genel toplam")
For i = 1 To Sheets.Count
syf = Sheets(i).Name
If syf <> "genel toplam" Then
For m = 2 To Sheets(syf).Range("B1").End(xlToRight).Column - 1
son = Sheets(syf).Range("B65536").End(3).Row
If Sheets(syf).Cells(1, m) = s1.Cells(1, m) Then
 a = WorksheetFunction.Match(syf, s1.Range("A:A"))
s1.Cells(a, m) = Sheets(syf).Cells(son, m)
End If
Next
End If
Next
End Sub

 

[yamgur]

Genel toplam sayfası kod bölümüne ekleyip deneyiniz.

Private Sub CommandButton1_Click()
Range("B2:P4").ClearContents
Set s1 = Sheets("genel toplam")
For i = 1 To Sheets.Count
syf = Sheets(i).Name
If syf <> "genel toplam" Then
For m = 2 To Sheets(syf).Range("B1").End(xlToRight).Column - 1
son = Sheets(syf).Range("B65536").End(3).Row
If Sheets(syf).Cells(1, m) = s1.Cells(1, m) Then
 a = WorksheetFunction.Match(syf, s1.Range("A:A"))
s1.Cells(a, m) = Sheets(syf).Cells(son, m)
End If
Next
End If
Next
End Sub

denedim ama olmadı malesef

 

[vardar07]

Sayfaya 1adet Geliştirici>> Ekle>>ActiveX Denetimler den bir adet Buton ekleyip işlemi tamamlayacaksınız. Yada yapamadığınız dosyayı yükleyin hatayı görelim.

 

[yamgur]

run time error 1004 worksheetFunction sınıfının Match özelligi alınamıyor

diye hata veriyor kusura bakmayın sizide meşgul ediyorum acemiligime verin