Sub aktar()
Sheets("asıl çıktı").Range("A27:K80").ClearContents
sat = 27
For r = 11 To Worksheets("ana").Cells(Rows.Count, "e").End(3).Row
Sheets("asıl çıktı").Cells(sat, 2).Value = Sheets("ana").Cells(r, 1).Value
Sheets("asıl çıktı").Cells(sat, 3).Value = Sheets("ana").Cells(r, 2).Value
Sheets("asıl çıktı").Cells(sat, 4).Value = Sheets("ana").Cells(r, 5).Value
sat = sat + 1
Next r
Sheets("asıl çıktı").Cells(sat + 0, 2).Value = " olmak üzere ödemeyi serbest iradem ile kabul ve taahhüt ediyorum dedi."
Sheets("asıl çıktı").Cells(sat + 1, 2).Value = "Alacaklı vekili söz alarak, biz de borçlunun bu şekildeki taahhüdünü kabul ediyoruz,"
Sheets("asıl çıktı").Cells(sat + 2, 2).Value = " ihtarat verilsin dedi."
Sheets("asıl çıktı").Cells(sat + 3, 2).Value = "Borçluya taahhüdü ihlalin hukuki ve cezai neticeleri açık ve ayrıntılı olarak anlatıldı. "
Sheets("asıl çıktı").Cells(sat + 4, 2).Value = "Borçlu söz alarak, anladım, kabul ediyorum, taahhüdümde sebat ediyorum dedi. "
Sheets("asıl çıktı").Cells(sat + 5, 2).Value = "Tutanak birlikte imza altına alındı. …./…./………."
Sheets("asıl çıktı").Cells(sat + 8, 1).Value = " İcra Md.Yrd Borçlu Alacaklı Vekili "
Sheets("asıl çıktı").Cells(sat + 12, 2).Value = " TC: "
Sheets("asıl çıktı").Cells(sat + 14, 2).Value = " ADRES: "
MsgBox ("TUTANAK HAZIRLANDI. YAZICIYA GÖNDERİLİYOR.")
Sheets("asıl çıktı").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ana").Select
Range("D1:I1").Select
End Sub
Sub aktar2()
Sheets("vekil").Range("A24:K80").ClearContents
satt = 24
For p = 11 To Worksheets("ana").Cells(Rows.Count, "e").End(3).Row
Sheets("vekil").Cells(satt, 2).Value = Sheets("ana").Cells(p, 1).Value
Sheets("vekil").Cells(satt, 3).Value = Sheets("ana").Cells(p, 2).Value
Sheets("vekil").Cells(satt, 4).Value = Sheets("ana").Cells(p, 5).Value
satt = satt + 1
Next p
Sheets("vekil").Cells(satt + 0, 2).Value = " olmak üzere ödemeyi serbest iradem ile kabul ve taahhüt ediyorum dedi."
Sheets("vekil").Cells(satt + 1, 2).Value = "Alacaklı vekili söz alarak, biz de borçlunun bu şekildeki taahhüdünü kabul ediyoruz,"
Sheets("vekil").Cells(satt + 2, 2).Value = " ihtarat verilsin dedi."
Sheets("vekil").Cells(satt + 3, 2).Value = "Borçluya taahhüdü ihlalin hukuki ve cezai neticeleri açık ve ayrıntılı olarak anlatıldı. "
Sheets("vekil").Cells(satt + 4, 2).Value = "Borçlu söz alarak, anladım, kabul ediyorum, taahhüdümde sebat ediyorum dedi. "
Sheets("vekil").Cells(satt + 5, 2).Value = "Tutanak birlikte imza altına alındı. …./…./………."
Sheets("vekil").Cells(satt + 8, 1).Value = " İcra Md.Yrd Borçlu Alacaklı Vekili "
Sheets("vekil").Cells(satt + 12, 2).Value = " TC: "
Sheets("vekil").Cells(satt + 14, 2).Value = " ADRES: "
MsgBox ("TUTANAK HAZIRLANDI. YAZICIYA GÖNDERİLİYOR.")
Sheets("vekil").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ana").Select
Range("D1:I1").Select
End Sub
arkadaşlar yukarıda 2 adet makro var yaptıkları işler aynı ancak farklı sayfalara gidiyorlar ben birebir aynısını kopyaladım ve diğer sayfaya göre uyarladım fakat 2.makroyu çalıştırınca subscript out of range diye bir mesaj veriyor çözemedim yardımcı olursanız sevinirim.teşekkürler.
Sheets("asıl çıktı").Range("A27:K80").ClearContents
sat = 27
For r = 11 To Worksheets("ana").Cells(Rows.Count, "e").End(3).Row
Sheets("asıl çıktı").Cells(sat, 2).Value = Sheets("ana").Cells(r, 1).Value
Sheets("asıl çıktı").Cells(sat, 3).Value = Sheets("ana").Cells(r, 2).Value
Sheets("asıl çıktı").Cells(sat, 4).Value = Sheets("ana").Cells(r, 5).Value
sat = sat + 1
Next r
Sheets("asıl çıktı").Cells(sat + 0, 2).Value = " olmak üzere ödemeyi serbest iradem ile kabul ve taahhüt ediyorum dedi."
Sheets("asıl çıktı").Cells(sat + 1, 2).Value = "Alacaklı vekili söz alarak, biz de borçlunun bu şekildeki taahhüdünü kabul ediyoruz,"
Sheets("asıl çıktı").Cells(sat + 2, 2).Value = " ihtarat verilsin dedi."
Sheets("asıl çıktı").Cells(sat + 3, 2).Value = "Borçluya taahhüdü ihlalin hukuki ve cezai neticeleri açık ve ayrıntılı olarak anlatıldı. "
Sheets("asıl çıktı").Cells(sat + 4, 2).Value = "Borçlu söz alarak, anladım, kabul ediyorum, taahhüdümde sebat ediyorum dedi. "
Sheets("asıl çıktı").Cells(sat + 5, 2).Value = "Tutanak birlikte imza altına alındı. …./…./………."
Sheets("asıl çıktı").Cells(sat + 8, 1).Value = " İcra Md.Yrd Borçlu Alacaklı Vekili "
Sheets("asıl çıktı").Cells(sat + 12, 2).Value = " TC: "
Sheets("asıl çıktı").Cells(sat + 14, 2).Value = " ADRES: "
MsgBox ("TUTANAK HAZIRLANDI. YAZICIYA GÖNDERİLİYOR.")
Sheets("asıl çıktı").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ana").Select
Range("D1:I1").Select
End Sub
Sub aktar2()
Sheets("vekil").Range("A24:K80").ClearContents
satt = 24
For p = 11 To Worksheets("ana").Cells(Rows.Count, "e").End(3).Row
Sheets("vekil").Cells(satt, 2).Value = Sheets("ana").Cells(p, 1).Value
Sheets("vekil").Cells(satt, 3).Value = Sheets("ana").Cells(p, 2).Value
Sheets("vekil").Cells(satt, 4).Value = Sheets("ana").Cells(p, 5).Value
satt = satt + 1
Next p
Sheets("vekil").Cells(satt + 0, 2).Value = " olmak üzere ödemeyi serbest iradem ile kabul ve taahhüt ediyorum dedi."
Sheets("vekil").Cells(satt + 1, 2).Value = "Alacaklı vekili söz alarak, biz de borçlunun bu şekildeki taahhüdünü kabul ediyoruz,"
Sheets("vekil").Cells(satt + 2, 2).Value = " ihtarat verilsin dedi."
Sheets("vekil").Cells(satt + 3, 2).Value = "Borçluya taahhüdü ihlalin hukuki ve cezai neticeleri açık ve ayrıntılı olarak anlatıldı. "
Sheets("vekil").Cells(satt + 4, 2).Value = "Borçlu söz alarak, anladım, kabul ediyorum, taahhüdümde sebat ediyorum dedi. "
Sheets("vekil").Cells(satt + 5, 2).Value = "Tutanak birlikte imza altına alındı. …./…./………."
Sheets("vekil").Cells(satt + 8, 1).Value = " İcra Md.Yrd Borçlu Alacaklı Vekili "
Sheets("vekil").Cells(satt + 12, 2).Value = " TC: "
Sheets("vekil").Cells(satt + 14, 2).Value = " ADRES: "
MsgBox ("TUTANAK HAZIRLANDI. YAZICIYA GÖNDERİLİYOR.")
Sheets("vekil").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ana").Select
Range("D1:I1").Select
End Sub
arkadaşlar yukarıda 2 adet makro var yaptıkları işler aynı ancak farklı sayfalara gidiyorlar ben birebir aynısını kopyaladım ve diğer sayfaya göre uyarladım fakat 2.makroyu çalıştırınca subscript out of range diye bir mesaj veriyor çözemedim yardımcı olursanız sevinirim.teşekkürler.