Excel'de, hücre değerine göre tüm satırı Geçerli Çalışma Sayfası'nın altına nasıl taşıyabilirim?
Excel'de verilerinizi genellikle belirli bir sütundaki duruma veya değere göre yeniden düzenlemeniz gerekir. Örneğin, görev ilerlemesini takip ettikten sonra "Done" (Tamamlandı) durumundaki tüm satırların çalışma sayfanızın altına taşınmasını, aktif veya devam eden görevlerin ise üstte kalmasını isteyebilirsiniz. Tüm satırın bir hücre değerine göre otomatik olarak yeniden konumlandırılması, çalışma sayfanızın yönetimini kolaylaştırır, öncelikleri vurgular ve tamamlanmamış öğelere odaklanmanızı daha verimli hale getirir.
Excel'de bunu başarmak için otomasyon amacıyla VBA kodu kullanmak veya formüller ile Excel'in yerleşik sıralama işlevselliğinden yararlanmak gibi birkaç yol vardır. Her yaklaşımın kendine özgü avantajları vardır ve farklı senaryolara uygundur. Aşağıda, belirli bir hücre değerine göre Tüm satır etkin çalışma sayfanızın altına taşımak için adım adım çözümler sunulmuştur.
- Hücre değerine göre VBA koduyla Tüm satır taşıyın
- Excel formülleri ve sıralama kullanarak Tüm satır taşıyın
Hücre değerine göre VBA koduyla Tüm satır Geçerli Çalışma Sayfası altına taşıyın
Diyelim ki sütun C'de "Done" (Tamamlandı) gibi bir durum içeren bir tablonuz var ve sütun C'de "Done" değerine sahip her satırın anında veri aralığınızın sonuna taşınmasını istiyorsunuz. Bu VBA çözümü, özellikle elle sıralama yapmadan dinamik veri değişikliklerini yöneten, tekrarlanabilir ve yarı otomatik bir süreç arıyorsanız son derece kullanışlıdır.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.
VBA kodu: Hücre değerine göre Tüm satır Geçerli Çalışma Sayfası altına taşıyın
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End SubNot: Bu VBA kodunda başvurulan özel değer “Done”tur. Satır hareketini tetiklemek istediğiniz değere göre bu değeri kod içinde özelleştirebilirsiniz (örneğin, "Completed" olarak ya da iş akışınıza en uygun başka bir durumla değiştirebilirsiniz). Değerin büyük/küçük harf ve boşluklar dahil tam olarak eşleştiğinden emin olun; gerekirse kodu büyük/küçük harfe duyarlı olmayan eşleme yapacak şekilde ayarlayın.
3. Kodu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Açılan Kutools for Excel iletişim kutusunda, hedef değerin görünebileceği sütun aralığını seçin ve ardından Tamam düğmesine tıklayın.
Onay verdikten sonra kod, seçtiğiniz sütunda "Done" (Tamamlandı) değerine sahip satırları otomatik olarak bulacak ve bunları Veri Aralığı’nın altına taşıyacaktır. Bu yeniden düzenleme anında gerçekleşir; böylece satırları elle sıralamak ya da sürükleyerek yerleştirmek için harcayacağınız zamanı tasarruf edersiniz.
İpuçları:
- Üstbilgileriniz varsa, üstbilgi satırının taşınmasını önlemek için istendiğinde seçim yaparken bunları dahil etmemeye dikkat edin.
- Bu VBA betiği yalnızca şu anda etkin olan çalışma sayfasında geçerlidir. İşlemi birden fazla sayfada uygulamanız gerekiyorsa, her bir sayfa için ayrı ayrı tekrarlayın.
- Verileriniz formüller veya bağlantılı hücreler içeriyorsa, satırların taşınması referansların yer değiştirmesine yol açabilir. Veri bütünlüğünden emin olmak için makroyu çalıştırdıktan sonra çalışma sayfanızı mutlaka iki kez gözden geçirin.
Bu VBA yöntemi, özellikle elle sıralamanın verimsiz olduğu ve düzenli olarak çok sayıda satırı işlemek gerektiği durumlarda üstün performans sergiler. Ancak makro içermeyen bir çözüm arıyorsanız ya da doğrudan formüllerle ve Excel’in standart araçlarıyla çalışmayı tercih ediyorsanız, bir sonraki yöntemi değerlendirebilirsiniz.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Excel formülleri ve sıralama kullanarak Tüm satır taşıyın
Makro kullanmak istemeyen ya da verilerini yönetmek için daha şeffaf ve formül temelli bir yöntem tercih eden kullanıcılar, yardımcı sütunlar ile Excel’in yerleşik sıralama özelliğini kullanarak aynı etkiyi elde edebilir. Bu yaklaşım, iş birliği yapılan ortamlarda veya makro güvenlik ayarları etkin olan kişilerle paylaşılması gereken dosyalarda oldukça etkilidir.
1. Mevcut verilerinizin sağında veya solunda yeni bir yardımcı sütun ekleyin. Örneğin, veri üstbilgileriniz 1. satırda yer alıyor ve değerler 2. satırdan itibaren başlıyorsa, durumunuz C sütunundaysa yeni bir D sütunu ekleyip bunu "SortKey" (SıralamaAnahtarı) veya benzeri bir isimle etiketleyin.
2. Yardımcı sütunun ilk hücresine (üstbilgi hariç, örn. D2), aşağıdaki formülü girin:
=IF(C2="Done",1,0)Bu formül, C sütununda "Done" (Tamamlandı) değeri olan satırlara 1, diğer tüm satırlara ise 0 atayacaktır.
3. Formülü onaylamak için Enter tuşuna basın, ardından tüm veri satırlarınıza uygulamak üzere aşağı doğru kopyalayın. Bunun için D2 hücresindeki doldurma tutamacını verilerinizin son satırına kadar sürükleyin ya da bitişik sütun doluysa otomatik doldurma yapmak için doldurma tutamacını çift tıklayın.
4. Veri aralığı içinde herhangi bir hücre seçin, ardından Excel Şeridi menüsünden Veri sekmesine gidip Sırala seçeneğine tıklayın.
5. Sıralama iletişim kutusunda, "Şuna göre sırala" açılır listesinden yardımcı sütunu ("SortKey") seçin ve En küçükten en büyüğe sıralamasını uygulayın. Böylece "Done" (Tamamlandı) olarak işaretlenmiş satırlar (1 ile işaretli olanlar) listenin altında, diğerleri (0 ile işaretli olanlar) ise üstte görünecektir.
6. Sıralamayı uygulamak için Tamam düğmesine tıklayın. Verileriniz artık, tamamlanmış veya "Done" girişleri tablonun altında görünecek şekilde yeniden sıralanmıştır.
Parametre açıklamaları ve ipuçları:
- Formüldeki "Done" (Tamamlandı) ifadesini sayfanızla ilgili başka bir durum göstergesiyle (örneğin "Completed", "Inactive") değiştirebilirsiniz. Yazımın verilerinizle tam olarak eşleştiğinden emin olun.
- Birden çok değere sahip satırları taşımak istiyorsanız (örneğin hem "Done" hem de "Canceled"), şu tür bir formül kullanın:
=IF(OR(C2="Done",C2="Canceled"),1,0) - Etkiyi tersine çevirmek için (yani "Done" satırlarını en üste almak), En büyükten en küçüğe sıralamasına göre sıralayın veya formülde 0 ve 1 değerlerinin yerini değiştirin.
Bu yaklaşım, hiçbir satırı silmez veya gizlemez; veri yapınızı bozulmadan korur. Başkalarıyla iş birliği yaparken, farklı Excel sürümleri arasında sorunsuz uyumluluk sağlarken ve makro destekli dosyalarla ilgili olası sorunlardan kaçınırken idealdir.
İlgili makaleler:
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