Soru Buton ile dosya kaydetmek

[ahmetozcan9211]

bolca formül kullandığım bir sayfam mevcut. sayfamda ücret hesaplaması yapıp teklif formu da oluşturuyorum. teklif ücretleri döviz kuru üzerinden olduğu için sayfaya bir buton koyup, butona tıkladığımda sayfayı tümüyle (formülsüz olarak değerler ile) yeni bir sayfa olarak kaydetmesini istiyorum. böyle birşey mümkün mü acaba? hatta kaydederken sayfa adını da sorarsa çok iyi olur

 

[ahmetozcan9211]

örnek dosyam aşağıdaki şekildedir. burada ihale-taslak sayfasına verilerimi girdikten sonra kaydet butonuna basayım ve sayfayı yeni bir sayfa olarak sadece değerler olacak şekilde kaydetmesini istiyorum. şimdiden teşekkür ederim

IHALE_25072022-1001.xlsx dosyasını indir - download

IHALE_25072022-1001.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub teklif()
Set s1 = Sheets("ihale-taslak")
s1.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Cells.Copy: ActiveSheet.Cells.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False
ActiveSheet.Cells.Copy: ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

 

[ahmetozcan9211]

Aşağıdaki makroyu deneyiniz:

Sub teklif()
Set s1 = Sheets("ihale-taslak")
s1.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Cells.Copy: ActiveSheet.Cells.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False
ActiveSheet.Cells.Copy: ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

teşekkürler hocam çalışıyor. yalnız ben bu makroyu butona ekleyip çalıştırıyorum öyle oluncada her kopyaladığı sayfada buton çıkıyor. kopyaladığı sayfalarda butonu silme şansımız var mı acaba?

 

[winstoncash]

teşekkürler hocam çalışıyor. yalnız ben bu makroyu butona ekleyip çalıştırıyorum öyle oluncada her kopyaladığı sayfada buton çıkıyor. kopyaladığı sayfalarda butonu silme şansımız var mı acaba?

sadece siz kullanacaksanız makroya kısayol atayın, buton koymayın. Makrolar penceresinde ctrl+harf veya ctrl+shift+harf kombinasyonu ile kısayol atanabiliyor.

 

[ahmetozcan9211]

sadece siz kullanacaksanız makroya kısayol atayın, buton koymayın. Makrolar penceresinde ctrl+harf veya ctrl+shift+harf kombinasyonu ile kısayol atanabiliyor.

peki kopyalarken sayfa adı sorup o isimle kopyalamasını yapabilir miyiz

 

[YUSUF44]

Hem o işlemi hem de sayfa adını soracak şekilde makroyu değiştirdim, inceleyiniz:

Sub teklif()
Set s1 = Sheets("ihale-taslak")

10:
sayfaadi = InputBox("Lütfen yeni sayfa adını giriniz:", vbInformation)
For i = 1 To Sheets.Count
    If Sheets(i).Name = sayfaadi Then
        MsgBox sayfaadi & " adnda sayfa dosyada mevcuttur, lütfen farklı bir sayfa adı belirtiniz!", vbCritical
        GoTo 10
    End If
Next
        
s1.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = sayfaadi
ActiveSheet.Cells.Copy: ActiveSheet.Cells.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False
ActiveSheet.Cells.Copy: ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.DrawingObjects.Delete

End Sub