Excel'de her satır için ayrı bir çalışma sayfası nasıl oluşturulur?
Veri yönetimi veya raporlama görevlerinde, bir tablodaki her kaydı ayrı bir çalışma sayfasına bölmek isteyebilirsiniz. Örneğin, Excel’de her satırın farklı bir öğrenciye ait bilgileri içerdiği bir öğrenci listesi kullanıyorsanız, her öğrenci için ayrı bir sayfa oluşturup yalnızca ilgili öğrencinin verilerini bu sayfaya eklemek isteyebilirsiniz. Alternatif olarak, içeriğe bakılmaksızın tüm satırları tek tek yeni çalışma sayfalarına dağıtmak da istenebilir. Özellikle büyük veri kümeleriyle çalışırken, yeni sayfaları manuel olarak oluşturup verileri elle kopyalamak hem zaman alıcı hem de hata yapmaya açık olabilir. Bu süreci otomatikleştirmek, önemli ölçüde zaman kazandırır ve hata riskini en aza indirir. Bu kılavuz, Excel’de her satır için ayrı çalışma sayfaları oluşturmak üzere iki pratik çözüm sunar; ayrıca hangi yöntemin sizin senaryonuza daha uygun olduğunu belirlemenize yardımcı olmak için her yaklaşımın avantajlarını ve dezavantajlarını açıklar.
Her satır için VBA koduyla yeni sayfalar oluşturun
Her satır için Kutools for Excel'in Veriyi Böl özelliğini kullanarak yeni sayfalar oluşturun
Her satır için VBA koduyla yeni sayfalar oluşturun
VBA (Visual Basic for Applications) kullanmak, aksi takdirde sıkıcı ve tekrarlı olan Excel görevlerini otomatikleştirmenin son derece etkili bir yoludur. VBA sayesinde verilerinizdeki her satır için hızla yeni bir çalışma sayfası oluşturabilirsiniz; ya bir sütuna göre satırları gruplayarak (örneğin öğrenci adına göre) ya da içerikten bağımsız olarak her satır için ayrı bir sayfa oluşturarak. Bu yöntem, VBA düzenleyiciyle rahat çalışan ve yüksek düzeyde özelleştirilebilir bir çözüm arayan kullanıcılar için idealdir. Ancak kod yazma ve çalıştırma gerektirdiğinden, VBA deneyimi olmayan ya da ortamlarında makroları çalıştırmaya izni bulunmayan kullanıcılar için uygun olmayabilir.
1. Excel işlemlerini otomatikleştirmek için VBA koduna erişmenizi sağlayan "Alt" + "F11" tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, yeni bir kod modülü eklemek için Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki kodu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: sütuna göre her satır için yeni sayfa oluştur
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End SubParametre açıklaması ve kullanım ipuçları:
- A1:C1, veri tablonuzun başlık aralığıdır. Gerekirse bu başvuruyu gerçek veri başlık alanınıza göre ayarlayın.
- Kod, belirtilen sütundan (varsayılan olarak A sütunu) benzersiz değerleri toplar. Her bir benzersiz değer, ilgili satırları içeren kendi çalışma sayfasına sahip olur.
- Tablonuz daha genişse veya farklı bir satırdan başlıyorsa,
xTitleve hücre başvurularını buna göre güncelleyin. - Çalışma sayfanız diğer sayfalara başvuran formüller içeriyorsa, bölme işleminden sonra bu başvuruları kontrol edin.
3. Kodu çalıştırmak için F5 tuşuna basın veya Çalıştır seçeneğine tıklayın. Yeni çalışma sayfası, Geçerli Çalışma Kitabı’ndaki mevcut tüm sayfaların ardından oluşturulacak ve her biri seçilen benzersiz sütun değerine göre adlandırılacaktır. Örnek bir sonuç için aşağıdaki ekran görüntüsüne bakın:
Sütun içeriğine bakılmaksızın her satırı ayrı bir çalışma sayfasına ayırmak istiyorsanız, sütun koşulu belirtme zorunluluğunu ortadan kaldıran aşağıdaki alternatif VBA kodunu kullanabilirsiniz.
VBA kodu: doğrudan her satır için yeni sayfa oluştur
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End SubBu kod modülde çalıştırıldığında, etkin çalışma sayfasındaki başlık satırı da dahil olmak üzere her satır yeni bir çalışma sayfasına kopyalanır. Başlık satırının her çıktı sayfasında yinelendiğine dikkat edin; bunu önlemek istiyorsanız, çıktı sayfalarını sonrasında manuel olarak düzenlemeniz veya ilgili başlık satırlarını silmeniz gerekebilir.
Sorun Giderme ve Pratik İpuçları:
- "Dizin aralık dışında" gibi bir hata alırsanız, sayfa adlarınızda geçersiz karakterlerin veya yinelenen isimlerin bulunmadığından emin olun.
- Büyük veri kümeleri çok sayıda sayfa oluşturabilir; bu da Excel’in yavaşlamasına veya gezinmeyi zorlaştırmasına neden olabilir. Çok büyük tablolar için satır bazında bölmenin gerekli olup olmadığını değerlendirin.
- VBA kodunu çalıştırmadan önce verilerinizin yedeğini alın; böylece istem dışı veri kaybını önleyebilirsiniz.
Avantajlar: Ücretsiz; yüksek düzeyde özelleştirilebilir.
Dezavantajlar: VBA/makroların etkinleştirilmesini ve VBA düzenleyiciyle ilgili temel bilgi birikimini gerektirir; karmaşık veya alışılmadık verilerle çalışırken kod hataları oluşabilir.
Uygun olduğu kullanıcılar: Betik esnekliği gerektiren, tek seferlik ya da düzensiz görevler yapan kullanıcılar.
Her satır için Kutools for Excel'in Veriyi Böl özelliğini kullanarak yeni sayfalar oluşturun
Kod yazmadan, basit ve kullanıcı dostu bir yaklaşım tercih ediyorsanız, Veriyi Böl özelliğini kullanmak için Kutools for Excel’i öneririz. Bu özellik, çalışma sayfası yönetim sürecini önemli ölçüde basitleştirerek verinizi birkaç tıklamayla yeni bir çalışma sayfasına ayırmanıza yardımcı olur. Kutools, özellikle büyük ve karmaşık tablolarla düzenli olarak çalışan ya da manuel kodlamadan ziyade görsel arayüzleri tercih eden kullanıcılar için son derece kullanışlıdır. Kutools’un önceden yüklenmiş bir Excel eklentisi olduğuna dikkat edin.
1. Bireysel çalışma sayfalarına bölmek istediğiniz verileri içeren tabloyu seçin. Ardından KUTOOLS PLUS sekmesine tıklayıp Veriyi Böl seçeneğini belirleyin. Netlik için aşağıdaki ekran görüntüsüne göz atın:
2. Veriyi Çoklu Çalışma Sayfalarına Böl iletişim kutusunda, bölme ihtiyacınıza uygun ayarları seçin.
A. Sütun değerlerine göre yeni sayfalar oluşturmak için:
B. Her satır için doğrudan yeni sayfalar oluşturmak istiyorsanız:
İşlem tamamlandığında, seçtiğiniz ayarlara göre doldurulmuş tüm Yeni çalışma sayfalarını içeren bir Yeni Çalışma Kitabı oluşturulacaktır.
Sütun değerlerine göre her satır için yeni sayfalar oluşturma:
Sütun değerlerini dikkate almadan her satır için yeni sayfa oluşturma:
Önlemler ve pratik ipuçları:
- Veriyi Böl özelliğini kullanmadan önce tablonuzda boş satır olmadığından emin olun; aksi takdirde boş sayfalar oluşabilir.
- Yinelenen veya geçersiz çalışma sayfası adı oluşmaması için sayfa adlandırma kurallarını gözden geçirin; Kutools, ad çakışması durumunda otomatik olarak ayar yapar.
- Tablonuz çok büyükse işlem çok sayıda çalışma sayfası üretebilir; devam etmeden önce bunu göz önünde bulundurun.
Avantajlar: Kodlama gerektirmez ve kullanımı son derece kolaydır; toplu işlemler ile sık tekrarlanan görevler için idealdir.
Dezavantajlar: Kutools eklentisinin yüklü olmasını gerektirir.
Uygun olduğu kullanıcılar: Tüm seviyelerdeki Excel kullanıcıları, özellikle tekrarlı veri segmentasyonu yapanlar.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
Demo: Her satır için Kutools for Excel'in Veriyi Böl özelliğini kullanarak yeni sayfalar oluşturun
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar