Daha fazla yeni yazı tipi uygulanamaz hatası

Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
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ş.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
Dosyanı yedekleyip, İlgili hücreleri seçerek, Düzen/Temizle/Biçimler'i bir denermisin.
 
Son düzenleme:
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
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
 
Katılım
6 Şubat 2005
Mesajlar
1,467
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.
 
Son düzenleme:
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
teşekkürler birazdan deniyip haberdar ederim
 
Katılım
2 Mart 2005
Mesajlar
2,960
Excel Vers. ve Dili
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
program aracılığı ile istenilen fontu kullan seçeneği ile çözdüm kod için yarıca teşekkürler
 
Üst