VBA kodlamasını kendimizi tekrar eden işlerden kurtarmak için yazdığımızda, veri seçimi çok önemli bir rol oynamaktadır. Bu yazıda, Microsoft Excel'de VBA kodlaması ile satır, sütun ve tüm belge verilerine göre verileri nasıl seçeceğinizi öğreneceksiniz.
Öğreneceksin:
- Tüm sütun nasıl seçilir?
- Tüm satır nasıl seçilir?
- Tüm veriler nasıl seçilir?
VBA aracılığıyla tüm sütun nasıl seçilir?
A sütununun Ad, B sütununun Cinsiyet ve C sütununun Yaşın yer aldığı A1:C19 aralığında verilerimiz var.
Bu verilerde A sütununun tamamını seçmek için aşağıda verilen adımları ve kodu izleyin: -
- VBA Sayfasını açın Alt+F11 tuşuna basın
- Modül ekle
- Aşağıda belirtilen kodu yazın:
Sub Columnselect() Range("A1").Entirecolumn.Select End Sub
- Makroyu Excel'de çalıştırmak için F5 tuşuna basın
- A sütunu seçilecek
Sütundaki son aktif hücreye kadar verilerin seçilmesini istiyorsanız, aşağıda belirtilen adımları ve kodu izleyin: -
- Aşağıda belirtilen kodu yazın: -
Sub Columnselect() lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row Worksheets("Sheet1").Range("A1:A" & lastrow).Select End Sub
Kod Açıklama:- Önce verideki son aktif hücrenin ne olacağını tanımlayacağız ve ardından kodlamada aralığı tanımlamak için kullanacağımız son satır.
- Makroyu Excel'de çalıştırmak için F5 tuşuna basın
- A1:A19 sütunu seçilecek
Bu şekilde VBA kullanarak, son aktif hücreye kadar olan sütunu seçmek için kodu seçebilirsiniz. Son aktif hücrenin ne olduğunu bilmediğimizde, Microsoft Excel'de seçim için VBA kodunu yazarken bu kodu kullanabiliriz.
VBA aracılığıyla tüm satır nasıl seçilir?
A1:C19 aralığında, A sütununun Ad, B sütununun Cinsiyet ve C sütununun Yaşın yer aldığı verilerimiz var.
Bu verilerdeki Tüm satırı seçmek için aşağıda verilen adımları ve kodu izleyin: -
- VBA Sayfasını açın Alt+F11 tuşuna basın
- Modül ekle
- Aşağıda belirtilen kodu yazın: -
Sub rowselect() Range("A2").EntireRow.Select End Sub
- Makroyu Excel'de çalıştırmak için F5 tuşuna basın
- A sütunu seçilecek
Verilerin sıralanacak son aktif hücreye kadar seçilmesini istiyorsanız, aşağıda belirtilen adımları ve kodu izleyin: -
- Aşağıda belirtilen kodu yazın: -
Sub rowselect() Lastcolumn As Long lastcolumn = Worksheets("Sheet1").Cells(1, Columns.count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(1, lastcolumn) )). End Sub'ı seçin
Kod Açıklama: Bu kodda önce son sütunu tanımladık, sonra bunu aralığı tanımlamak için kullanacağız.
- Makroyu Excel'de çalıştırmak için F5 tuşuna basın
- İlk satır, satırdaki son aktif hücreye kadar seçilecek
Bu şekilde VBA aracılığıyla Microsoft Excel'de tüm satırı seçebilir veya son aktif hücreye kadar satırı seçebiliriz.
VBA aracılığıyla tüm veriler nasıl seçilir?
Bir örnek alalım ve anlayalım: -
A sütununun Ad, B sütununun Cinsiyet ve C sütununun Yaşın yer aldığı A1:C19 aralığında verilerimiz var.
İlk hücreden son aktif hücreye kadar olan verileri seçmek için aşağıdaki adımları ve kodu izleyin: -
- VBA Sayfasını açın Alt+F11 tuşuna basın
- Modül ekle
- Aşağıda belirtilen kodu yazın:
Sub Selectionoflastcell() Lastrow As Long, lastcolumn As Long lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Sheet1").Cells(1, Columns) .count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(lastrow, lastcolumn))).Select End Sub
Kod Açıklama: Önce Kodun Konu adını tanımladık, ardından tüm değişkenleri tanımladık. Ardından son satır ve son sütunumuzun ne olacağını tanımladık.
- Makroyu Excel'de çalıştırmak için F5 tuşuna basın
- Çalışma sayfasında tüm veriler seçilecek
Şimdi, aynı verileri kopyalayıp yapıştırmak istiyorsanız, aşağıda belirtilen kodu kullanın: -
Sub Selectionoflastcell() Lastrow As Long, lastcolumn As Long lastrow = Worksheets("Sheet1").Cells(Rows.count, 1).End(xlUp).Row lastcolumn = Worksheets("Sheet1").Cells(1, Columns) .count).End(xlToLeft).Column Worksheets("Sayfa1").Range("A1", Cells(lastrow, lastcolumn))).Copy Sheets("Sayfa2").Range("A1") End Sub
Kodu çalıştırın, tüm veriler kopyalanacak ve sayfa2'ye yapıştırılacaktır.
İlk hücreden son aktif hücreye kadar olan verileri seçmek için makroyu yazabilir ve ardından Microsoft Excel'de başka bir sayfaya yapıştırabiliriz.
Bloglarımızı 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 iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın.