Excel VBA XLUP
VBA kodunu yazarken aklınızda bulundurmanız gereken bir şey, normal çalışma sayfasıyla ne yaptığınızdır ve aynı şeyi VBA'da da çoğaltabilirsiniz. VBA kodlamasında böyle bir anahtar kelime bu makaledeki "XLUP" dur. Bu anahtar kelimenin VBA kodlamasında ne olduğunu ve kodlamada nasıl kullanılacağını size göstereceğiz.
Kodlamada VBA XLUP Nasıl Kullanılır?
Aşağıda excel VBA XLUP'a örnekler verilmiştir.
Örnek 1 - Hücreleri Hücrelerin Silinmiş Konumuna Taşıyın
Örneğin, bu renkli hücre verilerini silmeniz ve aşağıdaki satır verilerini yukarıdaki verilere yükseltmeniz gereken aşağıdaki verilerin senaryosuna bakın.
Bunu çalışma sayfasında silmenin bir yolu, tüm satırın kendisini kolayca silebileceğimiz hücreleri seçmektir. Ancak burada, durumlar biraz yanıltıcıdır çünkü Tablo 1'de tüm satırı sildiğimizde renkli hücrelerim var, hatta Tablo 2 satırları da siliniyor, ancak bunun olmasını istemiyoruz; bunun yerine, yalnızca renkli satırları silmemiz gerekir ve alttaki hücreler, silinen hücrelerin konumunu yukarı taşımalıdır.
Önce renkli hücreleri seçin ve "Sil" seçeneğini açmak için Ctrl + Eksi Sembolü (-) tuşlarına basın .
"Sil" Seçeneğini Açmak İçin Kısayol Tuşu
"Silme" seçenekleri penceresinde dört seçeneğimiz var. Eylemi ihtiyacımıza göre seçebiliriz. Hücrelerimizi bu silinmiş hücre konumu için yukarı taşımamız gerektiğinden, "Hücreyi Yukarı Kaydır" ı seçin.
Değişmemiş Tablo 2 satırlarımız olacak.
VBA'daki bu eylem, VBA'da benzer eylemler kümesi gerçekleştirmek için "XLUP" özelliğinin kullanılmasını gerektirir. Şimdi VBA düzenleyicinin penceresine gelin ve makro adınızı başlatın.
Kod:
Sub XLUP_Example () End Sub
İlk olarak, bu işleme dahil edilecek hücre ARALIĞINI sağlayın. Bu işlemde silinecek ve yukarı taşınacak ilk hücreler “A5: B5” hücreleridir.
Kod:
Alt XLUP_Example () Aralık ("A5: B5") Son Alt
Bu hücre aralığı için "Sil" yöntemini seçin.
Kod:
Alt XLUP_Example () Aralık ("A5: B5"). End Sub
"Sil" yönteminde görebileceğiniz gibi, (Shift) olarak isteğe bağlı bir argümanımız var . İçin bu argüman, biz argüman girmeniz gerekir “xlUp.”
Kod:
Alt XLUP_Example () Aralık ("A5: B5"). Kaydırma sil: = xlUp End Sub
Artık sonucu görmek için bu kodu manuel olarak veya kısayol excel tuşu F5 ile çalıştırabilirsiniz.
Eğer Tablo 1'de görebileceğiniz gibi, biz satır sayısı 6 5 kadar taşındı inci sıranın ve diğer taraftan Tablo üzerinde, 2 satır (renkli) bu yüzden “VBA xlUp” seçeneğini kullanarak, değiştirilmemiş olup, bu operasyonu yapabiliriz .
Örnek 2 - XLUP kullanarak Son Kullanılan Satırı Bulun
A20. hücresinde olduğunuz (aşağıdaki resme bakın) ve son kullandığınız hücrenin A14 olduğu bir durum hayal edin.
Şimdi, son kullanılan hücreyi (A14) seçmek istiyorsanız, bir kısayol tuşu kullanarak nasıl yapacaksınız ???
Biz kullanmak Ctrl + Yukarı Ok Geçerli konumdan son kullanılan hücreye taşımak için tuşuna.
Son Kullanılan Hücreye Gitmek İçin Kısayol Tuşu
Dolayısıyla, mevcut hücreden Ctrl + Yukarı ok, son kullanılan hücreyi seçti. Benzer şekilde, VBA kodlamada, aynısını gerçekleştirmek için END (XLUP) kullanıyoruz.
Şimdi VBA kodlama penceresine geri dönün.
In this window, we will perform the task of finding the last used row in the worksheet. Create a new subprocedure in the VBA window.
Code:
Sub XLUP_Example1() End Sub
To store the last used row number. define the variable as the VBA LONG data type.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long End Sub
Now for this variable, we will assign the last used row number.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = End Sub
Now use the RANGE object and open this object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Last_Row_Number = Range( End Sub
Now mention the active cell (A20) for RANGE object.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20") End Sub
Now open END property for supplied range cell.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End( End Sub
As you can see above, we have to arrow key options like “xlDown,” “xlToLeft,” “xlToRight,” “xlUp.” Since we are moving up from the A14 cell, choose the “VBA XLUP” option.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp) End Sub
After moving up from A14 cell, we need to mention what we need to do since we need the last used row number, I will use ROW property.
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row End Sub
Now for the message box, assign the value of variable “Last_Row_Number.”
Code:
Sub XLUP_Example1() Dim Last_Row_Number As Long Range("A14").Select Last_Row_Number = Range("A20").End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
So message box showing the last used row number as 14, so our last data used row number is A14 cell.
In this case, since the data is very small, we started the room cell, but when the data is large, we cannot say which cell to take into consideration first. In such cases, we need to employ a different technique.
We need to use CELLS property. Below is an example of the same.
Code:
Sub XLUP_Example2() Dim Last_Row_Number As Long Last_Row_Number = Cells(Rows.Count, 1).End(xlUp).Row MsgBox Last_Row_Number End Sub
Now you can run this code manually or through shortcut key F5 to see the result.
RANGE nesnesi yerine CELLS özelliğini kullandım. Bunu size ayrıntılı olarak açıklayayım.
ROW.COUNT bu, 1. sütunda kaç satır olduğunu sayacaktır. Bunun yapacağı şey, rastgele hücre adresi yerine çalışma sayfasındaki son hücreyi dikkate alacak olmasıdır. Yukarıdaki durumda, rastgele hücre adresi olarak A14'ü kullandık.
VBA XLUP hakkında Hatırlanması Gerekenler
- XLUP, excel'deki "Yukarı Ok" tuşunun eylemini çoğaltmak için VBA kodunda kullanılan kelimedir.
- VBA XLUP, aktif hücrelerden yukarıdaki hücreye veya son kullanılan hücreye geçmek için kullanılır.
- XLUP genellikle VBA'da END özelliğiyle birlikte kullanılır.
