Excel'de açılır listeyle hücreye kopyalayıp yapıştırmayı nasıl önleyebilirim?
Veri doğrulama açılır listesi olan bir hücre için, başka bir hücreden içerik kopyalayıp ona yapıştırdığınızda, açılır liste kaybolacak ve yeni yapıştırma içeriğiyle değiştirilecektir. Bazı durumlarda, açılır listeyle hücre üzerine diğer içeriği kopyalayıp yapıştırmayı önlemek istersiniz, bununla başa çıkmak için ne yapardınız? Bu makalede, bu sorunu çözmek için bir VBA yöntemi alacaksınız.
Excel'deki açılır listeyle hücreye kopyalayıp yapıştırmayı önleyin
Excel'deki açılır listeyle hücreye kopyalayıp yapıştırmayı önleyin
1. Kopyalayıp yapıştırmayı önlemek istediğiniz açılır liste hücresiyle çalışma sayfasını açın.
2. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Microsoft Visual Basic Uygulamaları pencere.
3. içinde Microsoft Visual Basic Uygulamaları penceresinde, sol bölmedeki mevcut çalışma sayfası adına çift tıklayın, ardından aşağıdaki VBA kodunu kopyalayıp Kod düzenleyicisine yapıştırın. Ekran görüntüsüne bakın:
VBA kodu: Açılır listeyle hücre üzerine kopyalayıp yapıştırmayı önleyin
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20200903
Dim xValue As String
Dim xCheck1 As String
Dim xCheck2 As String
Dim xRg As Range
Dim xArrCheck1() As String
Dim xArrCheck2() As String
Dim xArrValue()
Dim xCount, xJ As Integer
Dim xBol As Boolean
' If Target.Count > 1 Then
' Exit Sub
' End If
xCount = Target.Count
ReDim xArrCheck1(1 To xCount)
ReDim xArrCheck2(1 To xCount)
ReDim xArrValue(1 To xCount)
Application.EnableEvents = False
On Error Resume Next
xJ = 1
For Each xRg In Target
xArrValue(xJ) = xRg.Value
xArrCheck1(xJ) = xRg.Validation.InCellDropdown
xJ = xJ + 1
Next
Application.Undo
xJ = 1
For Each xRg In Target
xArrCheck2(xJ) = xRg.Validation.InCellDropdown
xJ = xJ + 1
Next
xBol = False
For xJ = 1 To xCount
If xArrCheck2(xJ) <> xArrCheck1(xJ) Then
xBol = True
Exit For
End If
Next
If xBol Then
MsgBox "The selected cells containg data validation drop-down lists, no pasting allowed."
Else
xJ = 1
For Each xRg In Target
xRg.Value = xArrValue(xJ)
xJ = xJ + 1
Next
End If
Application.EnableEvents = True
End Sub4. Basın Ara Toplam + Q çıkış tuşları Microsoft Visual Basic Uygulamaları pencere.
5. Açılır listeli bir hücreye içerik yapıştırdığınızda, yapıştırmaya izin verilmediğini size hatırlatmak için bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
not: Bu VBA yalnızca tek hücre yapıştırmada çalışır. Birden çok hücreye kopyalayıp yapıştırırsanız, çalışmaz.
Excel'de onay kutularıyla kolayca açılır liste oluşturun:
The Onay Kutulu Açılır Liste yarar Kutools for Excel ihtiyaçlarınıza göre belirli bir aralıkta, mevcut çalışma sayfasında, mevcut çalışma kitabında veya tüm açık çalışma kitaplarında onay kutuları bulunan açılır listeyi kolayca oluşturmanıza yardımcı olabilir.
Kutools for Excel'in tam özellikli 30 günlük ücretsiz izini şimdi indirin!
İlgili yazılar:
Excel'de birden çok onay kutusu içeren açılır liste nasıl oluşturulur?
Birçok Excel kullanıcısı, her seferinde listeden birden çok öğe seçmek için birden çok onay kutusu içeren açılır liste oluşturma eğilimindedir. Aslında, Veri Doğrulama ile birden çok onay kutusu içeren bir liste oluşturamazsınız. Bu öğreticide, Excel'de birden çok onay kutusu içeren açılır liste oluşturmak için size iki yöntem göstereceğiz. Bu eğitim, sorunu çözme yöntemini sağlar.
Excel'de başka bir çalışma kitabından açılır liste oluşturun
Bir çalışma kitabındaki çalışma sayfaları arasında bir veri doğrulama açılır listesi oluşturmak oldukça kolaydır. Ancak, veri doğrulama için ihtiyacınız olan liste verileri başka bir çalışma kitabında bulunuyorsa, ne yapardınız? Bu öğreticide, Excel'deki başka bir çalışma kitabından açılır listenin nasıl oluşturulacağını ayrıntılı olarak öğreneceksiniz.
Excel'de aranabilir bir açılır liste oluşturun
Çok sayıda değeri olan bir açılır liste için, uygun olanı bulmak kolay bir iş değildir. Daha önce, açılır kutuya ilk harfi girerken otomatik tamamlama açılır listesi için bir yöntem getirmiştik. Otomatik tamamlama işlevinin yanı sıra, açılır listede uygun değerleri bulmada çalışma verimliliğini artırmak için açılır listeyi aranabilir hale de getirebilirsiniz. Açılır listeyi aranabilir hale getirmek için bu eğitimdeki yöntemi deneyin.
Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak doldurun
B8: B14 hücre aralığındaki değerlere dayalı bir açılır liste oluşturduğunuzu varsayalım. Açılır listeden herhangi bir değeri seçtiğinizde, C8: C14 hücre aralığındaki karşılık gelen değerlerin seçili bir hücrede otomatik olarak doldurulmasını istersiniz. Sorunu çözmek için, bu eğitimdeki yöntemler size bir iyilik yapacaktır.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
