Puantaj

[overse_37]

Arkadaşlar Merhaba Excelin acemisi olduğum için ekte göndermiş olduğum ve içinde açıklaması yazılı puantaj cetvelindeki sorunumun çok acil olarak çözülmesini arz ediyorum. Herkese başarılar sağlıklar

 

[kelkitli]

Selamlar,
Kendinize göre uyarlayıp kullanabilirsiniz.

 

[hamitcan]

Olması gereken halini belirtirseniz daha çabuk cevap bulabilirsiniz.

 

[overse_37]

Arkadaşlar tekrar ekte gönderiyorum. Örnek Olarak 15.10.2007-14.11.2007 dönemini girdiğimde aşağıda gün yerlerine o tarihler arasındaki günlerin gelmesini istiyorum.

 

[Ercan_ÇELİKOĞLU]

bu da benden

Arkadaşlar Merhaba Excelin acemisi olduğum için ekte göndermiş olduğum ve içinde açıklaması yazılı puantaj cetvelindeki sorunumun çok acil olarak çözülmesini arz ediyorum. Herkese başarılar sağlıklar

mesajı görür görmez uğraştım ama yine benden önce davranmışlar

 

[overse_37]

pUANTAJ

arkadaşlar ayrıntlı açıklamayı ekte sundum bu na göre yapılacak

 

[vedatelci]

makrolarla çözüm de benden

Makrolar ile çözüm önerisi ektedir iyi çalışmalar

 

[vedatelci]

'DÜZELTME:
'Hücrelerde boş bir satır açınca hesaplamanın yapılacağı alanlarda kayma oluştu Kodu aşağıdaki gibi düzenleyin... veya olduğu gibi kopyalayıp yapıştırın Kolay gelsin
Dim Gunsayisi As Integer
Dim Gun As Date
ilktarih = [C1]
sontarih = [C2]
Gunsayisi = DateDiff("d", ilktarih, sontarih)
Cells(3, 3).Value = Format(Cells(1, 3).Value, "DD")
[C4] = Gunsayisi
Gun = Cells(3, 3)

Dim i As Integer
For i = 1 To Gunsayisi
Cells(8, i + 3).Value = Format(Gun + i, "DDDD")
Next i

 

[AS3434]

Sayın overse 37

Lütfen aynı soru için devamlı yeni başlık açmayın.

 

[overse_37]

arkadaşımben yapamam onu
sen yapıverirsen sevinirim

 

[Ercan_ÇELİKOĞLU]

Sayın elçi

'DÜZELTME:
'Hücrelerde boş bir satır açınca hesaplamanın yapılacağı alanlarda kayma oluştu Kodu aşağıdaki gibi düzenleyin... veya olduğu gibi kopyalayıp yapıştırın Kolay gelsin
Dim Gunsayisi As Integer
Dim Gun As Date
ilktarih = [C1]
sontarih = [C2]
Gunsayisi = DateDiff("d", ilktarih, sontarih)
Cells(3, 3).Value = Format(Cells(1, 3).Value, "DD")
[C4] = Gunsayisi
Gun = Cells(3, 3)

Dim i As Integer
For i = 1 To Gunsayisi
Cells(8, i + 3).Value = Format(Gun + i, "DDDD")
Next i

dosyanızı inceledim mesela başlangıç 1 ekim bitiş 31 ekim olduğu zaman gün sayısı 31 olması gerekirken 30 veriyor formülünüz hatalı

 

[vedatelci]

Dim Gunsayisi As Integer
Dim Gun As Date
ilktarih = [C1]
sontarih = [C2]
Gunsayisi = DateDiff("d", ilktarih, sontarih) + 1
Cells(3, 3).Value = Format(Cells(1, 3).Value, "DD")
Range("D8:Ah8").ClearContents
[C4] = Gunsayisi
Gun = Cells(3, 3)

Dim i As Integer
For i = 1 To Gunsayisi
Cells(8, i + 3).Value = Format(Gun + i, "DDDD")
Next i

 

[vedatelci]

Sayın Harbiyigit A1 ve B1 hücrelerine iki farklı tarih yazın C1 hücresine ise bu tarihler arasındaki farkı formülle yazın 01/10/2007-31/10/2007 tarihleri arasındaki farkı Excel size 30 olarak verecektir. Bu konuda gerekli düzeltmeyi üst satırda verdim.

 

[vedatelci]

Gün Sayısı 31 günden büyük ise yukarısını almayacak Kod ise;
Dim Gunsayisi As Integer
Dim Gun As Date
ilktarih = [C1]
sontarih = [C2]
Gunsayisi = DateDiff("d", ilktarih, sontarih) + 1
Cells(3, 3).Value = Format(Cells(1, 3).Value, "DD")
Range("D8:Ah8").ClearContents
[C4] = Gunsayisi
Gun = Cells(3, 3)

Dim i As Integer
For i = 1 To Gunsayisi
If i <= 31 Then
Cells(8, i + 3).Value = Format(Gun + i, "DDDD")
Else
Exit Sub
End If
Next i

 

[Ercan_ÇELİKOĞLU]

bu kodlarda hatalı

Dim Gunsayisi As Integer
Dim Gun As Date
ilktarih = [C1]
sontarih = [C2]
Gunsayisi = DateDiff("d", ilktarih, sontarih) + 1
Cells(3, 3).Value = Format(Cells(1, 3).Value, "DD")
Range("D8:Ah8").ClearContents
[C4] = Gunsayisi
Gun = Cells(3, 3)

Dim i As Integer
For i = 1 To Gunsayisi
Cells(8, i + 3).Value = Format(Gun + i, "DDDD")
Next i

gün sıralaması yapmıyor bu kodlarda tarih aralığı girdiğimde gün sıralaması yapmıyor

 

[vedatelci]

Sn harbiyigit, ben tekrar denedim bir sorun g&#246;remedim Acaba siz makrolar&#305; &#252;&#351;&#252;k seviye olarak belirlediniz mi?

 

[overse_37]

Arkadaşlar kimse beni anlamadı daha açıklamalı koydum son kez bakın

 

[kelkitli]

Say&#305;n overse_37 puantaj&#305;n hayali olan k&#305;sm&#305;n&#305; nereye i&#351;leyeceksiniz, merak ettim.

 

[Necdet]

Merhaba,

Fonksiyonlarla çözüm, dosyayı inceleyiniz.

 

[Ercan_ÇELİKOĞLU]

sayın necdet ustam

Merhaba,

Fonksiyonlarla çözüm, dosyayı inceleyiniz.

yine karışmadan duramıyorum affınıza sığınarak olayı arkadaşın istediği duruma getirdim sanırım.