Soru Yazdırmadan Önce Metin Ekleyip Yazdırdıktan Sonra Eklenen Metni Silmek

[TURKOLOG]

Herkese Merhaba
Userformda Textbox1de tarih ve sayıdan oluşan bir metin var bu yazılı olanlar Tebliğ sayfası A3 hücresine kaydediliyor.
Ben yazdır tuşuna bastığımda textbox1 de
İlgi:
Bir karekter boşluk yazdıktan sonra textbox1de yazılı olanları yazıp cıktı alacak cıktı aldıktan sonra İlgi: Yazısını Tebliğ sayfası A3 hucresinden tekrar silecek

Örnek
textbox1 de
12.04.2021 tarih ve E-20127272-23/17 yaziyor
yazdir tuşuna basınca textbox 1
İlgi: 12.04.2021 tarih ve E-20127272-23/şeklinde Tebliğ sayfası A3 hücresine yazacak çıktı aldıktan sonra İlgi: yazısını Tebliğ sayfası A3 hücrenden silecek ve
12.04.2021 tarih ve E-20127272-23/17 Bu metin kalacak textbox1 de ve Tebliğ sayfası A3te
Yardımcı olabilecek olan varsa çok sevinirim.

 

[işsiz123]

Merhabalar
Kodun en altına

Range("A3").Value = ""

yazınız.

 

[TURKOLOG]

Merhabalar
Kodun en altına

Range("A3").Value = ""

yazınız.

Hayır önce A3 e ilgi: kelimesini ekleyecek Yazdırdıktan sonra a3 de ilgi: Yazısını silecek diğer yazılı olanlar A3 de kalacak

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

[a3] = "İlgi: " & [a3]

[a3].Replace "İlgi:", " "

 

[işsiz123]

Ek dosya eklerseniz bakayım. Altın üye olmadıgım içn lik olarak ekleyiniz.

 

[TURKOLOG]

Bu şekilde kendinize uyarlayınız.

[a3].Replace "İlgi:", " "

Hocam bu kodu nereye ekleyeceğim
Çünkü başta ilgi: yazmayacak yazdır diyince yazacak Yazdırdıktan sonra ilgi: yazısını silecek

 

[Seyit Tiken]

Yukarıda 4.mesajı güncelledim, İlgili hücreye İlgi: yazısını yazacak sonra printer ve daha sonrada İlgi: ibaresini silecek, bunu kendinize göre düzenleyiniz.

 

[TURKOLOG]

Yukarıda 4.mesajı güncelledim, İlgili hücreye İlgi: yazısını yazacak sonra printer ve daha sonrada İlgi: ibaresini silecek, bunu kendinize göre düzenleyiniz.

Teşekkür ederim Hocam deneyeceğim

 

[TURKOLOG]

Bu şekilde kendinize uyarlayınız.

[a3] = "İlgi: " & [a3]

[a3].Replace "İlgi:", " "

Hocam ilgi yazısını ekliyor ama cıktı aldıktan sonra malesef silmiyor. Cıktı aldıktan sonra nasıl silebiliriz

 

[TURKOLOG]

Bu konuda yardımcı olabilecek olan var mı acaba

 

[Korhan Ayhan]

Önce A3 hücresindeki eski metni bir değişkene atayın.

Eski_Metin = Range("A3").Value

Sonra A3 hücresine istediğiniz ifadeyi ekleyin.

Range("A3").Value = "İlgi: " & Range("A3").Value

Bundan sonra yazdırma komutlarını çalıştırın.

Son olarak yazdığınız ifadeyi silin.

Range("A3").Value = Eski_Metin


Sanırım bu senaryoyu kendiniz uyarlayabilirsiniz.

 

[TURKOLOG]

Önce A3 hücresindeki eski metni bir değişkene atayın.

Eski_Metin = Range("A3").Value

Sonra A3 hücresine istediğiniz ifadeyi ekleyin.

Range("A3").Value = "İlgi: " & Range("A3").Value

Bundan sonra yazdırma komutlarını çalıştırın.

Son olarak yazdığınız ifadeyi silin.

Range("A3").Value = Eski_Metin


Sanırım bu senaryoyu kendiniz uyarlayabilirsiniz.

Sayın @korhan Hocam çok teşekkür ederim . Kod sorunsuz çalıştı.