Soru Veri Doğrulama olan Hücreye Farklı Veri Girişinin Engellenmesi

gicimi

New member
Üye
#1
Merhaba;

Bİr sütunda 999 satırda veri doğrulama var.

A sütununun 999 satırına kopyalama yapılması engellensin ve sadece veri doğrulama ile eklediğim 4 seçenek girilebilsin. Mümkün müdür_? Yardımcı olabilir misiniz. Teşekkürler.
 

OrkmesB

Administrator
Yönetici
Admin
#2
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
   If ActiveCell.Column = 1 Or ActiveCell.Column = 3 Or ActiveCell.Column = 13 Or ActiveCell.Column = 23 Or ActiveCell.Column = 30 Then
        If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
            Application.CutCopyMode = False
            Application.Undo
            Exit Sub
        Else
            Exit Sub
        End If
    End If
End Sub
Farklı farklı sütun numaralarına göre yukarıdaki kod ile yapıştırmayı engelleyebilirsin Hüseyin.
Sütun numaralarını kendine uyarlarsın.
Kodu sayfa makro alanına yapıştıracaksın.
 

metehan8001

Feyzullah - Www.ExcelDepo.Com
Yönetici
Moderatör
#3
Sayfanın kod editörüne yazın hocam. Sadece A sütununda çalışır.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Target.Column = 1 then Exit Sub     
Application.EnableEvents = False  
deger  = Target.Value  
  On Error Resume Next   
kontrol1 = Target.Validation.InCellDropdown   
    On Error GoTo 0      
Application.Undo  
     On Error Resume Next    
kontrol2 = Target.Validation.InCellDropdown
       On Error GoTo 0 
If kontrol1 = kontrol2 Then       
    Target = deger  
    Else      
MsgBox "Kopyala yapıştır engellendi!" 
      End If   
    Application.EnableEvents = True 
  End Sub
[/code
notlar: Bu VBA sadece tek hücreli yapıştırmada işe yarar. Birden çok hücreye kopyalayıp yapıştırırsanız, çalışmaz.
 
Son düzenleme:

metehan8001

Feyzullah - Www.ExcelDepo.Com
Yönetici
Moderatör
#5
Kod:
If Not Target.Column = 1 then Exit Sub
kodunu aşağıdaki kod ile değiştirin hocam.

Kod:
If Intersect(Target, [A1:I65536]) Is Nothing Then Exit Sub
 
Üst