Sayfa adı doldurma

[soneris]

sayfa adını tarih ile doldurma olabilirmi?

 

[Necdet]

sayfa adını tarih ile doldurma olabilirmi?

"Sayfa adına tarih değeri verilebilinir mi" diye soruyorsunuz?
Eğer böyle ise deneyerek bunu anlardınız.

 

[soneris]

"Sayfa adına tarih değeri verilebilinir mi" diye soruyorsunuz?
Eğer böyle ise deneyerek bunu anlardınız.

el ile değilde otomatik doldurma olarak sormuştum esasında.

 

[Korhan Ayhan]

Makro ile yapabilirsiniz.

Sub Sayfa_Adlarini_Tarihe_Cevir()
    Tarih = Application.InputBox("Lütfen ilk tarihi giriniz...", "Tarih Girişi", Format(Date, "dd.mm.yyyy"))
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Name = Tarih
        Tarih = Tarih + 1
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[soneris]

Makro ile yapabilirsiniz.

Sub Sayfa_Adlarini_Tarihe_Cevir()
    Tarih = Application.InputBox("Lütfen ilk tarihi giriniz...", "Tarih Girişi", Format(Date, "dd.mm.yyyy"))
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Name = Tarih
        Tarih = Tarih + 1
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

teşekkür ederim. yalnız yıl olarak dolduruyor. cumartesi pazar hariç gün gün doldurmasını sağlayabilirmisiniz.

 

[tahsinanarat]

Ekli desyayı deneyiniz

A1 hücresine başlangıç tarihini yazıp aşağıya son tarihe kadar çekerek doldurup, cumartesi ve pazarları silin geriye açmak istediğiniz tarihler kalsın, sonra butona basın.

Sub test() '"® visual basic for applications"
'hata ile karşılaştığında görmezden gel
On Error Resume Next
'bir sayfa atlayıp diğer sayfaları dögüye alıyoruz
For sayfa = 2 To Sheets.Count
'döngüdeki sayfaları seçiyoruz
Sheets(sayfa).Select
'uyarı penceresi çıkmasını engelliyoruz
Application.DisplayAlerts = False
'seçili sayfaları siliyoruz
ActiveWindow.SelectedSheets.Delete
'uyarı penceresi eski özelliğine geliyor
Application.DisplayAlerts = True
'döngü sonu
Next
'sayfa1 i seçiyoruz
Sheets("Sayfa1").Select
'a sütununun son satırına kadar döngü kuruyoruz
For Each s In Range("A1:A" & [A65536].End(3).Row)
's_ekle değişkenine sayfa ekle kodu atıyoruz
Set s_ekle = Sheets.Add
'eklenen sayfaların isimlerine a sütunundaki değerleri atıyoruz
s_ekle.Name = s.Value
'sayfaları bir sonraki sayfalara taşıyoruz
s_ekle.Move After:=Sheets(Sheets.Count)
'döngü sonu
Next
'uyarı penceresi çıkmasını engelliyoruz
Application.DisplayAlerts = False
'eklenen son sayfayı kritere uymadığı için siliyoruz
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("Sayfa1").Select
End Sub

kodlar evvelce bu siteden temin edilmiştir.

 

[soneris]

teşekkürler.