- Katılım
- 15 Mart 2005
- Mesajlar
- 42,247
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selamlar,
VERİ sayfanızdaki F1 hücresini ortalattırın yazı fontunuda kalınlaştırdıkktan sonra aşağıdaki kodu çalıştırın.
VERİ sayfanızdaki F1 hücresini ortalattırın yazı fontunuda kalınlaştırdıkktan sonra aşağıdaki kodu çalıştırın.
Kod:
Sub SAYFA_EKLE()
Application.ScreenUpdating = False
Say = Worksheets.Count - 1
Sheets("VERİ").Select
[F1] = Say
[F1].NumberFormat = "00"
Sheets("VERİ").Copy After:=Sheets("VERİ")
ActiveSheet.Shapes("Button 8").Delete
ActiveSheet.Name = Format(Say, "00")
ActiveSheet.[F1].Select
Selection.NumberFormat = "00"
Sheets("VERİ").Select
Application.ScreenUpdating = True
End Sub