AccessTr.neT
Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak (/konu-sablonu-belirlenen-sayfalara-kopyalama-yontemi-ile-sartli-dagitmak.html)

Sayfalar: 1 2 3 4 5 6

RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - hayalibey - 22/11/2020

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)

RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - feraz - 22/11/2020

(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ş

RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - hayalibey - 22/11/2020

Hocam dosya gerçek kayıtlarda malesef çalışmıyor sayfalara dağıtmıyor . tekrar deneyeyim

RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - feraz - 22/11/2020

(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.

RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - hayalibey - 22/11/2020

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

RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - feraz - 22/11/2020

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.