Excel çalýþma sayfasýnda her iki satýrdan birini silme

Bu makale, bir Microsoft Excel çalýþma sayfasýndaki seçili aralýkta her iki satýrdan birini silmek için kullanabileceðiniz örnek bir Microsoft Visual Basic for Applications makrosu içerir.

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. Aþaðýdaki makroyu kullanmak için, aþaðýdaki gibi bir Excel çalýþma kitabý oluþturun:

1. Yeni bir Microsoft Excel çalýþma kitabý oluþturun.
2. Yeni bir çalýþma sayfasýnda, A1:A9 aralýðýna 1 ile 5 arasýndaki sayýlarý aþaðýdaki örnekte gösterildiði gibi birer satýr atlayarak yazýn:

         A1: 1
         A2:
         A3: 2
         A4:
         A5: 3
         A6:
         A7: 4
         A8:
         A9: 5
   					

3. Araçlar menüsünde, Makro'nun üzerine gelin ve Visual Basic Düzenleyicisi'ni týklatýn.
   
   Not Microsoft Office Excel 2007'de, Geliþtirici sekmesindeki Kod grubunda Visual Basic'i týklatýn.
4. Ekle menüsünde Modül'ü týklatýn.
5. Yeni modüle aþaðýdaki makroyu yazýn:

   Sub Delete_Every_Other_Row()
   
      ' Boyut deðiþkenleri.
      Y = False              ' 1, 3, 5, vb. satýrlarý silmek istiyorsanýz
                             ' bunu True olarak deðiþtirin.
      I = 1
      Set xRng = Selection
   
      ' Seçimdeki her satýr için bir kez döngü gerçekleþtirin.
      For xCounter = 1 To xRng.Rows.Count
   
          ' Y deðeri True ise...
          If Y = True Then
   
              ' ...tüm hücre satýrýný silin.
              xRng.Cells(I).EntireRow.Delete
   
          ' Aksi durumda...
          Else
   
              ' ...aralýkta döngü gerçekleþtirmek için I deðerini 1 artýrýn.
              I = I + 1
   
          End If
   
          ' Y deðeri True ise, False olarak ayarlayýn; Y deðeri False ise, True olarak ayarlayýn.
          Y = Not Y
   
      Next xCounter
   
   End Sub
   						

6. Verileri içeren çalýþma sayfasýna geçin ve A1:A9 aralýðýný seçin.
7. Makroyu çalýþtýrmak için, Araçlar menüsünde Makro'nun üzerine gelin ve Makrolar'ý týklatýn.
   
   Not Excel 2007'de, Geliþtirici sekmesindeki Kod grubunda Makrolar'ý týklatýn.
   
   Not Geliþtirici sekmesini Þerit içinde görüntülemek için, Microsoft Office Düðmesi'ni týklatýn, Excel Seçenekleri'ni týklatýn, Popüler kategorisini týklatýn, Þeritte Geliþtirici sekmesini göster onay kutusunu týklatýp seçin ve sonra da Tamam'ý týklatýn.
8. Delete_Every_Other_Row makrosunu seçin ve Çalýþtýr'ý týklatýn.

Bu makro, seçim alanýnda ikinci satýrdan baþlayarak her iki satýrdan birini siler.

Not Birden çok sütun içeren bir veri listeniz varsa, yalnýzca ilk veri sütununu seçtikten sonra makroyu çalýþtýrýn.