Yeni Çalışma Sayasına Tarih İsmi

[kemalist]

Merhaba benim istediğim yeni açmış olduğum çalışma sayfasının adının günün tarihi olmalı ve tarih formatıda 20181007 gibi olmalı.Elimde aşağıdaki gibi bir KOD var.Burada Kitap 1 yerine buraya nasıl bir kod ilave edebiliriz?İlginiz için şimdiden teşekkür ederrim.

Sub Makro1()
Windows("MATINDIVERI.xlsm").Activate
Sheets("INDI").Select
Range("A2:BQ403").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Windows("MATINDIVERI.xlsm").Activate
Sheets("VERI").Select
Range("A3:S403").Select
Application.CutCopyMode = False
Selection.Copy

Windows("Kitap1").Activate

Sheets("Sayfa2").Select
ActiveSheet.Paste
Windows("MATINDIVERI.xlsm").ActivateDosya ekle
Range("T5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("T13").Select
End Sub

 

[Ömer BARAN]

Merhaba.

Verdiğiniz kod ile yapılması gereken işlemi bir de sözel olarak açıklar mısınız?

Benim anladığım, verdiğiniz kod MATINDIVERI isimli belgede kayıtlı ve;
-- bu belgede VERI isimli bir sayfadaki var
-- bu sayfadaki iki alan (VERI sayfası A2:BQ403 ve A3:S403 alanları kopyalanacak alanlar,
-- Makro çalıştırıldığında, yeni bir excel belgesi oluşturulacak,
-- yeni excel belgesinde en azından 2 adet sayfa olması gerekiyor ve
bunlardan birinin adı günün tarihinin belirttiğiniz şekilde biçimlenmiş hali olacak,
diğerinin adı ise Sayfa2
-- MATINDIVERI isimli belgenin VERI sayfası A2:BQ403 alanı kopyalanıp, yeni belgenin, tarih olarak isimlendirilmiş sayfasına A1'den itibaren yapıştırılacak,
-- MATINDIVERI isimli belgenin VERI sayfası A3:S403 alanı kopyalanıp, yeni belgenin, Sayfa2 isimli sayfasına A1'den itibaren yapıştırılacak
doğru mu anlıyorum?

Peki bu yeni belge nereye ve hangi isimle kaydedilecek?

Yukarıdaki hususları okuyup, işlemi sözel olarak açıklayın ve sorduğum hususlara net cevaplar yazınız.
.

 

[kemalist]

Merhaba. Verdiğiniz kod ile yapılması gereken işlemi bir de sözel olarak açıklar mısınız? Benim anladığım, verdiğiniz kod MATINDIVERI isimli belgede kayıtlı ve; -- bu belgede VERI isimli bir sayfadaki var -- bu sayfadaki iki alan (VERI sayfası A2:BQ403 ve A3:S403 alanları kopyalanacak alanlar, -- Makro çalıştırıldığında, yeni bir excel belgesi oluşturulacak, -- yeni excel belgesinde en azından 2 adet sayfa olması gerekiyor ve bunlardan birinin adı günün tarihinin belirttiğiniz şekilde biçimlenmiş hali olacak, diğerinin adı ise Sayfa2 -- MATINDIVERI isimli belgenin VERI sayfası A2:BQ403 alanı kopyalanıp, yeni belgenin, tarih olarak isimlendirilmiş sayfasına A1'den itibaren yapıştırılacak, -- MATINDIVERI isimli belgenin VERI sayfası A3:S403 alanı kopyalanıp, yeni belgenin, Sayfa2 isimli sayfasına A1'den itibaren yapıştırılacak doğru mu anlıyorum? Peki bu yeni belge nereye ve hangi isimle kaydedilecek? Yukarıdaki hususları okuyup, işlemi sözel olarak açıklayın ve sorduğum hususlara net cevaplar yazınız. .

 

[kemalist]

Ömer Bey yeni bir excel çalışma kitabıı açılacak bu dosyada sayfa 1 ve sayfa 2 isminde iki çalışma sayfası olacak (zaten yeni çalışma kitabı böyle geliyor).Yeni gelen çalışma kitabının ismi ogünkü tarih olacak şekilde 20181008 gibi.VERİ sayfası A2:BQ403 aralığı yeni çalışma kitabı Sayfa 2 ye; INDI sayfası A3:S403 aralığı yeni çalışma kitabı Sayfa 1 kopyalanacak.Kodu tekrar düzenledim:

Sub Makro1()
Windows("MATINDIVERI.xlsm").Activate
Sheets("INDI").Select
Range("A2:BQ403").Select
Selection.Copy
Workbooks.Add
Sheets("Sayfa1").Select
ActiveSheet.Paste
Windows("MATINDIVERI.xlsm").Activate
Sheets("VERI").Select
Range("A3:S403").Select
Application.CutCopyMode = False
Selection.Copy

Windows("Kitap1").Activate

Sheets("Sayfa2").Select
ActiveSheet.Paste
Windows("MATINDIVERI.xlsm").ActivateDosya ekle
Range("T5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("T13").Select
End Sub

 

[kemalist]

Dosya ektedir

 

[Ömer BARAN]

Tekrar merhaba.
Eklediğiniz son belgeye bakmadım.
İstenilen işlem aşağıdaki kod ile sorunsuz gerçekleşir ve günün tarihinin isim olarak verildiği belge (xls), aynı klasöre kaydedilir.

Sayfa1 ve Sayfa2 zaten var demişsiniz ancak örneğin ben boş belge açtığımda durum böyle değil.

NOTLAR:
► Sizde zaten boş belgede Sayfa1 ve Sayfa2 varsa ve bu makronun içinde olduğu belge sadece sizin bilgisayarınızda kullanılacaksa,
önce kırmızı kısımları silerek bir deneyin bakalım.
► Ayrıca T5'i neden sildiğinizi ve neden T13'ün işlem bittiğinde seçili kalacağını anlamadım ama, yine de koda bunu da ekledim.
Bu kısım da gereksiz ise kod'da mavi renklendirdiğim kısmı da silebilirsiniz.

Sub BARAN()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Set bukitap = ActiveWorkbook
gun = Day(Date)
If gun < 10 Then gun = "0" & Day(Date)
isim = Year(Date) & Month(Date) & gun & "A"
yol = bukitap.Path
Application.DisplayAlerts = False
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=yol & "\" & isim, FileFormat:=-4143
Set yenikitap = ActiveWorkbook

say1 = 0
For Each brn In ActiveWorkbook.Sheets
    If brn.Name = "Sayfa1" Then
        say1 = 1: Exit For
    End If
Next
If say1 = 0 Then Sheets.Add: ActiveSheet.Name = "Sayfa1"
bukitap.Sheets("INDI").Range("A3:S403").Copy yenikitap.Sheets("Sayfa1").[A1]


say2 = 0
For Each brn In ActiveWorkbook.Sheets
    If brn.Name = "Sayfa2" Then
        say2 = 1: Exit For
    End If
Next
If say2 = 0 Then Sheets.Add: ActiveSheet.Name = "Sayfa2"
bukitap.Sheets("VERI").Range("A2:BQ403").Copy yenikitap.Sheets("Sayfa2").[A1]

yenikitap.Sheets("Sayfa1").DrawingObjects.Delete
yenikitap.Sheets("Sayfa2").DrawingObjects.Delete

yenikitap.Save: yenikitap.Close 0
ActiveSheet.[T5].ClearContents: ActiveSheet.[T13].Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı." & vbLf & _
            "Bu belgenin bulunduğu klasöre " & isim & " isimli belge kaydedildi.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[kemalist]

Sayın Ömer Bey
ilginize çok teşekkür edreim.
Bir sorum daha olacak tarihin sonuna "A"ilave edebilirmiyiz? Yani 20181008A olacak şekilde.
isim = Year(Date) & Month(Date) & gun & A
Böyle yaparak denedim fakat olmuyor.

 

[Ömer BARAN]

Kod'a ekledim.

 

[kemalist]

Teşekkür ederim Ömer Bey