• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Neden buton çalışmıyor ?????

  • Konbuyu başlatan Konbuyu başlatan drseref
  • Başlangıç tarihi Başlangıç tarihi
D

drseref

Katılım
19 Şubat 2011
Mesajlar
177
Excel Vers. ve Dili
excel 2010 tr
Formül sayfasındaki verilerin rapor sayfasındaki yerlerine gitmesi gereken hücrelere eksiksiz yapmama rağmen buton çalışmıyor.Bi yerde hatam var...
Kod: 
Private Sub CommandButton1_Click()
Dim a As Long
Set s9 = Sheets(9)
For a = 5 To Cells(Rows.Count, 1).End(xlUp).Row
s9.Range("s9.Range("b2,b3,b4,f2,f3,f4,b8,f8,b9,b10,b11,b12,b13,b23,f9,f10,f11,d14,b15,a18,c18,f18,b26,b27,b31,f31,b32,f32,e36,e37,e38,e39,e40,e41,e42,e45,e46,e47,e48,e49,e50,e51,e52,e53,e54,f56,f58,f62,f64,f66,b70,e70,b74,e74,b77,b78,b79,b80,b81,b82,b83,b84,b85,b86,b87,b89,b90,b91,d91,b93,b94,b95,b96,b97,b98,b99,b100,b101,a103") = ""
If Cells(a, 2) <> "" Then
s9.[b2] = Cells(a, 2)
s9.[b3] = Cells(a, 3)
s9.[b4] = Cells(a, 4)
s9.[f2] = Cells(a, 6)
s9.[f3] = Cells(a, 7)
s9.[f4] = Cells(a, 8)
s9.[b8] = Cells(a, 9)
s9.[f8] = Cells(a, 10)
s9.[b9] = Cells(a, 11)
s9.[b10] = Cells(a, 12)
s9.[b11] = Cells(a, 13)
s9.[b12] = Cells(a, 14)
s9.[b13] = Cells(a, 15)
s9.[b23] = Cells(a, 16)
s9.[f9] = Cells(a, 17)
s9.[f10] = Cells(a, 18)
s9.[f11] = Cells(a, 19)
s9.[d14] = Cells(a, 20)
s9.[b15] = Cells(a, 21)
s9.[a18] = Cells(a, 22)
s9.[c18] = Cells(a, 23)
s9.[f18] = Cells(a, 24)
s9.[b26] = Cells(a, 25)
s9.[b27] = Cells(a, 26)
s9.[b31] = Cells(a, 27)
s9.[f31] = Cells(a, 28)
s9.[b32] = Cells(a, 29)
s9.[f32] = Cells(a, 30)
s9.[e36] = Cells(a, 31)
s9.[e37] = Cells(a, 32)
s9.[e38] = Cells(a, 33)
s9.[e39] = Cells(a, 34)
s9.[e40] = Cells(a, 35)
s9.[e41] = Cells(a, 36)
s9.[e42] = Cells(a, 37)
s9.[e45] = Cells(a, 37)
s9.[e46] = Cells(a, 38)
s9.[e47] = Cells(a, 39)
s9.[e47] = Cells(a, 40)
s9.[e49] = Cells(a, 41)
s9.[e50] = Cells(a, 42)
s9.[e51] = Cells(a, 43)
s9.[e52] = Cells(a, 44)
s9.[e53] = Cells(a, 45)
s9.[e54] = Cells(a, 46)
s9.[f56] = Cells(a, 47)
s9.[f58] = Cells(a, 48)
s9.[f62] = Cells(a, 49)
s9.[f64] = Cells(a, 50)
s9.[f66] = Cells(a, 51)
s9.[b70] = Cells(a, 52)
s9.[e70] = Cells(a, 53)
s9.[b74] = Cells(a, 54)
s9.[e74] = Cells(a, 55)
s9.[b77] = Cells(a, 56)
s9.[b78] = Cells(a, 57)
s9.[b79] = Cells(a, 58)
s9.[b80] = Cells(a, 59)
s9.[b81] = Cells(a, 60)
s9.[b82] = Cells(a, 61)
s9.[b83] = Cells(a, 62)
s9.[b84] = Cells(a, 64)
s9.[b85] = Cells(a, 65)
s9.[b86] = Cells(a, 66)
s9.[b87] = Cells(a, 67)
s9.[b89] = Cells(a, 68)
s9.[b90] = Cells(a, 69)
s9.[b91] = Cells(a, 70)
s9.[d91] = Cells(a, 71)
s9.[b93] = Cells(a, 72)
s9.[b94] = Cells(a, 73)
s9.[b95] = Cells(a, 74)
s9.[b96] = Cells(a, 75)
s9.[b97] = Cells(a, 76)
s9.[b98] = Cells(a, 77)
s9.[b99] = Cells(a, 78)
s9.[b100] = Cells(a, 79)
s9.[b101] = Cells(a, 80)
s9.[a103] = Cells(a, 81)
Sheets(9).PrintOut From:=1, To:=1, Copies:=1
End If: Next
s9.Range("s9.Range("b2,b3,b4,f2,f3,f4,b8,f8,b9,b10,b11,b12,b13,b23,f9,f10,f11,d14,b15,a18,c18,f18,b26,b27,b31,f31,b32,f32,e36,e37,e38,e39,e40,e41,e42,e45,e46,e47,e48,e49,e50,e51,e52,e53,e54,f56,f58,f62,f64,f66,b70,e70,b74,e74,b77,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
 
Son düzenleme:
. . .

Kod: 
Private Sub CommandButton1_Click()
    Dim a As Long
    Set s9 = Sheets("Rapor")
    For a = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        s9.Range("b2,b3,b4,f2,f3,f4,b8,f8,b9,b10,b11,b12,b13,b23,f9,f10") = ""
        s9.Range("f11,d14,b15,a18,c18,f18,b26,b27,b31,f31,b32,f32,e36,e37") = ""
        s9.Range("e38,e39,e40,e41,e42,e45,e46,e47,e48,e49,e50,e51,e52,e53,e54") = ""
        s9.Range("f56,f58,f62,f64,f66,b70,e70,b74,e74,b77,b78,b79,b80,b81,b82,b83") = ""
        s9.Range("b84,b85,b86,b87,b89,b90,b91,d91,b93,b94,b95,b96,b97,b98,b99,b100,b101,a103") = ""
        If Cells(a, 2) <> "" Then
            s9.[b2] = Cells(a, 2)
            s9.[b3] = Cells(a, 3)
            s9.[b4] = Cells(a, 4)
            s9.[f2] = Cells(a, 6)
            s9.[f3] = Cells(a, 7)
            s9.[f4] = Cells(a, 8)
            s9.[b8] = Cells(a, 9)
            s9.[f8] = Cells(a, 10)
            s9.[b9] = Cells(a, 11)
            s9.[b10] = Cells(a, 12)
            s9.[b11] = Cells(a, 13)
            s9.[b12] = Cells(a, 14)
            s9.[b13] = Cells(a, 15)
            s9.[b23] = Cells(a, 16)
            s9.[f9] = Cells(a, 17)
            s9.[f10] = Cells(a, 18)
            s9.[f11] = Cells(a, 19)
            s9.[d14] = Cells(a, 20)
            s9.[b15] = Cells(a, 21)
            s9.[a18] = Cells(a, 22)
            s9.[c18] = Cells(a, 23)
            s9.[f18] = Cells(a, 24)
            s9.[b26] = Cells(a, 25)
            s9.[b27] = Cells(a, 26)
            s9.[b31] = Cells(a, 27)
            s9.[f31] = Cells(a, 28)
            s9.[b32] = Cells(a, 29)
            s9.[f32] = Cells(a, 30)
            s9.[e36] = Cells(a, 31)
            s9.[e37] = Cells(a, 32)
            s9.[e38] = Cells(a, 33)
            s9.[e39] = Cells(a, 34)
            s9.[e40] = Cells(a, 35)
            s9.[e41] = Cells(a, 36)
            s9.[e42] = Cells(a, 37)
            s9.[e45] = Cells(a, 37)
            s9.[e46] = Cells(a, 38)
            s9.[e47] = Cells(a, 39)
            s9.[e47] = Cells(a, 40)
            s9.[e49] = Cells(a, 41)
            s9.[e50] = Cells(a, 42)
            s9.[e51] = Cells(a, 43)
            s9.[e52] = Cells(a, 44)
            s9.[e53] = Cells(a, 45)
            s9.[e54] = Cells(a, 46)
            s9.[f56] = Cells(a, 47)
            s9.[f58] = Cells(a, 48)
            s9.[f62] = Cells(a, 49)
            s9.[f64] = Cells(a, 50)
            s9.[f66] = Cells(a, 51)
            s9.[b70] = Cells(a, 52)
            s9.[e70] = Cells(a, 53)
            s9.[b74] = Cells(a, 54)
            s9.[e74] = Cells(a, 55)
            s9.[b77] = Cells(a, 56)
            s9.[b78] = Cells(a, 57)
            s9.[b79] = Cells(a, 58)
            s9.[b80] = Cells(a, 59)
            s9.[b81] = Cells(a, 60)
            s9.[b82] = Cells(a, 61)
            s9.[b83] = Cells(a, 62)
            s9.[b84] = Cells(a, 64)
            s9.[b85] = Cells(a, 65)
            s9.[b86] = Cells(a, 66)
            s9.[b87] = Cells(a, 67)
            s9.[b89] = Cells(a, 68)
            s9.[b90] = Cells(a, 69)
            s9.[b91] = Cells(a, 70)
            s9.[d91] = Cells(a, 71)
            s9.[b93] = Cells(a, 72)
            s9.[b94] = Cells(a, 73)
            s9.[b95] = Cells(a, 74)
            s9.[b96] = Cells(a, 75)
            s9.[b97] = Cells(a, 76)
            s9.[b98] = Cells(a, 77)
            s9.[b99] = Cells(a, 78)
            s9.[b100] = Cells(a, 79)
            s9.[b101] = Cells(a, 80)
            s9.[a103] = Cells(a, 81)
            s9.PrintOut From:=1, To:=1, Copies:=1
        End If
    Next
    
    s9.Range("b2,b3,b4,f2,f3,f4,b8,f8,b9,b10,b11,b12,b13,b23,f9,f10,f11,d14,b15") = ""
    s9.Range("a18,c18,f18,b26,b27,b31,f31,b32,f32,e36,e37,e38,e39,e40,e41,e42,e45,e46") = ""
    s9.Range("e47,e48,e49,e50,e51,e52,e53,e54,f56,f58,f62,f64,f66,b70,e70,b74,e74,b77") = ""
    s9.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

. . .
 
elinize sağlık...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst