diploma sertifika yazma makro kodları

Sub belgeolustur()
'
' belgeolustur Makro
' Makro Milli Eğitim  tarafından 02.02.2007 tarihinde kaydedildi.

Range("e2").Value = 1
kursiyersayi = Range("f2").Value
For i = 1 To kursiyersayi

yazdırsira = Range("e2").Value
ad = Cells(yazdirsira + 6, 2).Value
belgeno = Range("d2").Value
 
   
    Sheets("belge").Select
    Range("c18").Value = ad
    Range("d16").Value = belgeno
 
     ' ActiveSheet.PageSetup.PrintArea = "$A$1:$B$7"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("veri").Select
Range("d2").Value = belgeno + 1
yazdirsira = yazdirsira + 1
Range("e2").Value = yazdirsira + 1
Next
Range("e2").Value = (yazdirsira + 1) - yazdirsira

End Sub