Toplam süreyi hesaplatma

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
ARKADASLAR SAGDA TOPLAM SÜRE ÇALIŞMIYOR BİDE GÜNDE TOPLAM SÜRE BAZ ALARAK ÇALIŞMASI LAZIMKEN ÇALIŞMIYIR LÜTFEN YARDIM CI OLUN BANA DUZELTIN GONDERİN
 

Ekli dosyalar

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
6,124
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Dosyanız;
 

Ekli dosyalar

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
Rabbim razı olsun inşALLAH
toplam saat 24 saat gecince 0 sıfırdan saat tutsaydı
daha iyi olurdu zaten yanında 1 gün işareti çıkıyor
toplam saat 0 dan tekrar saat tutsa daha iyi olurdu
elleriniz dert görmesin bunuda yapaydın göndereydin sevinirim işte kullanılıyorda...
 

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
48:11 saat çıktı sure toplamda 11 saat günde 2 gün yazılsın ki günde çalışıyor saat kendini 24 gecince gene baştan saysa süper olurdu
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
9,471
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
S12'de aşağıdaki formülü:

=MOD(ETOPLA($B$12:$B$49;SOLDAN($P12;BUL(" ";$P12))&"*";$L$12:$L$49);1)

T12'de aşağıdaki formülü deneyiniz:

=GÜN(ETOPLA($B$12:$B$49;SOLDAN($P12;BUL(" ";$P12))&"*";$L$12:$L$49))
 

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
helal olsun işinizin ehlisiniz üçretli abone olduğumuz parada ananızı ak sütü gibi helal olsun ve helaldir. bravo
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
9,471
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
helal olsun işinizin ehlisiniz üçretli abone olduğumuz parada ananızı ak sütü gibi helal olsun ve helaldir. bravo
Bizler sitenin ortağı, sahibi ya da çalışanı değiliz. Altın üyelik ücretinin kullanıcılarla doğrudan bir ilgisi bulunmamaktadır. Sadece yardıma ihtiyaç duyanlara gönüllü olarak yardım etmeye çalışanlara ortam sağlıyor.
 

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
yusuf kardeş çıktı çıkarırken bazı alanlar çıkmaması için sadece isteğe baglı yerler çıksın diye nasıl bir işlem yapabilirm
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
9,471
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Güzel dilekçeriniz için teşekkür ederim. Bilmukabele.

İsteğiniz dosyaya göre değişir. Dosya görmeden, nasıl bir gizleme yapılacağı bilinmeden zor çözülür.
 
Son düzenleme:

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
Selamun aleyküm yusuf kardeşim Rabbim razı olsun geçen formulde yardımcı oldun. Kurban bunuda formul yaparmısnın rica etsem diğeri gibi ben uğraştım beceremedim ecxel bakarsan yazdım lütfen
 

çıtır

Altın Üye
Altın Üye
Katılım
6 Mart 2005
Mesajlar
6,124
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Dosyanız;
 

Ekli dosyalar

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
Tşkler çok güzel olmuş rica etsem şu özellikte ekleyebilirmisiniz
[TABLE]

etifosfat tm BU HÜCRENİN İÇİNDE NE YAZILI İSE İSİM
LER SOL TARAFDA AÇILAN KESİC ALTINDAKİ İSİMLERDE AYNI OLSUN ÖR : F:1 YAĞMUR SİLDİM YERİNE F:14 KOZLUK YAZDIM HEMEN AÇILAN KESİCİ ALTINDAKİ İSİMLERDE F:1 YAĞMUR SİLİNSİN F:14 KOZLUK YAZILSA


 
 
 
 
 
 
 
 
 
 
 
 
 
 [/TABLE]
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
9,471
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki kodları "13 ) İNKİTA " sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırarak deneyin.

M8:M14 arasında değişiklik yaptığınızda M6 hücresini yardımcı hücre olarak kullanarak D8: D47 aralığında da aynı değişiklikleri uygular:

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub
eski = [M6].Value
For Each hucre In [D8:D47]
    If hucre.Value = eski Then
        hucre.Value = Target
    End If
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub
[M6] = Target
End Sub
 

Heybetullah

Altın Üye
Katılım
14 Ocak 2020
Mesajlar
37
Excel Vers. ve Dili
Türkçe
Aşağıdaki kodları "13 ) İNKİTA " sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırarak deneyin.

M8:M14 arasında değişiklik yaptığınızda M6 hücresini yardımcı hücre olarak kullanarak D8: D47 aralığında da aynı değişiklikleri uygular:

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub
eski = [M6].Value
For Each hucre In [D8:D47]
    If hucre.Value = eski Then
        hucre.Value = Target
    End If
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [M8:M14]) Is Nothing Then Exit Sub
[M6] = Target
End Sub
ABE BECEREMEDİM
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
9,471
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Nesini beceremediniz anlamadım. Yapmanız gereken burdaki kodları kopyalayıp dosyanızın sayfa kodu bölümüne yapıştırmak.
 
Üst