Resmi Yazı Programı

[sefaburan]

Arkadaslar resmi yazı programı hazırlıyorum. Orjinal program boyutu büyük olduğu için yükleyemedim. sadece tek bir çalışma sayfasını kopyaladım öyle yükledim. Sıkıntım şu: Şu an A14 hücresindeki yazı uzunluğuna göre paraf ekle sil butonlarıyla paraf ekleyebiliyorum. lakin yazı daha uzun ya da daha kısa olduğunda paraf sayfanın sonuna gelmiyor, ben istiyorum ki yazının uzunluğu kısalığına bağlı olmaksızın, paraf ekle butonuna basınca en alttaki adres bölümünün hemen üstünde olsun istiyorum. yani boş olan son satırda olsun istiyorum.

Ayrıca şöyle yapsan daha şık olur dediğiniz bir öneriniz varsa onu da alabilirim. Şimdiden Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Uzun dediğiniz metin nedir?
Satır ekle çıkar yapıyor musunuz ?

. . .

 

[sefaburan]

kardeş kısacası parafı her daim son bölümün hemen üstüne eklemek ve çıkarmak istiyorum. yani son dolu satırın üstündeki boş satıra

 

[Emir Hüseyin Çoban]

. . .

Sub kod_ekle()

son = Sheets("Şablon").[A65536].End(3).Row - 2
Sheets("Şablon").Cells(son, "A") = Format(Now, "dd.mm.yyyy") & "   A.Memuru Sefa BURAN"

End Sub


Sub kod_sil()

son = Sheets("Şablon").[A65536].End(3).Row - 2
Sheets("Şablon").Cells(son, "A") = ""

End Sub

. . .

 

[sefaburan]

bu harika oldu ya. ALLAH razı olsun. Peki başka bir önerin varmı? şöyle yapsan daha şık olur şeklinde

 

[sefaburan]

üstad keşke programı tam olarak inceleyebilseydin, boyutu büyük olduğu için yükleyemedim. eksiklikleri falan tamamlar, fikir verirdin bana.

 

[Emir Hüseyin Çoban]

. . .

Kamu sistemini bilmiyorum.
Ancak her evraktan bir paraflı bir parafsız 2 çıktı alıyorsanız.
Bunu butonla ekle sil yerine yazdırma kodlarında 2 nüsha yazdırıp paraflı parafsız yaptırabilirsiniz.

Arkaplan resmi gereksiz yere dosya boyutunu yükseltiyor.

. . .

 

[sefaburan]

yazdırma kodlarında paraflı parafsız nasıl yaptıracağım ki

 

[Emir Hüseyin Çoban]

. . .

Gibi

Sub kod_yazdır()

son = Sheets("Şablon").[A65536].End(3).Row - 2
Sheets("Şablon").Cells(son, "A") = ""
Sheets("Şablon").PrintOut

son = Sheets("Şablon").[A65536].End(3).Row - 2
Sheets("Şablon").Cells(son, "A") = Format(Now, "dd.mm.yyyy") & "   A.Memuru Sefa BURAN"
Sheets("Şablon").PrintOut

End Sub

. . .

 

[sefaburan]

bu çok hoş da yalnız bende iki adet yazıcı var, varsayılan yazıcıdan değil de diğerinden çıkartmak istiyorum, bunu nasıl yapabilirim.

 

[sefaburan]

tamam üstad hallettim sağol. makro kaydet yoluyla kendi yazıcıımı seçtim sonra kodları birleştirdim velhasıl harika oldu