Kodlarda ufak bir değişiklik gerek

[vurkan]

Arkadaşlar merhaba;

Ömer Bey veya Korhan Bey tarafından yazılmış olan aşağıdaki kodları kendi dosyama uyarlamak istiyorum. Yardımcı olabilir misiniz?

Sub IMZA_YAZDIR()
For sat = 2 To Sheets("personel").Cells(Rows.Count, "A").End(3).Row
[G7] = Sheets("personel").Cells(sat, "A")
[H6] = Sheets("personel").Cells(sat, "B")
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

Bu kodlarla personel sayfasındaki A sütunundaki numaralar İmza sayfasındaki G7, personel sayfasındaki B sütunundaki isimler İmza sayfasındaki H6 hücresine sırayla gelerek aktif olan imza sayfası personel sayfasındaki kişi sayısınca yazıcıya gönderiliyor.

Bu kodları kendi dosyama uyarladığımda olmasını istediğim şey:

Aktif olan sayfamın adı BRANŞ, yazdırılmasını istediğim sayfa ise 1. DÖNEM 4 sayfası. Bu sayfa yazdırılırken BRANŞ sayfasındaki S2:S14 aralığında bulunan sınıf adları sırayla 1. DÖNEM 4 sayfasındaki A2 hücresine gelecek ve yazıcıya gönderilecek. Her sayfa yazıcıya gönderilmeden 3 saniye kadar beklemeli ki sayfadaki formüller çalışsın. Dosyanın sayfa koruma şifresi sivas . İlgilenecek arkadaşlara şimdiden teşekkür ederim.

http://s3.dosya.tc/server17/xswqqo/2019_KAZANIM_INGILIZCE_v5.rar.html

 

[turist]

Aşağıdaki kodu, BRANŞ sayfasındaki diktötgen butona uygulayın.Deneyin

Sub YuvarlatılmışDikdörtgen3_Click()
Dim ws1 As Worksheet: Set ws1 = Sheets("BRANŞ")
Dim ws2 As Worksheet: Set ws2 = Sheets("1. DÖNEM 4")
Dim say As Long: say = Application.WorksheetFunction.CountIf(Sheets("BRANŞ").Range("S2:S14"), "4*")
Dim i As Long
For i = 2 To say + 1
ws2.[A2] = ws1.Cells(i, "S")
ws2.PrintOut
Application.Wait (Now + TimeValue("0:00:03"))
Next i
End Sub

Not:Uygulanmış dosyanız linktedir.
Dosya Linki

 

[vurkan]

Sayın turist üstadım. Sizin ve diğer üstadlarımızın sayesinde dosyam için düşündüğüm her şeyi gerçekleştirdim. İnşallah sadece benim okulumda yaklaşık 60 öğretmen Ocak ve Haziran Aylarında bu dosyaları kullanınca şahsıma hangi güzel duaları ederlerse Rabbim sizleri de hissedar etsin. Hepinize sosuz teşekkürler.

 

[turist]

Sayın @vurkan ,
Güzel dilekleriniz için teşekkür ederim.
Sağolun, varolun.