Microsoft Excel YAZISINI KALDIRMAK

[marimar]

MERHABA ARKADAŞLAR EKTEKİ DOSYADA OLDUĞU GİBİ AÇILAN FORMDA BUTONA BASINCA TEXTBOX'A ÇALIŞMA KİTABININ İSMİNİ YAZDIRIYORUM.AMA
Microsoft Excel - DENEME ŞEKLİNDE YAZIYOR , BAŞINDAKİ Microsoft Excel YAZISINI NASIL KALDIRABİLİRİM TEŞEKKÜRLER

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
TextBox1.Text = ThisWorkbook.Name
End Sub

 

[emrexcel123]

sn Orion2 heralde arkadaşımız Microsoft Excel yazısı için sorusunu yöneltti ya da ben yanlış anladım hatam varsa affola

Application.Caption = "Deneme"

ii akşamlar...

 

[Orion1]

sn Orion2 heralde arkadaşımız Microsoft Excel yazısı için sorusunu yöneltti ya da ben yanlış anladım hatam varsa affola

Application.Caption = "Deneme"

ii akşamlar...

:roll: :roll:

 

[emrexcel123]

sn Orion2 yanlış birşey söylediysem affola :icelim:

 

[Orion1]

sn Orion2 yanlış birşey söylediysem affola :icelim:

Estafurullah.

MERHABA ARKADAŞLAR EKTEKİ DOSYADA OLDUĞU GİBİ AÇILAN FORMDA BUTONA BASINCA TEXTBOX'A ÇALIŞMA KİTABININ İSMİNİ YAZDIRIYORUM.AMA
Microsoft Excel - DENEME ŞEKLİNDE YAZIYOR , BAŞINDAKİ Microsoft Excel YAZISINI NASIL KALDIRABİLİRİM

 

[marimar]

peki sonundaki .xls yazını da kaldırabilirmiyiz ???

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

1. Çözüm;

Private Sub CommandButton1_Click()
    TextBox1.Text = Replace(Application.Caption, "Microsoft Excel - ", "")
End Sub

2. Çözüm;

Private Sub CommandButton1_Click()
    TextBox1.Text = Replace(ThisWorkbook.Name, ".xls", "")
End Sub

 

[marimar]

Teşekkür ederim sn. COST_CONTROL