Bu yazıda, verileri birden çok sayfa üzerinde günlük olarak düzenlemek için bir makro oluşturacağız.
Bu makale için ham veriler, takımın Tarih, Temsilci Adı ve Satılan ürün Sayısını içeren günlük satış verilerini içerir.
Verileri gün bazında birden çok sayfaya dağıtmak istiyoruz. “Verileri gün bazında dağıt” düğmesine tıklamak da aynısını yapacaktır.
Kod açıklaması
IsEmpty'ye Kadar Yap(Worksheets(1).Cells(intRowS, 1))
Döngü
Yukarıdaki kodda, Do Kadar döngüsü boş bir hücreyle karşılaşılıncaya kadar döngü yapacaktır.
strTab = Format(Hücreler(intRowS, 1).Value, "ggmmy")
Yukarıdaki kod, tarihten sayfa adını çıkarmak için kullanılır.
intRowT = Worksheets(strTab).Cells(Rows.Count, 1).End(xlUp).Row + 1
Yukarıdaki kod, son hücrenin satır numarasını almak için kullanılır.
Lütfen kod için aşağıdan takip edin
Sub Divide() 'Değişkenleri Bildirme Dim intRowS Integer, intRowT As Integer Dim strTab As String 'Başlangıç satır numarası ile başlatılıyor intRowS = 10 'İlk sütundaki hücrenin boş olup olmadığı kontrol ediliyor IsBoşa Kadar Yap(Çalışma Sayfaları(1).Cells(intRowS, 1)) 'İlk sütundaki tarih değerine göre sayfanın adını alma strTab = Format(Cells(intRowS, 1).Value, "ggmmyy") 'Son hücrenin satır numarasını alma intRowT = Worksheets(strTab). Cells(Rows.Count, 1).End(xlUp).Row + 1 'Verileri ilgili sayfaya kopyalama Rows(intRowS).Copy Worksheets(strTab).Rows(intRowT) intRowS = intRowS + 1 Loop End Sub
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