1.Liste den 10.Liste 10 liste Sayfası dahi
şu hatayı veriyor
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Açıklama_Ekleme As Comment
Dim strText
If Target.Column > 37 Then Exit Sub
If Cells(Target.Row, 2).Value <> "" And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub
If Cells(Target.Row, Target.Column).Comment Is Nothing Then
strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _
"Açıklama_Ekleme", "Açıklama Ekler", , , , 2)
(22/11/2020, 19:41)hayalibey yazdı: [ -> ]1.Liste den 10.Liste 10 liste Sayfası dahi
şu hatayı veriyor
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Açıklama_Ekleme As Comment
Dim strText
If Target.Column > 37 Then Exit Sub
If Cells(Target.Row, 2).Value <> "" And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub
If Cells(Target.Row, Target.Column).Comment Is Nothing Then
strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _
"Açıklama_Ekleme", "Açıklama Ekler", , , , 2)
Şimdiki konumuz commentler değil abey.
Dosyayı deneyiniz 1.sicil vs..
Zaten bazı kodları pasif yaptım sayfa kodlarını hata olayı için onlar sonraki iş
Hocam dosya gerçek kayıtlarda malesef çalışmıyor sayfalara dağıtmıyor . tekrar deneyeyim
(22/11/2020, 20:10)hayalibey yazdı: [ -> ]Hocam dosya gerçek kayıtlarda malesef çalışmıyor sayfalara dağıtmıyor . tekrar deneyeyim
Son dosyayı deneyin.Sicil numaralarda kopyalamıtı diğerlerindede.
Sicil no ların bazılarında başında boşluk olduğunu başka konudada yazmıştım.
1.2.3. sicil sayfaları çalışıyor ama 1.Liseden10. Liste dahil kesinlikle personel kopyalama olmuyor Hocam 10. Kez denedim 1den 10 kadar sayfalara kopyalama yapmıyor
tüm aktarmalarda A5 satırı yani
2020 YILI OCAK AYI OPERASYON ÇİZELGESİ
satırını biçimsel olarak koruyamıyor satırlar sona doğru siyah kılavuz çizgileri ile geliyor
Birşey merak ediyorum. Sheetschange ve sheetsselectionchange bu kodları silip denedinizmi.
Son dosyada pasif yapmıştım çünkü.
Ayrıca sizin orjinal dosyada çalışmaması şundan dolayı olabilir.Kontrol sayfasındaki 16 dan 27 .ci sütunlardaki ilk satırları yani 1.Liste gibi hcreleri sayfa adıyla aynı yapmıştım.Sizinkinde eşit değildir.Yapmamım sebebi döngüde kod sayfa adı ararken oraları kontrol ediyordu.