tarih ismini verip kaydetme

[mutluedenercan]

efendim, yardım alıp düzenlediğim ekdeki dosyada şunları yapamadım:

1 - kaydet düğmesi - o günün tarihini sayfa adı olarak yeni bir sayfaya kaydedecek. (böylece geçmiş bir güne ait bilgilere bakabiliriz) sayfa adları mesela 12.11.12 bugünün tarihi böle veya siz nasıl uygun derseniz.

2 - yazdır düğmesi - yazı olan tarih dahil o alanı bir sayfaya sığdırıp yazdıracak

3 - sil düğmesi - mevcut ve sınıf stunları hariç diğer hücrelerin içini boşaltacakki
yeni veri girişine hazırlansın.

4 - veri girilmemiş boş hücre rengi değişik olsun...

mümkünmüdür

TEŞEKKÜr

 

[mutluedenercan]

değerli hocalarım yardım ....

sayfa adları o günün tarihi olacağı için dik olarak gösterebilirmi (sayfa ismi dikey yazılınca , daha çok sayfa ismi görünür sayfaları daha kolay buluruz

ilginizi bekliyorum

ÇOK SAĞOLUN

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[mutluedenercan]

çok teşekkür ederim....

sayfa numaralarını dikey yazdıramıyoruz herdelde...(ekrada daha çok sayfa görünsün diye)


Birde hücre boş iken renk değiştirmesini nasıl yaptınız , hücre biçimine baktım bulamadım, kodda da yok...

zaman ayırdiğiniz için sağolun

Birde , ben buton renklerini değiştirmeyi yapabiliyordum , şimdi yapamadım useformda deyilde sayfada oluğundanmı değişteremiyom, bilgi verirmisinz

 

[dEdE]

...sayfa numaralarını dikey yazdıramıyoruz herdelde...(ekrada daha çok sayfa görünsün diye)

Bu konuyu bilmiyorum. Yapılabilirse iyi olur.

...hücre boş iken renk değiştirmesini nasıl yaptınız , hücre biçimine baktım bulamadım, kodda da yok...)

Koşullu biçimlendirme ile yaptım. Koşullu biçimlendirmede kullandığım formülü inceler misiniz?

...buton renklerini değiştirmeyi yapabiliyordum , şimdi yapamadım useformda deyilde sayfada oluğundanmı değişteremiyom, bilgi verirmisinz

Butonları(Düğme) Formlar araç çubuğundan aldım. (Alışkanlıktan) Denetim Araç Kutusundan CommandButton alırsanız istediğiniz renk değişikliklerini yapabilirsiniz. Tabii ki kodları da bu butonlar altına taşımanız gerekir.
Hoşçakalın.

 

[mutluedenercan]

Efendin ,şöye bir ilave yapamadım...

m2 bugünün tarihini viriyor....istiyorum ki kayıt yapılan tarihi versin ( kaydet deyince, sayfa adına tarih atıyorda, m2 deki formül bugünü göster diyor o yüzden önceki gün yapılan kaydı açtığımızda, sayfa numarası o günün tarihi doğru ama m2 bugünün formülünü veriyor)

berde m2 deki bugünü veren formülü sildim...kaydet butonuna m2 = date kodunu ekledim olmadı..
nasıl bir kod ekliyeyim..

birde yazdır butonuna basınca hücrelerin dolgu rengini normale çevirerek yazdırsın

olabilirmi

 

[dEdE]

Merhaba,
Kodlarınızı aşağıdaki ile değiştirerek dener misiniz?

Sub Kaydet()
For i = 1 To Sheets.Count
    If Sheets(i).Name = CStr(Date) Then
        MsgBox "Bu gün için sayfa oluşturuldu.", vbCritical, "D İ K K A T !"
        Exit Sub
    End If
Next

With Range("M2")
    .NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
    .Formula = "=TODAY()"
    .Value = .Value
End With

    Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Date
End Sub

Sub Yazdır()
    Cells.Interior.ColorIndex = xlNone
    Cells.FormatConditions.Delete
    ActiveSheet.PageSetup.Zoom = 80
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[mutluedenercan]

Ne kadan üeşekkür etsem azdır.....

yüzdelerde belli bir yüzdeyi geçince (mesela yüzde 8) o hücrenin arka planı yanıp sönebilirmi

bunu bir hücre için yapan örneği var bende fazla yormuyor ama buraya uyarlıyamadım...

yardımcı olmanız mümkünmü