Excel'deki hücre değerine göre tüm satırı başka bir sayfaya nasıl taşıyabilirim?
Hücre değerine göre satırın tamamını başka bir sayfaya taşımak için bu makale size yardımcı olacaktır.
VBA kodu ile hücre değerine göre tüm satırı başka bir sayfaya taşıyın
Kutools for Excel ile tüm satırı hücre değerine göre başka bir sayfaya taşıyın
VBA kodu ile hücre değerine göre tüm satırı başka bir sayfaya taşıyın
Aşağıda gösterilen ekran görüntüsü gibi, C sütununda belirli bir "Bitti" kelimesi varsa, tüm satırı Sayfa1'den Sayfa2'ye taşımanız gerekir. Aşağıdaki VBA kodunu deneyebilirsiniz.
1. Basın Ara Toplam+ F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Uygulamalar için Microsoft Visual Basic penceresinde, Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
not: Kodda, Sheet1 çalışma sayfası taşımak istediğiniz satırı içerir. Ve Sheet2 satırı bulacağınız hedef çalışma sayfasıdır. "C: C"Sütun, belirli bir değeri içerir ve"tamam"Satırı temel alarak taşıyacağınız belirli değerdir. Lütfen ihtiyaçlarınıza göre değiştirin.
3. Tuşuna basın. F5 kodu çalıştırmak için tuşuna basın, ardından Sayfa1'deki kriterleri karşılayan satır hemen Sayfa2'ye taşınacaktır.
not: Yukarıdaki VBA kodu, belirli bir çalışma sayfasına geçtikten sonra orijinal verilerden satırları silecektir. Satırları silmek yerine yalnızca hücre değerine göre kopyalamak istiyorsanız. Lütfen aşağıdaki VBA kodunu uygulayın 2.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Kutools for Excel ile tüm satırı hücre değerine göre başka bir sayfaya taşıyın
VBA kodunda acemi iseniz. Burada tanıtıyorum Belirli Hücreleri Seçin yarar Kutools for Excel. Bu yardımcı program ile, bir çalışma sayfasındaki belirli bir hücre değerine veya farklı hücre değerlerine göre tüm satırları kolayca seçebilir ve seçilen satırları ihtiyaç duyduğunuz şekilde hedef çalışma sayfasına kopyalayabilirsiniz. Lütfen aşağıdaki işlemleri yapın.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. Satırları temel alarak taşıyacağınız hücre değerini içeren sütun listesini seçin ve ardından Kutools > seç > Belirli Hücreleri Seçin. Ekran görüntüsüne bakın:
2. Açılışta Belirli Hücreleri Seçin diyalog kutusunu seçiniz Tüm satır içinde Seçim türü bölümünde, seçin eşittir içinde Belirli tür açılır listede hücre değerini metin kutusuna girin ve ardından OK düğmesine basın.
Başka Belirli Hücreleri Seçin size seçilen satırların sayısını göstermek için iletişim kutusu açılır ve bu arada, tüm satırlar seçilen sütunda belirtilen değeri içerir. Ekran görüntüsüne bakın:
3. Tuşuna basın. Ctrl + C Seçili satırları kopyalamak ve ardından bunları ihtiyacınız olan hedef çalışma sayfasına yapıştırmak için tuşlarına basın.
not: Satırları iki farklı hücre değerine göre başka bir çalışma sayfasına taşımak istiyorsanız. Örneğin, satırları "Bitti" veya "İşleniyor" değerlerine göre taşıyın Or durumdaki Belirli Hücreleri Seçin aşağıda gösterilen ekran görüntüsü gibi iletişim kutusu:
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
İlgili Makaleler:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!