Hesapla butonu

[sedat2161]

İyi çalışmalar. ekte gönderdiğim dosyamda puantaj sayfamda bulunan hesaplama butonu çok ağır çalışıyor. Bir kaç kere aktar kaydettikten sonra doğru bilgiler geliyor. yardımcı olursanız çok sevinirim.

 

[sedat2161]

İyi çalışmalar. Soruma çözüm bulamadım yardımcı olacak olan olursa çık sevinirim.

 

[Ömer BARAN]

Merhaba.

Anladığım kadarıyla;
-- kişi VEKİL ise sadece İZİN tarihlerine V yazdırmak, diğer günleri boş bırakmak,
-- kişi ASİL ise izin günlerine İ, diğer günlere X yazdırmak,
istiyorsunuz. Doğru mudur?
Yapılacak başka bir işlem veya özel durum (başka sayfalarda yapılacak kontrol gibi) var mıdır?

Bir hatırlatma: AL sütunundaki formülünüzün G sütununu kapsamadığının farkında mısınız?
Formülünüz hatalı mı yoksa bundan bir maksatınız mı var?

Örnek belgenizin çok büyük veri yığını içermesine lüzum yok.
Özel durumlar (farklı işleme tabi tutulma) varsa, bu özel durumların örneklendirilmesi ve
hangi durumda hangi işlemin yapılacağını açıklamanız yeterli olur.
.

 

[sedat2161]

Merhaba Ömer bey
1- Kişi vekil ise sadece izin tarihlerine v yazılacak
2-Kişi asil ise izin günlerine i yazılacak diğer günler x yazılacak aynen yazdığınız gibi doğrudur.
3-AL sütunundaki formulun G sütununu kapsamadığını sonradan farkına vardım.
4-Bilgi sayfasındaki Asil muhtarları silmek istediğimde a:j aralığındaki muhtar silinip çıkış alan boş sıradaki sayfaya gelmesi gerekiyor.
iyi çalışmalar.

 

[sedat2161]

Merhaba.

Anladığım kadarıyla;
-- kişi VEKİL ise sadece İZİN tarihlerine V yazdırmak, diğer günleri boş bırakmak,
-- kişi ASİL ise izin günlerine İ, diğer günlere X yazdırmak,
istiyorsunuz. Doğru mudur?
Yapılacak başka bir işlem veya özel durum (başka sayfalarda yapılacak kontrol gibi) var mıdır?

Bir hatırlatma: AL sütunundaki formülünüzün G sütununu kapsamadığının farkında mısınız?
Formülünüz hatalı mı yoksa bundan bir maksatınız mı var?

Örnek belgenizin çok büyük veri yığını içermesine lüzum yok.
Özel durumlar (farklı işleme tabi tutulma) varsa, bu özel durumların örneklendirilmesi ve
hangi durumda hangi işlemin yapılacağını açıklamanız yeterli olur.
.

Merhaba Ömer bey
1- Kişi vekil ise sadece izin tarihlerine v yazılacak
2-Kişi asil ise izin günlerine i yazılacak diğer günler x yazılacak aynen yazdığınız gibi doğrudur.
3-AL sütunundaki formulun G sütununu kapsamadığını sonradan farkına vardım.
4-Bilgi sayfasındaki Asil muhtarları silmek istediğimde a:j aralığındaki muhtar silinip çıkış alan boş sıradaki sayfaya gelmesi gerekiyor.
iyi çalışmalar.

 

[Ömer BARAN]

Son cevabınızdaki 4 numaralı maddeyi anlamadım.
Diğer isteklerinizin karşılığı olarak aşağıdaki şekilde hızlıca sonuç alabilirsiniz.
PUANTAJ sayfasında mevcut verilere göre, kullandığınız kod'u aşağıdakiyle değiştirin.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim son As Long: son = Sheets("PUANTAJ").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("PUANTAJ").Range("G16:AK" & son).ClearContents
If Application.WorksheetFunction.Count(Sheets("PUANTAJ").Range("Am16:Am" & son)) <> _
    Application.WorksheetFunction.Count(Sheets("PUANTAJ").Range("An16:An" & son)) Then
    MsgBox "İzin Tarihleri Başlangıç ve Bitiş tarihi olarak bulunmalıdır, BOŞ bırakılan tarih var!!!"
    Exit Sub
End If
With Sheets("PUANTAJ").Range("G16:AK" & son)
    .Formula = "=IF(AND($D16=""VEKİL"",OR($AM16>G$15,$AN16<G$15)),""""," & _
                "IF(AND($D16=""VEKİL"",OR($AM16<=G$15,$AN16>=G$15)),""V""," & _
                "IF(AND($D16=""VEKİL"",OR($AM16>G$15,$AN16<G$15)),""""," & _
                "IF(AND($D16=""ASİL"",$AM16<=G$15,$AN16>=G$15),""İ"",""X""))))"
    .Value = .Value
End With
Application.ScreenUpdating = True
End Sub

 

[turist]

İyi çalışmalar. ekte gönderdiğim dosyamda puantaj sayfamda bulunan hesaplama butonu çok ağır çalışıyor. Bir kaç kere aktar kaydettikten sonra doğru bilgiler geliyor. yardımcı olursanız çok sevinirim.

Dosyanız eklidir.

 

[sedat2161]

Son cevabınızdaki 4 numaralı maddeyi anlamadım.
Diğer isteklerinizin karşılığı olarak aşağıdaki şekilde hızlıca sonuç alabilirsiniz.
PUANTAJ sayfasında mevcut verilere göre, kullandığınız kod'u aşağıdakiyle değiştirin.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim son As Long: son = Sheets("PUANTAJ").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("PUANTAJ").Range("G16:AK" & son).ClearContents
If Application.WorksheetFunction.Count(Sheets("PUANTAJ").Range("Am16:Am" & son)) <> _
    Application.WorksheetFunction.Count(Sheets("PUANTAJ").Range("An16:An" & son)) Then
    MsgBox "İzin Tarihleri Başlangıç ve Bitiş tarihi olarak bulunmalıdır, BOŞ bırakılan tarih var!!!"
    Exit Sub
End If
With Sheets("PUANTAJ").Range("G16:AK" & son)
    .Formula = "=IF(AND($D16=""VEKİL"",OR($AM16>G$15,$AN16<G$15)),""""," & _
                "IF(AND($D16=""VEKİL"",OR($AM16<=G$15,$AN16>=G$15)),""V""," & _
                "IF(AND($D16=""VEKİL"",OR($AM16>G$15,$AN16<G$15)),""""," & _
                "IF(AND($D16=""ASİL"",$AM16<=G$15,$AN16>=G$15),""İ"",""X""))))"
    .Value = .Value
End With
Application.ScreenUpdating = True
End Sub

Abi teşekkür ederim ilginiz için.

 

[exexciho]

Turist bey teşekkürler.