Soru Formülsüz ve makrosuz farklı kaydetme

S

sdtssmz

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Aşağıda formülü kullanıyorum ancak bu formüle makroları ve formülleri silip değerler kalacak şekilde ve formunuz kayıt edilmiştir mesajı eklemek istiyorum. Lütfen yardım eder misiniz.

Sub Farklı_Kaydet()

Application.ScreenUpdating = False
Sheets("SİPARİŞ FORMU").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx"
ActiveWindow.Close
Application.ScreenUpdating = True
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Deneyin.

Kod: 
Sub Farklı_Kaydet()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    ActiveWindow.Close True
    Application.ScreenUpdating = True

End Sub
 
S

sdtssmz

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
dalgalikur' Alıntı:
Merhaba.

Deneyin.

Kod: 
Sub Farklı_Kaydet()
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    ActiveWindow.Close True
    Application.ScreenUpdating = True

End Sub
Genişletmek için tıkla ...
Çok teşekkürler
formunuz kayıt edilmiştir mesajı da eklemek istiyorum. sorumda vardı rica etsem.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
End sub satırınn bir üstüne
msgbox "form kaydedilmiştir."
yazabilirsiniz.
 
S

sdtssmz

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Muzaffer Ali' Alıntı:
Merhaba.

Deneyin.

Kod: 
Sub Farklı_Kaydet()
  
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    ActiveWindow.Close True
    Application.ScreenUpdating = True

End Sub
Genişletmek için tıkla ...
Merhaba bu formüle sayfadaki renklendirmeyide temizlemeyi ekleyebilir miyiz acaba
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Kod: 
Sub Farklı_Kaydet()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    Cells.Interior.Pattern = xlNone 'Hücre Rengi sıfırla
    Cells.Font.ColorIndex = xlAutomatic 'Hücre yazı rengi sıfırla
    ActiveWindow.Close True
    Application.ScreenUpdating = True
End Sub
 
S

sdtssmz

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Muzaffer Ali' Alıntı:
Merhaba.
Kod: 
Sub Farklı_Kaydet()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    Cells.Interior.Pattern = xlNone 'Hücre Rengi sıfırla
    Cells.Font.ColorIndex = xlAutomatic 'Hücre yazı rengi sıfırla
    ActiveWindow.Close True
    Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...
Teşekkür ederim ama yalnış anlattım galiba aktif olan sayfada renkler kalacak farklı kaydettiğim sayfa renksiz olacak.
 
Muzaffer Ali

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Buyurun.
Kod: 
Sub Farklı_Kaydet()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
     ActiveWorkbook.ActiveSheet.Cells.Interior.Pattern = xlNone 'Hücre Rengi sıfırla
     ActiveWorkbook.ActiveSheet.Cells.Font.ColorIndex = xlAutomatic 'Hücre yazı rengi sıfırla
    ActiveWindow.Close True
    Application.ScreenUpdating = True
End Sub
 
S

sdtssmz

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Muzaffer Ali' Alıntı:
Buyurun.
Kod: 
Sub Farklı_Kaydet()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
     ActiveWorkbook.ActiveSheet.Cells.Interior.Pattern = xlNone 'Hücre Rengi sıfırla
     ActiveWorkbook.ActiveSheet.Cells.Font.ColorIndex = xlAutomatic 'Hücre yazı rengi sıfırla
    ActiveWindow.Close True
    Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...
Çok Teşekkür ederim Allah razı olsun
 
S

sdtssmz

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Merhabalar
Siparişler diye bir sayfam var burada j sütununda nereye "bitti" yazarsam solundaki satırı silip diğer satırları yukarı taşıyıp biten siparişler sayfasına sıradaki boş satırlara yazmasını istiyorum taşımasını istiyorum 2 sayfanın da tablo formatı aynı. bu konuda yardım edebilir misiniz rica etsem
 
B

By.TRabZonLutm

Altın Üye
Katılım
15 Aralık 2017
Mesajlar
105
Excel Vers. ve Dili
Excel 2016 - Türkçe
Altın Üyelik Bitiş Tarihi
12-01-2029
Merhaba arkadaşlar aşağıdaki kodu çalıştırdım fakat sadece sipariş formu olan sayfayı kaydediyor. excel kitabındaki tüm sayfaları sadece değerleri ile nasıl kaydedebilirim. bir de ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook burda ne demek istenmiş.

Muzaffer Ali' Alıntı:
Merhaba.

Deneyin.

Kod: 
Sub Farklı_Kaydet()
  
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("SİPARİŞ FORMU").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\..........\OneDrive\Masaüstü\ÇALIŞMALAR\Yeni klasör\" & [W7] & [C1] & [F6] & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
    ActiveWorkbook.ActiveSheet.Cells.Copy
    ActiveWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteValues
    ActiveWindow.Close True
    Application.ScreenUpdating = True

End Sub
Genişletmek için tıkla ...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst