Çözüldü Sayfa korumaya aldığım zaman hata

Hata verdikten sonra N sütununun tüm dolu hücelerini secip Hücreleri biçimlendir > Koruma > Kilitli' yi kontrol edin Eğer Kilitli alanı resimdeki gibi kare şeklinde doluysa O zaman arada kilitli hücreler var demektir. kilidi açın. Diğer Sütunlardan kopyaladığınız alanlarda da kilitli alan olabilir. Kontrol edin .
Hücre saydırmada End(3) (XlUp) yerine End(4) (XlDown) kullanırsanız aşağı doğru kilitsiz hücrelerde çalışırsınız.

Hatalı olan kısmın üstüne range("n:n").locked = false altınada true ekleyin.

Kodlarınız çalışmadan önce unprotect ile sayfanın tamamının koruması kaldırılır. Kodun en sonuna da tekrar protect ile sayfanın tamamı korumaya alınır.

HTML:

Sayın Suskun özellikle sütunları işaretleyip Koruma Tikini kaldırdım.
Sayın Refaz bey kodda nereyi değiştirmem gerekiyor;

Sub ListeKarsilastir()

Dim sonD&, sonF&, satH&, satL&, i&, krt$, k()

sonD = Cells(Rows.Count, "D").End(3).Row
sonF = Cells(Rows.Count, "F").End(3).Row

Range("D3 " & sonD).Interior.Color = 65535
Range("F3:F" & sonF).Interior.Color = 11854022
Range("H3:L" & Rows.Count).ClearContents
satH = 3
satL = 3

With CreateObject("Scripting.Dictionary")
For i = 3 To sonD
krt = Cells(i, "D").Value
.Item(krt) = i
Next i
For i = 3 To sonF
krt = Cells(i, "F").Value
If .exists(krt) Then
Cells(satH, "H").Value = krt
satH = satH + 1
Cells(.Item(krt), "D").Interior.Color = vbGreen
Cells(i, "F").Interior.Color = vbGreen
.Remove (krt)
Else
Cells(satL, "L").Value = krt
satL = satL + 1
End If
Next i
k = Application.Transpose(.keys)
Range("J3").Resize(UBound(k), 1).Value = k
[D ].Copy [N:N]
Range("F3:F" & sonF).Copy Range("N" & sonD + 1)
Range("N2:N" & Cells(Rows.Count, "N").End(3).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End With

End Sub

Sayın aeGNoR makrom bir modülde ekli. Makroya ekleme yaptım çalıştıramadım.

aeGNoR' Alıntı:

Kodlarınız çalışmadan önce unprotect ile sayfanın tamamının koruması kaldırılır. Kodun en sonuna da tekrar protect ile sayfanın tamamı korumaya alınır.

HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

Abey sanıyorum sayfa

Dosya ekleyin bakalım abey hataya.

Sayın Refaz bey Dosyayı ekliyorum.

Alttaki boyadıklarım gibi deneyin abey.12345 olan yerleri silerseniz şifre sormaz koruma açarken manuel olarak.

Sayın Refaz bey örnek dosyayı ekleyebilir misiniz? Macroları aynı şekilde değiştirdim çalıştıramadım.

Sayın Refaz bey çok teşekkür ederim. Emeğinize sağlık. İhtiyaca cevap verdi.

yyhy' Alıntı:

Sayın Refaz bey çok teşekkür ederim. Emeğinize sağlık. İhtiyaca cevap verdi.

Genişletmek için tıkla...

Rica ederim abey kolay gelsin.