makro düzenleme

[igultekin2000]

iyi günler;

Sub ImalatRaporFK()
    On Error Resume Next
    Application.EnableEvents = False
    son_satir = Range("B65530").End(3).Row
    Range("I3").AutoFill Destination:=Range("I3:I" & son_satir) 'formülleri bir alt satıra kopyalama
    
    Application.EnableEvents = True
End Sub

formül kopyalamada kullandığım makro var, buna hücrenin biçimi yani, kenar çizgisi, yazı fontu gibi ilavede bulunabilirmiyiz.
teşekkürler.

 

[isteobenim]

Merhaba,

Kalınlık ve Font seçimlerinde aşağıdaki kodları kullanabilirsiniz,
Ancak yapacağınız değişiklikleri/düzenlemeleri Makro>Kaydet seçeneğiyle yaparak daha kolay yapabilir ve anlayabilirsiniz.


Range("I3:I" & son_satir).Select
Selection.Font.Bold = True
With Selection.Font.Name = "Calibri"

 

[igultekin2000]

adapte edemedim.

Merhaba,

Kalınlık ve Font seçimlerinde aşağıdaki kodları kullanabilirsiniz,
Ancak yapacağınız değişiklikleri/düzenlemeleri Makro>Kaydet seçeneğiyle yaparak daha kolay yapabilir ve anlayabilirsiniz.


Range("I3:I" & son_satir).Select
Selection.Font.Bold = True
With Selection.Font.Name = "Calibri"

kullandığım koda adapte edemedim.

 

[systran]

bütün aralığı seçmenize gerek yok. önce I3 hücresine istediğiniz biçimi atayın, sonra bu hücreyi çoğaltın.

Sub ImalatRaporFK()
    On Error Resume Next
    Application.EnableEvents = False
    son_satir = Range("B65530").End(3).Row
[B][COLOR="Red"]    Range("I3").Font.Bold = True
    Range("I3").Font.Name = "Comic Sans Ms"[/COLOR][/B]
    Range("I3").AutoFill Destination:=Range("I3:I" & son_satir) 'formülleri bir alt satıra kopyalama
    Application.EnableEvents = True
End Sub

 

[igultekin2000]

sorun çözüldü

bütün aralığı seçmenize gerek yok. önce I3 hücresine istediğiniz biçimi atayın, sonra bu hücreyi çoğaltın.

Sub ImalatRaporFK()
    On Error Resume Next
    Application.EnableEvents = False
    son_satir = Range("B65530").End(3).Row
[B][COLOR="Red"]    Range("I3").Font.Bold = True
    Range("I3").Font.Name = "Comic Sans Ms"[/COLOR][/B]
    Range("I3").AutoFill Destination:=Range("I3:I" & son_satir) 'formülleri bir alt satıra kopyalama
    Application.EnableEvents = True
End Sub

teşekkürler güzel bir çözüm olmuş.