ölçüm sonuçları

[beykatip]

Sevgili arkadaşlar herkese iyi geceler sitemizden almış olduğum ve ekte sunduğum ölçüm sonuşları adlı dosyayı yazdır dediğimde ekteki dosyamda sarı boyalı alandaki Yanmaz Laboratuvarı Ölçüm Sonuçları ve devamı yazı çıkıyor bu yazı kodun veya sayfanın neresine yazılıyor herkese iyi geceler

 

[fireman64]

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then Exit Sub
Set wd = CreateObject("word.Application")
Set W_Ac = wd.Documents.Add(DocumentType:=0)
wd.Visible = True
Set s = Sheets(ComboBox1.Text)
Prg = Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10)
Arl = Chr(10) & Chr(10)
hitap = "YANMAZ LABARATUARI ÖLÇÜM SONUÇLARI" & Arl & Arl
Son_Sat = s.[a65536].End(3).Row
For x = 2 To Son_Sat
s_adi_metin = s.Cells(x, "a")
s_adi = Arl & "Şirket Adı" & vbTab & ": " & s.Cells(x, "a")
s_kodu = Arl & "Şirket Kodu" & vbTab & ": " & s.Cells(x, "b")
tel = Arl & "Tel" & vbTab & vbTab & ": " & s.Cells(x, "c")
fax = Arl & "Fax" & vbTab & vbTab & ": " & s.Cells(x, "d")
adres = Arl & "Adres" & vbTab & vbTab & ": " & s.Cells(x, "e")
veriler = Arl & "Veriler" & vbTab & vbTab & ": " & s.Cells(x, "f")
metin = vbTab & "Şirketiniz " & s_adi_metin & " Ürün ve hammadde kontrol ünitesinden alınan donelere ait tahlil sonucu bildirir rapordur." & Chr(10)
deg = Prg & hitap & metin & s_adi & s_kodu & tel & fax & adres & veriler
wd.Selection = deg
wd.Selection.MoveRight Unit:=1, Count:=1
If x < Son_Sat Then
wd.Selection.InsertBreak Type:=7
End If
Next
Unload Me

 

[beykatip]

Teşekkür ederim prens24

 

[fireman64]

Rica ederim.