macro çalışıyor.Fakat aktif sayfadan verieri alıp yapıyor.Oysa ben sadece sayfa 2 deki verielere göre sayfa 3 yazılmasını istiyorum. aşağıdaki macro yine çalışsın.Nasıl ekleme yapılacak macroya ???
Kod:
Private Sub CommandButton2_Click()
Dim a As Long
Set s3 = Sheets("Rapor")
For a = 2 To Cells(Rows.Count, 1).End(xlUp).Row
s3.Range("b2,b3,b4,f2,f3,f4,b8,f8,b9,b10,b11,b12,b13,b23,f9,f10") = ""
s3.Range("f11,d14,b15,a18,c18,f18,b26,b27,b31,f31,b32,f32,e36,e37") = ""
s3.Range("e38,e39,e40,e41,e42,e45,e46,e47,e48,e49,e50,e51,e52,e53,e54") = ""
s3.Range("f56,f58,f62,f64,f66,b70,e70,b74,e74,b77,b78,b79,b80,b81,b82,b83") = ""
s3.Range("b84,b85,b86,b87,b89,b90,b91,d91,b93,b94,b95,b96,b97,b98,b99,b100,b101,a103") = ""
If Cells(a, 2) <> "" Then
s3.[b2] = Cells(a, 2)
s3.[b3] = Cells(a, 3)
s3.[b4] = Cells(a, 4)
s3.[f2] = Cells(a, 5)
s3.[f3] = Cells(a, 6)
s3.[f4] = Cells(a, 7)
s3.[b8] = Cells(a, 8)
s3.[f8] = Cells(a, 9)
s3.[b9] = Cells(a, 10)
s3.[b10] = Cells(a, 11)
s3.[b11] = Cells(a, 12)
s3.[b12] = Cells(a, 13)
s3.[b13] = Cells(a, 14)
s3.[b23] = Cells(a, 15)
s3.[f9] = Cells(a, 16)
s3.[f10] = Cells(a, 17)
s3.[f11] = Cells(a, 18)
s3.[d14] = Cells(a, 19)
s3.[b15] = Cells(a, 20)
s3.[a18] = Cells(a, 21)
s3.[c18] = Cells(a, 22)
s3.[f18] = Cells(a, 23)
s3.[b24] = Cells(a, 24)
s3.[b26] = Cells(a, 25)
s3.[b27] = Cells(a, 26)
s3.[b31] = Cells(a, 27)
s3.[f31] = Cells(a, 28)
s3.[b32] = Cells(a, 29)
s3.[f32] = Cells(a, 30)
s3.[e36] = Cells(a, 31)
s3.[e37] = Cells(a, 32)
s3.[e38] = Cells(a, 33)
s3.[e39] = Cells(a, 34)
s3.[e40] = Cells(a, 35)
s3.[e41] = Cells(a, 36)
s3.[e42] = Cells(a, 37)
s3.[e45] = Cells(a, 38)
s3.[e46] = Cells(a, 39)
s3.[e47] = Cells(a, 40)
s3.[e47] = Cells(a, 41)
s3.[e49] = Cells(a, 42)
s3.[e50] = Cells(a, 43)
s3.[e51] = Cells(a, 44)
s3.[e52] = Cells(a, 45)
s3.[e53] = Cells(a, 46)
s3.[e54] = Cells(a, 47)
s3.[e56] = Cells(a, 48)
s3.[e58] = Cells(a, 49)
s3.[e62] = Cells(a, 50)
s3.[f64] = Cells(a, 51)
s3.[e66] = Cells(a, 52)
s3.[b70] = Cells(a, 53)
s3.[e70] = Cells(a, 54)
s3.[b74] = Cells(a, 55)
s3.[e74] = Cells(a, 56)
s3.[b77] = Cells(a, 57)
s3.[b78] = Cells(a, 58)
s3.[b79] = Cells(a, 59)
s3.[b80] = Cells(a, 60)
s3.[b81] = Cells(a, 61)
s3.[b82] = Cells(a, 62)
s3.[b83] = Cells(a, 63)
s3.[b84] = Cells(a, 64)
s3.[b85] = Cells(a, 65)
s3.[b86] = Cells(a, 66)
s3.[b87] = Cells(a, 67)
s3.[b89] = Cells(a, 68)
s3.[b90] = Cells(a, 69)
s3.[b91] = Cells(a, 70)
s3.[d91] = Cells(a, 71)
s3.[b93] = Cells(a, 72)
s3.[b94] = Cells(a, 73)
s3.[b95] = Cells(a, 74)
s3.[b96] = Cells(a, 75)
s3.[b97] = Cells(a, 76)
s3.[b98] = Cells(a, 77)
s3.[b99] = Cells(a, 78)
s3.[b100] = Cells(a, 79)
s3.[b101] = Cells(a, 80)
s3.[a103] = "1." & " " & Cells(a, 81)
s3.PrintOut From:=1, To:=2, Copies:=1
End If
Next
s3.Range("b2,b3,b4,f2,f3,f4,b8,f8,b9,b10,b11,b12,b13,b23,f9,f10,f11,d14,b15") = ""
s3.Range("a18,c18,f18,b26,b27,b31,f31,b32,f32,e36,e37,e38,e39,e40,e41,e42,e45,e46") = ""
s3.Range("e47,e48,e49,e50,e51,e52,e53,e54,f56,f58,f62,f64,f66,b70,e70,b74,e74,b77") = ""
s3.Range("b78,b79,b80,b81,b82,b83,b84,b85,b86,b87,b89,b90,b91,d91,b93,b94,b95,b96,b97,b98,b99,b100,b101,a103") = ""
End Sub
