A sütununa parametre olan sayfaları yazdırma makrosu

[volkanerguz]

İyi günler,
Çalışmakta olduğum şirketin sisteminde yeni yıla geçişle meydana gelen bir hata yüzünden müşterilerin ekstrelerini sistemden basamıyoruz. sizlerden yardımını beklediğim konu ise örnek olarak gönderdiğim excel tablosundaki a sütununda "KAMP" yazan sayfaların çıktısını almamı sağlayacak bir makro yazabilmek. Elimdeki mevcut datada farklı bir makro çalışması ile her sayfaya bir ekstre basılmasını sağladım ancak şu hali ile 2000 sayfanın üzerinde ve bana sadece kamp yazan sayfaların çıktıları lazım. Yardımınız ve ilginiz için şimdiden çok teşekkür ederim.

 

[Necdet]

Merhaba,

Dosyanızdan yorum yaparak kodları yazdım. Dosya yapınızın eklediğim dosya gibi olduğunu varsaydım. Yani A sütununda KAMP yazılarının arasının boş olduğunu varsaydım.

İnceleyiniz.

Sub Yaz_Kamp_Olanlar()
 
    Dim Son As Long
    Dim i   As Long
 
 
    Son = Cells(Rows.Count, "A").End(3).Row
    i = Range("A1").End(xlDown).Row
 
    Do
 
        If StrComp(Cells(i, "A"), "KAMP", vbTextCompare) = 0 Then
            ActiveSheet.PageSetup.PrintArea = Range("A" & i & ":L" & i + 9).Address
            ActiveSheet.PrintOut
        End If
 
        i = Range("A" & i).End(xlDown).Row
 
    Loop While i <= Son
 
End Sub

 

[volkanerguz]

verdiğiniz bilgi için gerçekten minnettarım, ekte göndermiş olduğunuz örnekte ve mesajınızda tam olarak yapmak istediğim çalışmayı anlatmışsınız. Ancak ben makroyu çalıştıramadım. gönderdiğiniz örnek istediğim gibi çalışıyor ancak kodla oluşturduğum makroyu çalıştırdıktan sonra hiç bir fark olmadan yazdırma işlemi başlıyor. Nerede hata yapıyor olabilirim acaba?

 

[Necdet]

... ben makroyu çalıştıramadım. gönderdiğiniz örnek istediğim gibi çalışıyor ancak kodla oluşturduğum makroyu çalıştırdıktan sonra hiç bir fark olmadan yazdırma işlemi başlıyor. Nerede hata yapıyor olabilirim acaba?

Nerede hata yaptığınızı nereden bilebilirim buradan?

Gönderdiğim dosyaya sizin dosyanızdaki verileri kopyalayıp yapıştırın. En pratik yöntem bu.

Ayrıca kodların nereye nasıl yazılacağını bilmelisiniz. Excel dersanesinde bol miktarda örnekler var.

 

[volkanerguz]

Tamamdır sorunu çözdüm. Ben çok daha karmaşık bir hata ararken günün yorgunluğundan olsa gerek ufak bir detayı atlamışım Size gönderdiğim örnek excelde ve dolayısıyla hazırladığınız kodda kamp parametresinin sonunda nokta yok ancak benim çalıştığım datada kamp parametresi "kamp." olarak yazıldığı için makroda hata oluşmuş. noktaları kaldırınca sorun da ortadan kalktı. İlginiz için tekrar teşekkür ederim.

 

[Necdet]

Sorunu çözdüğünüze sevindim.

Güle güle kullanınız.