bthn35
Altın Üye
- Katılım
- 12 Kasım 2009
- Mesajlar
- 192
- Excel Vers. ve Dili
- 365 ProPlus TR
- Altın Üyelik Bitiş Tarihi
- 17-11-2026
Merhaba,
Aşağıdaki koda 2 tane ekleme yapmak istiyorum ancak bir türlü beceremedim, MAIL sekmesinde E5 ile X30 arasındaki hücreleri farklı bir excel'e değerleriyle kopyalayarak ve sadece xls formatında kaydedilmesini istiyorum, mümkün mü?
Aşağıdaki koda 2 tane ekleme yapmak istiyorum ancak bir türlü beceremedim, MAIL sekmesinde E5 ile X30 arasındaki hücreleri farklı bir excel'e değerleriyle kopyalayarak ve sadece xls formatında kaydedilmesini istiyorum, mümkün mü?
Kod:
Sub sayfayı_kaydet() 'Kod Halit3'ün çalışmasından alınarak revize edildi
Klasor = Environ("Userprofile") & "\Desktop\" 'yol
Dosya_Adi = Worksheets("MAIL").Range("C1").Value 'kayıt adı
Sayfa_Adı = "MAIL" 'kaydedilecek sayfa
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare))
If uzanti = ".xlsx" Then
FileFormatNum = 51
ElseIf uzanti = ".xlsm" Then
FileFormatNum = 52
ElseIf uzanti = ".xls" Then
FileFormatNum = -4143
ElseIf uzanti = ".xlsb" Then
FileFormatNum = 50
End If
Sheets(Sayfa_Adı).Copy
ActiveWorkbook.SaveAs Klasor & Dosya_Adi & uzanti, FileFormat:=FileFormatNum
ActiveWorkbook.Close SaveChanges:=False
MsgBox Klasor & Dosya_Adi & uzanti & " Dosya kayıt edildi"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub