Tarihe bilgileri kaydetme

[Husgvarna]

Dosyayı yeniledim.
Kod:
If t = 1 Then Set cc = t & " Grafik"
bölümü
Kod:
If t = 1 Then cc = t & " Grafik"
şeklide olacaktı.

 

[mehmetfatih]

If t = 1 Then Set cc = t & " Grafik" BUDA HATA VERİYOR

 

[Husgvarna]

If t = 1 Then Set cc = t & " Grafik" BUDA HATA VERİYOR

4.sayfadaki; değiştirdiğim link adresinde bulunan dosyada

 If t = 1 Then [COLOR="Red"]Set[/COLOR] cc = t & " Grafik"

"Set" kaldırılmıştı.

http://s2.dosya.tc/server6/hjSrOY/KopyaXl0000018.zip.html

 

[mehmetfatih]

grafik.Chart.Export "c:\NN.jpg" BUSEFERDE BUNA HATA VERİYOR SENİN DOSYADA..

 

[mehmetfatih]

Grafiği bireysel sayfasına yapıştırıyor..

 

[Husgvarna]

Aşağıdaki dosya da kodlar değişti onu deneyelim.

 

[mehmetfatih]

Hocam tek kelimeyle mükemmel oldu eline sağlık teşekkür ederim...

 

[Husgvarna]

Hocam tek kelimeyle mükemmel oldu eline sağlık teşekkür ederim...

Rica ederim kolay gelsin.
Yalnız burada dikkat etmeniz gereken şey; sayfaya ilk eklediğiniz "Grafik" Ocak
ayına, ondan sonra eklediğiniz Şubat ayına, daha sonraki Mart ayına ait şeklinde sıralı devam etmeli.

 

[mehmetfatih]

Rica ederim kolay gelsin.
Yalnız burada dikkat etmeniz gereken şey; sayfaya ilk eklediğiniz "Grafik" Ocak
ayına, ondan sonra eklediğiniz Şubat ayına, daha sonraki Mart ayına ait şeklinde sıralı devam etmeli.

teşekkür hocam süper oldu.
hocam bu yapmış olduğumuz kodların tamamını excel 2003 de nasıl kullanırız..

 

[Husgvarna]

teşekkür hocam süper oldu.
hocam bu yapmış olduğumuz kodların tamamını excel 2003 de nasıl kullanırız..

Kodlarda herhangi bir düzenleme yapmaya gerek yok. Dosyanızı farklı kaydetten formatını ".xls" olarak işaretleyip kaydettikten sonra kullanabilirsiniz

 

[mehmetfatih]

"Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub" merhaba hocam dediğin gibi yaptım yanlız daha ilk açarken bu hatayı veriyor yada şöyle diyeyim bunu siliyorum clendar1 için hata veriyor..

 

[desk]

Çok başarılı bir çalışma olmuş teşekkürler.

 

[Husgvarna]

"Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub" merhaba hocam dediğin gibi yaptım yanlız daha ilk açarken bu hatayı veriyor yada şöyle diyeyim bunu siliyorum clendar1 için hata veriyor..

Windows\System32 içerisinde "MSCAL.ocx" eksik veya değişik verisyonu vardır.
(Varsa değiştirmeyin çünkü bu seferde hazırladığınız program sizin kullandığınız
office sürümünde hata verecektir.)
Yoksa Windows\System32 klasörü içine aşağıdaki dosyayı zipten çıkarıp kopyalayın. Başlat/Çalıştır (Run)'a regsvr32 mscal.ocx
yazıp "tamam" ı tıklayın.