Sayfalar Arası Veri Aktar ve Çek

[ozkovlu]

Merhabalar;
Ekte göndermiş olduğum dosyada, BORDRO ve V.MAT şeklinde iki sayfa mevcut. İki adet buton ekleyip, 1.boton ile Bordro sayfasında ki AylıkVergiMAtrahları="T3" ü V.Matrah sayfasına, 2.buton ile V.Matrah sayfasındaki Toplam Vergi Matrahları="Q4" ü BORDRO sayfasındaki kısma aktarmak ve aynı zamanda isimleri ve ayları kontrol edip ona göre aktarımını sağlamak istiyorum. Aşağıdaki kod çok randımanlı çalışmıyor.Makroya ihtiyaç var.
Saygılarımla...

EĞER(BORDRO!$AE$1<1;0;EĞER(BORDRO!$AE$1=2;BORDRO!$T7;C7))

http://s3.dosya.tc/server10/bgyogy/veri_aktar_cek.zip.html

 

[ozkovlu]

Bu kodu daha işlevsel hale nasıl getirebilirim.

Sub MatrahAktar()

    Range("T5:T10").Select
    Selection.Copy
    
If Sheets("BORDRO").Range("Ae1").Value = Sheets("V.MAT").Range("c2").Value Then

    Sheets("V.MAT").Select
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C5").Select
    
    ElseIf Sheets("BORDRO").Range("Ae1").Value = Sheets("V.MAT").Range("d2").Value Then
    Sheets("V.MAT").Select
    Range("d5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("d5").Select
    
    ElseIf Sheets("BORDRO").Range("Ae1").Value = Sheets("V.MAT").Range("e2").Value Then
    Sheets("V.MAT").Select
    Range("e5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("e5").Select
End If
    
End Sub

Sub MatrahıCek()

    Sheets("V.MAT").Select
    Range("P5:P11").Select
    Selection.Copy
    
    Sheets("BORDRO").Select
    Range("S5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("S5").Select
    
End Sub