Daha fazla yeni yazı tipi uygulanamaz hatası

[hsayar]

Pdf to excel 21 isimli program ile yapmış oolduğum pdf dosyasının excele çevrilmesi sırasında hücre değerinde olması gerekn bir kısım veriyi font adı olarak atamış, ayrıca puntolor çok küçük(4 punto)

(örneğin a1 de olması gereken veri excelforum;
ama olan font adı excel a1 hücredeğeri forum)


onları ben hücrenin içine yazdıktan sonra yazı tişpi adı penceresine gidip arial seçiyorum font büyüklüğünü 10 yazıyorum "bu çalışma kitabında daha fazla yeni yazıtipi uygulanamaz" hatası alıyorum çöüm nedir.

Makro ile de denedim
Sub funtpunto()
Range("A1:BF60").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Run time error - 1004 font sınıfınn name özeliiği kullanılamıyor hatası veriyor nasıl şabilirm bu problemi.

Her pdf sayfasını ayrı bir çalışma sayfası olarak kaydetmiş.

 

[omerceri]

Dosyanı yedekleyip, İlgili hücreleri seçerek, Düzen/Temizle/Biçimler'i bir denermisin.

 

[hsayar]

Teşekkürler işe yaradı, peki çalışma kitabındaki tüm sayfalar için nasıl olacak, bunu makro ile yapmaya çalıştım şimdi
bu kitap iki sayfalı olduğu için böyle yaptı
(tüm sayfaları seç, tüm hücreleri seç , düzen/temizle biçimler yaptım)
Sub Makro1()
'
' Makro1 Makro
' Makro CASPER tarafından 17.08.2007 tarihinde kaydedildi.
'

'
Sheets(Array("Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate
Cells.Select
Range("AR13").Activate
Selection.ClearFormats
End Sub

bazı kitaplar 13 bazısı 8 bazısı altı sayfa bunu standart makroya nasıl çevirebilirm.
saygılarımla

 

[omerceri]

Yanlış anlamadım ise aşağıdaki kod işinizi görür.
Sub aa()
say = Sheets.Count
For i = 1 To say
Sheets(i).Activate
Cells.Select

Selection.ClearFormats
Next
End Sub
Not bu kodu her kitaba ayrı ayrı yapıştırmanıza gerek yok kodu yazdığınız kitap açıkken diğer kitapları da açararak makroyu çalıştırabilirsiniz.

 

[hsayar]

teşekkürler birazdan deniyip haberdar ederim

 

[hsayar]

program aracılığı ile istenilen fontu kullan seçeneği ile çözdüm kod için yarıca teşekkürler