Makale numaras�: 210684 - Son G�zden Ge�irme: 02 Nisan 2007 Pazartesi - G�zden ge�irme: 6.4

�al��ma zaman� hatas� 1004 Excel'de neden olan �al��ma programsal olarak kopyalama

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Microsoft Excel'de �al��ma kopyalar ve sonra da bunlar kaynakland�� ayn� �al��ma kitab�na �al��ma sayfalar� yerle�tirir bir makro �al��t�r�n. Bunu yapt��n�zda a�a��daki hata iletilerinden birine benzer bir hata iletisi alabilirsiniz:

�al��ma zaman� hatas� '1004':
�al��ma sayfas� s�n�f, kopya y�ntemi ba�ar�s�z oldu.

�al��ma zaman� hatas� '1004':
Uygulama tan�ml� veya nesne tan�ml� hata

�ste

Neden

Microsoft, programlama �rneklerini yaln�zca g�sterim amac�yla sa�lar; �rt�l� veya a��k garanti vermez. Buna sat�labilirlik veya belirli bir amaca uygunluk z�mni garantileri de dahildir, ancak bunlarla s�n�rl� de�ildir. Bu makale, g�sterilen programlama dilini ve yordamlar� olu�turmak ve hata ay�klamak amac�yla kullan�lan ara�lar� kullanmay� bildi�inizi varsayar. Microsoft destek m�hendisleri, belirli bir yordam�n i�levselli�inin a��klanmas�na yard�mc� olabilir. Ancak gereksinimlerinizi kar��lamaya y�nelik olarak ek i�levsellik sa�lamak veya yordamlar geli�tirmek amac�yla bu �rnekleri de�i�tirmezler.

�al��ma kitab�na tan�ml� bir ad verin ve sonra �al��ma sayfas�n�n ilk kaydetme ve a�a��daki �rnek kodu gibi �al��ma kitab�n� kapatma birka� kez kopyalay�n, bu sorun olu�abilir:

Sub CopySheetTest()
    Dim iTemp As Integer
    Dim oBook As Workbook
    Dim iCounter As Integer
    
    ' Create a new blank workbook:
    iTemp = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Set oBook = Application.Workbooks.Add
    Application.SheetsInNewWorkbook = iTemp
    
    ' Add a defined name to the workbook
    ' that RefersTo a range:
    oBook.Names.Add Name:="tempRange", _
        RefersTo:="=Sheet1!$A$1"
            
    ' Save the workbook:
    oBook.SaveAs "c:\test2.xls"
    
    ' Copy the sheet in a loop. Eventually,
    ' you get error 1004: Copy Method of
    ' Worksheet class failed.
    For iCounter = 1 To 275
        oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)        
    Next
End Sub

�ste

��z�m

Bu sorunu gidermek i�in <a0></a0>, kaydetmek ve belirli aral�klarla kopyalama i�lemi, a�a��daki �rnek kodda olarak olu�up kar��n, �al��ma kitab�n� kapat�n:

Sub CopySheetTest()
    Dim iTemp As Integer
    Dim oBook As Workbook
    Dim iCounter As Integer
    
    ' Create a new blank workbook:
    iTemp = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Set oBook = Application.Workbooks.Add
    Application.SheetsInNewWorkbook = iTemp
    
    ' Add a defined name to the workbook
    ' that RefersTo a range:
    oBook.Names.Add Name:="tempRange", _
        RefersTo:="=Sheet1!$A$1"
            
    ' Save the workbook:
    oBook.SaveAs "c:\test2.xls"
    
    ' Copy the sheet in a loop. Eventually,
    ' you get error 1004: Copy Method of
    ' Worksheet class failed.
    For iCounter = 1 To 275
        oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)
        'Uncomment this code for the workaround:
        'Save, close, and reopen after every 100 iterations:
        If iCounter Mod 100 = 0 Then
            oBook.Close SaveChanges:=True
            Set oBook = Nothing
            Set oBook = Application.Workbooks.Open("c:\test2.xls")
        End If
    Next
End Sub

Not ka� kez �nce �al��ma kitab�n� kaydetmeniz gerekir, bir �al��ma sayfas�na kopyalayabilirsiniz �al��ma sayfas�n�n boyutunu de�i�tirir.

�ste

Pratik ��z�m

Bu soruna ge�ici bir ��z�m bulmak i�in <a0></a0>, varolan bir �al��ma sayfas�na kopyalama yerine bir �ablondan yeni bir �al��ma sayfas� ekler. Bunu yapmak i�in <a0></a0>, �al��t�rmakta oldu�unuz Excel s�r�m�ne uygun ad�mlar� izleyin.

�ste

Microsoft Office Excel 2007

Yeni bir �al��ma kitab� olu�turun ve sonra t�m �al��ma sayfalar�n� bir haricinde silin.
�al��ma kitab�n� bi�imlendirmek ve b�t�n metin, veri ve gerekli olan grafik �ablonda varsay�lan olarak ekleyin.
Microsoft Office d��mesi ' ni t�klat�n ve sonra da Kaydet'i t�klat�n.
Dosya ad�</a0> kutusunda, Excel �ablonu i�in istedi�iniz ad� yaz�n.
Kay�t t�r� listesinde, �ablonu (*.xltx) t�klat�n ve sonra da <a2>Kaydet</a2>'i t�klat�n.
�ablon programsal olarak eklemek i�in �u kodu kullan�n:
Sheets.Add Type: = path \ filename
Bu kodda, path \ filename sayfas� �ablonunuz i�in tam yolu ve dosya ad�n� i�eren bir dizedir.

�ste

Microsoft Office Excel 2003 ve Excel'in �nceki s�r�mleri

Yeni bir �al��ma kitab� olu�turun ve sonra t�m �al��ma sayfalar�n� bir haricinde silin.
�al��ma kitab�n� bi�imlendirmek ve b�t�n metin, veri ve gerekli olan grafik �ablonda varsay�lan olarak ekleyin.
Dosya ' y� t�klat�n ve sonra Farkl� Kaydet'i t�klat�n.
Dosya ad�</a0> kutusunda, Excel �ablonu i�in istedi�iniz ad� yaz�n.
Kay�t t�r� listesinde �ablon (*.xlt) t�klat�n ve sonra da <a2>Kaydet</a2>'i t�klat�n.
�ablon programsal olarak eklemek i�in �u kodu kullan�n:
Sheets.Add Type: = path \ filename
Bu kodda, path \ filename sayfas� �ablonunuz i�in tam yolu ve dosya ad�n� i�eren bir dizedir.

�ste

Durum

Microsoft, "Ge�erli Oldu�u �r�nler" b�l�m�nde listelenen Microsoft �r�nlerinde bu sorunun oldu�unu onaylam��t�r.

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft Office Excel 2007
Microsoft Office Excel 2003
Microsoft Excel 2002 Standard Edition
Microsoft Excel 2000 Standard Edition
Microsoft Excel 97 Standard Edition

�ste

kbmt kbprogramming kbmacro kbautomation kbvba kbexpertiseinter kbbug kberrmsg kbpending KB210684 KbMttr

�ste

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:210684� (http://support.microsoft.com/kb/210684/en-us/ )

�ste

This site in other countries/regions:

�al��ma zaman� hatas� 1004 Excel'de neden olan �al��ma programsal olarak kopyalama

Bu Sayfada

Belirtiler

Neden

��z�m

Pratik ��z�m

Microsoft Office Excel 2007

Microsoft Office Excel 2003 ve Excel'in �nceki s�r�mleri

Durum

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Bu bilgi hakk�nda geri bildirim sa�lay�n

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

�al��ma zaman� hatas� 1004 Excel'de neden olan �al��ma programsal olarak kopyalama

Bu Sayfada

Belirtiler

Neden

��z�m

Pratik ��z�m

Microsoft Office Excel 2007

Microsoft Office Excel 2003 ve Excel'in �nceki s�r�mleri

Durum

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Bu bilgi hakk�nda geri bildirim sa�lay�n

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: