Pastespecial hatası

[ormann]

SAYIN UZMAN ARKADAŞLAR ÖRNEK DOSYADA VERİ GİRİŞİ BÖLÜMÜNDE C3-D3-E3 HÜCRELERİNE ARANACAK KELİMEYİ YAZDIĞIM ZAMAN KONU BAŞLIĞINDAKİ HATAYI VERİYO.BU HATAYI HÜCRERLERİ ŞİFRELEDĞİM ZAMAN ALIYORUM.SAYFA KORUMASINI KLADIRDIĞIMDA HATAYI ALMIYORUM.DOSYAM EKTE OLUP ŞİFRESİ :123'tür.yardımlarınızı bekliyorum

 

[leumruk]

Merhaba,
VERİ GİRİŞİ sayfasında bulunan Change kodunu aşağıdaki ile değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C3:E3]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Dim C As Range, s1 As Worksheet, say As Long
Set s1 = Sheets("SUÇ KAYDI")
say = Application.WorksheetFunction.Match(Target.Offset(-1, 0), s1.[3:3], 0)
Set C = s1.Columns(say).Find(Target.Value, LookIn:=xlValues)
If Not C Is Nothing Then
[COLOR="red"]Sheets("VERİ GİRİŞİ").Unprotect 123[/COLOR]
Range("D5").ClearContents
s1.Range("B" & C.Row & ":AJ" & C.Row).Copy
Range("D5").PasteSpecial xlPasteValues, xlNone, False, True
Application.CutCopyMode = False
Range("C3").Select
[COLOR="red"]Sheets("VERİ GİRİŞİ").Protect 123[/COLOR]
Else
    MsgBox Target.Value & " BİLGİSİNİ BULAMADIM"
End If
End Sub

 

[ormann]

çok teşekkür ederim.saoğl

 

[leumruk]

çok teşekkür ederim.saoğl

Rica ederim.

 

[ormann]

Sayın arkadaşlar bir numaralı mesajımda göndermiş olduğum dosyanın veri girişi bölümündeki d5:d39 numaralı hücrelerin içerisine koymuş olduğum formüller in bilgileri aktar butonuna bastığım zaman kaybolduğunu görüyorum.formüller sıfırlanıyo.bunu nasıl makroyla düzeltebiliriz.yardımlarınızı bekliyorum

 

[ormann]

Sayın uzman arkadaşlar bir önceki yazmış olduğum mesajıma yadımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Ben belirttiğiniz aralıkta bir formül göremedim. Sanırım C3:E3 aralığına girdiğiniz bilgilere göre D539 aralığına bilgiler geliyor. Siz BİLGİLERİ AKTAR butonuna tıkladığınızda bu hücredeki bilgiler SUÇ KAYDI sayfasına aktarıldıktan sonra hücre içerikleri siliniyor. Bu silme işlemini iptal ederseniz veriler olduğu gibi duracaktır.

Kayıt isimli makronuzdan aşağıdaki kod satırını bulup silin.

Range("D5:D14,D16,D17:D26,D28:D32,D35:D39,G19:G23,H19:H23,I28").ClearContents