Pdf yapılan dosya ile ilgili

[Mdemir63]

Selamlar,

Arkadaşlar ekteki dosyamda PDF yaptırıyorum . ancak pdf yapınca dosyamda bulunan Metin kutusu olan TextBox2 içindeki firma ismi adına yaptırmak istiyorum.
Kod içindeki;
Dosya adı=TextBox2.Value
yaptım ama olmadı. Kod içine nasıl bir ekleme yapmalıyım?

Saygılar

 

[Emir Hüseyin Çoban]

. . .

Dosya_Adi = Sayfa2.Shapes.Range(Array("TextBox2")).TextFrame2.TextRange.Characters.Text

. . .

 

[Mdemir63]

. . .

Dosya_Adi = Sayfa2.Shapes.Range(Array("TextBox2")).TextFrame2.TextRange.Characters.Text

. . .

Selamlar.
hocam çok teşekkür ederim.

Saygılar

 

[Mdemir63]

Selamlar,

Hocam Metin kutusu veya TextBox değilde ,
herhangi bir hücredeki (Örneğin A1 Hücresi) değere göre PDF yapmak istersek o zaman nasıl bir kod değişikliği yapmamız gerekir.


Saygılar

 

[Emir Hüseyin Çoban]

. . .

Dosya_Adi=RANGE("A1")

. . .

 

[Mdemir63]

Hocam teşekkür ederim.

Saygılar

 

[Mdemir63]

Selamlar,

Hocam A1 hücresi boş ise düğmeye tıkladığımda hata veriyor. Bunu engellemek için, Düğmeye tıkladığımızda Firma seçin diye uyarabilir mi?

Saygılar

 

[Emir Hüseyin Çoban]

.

If Range("A1") = "" Then
MsgBox "Firma seçin ", vbCritical
Range("A1").Select
Exit Sub
End If

. . .

 

[Mdemir63]

Selamlar,

Hocam benim kodlarım bu;
Private Sub CommandButton1_Click()

Yol = ThisWorkbook.Path
Dosya_Adi = Range("C11")
ChDir Yol

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & "\" & Dosya_Adi & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "Dosya PDF yapılmıştır.", vbInformation

End Sub

sizin verdiğiniz kodları hangi koddan sonrasına yazacağım?

Saygılar

 

[Mdemir63]

Selamlar

Private Sub CommandButton1_Click()

If Range("A1") = "" Then
MsgBox "Firma seçin ", vbCritical
Range("A1").Select


Else

Yol = ThisWorkbook.Path
Dosya_Adi = Range("C11")
ChDir Yol

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Yol & "\" & Dosya_Adi & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "Dosya PDF yapılmıştır.", vbInformation

Exit Sub
End If
End Sub


Bu şekilde yazınca kodları düzeldi. Sanırım

Else

yazmayı unutmuşuz.


Saygılar

 

[Emir Hüseyin Çoban]

. . .

Private Sub CommandButton1_Click() başlığının altına ilave edin...
Verdiğim şekliyle kullanın ilaveye gerek yok...


. .

 

[Mdemir63]

Selamlar,

Evet hocam sizin dediğiniz gibi yaptım oldu. Teşekkür ederim.

Saygılar

 

[Mdemir63]

Selamlar,

Hocam
Aşağıdaki kodlarda TextBox2 yerine başka bir örneğin TextBox5 yazıyorum çünkü dosyamda TextBox5 olduğu için Pdf yapmıyor hata veriyor. Sorun ne olabilir?


Dosya_Adi = Sayfa2.Shapes.Range(Array("TextBox2")).TextFrame2.TextRange.Characters.Text


Saygılar

 

[Emir Hüseyin Çoban]

.

Sayfa ismi farklı olabilir
Textbox yerine metin kutusu eklemiş olabilirsiniz.
Dosyanızı örnek haline getirin, üzerinde bakalım.

.

 

[Mdemir63]

.

Sayfa ismi farklı olabilir
Textbox yerine metin kutusu eklemiş olabilirsiniz.
Dosyanızı örnek haline getirin, üzerinde bakalım.

Selamlar,

Hocam geç oldu kusura bakmayın. Dediğiniz gibi yanlış textbox adı yapmışım.
ilginize çok teşekkür ederim.

Saygılar