Çoklu formülleri iç içe yazmak

[Reason01]

Kolay gelsin herkese. vardiya listelerinin hesaplandığı bir tablom var. bu tabloda "Şua" kriteri girildiğinde geçerli tablomun hesaplaması karışıyor. örnek veriyorum 30 günlük ayda çalışma günlerini sadece hafta içi gün sayısı * 7 ile mesai saatini hesaplayacak bir formülüm var. fakat tabloda "Şua" adında giriş olduğunda hesaplamamasını istiyorum.

Formülüm bu =AI15-($AN$15*7-(EĞERSAY(D15:AH15;"S")*7)

D15:AH15 aralığına "Şua" adında bir giriş yaptığımda bu formülün sonuç vermeyip, "MANUEL HESAPLAMA" yapması şekilde bir uyarı formülü nasıl yapılabilir ?
şimdiden teşekkürler.

 

[Mahir64]

Merhaba,
Tam anlamadım ama deneyiniz.

=+EĞER(EĞERSAY(D15:AH15;"Şua")>0;"Manuel";AI15-($AN$15*7-(EĞERSAY(D15:AH15;"S")*7)))

 

[Reason01]

Merhaba,
Tam anlamadım ama deneyiniz.

=+EĞER(EĞERSAY(D15:AH15;"Şua")>0;"Manuel";AI15-($AN$15*7-(EĞERSAY(D15:AH15;"S")*7)))

Teşekkür ederim çalıştı evet. Bu arada çalışma günlerini =Renkli_Hucreleri_Say(D14:AH14;C14) bu hücre ile saydırıyorum. örnek veriyorum cuma resmi tatil oldu. onun rengini değiştirdiğimde az önce verdiğim formül hücresine 2 kere tıklayıp girmem gerekiyor yoksa macro otomatik almıyor sayıyı. bu konuda desteğiniz olabilir mi ?

 

[Reason01]

Yok karışıklık oldu hocam böyle
ben tam bilgileri vereyim en iyisi.

bu aydan örnek veriyorum.
hafta içleri çalışma günleri yani 22 gün * 7 saat çalışması lazım mesaisiz bir kişi
tabloda a-b-c-d vardiyası 7, e vardiyası 10, f vardiyası 11 saat çalışma saati.
senelik izin alanlar tabloda S ile gösteriliyor. bu kişi çalışma iş gününde izin aldıysa mesaisini etkilememesi lazım. (22 günden 10 gün izin alan kişi 12 gün çalışsa 0 mesai çıkmalı.)
cuma günü izin alanlar tabloda cuma + cumartesi izinli sayılıyor 2 gün yıllık düşmesi lazım ama çalışma gününden 1 gün düşecek (en yapamadığım nokta burası aslında)
birde 1 ay full izin rapor alan kişi mesaiden düşmemesi lazım
şua izni alan kişi de keza öyle meesaiden düşmemesi lazım.

Önceden kullandığım formül buydu;

=ÇARPIM(7;(EĞERSAY(D15:AH15;"A")))
+ ÇARPIM(7;(EĞERSAY(D15:AH15;"B")))
+ ÇARPIM(7;(EĞERSAY(D15:AH15;"C")))
+ ÇARPIM(7;(EĞERSAY(D15:AH15;"D")))
+ ÇARPIM(10;(EĞERSAY(D15:AH15;"E")))
+ ÇARPIM(11;(EĞERSAY(D15:AH15;"F")))
bu formülde çalışılan mesai sayısı çıkıyor. ama benim istediğim her ay çalışma gün sayısı farklı olduğu için çalışma gün sayısını otomatik hesaplatıp, bu yazdığım formülden cıkartıp aradaki mesaiyi bulmak. ama araya Senelik izin ve rapor girince tablo karışıyor.

 

[Korhan Ayhan]

Renkle ilgili sorunu aşağıdaki gibi çözebilirsiniz.

Dosyanızda ALT+F11 tuşlarına basarak VBA editörünü açın.
Sol tarafta BuÇalışmaKitabı bölümüne çift tıklayıp kod bölümünü açın ve aşağıdaki kodu uygulayın.

Renk değiştirdikten sonra başka bir hücreye geçmeniz yeterli olacaktır. Eğer dosyanızda çok fazla formül varsa renklendirme yaptığınız hücre alanı tanımlanarak kodun biraz daha performanslı çalışması sağlanabilir.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CalculateFull
End Sub

 

[Reason01]

Renkle ilgili sorunu aşağıdaki gibi çözebilirsiniz.

Dosyanızda ALT+F11 tuşlarına basarak VBA editörünü açın.
Sol tarafta BuÇalışmaKitabı bölümüne çift tıklayıp kod bölümünü açın ve aşağıdaki kodu uygulayın.

Renk değiştirdikten sonra başka bir hücreye geçmeniz yeterli olacaktır. Eğer dosyanızda çok fazla formül varsa renklendirme yaptığınız hücre alanı tanımlanarak kodun biraz daha performanslı çalışması sağlanabilir.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CalculateFull
End Sub

Bu çok iyi oldu teşekkürlr. diğr sorunları da halledebilirsem süper olur

 

[Reason01]

Renkli_Hucreleri_Say(D14:AH14;C14)

Renkli hücreleri bu şekilde saydirirken "renkli ama boş olan hücrelerin sayılmamasını" istiyorum. Bu konuda yardımcı olabilir misiniz

 

[Korhan Ayhan]

Kullandığınız makro koduna ekleme yapmak gerekir. Kodu paylaşırsanız gerekli düzenleme yapılabilir.

 

[Reason01]

Kullandığınız makro koduna ekleme yapmak gerekir. Kodu paylaşırsanız gerekli düzenleme yapılabilir.

Onu da ayarladım hocam site çok uğurlu mübarek her yazdığımı kendim yapabiliyorum. Şimdiki sorum şu. Beyaz ve siyah hücrelerim var. Siyah hücrelere yazdığım kelimeyi nasıl saydirabilirim ? Örnek veriyorum 10 tane hücre var. 5i beyaz 5i siyah. Siyah hücrelerin 3 tanesinde Excel yazıyor 2 tanesinde Ahmet yazıyor.. sadece Excel yazan sonucu formülle nasıl toplarım ? Sonuç 3 verecek yani

 

[Korhan Ayhan]

Ben yine kendi mesajımdan alıntı yapayım belki uğurlu gelir.

Kullandığınız makro koduna ekleme yapmak gerekir. Kodu paylaşırsanız gerekli düzenleme yapılabilir.

 

[Reason01]

Ben yine kendi mesajımdan alıntı yapayım belki uğurlu gelir.

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.
Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
'DİKKAT: Bu fonksiyon 2 parametrelidir ve önce bölgeyi seçin, sonra da hangi renkteki hücreleri sayması gerekiyorsa _
o renkte bir hücreyi işaretleyin. Örneğin A1:A100 arasındaki sarı renkteki hücreleri saymak istiyorsanız ve sarı renkli _
hücreniz ise C10 hücresi ise herhangi bir hücreye =Renkli_Hucreleri_Say(A1:A100;C10) yazın.
Dim datax As Range
Dim xcolor As Long
xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
For Each datax In bolge
If datax.Interior.ColorIndex = xcolor Then
Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
End If
Next datax
End Function


bu makro ile
=Renkli_Hucreleri_Say(D14:AH14;C14) bu kodla saydırıyorum hücreleri. ama bu renkteki dolu hücreleri saymak istiyorum

 

[Korhan Ayhan]

Şu bölümü revize etmelisiniz.

For Each datax In bolge
If datax.Interior.ColorIndex = xcolor And datax.Value <> "" Then
Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
End If
Next datax

 

[Reason01]

Şu bölümü revize etmelisiniz.

Çok teşekkürler ama şöyle bir sorum daha olucak. Erkekler mavi gösteriyor. Bunlardan 'evli' yada 'bekar' erkekleri nasıl ayırabiliriz ? Hem erkek olup hemde evli olanların ayarlamam lazım AGİ için.