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)
Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak
(22/11/2020, 19:41)hayalibey yazdı: 1.Liste den 10.Liste 10 liste Sayfası dahiŞimdiki konumuz commentler değil abey.
ş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)
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
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
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
Son Düzenleme: 22/11/2020, 20:36, Düzenleyen: hayalibey.
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.
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.
Konuyu Okuyanlar: 5 Ziyaretçi