Bir sayfadaki bilgiyi yeni sayfada kaydetme

[hsyn17]

Sayın üstat, emeğine şimdiden teşekkür ediyorum;
Ekte sunduğum gibi bir sayfadaki yaptığımız değişiklikleri belirtilen bir isim ile yeni bir sayfada kaydetmek istiyoruz...

Saygılar

 

[NBATMAN]

Merhaba,

Dosyanız ektedir.

 

[hsyn17]

Sayın NBATMAN
Öncelikle ellerine ve emeğine sağlık.
Yalnız iki sorun var Birincisi: Standarta "D4-AH4" ve "D5-AH5" hücrelerinde "eğer" li formüller var, Aynı zamanda Koşullu biçimlendirme ile Hafta sonları "Sütün halinde" kırmızıya boyanmaktadır. Sayfa oluştur dediğimde, oluşan sayfada D4-AH4 ve D5-AH5 hücreleri boş çıkıyor ve hafta sonları da renkli değil.
İkincisi de boş olan hücrelerin sütunları da çok geniş oluşmakta.
Kısacası "Standart" sayfasındaki (formüllerin sonuç) değerleri ve koşullu biçimlendirme aynen kalsın ve de sütün genişlikleri korunsun...

İlginize çok çok teşekkür ederim üstat, Sağ olun

 

[sinemomec]

peki ben bisey soracam peki bu örnekte olduğu gibi yeni bir excel sayfası değilde yeni bir excel sayfası açarak kaydetme işlemi yapılabilirmi yada kaydet dediğimizde excelde faklı kaydederek pdf yapılabilirmi

 

[NBATMAN]

MERHABA,

mesaj 2deki dosyanın kodlarında kırmızı yerleri değiştirin...

Private Sub CommandButton1_Click()
Dim Sayfa_Adi As String


Sheets("Standart").Select
Sheets("Standart").Range("A2:AK19").Select
Selection.Copy
If Sheets("Standart").Range("AJ3") = "" Then Exit Sub
Sayfa_Adi = Sheets("Standart").Range("AJ3").Value

If Not SayfaVarMi(Sayfa_Adi) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sayfa_Adi
Sheets(Sayfa_Adi).Select
Sheets(Sayfa_Adi).Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Sheets(Sayfa_Adi).Columns("A:AK").Select
Sheets(Sayfa_Adi).Columns("A").ColumnWidth = 3
Sheets(Sayfa_Adi).Columns("B").ColumnWidth = 10.86
Sheets(Sayfa_Adi).Columns("C").ColumnWidth = 9
Sheets(Sayfa_Adi).Columns("D:AK").ColumnWidth = 3
Sheets(Sayfa_Adi).Range("A1").Select
Application.CutCopyMode = False
Sheets("Standart").Select
Sheets("Standart").Range("B6:AK13").Select
Selection.ClearContents
Sheets("Standart").Range("A1").Select
Else

MsgBox Sayfa_Adi & " ADLI SAYFA ZATEN VAR, AÇILMADI...", vbInformation, "Dikkat"
Sheets("Standart").Range("AJ3").Select
Application.CutCopyMode = False
Exit Sub
End If


End Sub

 

[hsyn17]

Sayın üstat NBATMAN
Emeğine sağlık çok teşekkür ediyorum. Hepsi oldu. Affına sığınarak SON bir ricam var (ben çok uğraştım ama olmadı) "standart" sayfasında ay adı değişince doğal olarak hafta sonunun yeri de değişiyor ve değişen yerde, KOŞULLU BİÇİMLENDİRME ile bu hafta sonları KIRMIZI renk olmaktadır.. Ama kaydettiğimizde oluşan yeni sayfada bu hafta sonlarında dolgu rengi YOK. Bunu yapmamız mümkün müdür?

Tekrar teşekkür ediyorum sağ ol... var ol...