Bu yazıda, belirli bir koşula bağlı olarak verileri bir sayfadan diğerine aktarmak için çalışma sayfasının change olayını kullanacağız.
Ham veriler, Ad, Sokak Adresi, Şehir, Bölge, Ülke ve Telefon numarasını içeren müşteri ayrıntılarından oluşur.
Bu yazıda, belirli bir teklif için uygun olmayan müşterilerin verilerini aktarmak istiyoruz. Bir müşteri belirli bir teklif için uygun değilse, son sütun değer olarak "Değil" ifadesini içerir. Bu 'uygun olmayan' müşterileri “NotEligibleData” sayfasına kopyalamak istiyoruz.
Kod açıklaması
Target.Column = 7 ise
Yukarıdaki kod, çalışma sayfasının change olayını yalnızca değer 7'de olduğunda yürütülecek şekilde kısıtlamak için kullanılır.NS sütun değiştirilir.
Sheets("NotEligibleData").Range("A2:I600").ClearContents
Yukarıdaki kod, A2:I600 aralığındaki değeri silmek için kullanılır.
Sheets("Ana").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset(1)
Yukarıdaki kod, uygun olmayan müşterileri "NotEligibleData" sayfasına kopyalamak için kullanılır.
Lütfen kod için aşağıdan takip edin
Private Sub Worksheet_Change(ByVal Target As Range) 'Değişkenleri Bildirme Dim i, Lastrow As Long' Yedinci sütundaki değer değiştirilirse kodu çalıştır Target.Column = 7 Sonra 'Son hücrenin satır numarasını alma Lastrow = Sheets("Main" ).Range("A" & Rows.Count).End(xlUp).Row '"NotEligibleData" sayfa Sheets("NotEligibleData").Range("A2:I600").ClearContents 'Onuncu döngüden önceki veriler siliniyor satırdan son satıra For i = 10 Lastrow'a 'Satırın G sütunundaki değer "Not" ise satırı hedef sayfaya kopyalayın If Sheets("Main").Cells(i, "G").Value = " Not" Then Sheets("Main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("NotEligibleData").Range("A" & Rows.Count).End(xlUp).Offset( 1) End If Next i End If Range("A1"). End Sub'ı seçin
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın
