Excel VBA Yapıştırma Değerleri
Kopyala ve Yapıştır dünyadaki en iyi iş değil !!! Ancak özel seçeneklerle kopyalayıp yapıştırmak, VBA'da bir tür bilgi gerektirir. Bu, basit kopyala ve yapıştır kadar basit bir işlem değildir. Önemli özel yapıştırma yöntemlerinden biri de VBA'da “Değerleri Yapıştır” dır.
VBA kullanarak Excel'de Değerler Nasıl Yapıştırılır?
Örnek 1 - Özel Yapıştır Kullanımı
Örneğin, aşağıdaki çalışma sayfası resmine bakın.
B6 hücresinde, B2'den B5 hücrelerine kadar toplam satış değerlerini hesaplamak için formülü uyguladık. Şimdi, B6 hücresini C6'ya kopyalayıp yapıştırırsam, 22,761 değerini alamayacağım, ancak karşılık gelen formülü alacağım.
Aynı şeyi VBA'da gerçekleştirmek için kodlama bilgisine ihtiyacımız var. Değerleri VBA kullanarak nasıl yapıştıracağınızı göstereceğiz. Aşağıdaki adımları izleyin.
Adım 1: B6 hücresini kopyalayın.
B6 hücresini kopyalamak için kodu Aralık ("B6") olarak kullanın.
Adım 2: Hedef hücreyi seçin. Bu durumda C6 hücresi.
Kopyadan sonra görebileceğiniz gibi, "Hedef" soruyor. Bu, nereye yapıştırmak istediğinizden başka bir şey değildir, bu nedenle Aralık olarak "Hedef" i seçin ("C6")
Kod:
Alt Yapıştır_Değerleri () Aralık ("B6"). Kopyalama Aralığı ("C6") Son Alt
3. Adım: Kodu Çalıştırın
Bu kodu çalıştırın C6'da B6 kopyasını alacağız.
Burada sadece formül var.
Adım 4: Özel Yapıştır Yöntemi uygulayın.
Özel yapıştır yöntemini gerçekleştirmek için, özel yapıştır yönteminin aşağıdaki sözdizimine bakalım.
Özel yapıştırma yönteminde birkaç yöntemimiz var. Yaptığımız operasyona göre tipini ona göre seçmemiz gerekiyor.
Anlamak için kodu iki satıra ayıralım.
İlki, B6 hücresini kopyalıyor.
Şimdi sonraki satıra, hedef hücreyi Aralık ("C6") olarak yazın.
Şimdi Özel Yapıştır Yöntemine erişmek için bir nokta koyun ve "P" harfini yazmaya başlayın.
Yukarıdaki çeşitli seçeneklerde, "Özel Yapıştır" yöntemini seçin.
Yöntemi seçtikten sonra, çeşitli özel yapıştırma yöntemlerini görmek için boşluk tuşuna basın.
Bu çeşitli seçeneklerde "xlPasteValues" i seçin.
Seçeneği seçtikten sonra, otomatik seçmek için sekme tuşuna basın.
Kod:
Sub Paste_Values () Range ("B6"). Kopyalama Aralığı ("C6"). PasteSpecial xlPasteValues End Sub
Adım 5: Kodu Çalıştırın
Now run the code, we should get only the value of the cell B6 to the cell C6.
If you notice the worksheet after running the code, it is still in the copy mode only.
This will disable the cut copy mode after the paste special method is executed.
Example #2 - Paste Special with Loops
Paste special is easy but in terms of using this as part of a large code requires an advanced level of coding skills.
For example, look at the below image.
In the above image of the worksheet in column “F,” we have a total column, i.e., in F2, F5, F8, F11, and F14 cells.
Now my requirement is to copy each total cell from the respective cell and paste in the column “H” with respective cells.
Using the below code, with VBA loops, we can do this.
Code:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 K = 1 ila 5 Hücre için (j, 6). Hücreleri Kopyala (j, 8) .PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Özel yapıştır seçeneğiyle bu kod, her bir toplam hücreyi kopyalama ve ilgili hücrelerle “H” sütununa yapıştırma görevini yerine getirecektir.
Örnek 3 - Çalışma Sayfasından Diğerine Kopyalama
Değerleri bir çalışma sayfasından diğerine yapıştırmak için, her iki çalışma sayfası adından da bahsetmemiz gerekir. Aşağıda bunun bir örneği var.
Alt Paste_Values2 () Çalışma Sayfaları ("Sayfa1"). Aralık ("A1"). Çalışma Sayfalarını Kopyala ("Sayfa2") Aralık ("A15"). Özel xl Yapıştır Değerleri Son Alt
