• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Formülsüz ve makrosuz farklı kaydetme

  • Konbuyu başlatan Konbuyu başlatan sdtssmz
  • Başlangıç tarihi Başlangıç tarihi
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
 
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
 
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.
 
End sub satırınn bir üstüne
msgbox "form kaydedilmiştir."
yazabilirsiniz.
 
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
 
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
 
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.
 
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
 
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
 
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
 
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.
Geri
Üst