Oturum a�

Select the product you need help with

Kopyalama veya Mac i�in Excel VBA kodu kullanarak sayfalar�n� ta��ma hakk�nda

Makale numaras�: 288402 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

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

�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.

Hepsini a� | Hepsini kapa

Kopyalamak veya sayfa i�indeki bir �al��ma kitab� veya �al��ma kitaplar� aras�nda ta��mak i�in Microsoft Visual Basic for Applications (VBA) kodunu kullanabilirsiniz. Bu, bir�ok sayfalar� ta��mak veya kopyalamak istedi�iniz veya bir sayfaya birden �ok kopyas�n� yapmak isterseniz kullan��l�d�r.

Bu makalede, bu g�revleri yerine getirmek i�in VBA kodu �rnekleri sa�lar.

�ste | Geri Bildirim Ver

Daha fazla bilgi

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. Not Microsoft Office 2001 for Mac Service Release 1 olmadan, Macintosh i�in Microsoft Excel 2001'de, kopyalanan sayfalar� ayr� bir �al��ma kitab�ndan kodu koyman�z gerekir.

Kopyalanan sayfalar� olarak ayn� �al��ma kitab�nda sayfalar� kopyalar VBA kodunu, Excel 2001 for Macintosh bir sorunla kar��la�t�.

Bu sorun Mac i�in Microsoft Office 2001 Service Release 1 giderilip Excel 2001 for Mac, bu sorun hakk�nda ek bilgi i�in Microsoft Knowledge Base'deki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

286266

(http://support.microsoft.com/kb/286266/ )

Ayn� �al��ma kitab�nda �al��ma kopyalamay� denedi�inizde, Excel'in ask�da kal�yor

�al��ma sayfalar� kopyalamak i�in �rnek kod

Etkin �al��ma kitab�ndaki belirli bir sayfay� kopyalama

Sub Copier1()
    'Replace "Sheet1" with the name of the sheet to be copied.
    ActiveWorkbook.Sheets("Sheet1").Copy _
       after:=ActiveWorkbook.Sheets("Sheet1")
End Sub

Belirli bir sayfa, etkin �al��ma kitab�ndaki birden �ok kez kopyalama


Sub Copier2()
    Dim x As Integer
    
    x = InputBox("Enter number of times to copy Sheet1")
    For numtimes = 1 To x
        'Loop by using x as the index number to make x number copies.
        'Replace "Sheet1" with the name of the sheet to be copied.
        ActiveWorkbook.Sheets("Sheet1").Copy _
           After:=ActiveWorkbook.Sheets("Sheet1")
    Next
End Sub

ActiveSheet �ok zamanlar� kopyalama

Sub Copier3()
   Dim x As Integer
   
   x = InputBox("Enter number of times to copy active sheet")
   For numtimes = 1 To x
      'Loop by using x as the index number to make x number copies.
      ActiveWorkbook.ActiveSheet.Copy _
         Before:=ActiveWorkbook.Sheets("Sheet1")
         'Put copies in front of Sheet1.
         'Replace "Sheet1" with sheet name that you want.
   Next
End Sub

T�m sayfalar� �al��ma kitab�'tek kopyalay�n...

Sub Copier4()
   Dim x As Integer

   For x = 1 To ActiveWorkbook.Sheets.Count
      'Loop through each of the sheets in the workbook
      'by using x as the sheet index number.
      ActiveWorkbook.Sheets(x).Copy _
         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
         'Puts all copies after the last existing sheet.
   Next
End Sub

�al��ma sayfalar� ta��mak i�in �rnek kod

�al��ma kitab�nda yeni bir konum Active sayfa ta��ma

Sub Mover1()
    ActiveSheet.Move _
       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
       'Moves active sheet to end of active workbook.
End Sub

Ba�ka bir �al��ma kitab� i�in Active sayfa ta��ma

Sub Mover2()
    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
    'Moves active sheet to beginning of named workbook.
    'Replace Test.xls with the full name of the target workbook you want.
End Sub

Birden �ok sayfa i�in ba�ka bir �al��ma kitab� i�inde ActiveWorkbook ta��y�n...

Sub Mover3()
   Dim BkName As String
   Dim NumSht As Integer
   Dim BegSht As Integer

   'Starts with second sheet - replace with index number of starting sheet.
   BegSht = 2
   'Moves two sheets - replace with number of sheets to move.
   NumSht = 2
   BkName = ActiveWorkbook.Name
    
    For x = 1 To NumSht
      'Moves second sheet in source to front of designated workbook.
      Workbooks(BkName).Sheets(BegSht).Move _
         Before:=Workbooks("Test.xls").Sheets(1)
         'In each loop, the next sheet in line becomes indexed as number 2.
      'Replace Test.xls with the full name of the target workbook you want.
    Next
End Sub

�ste | Geri Bildirim Ver

Referanslar

Mac ve sonraki s�r�mleri i�in Microsoft Excel X

Copy y�ntemi, Visual Basic D�zenleyicisi'nden hakk�nda daha fazla bilgi i�in Yard�m men�s�nde <a1>Microsoft Visual Basic Yard�m ara</a1> se�ene�ini t�klat�n, kopyalama y�ntemi yaz�n, Ara ' y� t�klat�n ve "Copy y�ntemi." g�r�nt�lemek i�in t�klat�n �� konu listelenir. �al��ma sayfalar� i�in ge�erli bir alan se�in.

Visual Basic D�zenleyicisi'nden Move y�ntemi hakk�nda daha fazla bilgi i�in Yard�m men�s�nde <a1>Microsoft Visual Basic Yard�m ara</a1> se�ene�ini t�klat�n, move y�ntemini yaz�n, Ara ' y� t�klat�n ve sonra "Ta��ma y�ntemi." g�r�nt�lemek i�in t�klat�n �� konu listelenir. �al��ma sayfalar� i�in ge�erli bir alan se�in.

Macintosh i�in Excel 2001

Copy y�ntemi, Visual Basic D�zenleyicisi'nden hakk�nda daha fazla bilgi i�in Office Yard�mc�s�'n� t�klat�n, kopyalama y�ntemi yaz�n, Ara ' y� t�klat�n ve sonra "Copy y�ntemi (MS Excel VBA)" olarak g�r�nt�lemek i�in t�klat�n

Visual Basic D�zenleyicisi'nden Move y�ntemi hakk�nda daha fazla bilgi i�in Office Yard�mc�s�'n� t�klat�n, move y�ntemi yaz�n, Ara ' y� t�klat�n ve sonra "ta��ma y�ntemi (MS Excel VBA)." olarak g�r�nt�lemek i�in t�klat�n.

Ayn� �al��ma kitab�nda kodu i�eren bir �al��ma sayfas� kopyalama ile ilgili sorunlar hakk�nda ek bilgi i�in Microsoft Knowledge Base'deki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

286266

(http://support.microsoft.com/kb/286266/EN-US/ )

XL2001: Ayn� �al��ma kitab� �al��ma sayfas� kopyalamak �al��t��n�zda Excel'in kilitleniyor

Microsoft Excel 98 Macintosh Edition

Copy y�ntemi, Visual Basic D�zenleyicisi'nden hakk�nda daha fazla bilgi i�in t�klat�n Office Yard�mc�s�, t�r� kopyalama y�ntemi, Ara ' y� t�klat�n ve sonra "Copy y�ntemi (Excel 97)" olarak g�r�nt�lemek i�in t�klat�n.

Visual Basic D�zenleyicisi'nden Move y�ntemi hakk�nda daha fazla bilgi i�in Office Yard�mc�s�'n� t�klat�n, move y�ntemini yaz�n, Ara ' y� t�klat�n ve g�r�nt�lemek i�in t�klat�n "ta��ma y�ntemi (Excel 97)."

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 288402 - Son G�zden Ge�irme: 31 Ocak 2007 �ar�amba - G�zden ge�irme: 5.4

Bu makaledeki bilginin uyguland�� durum:

Microsoft Excel 2004 for Mac
Microsoft Excel X for Mac
Microsoft Excel 2001 for Macintosh
Microsoft Excel 98 for Macintosh

kbmt kbinfo KB288402 KbMttr

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:288402

(http://support.microsoft.com/kb/288402/en-us/ )

�ste | Geri Bildirim Ver