Excel saat farkı

[Rkaya38]

Öncelikle Selamun aleykum excele yeni başladım bir sorunum var şimdi bir iş yerine saat 1.10 girdim 2.10 çıktım bu aradaki farkı işte =c2-c3 yazarak değilde ben 1.10 yazıp çıkış yerinde 2.10 yazınca otomatik olarak aradaki farkı göstermesini istiyorum tek tek formülle olarak değil oto olmasını istiyorum TEŞEKKÜRLER 1 saat sonra silinmelerini engellemek için kopyalanan metin parçalarını sabitleyin

 

[Necdet]

Merhaba,

saat 1.10 girdim 2.10 çıktım bu aradaki farkı işte =c2-c3 yazarak değilde ben 1.10 yazıp çıkış yerinde 2.10 yazınca otomatik olarak aradaki farkı göstermesini istiyorum

Bunu anladım da

1 saat sonra silinmelerini engellemek için kopyalanan metin parçalarını sabitleyin

bunu anlamadım.a

Aşağıdaki kod ilgili sayfanın kod bölümünde olmalı.
A sütununa giriş saati, B sütununa Çıkış saatinin girildiği ve sonucun C sütununa yazıldığı varsayılmıştır.
Kodları ya da sütunları kendinize göre uyarlayınız. Sonuç saatinin yazıldığı sütunun biçimini saat olarak ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
    
    Target.Offset(0, 1) = (Target.Value + (Target.Value < Target.Offset(0, -1)) - Target.Offset(0, -1))
    
End Sub

 

[leguminosea]

Sayın Necdet müsadesiyle,
Alternatif olsun.

Private Sub Worksheet_Change(ByVal Target As Range)
Set a = Range("A" & Target.Row)
Set b = Range("B" & Target.Row)
If Not Intersect(Target, Columns("A:B")) Is Nothing Then
    If a = "" Or b = "" Or b < a Then
        Range("C" & Target.Row) = ""
        Else
        Range("C" & Target.Row) = b - a
    End If
End If
Set a = Nothing: Set b = Nothing
End Sub

 

[Necdet]

Sayın Necdet müsadesiyle,
Alternatif olsun.

İzin ne demek, seçeneklerin olması güzel bir şey. Umarım arkadaşımız yararlanır.

 

[Rkaya38]

Merhaba,


Bunu anladım da bunu anlamadım.a

Aşağıdaki kod ilgili sayfanın kod bölümünde olmalı.
A sütununa giriş saati, B sütununa Çıkış saatinin girildiği ve sonucun C sütununa yazıldığı varsayılmıştır.
Kodları ya da sütunları kendinize göre uyarlayınız. Sonuç saatinin yazıldığı sütunun biçimini saat olarak ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
   
    Target.Offset(0, 1) = (Target.Value + (Target.Value < Target.Offset(0, -1)) - Target.Offset(0, -1))
   
End Sub

Bi spor salonu işletiyoruz ve max üyelerin 1 yada1.30 saat çalışmaları lazım tektek ben deftere yazıyorum oda zor oluyor yani böyle bi excel lazım oldu ama dedikleriniz pek anlamıyorum bu kodları nere yapıştıracğım nasıl yapacağımı hiç bilmiyorum bana biraz daha yardımcı olurmur sunuz teşekkürler

 

[cellatzade46]

Bi spor salonu işletiyoruz ve max üyelerin 1 yada1.30 saat çalışmaları lazım tektek ben deftere yazıyorum oda zor oluyor yani böyle bi excel lazım oldu ama dedikleriniz pek anlamıyorum bu kodları nere yapıştıracğım nasıl yapacağımı hiç bilmiyorum bana biraz daha yardımcı olurmur sunuz teşekkürler

Merhabalar. Bir tane örnek dosya paylaşırsanız ilgili kişiler daha somut yardımcı olabilirler.

 

[Rkaya38]

Merhabalar. Bir tane örnek dosya paylaşırsanız ilgili kişiler daha somut yardımcı olabilirler.

İnan hocam onu bile bilmiyorum örnek dosya yok yani bilmiyorum

 

[cellatzade46]

İnan hocam onu bile bilmiyorum örnek dosya yok yani bilmiyorum

Örnek dosyadan kastım. hani defter tutuyorsun ya. Excelde onu manuel olarak ifade edecek şekilde küçük bir şey hazırlamaktan bahsediyorum.

 

[Rkaya38]

Örnek dosyadan kastım. hani defter tutuyorsun ya. Excelde onu manuel olarak ifade edecek şekilde küçük bir şey hazırlamaktan bahsediyorum.

Tmm

 

[Rkaya38]

https://www.dosya.tc/server29/5j9984/Kitap1.xlsx.html
böyle bişi istiyorum hocam aşağı indirme falan değil otomatik olarak yazmasını istiyorum bunu nasıl yaparım tablo olarak düşünürsek 25 kişilik bir tablo a kişisi saat 13.45 girdi 14.45 çıktı bu farkı otomatik göstercek aynı şekil b kişisi 17.30 girdi 19.13 çıktı bunu aşağı çekerek değilde normal olarak giriş çıkış yerine yazar yazmaz enter e basınca göstermesini istiyorum

 

[Rkaya38]

Merhaba,


Bunu anladım da bunu anlamadım.a

Aşağıdaki kod ilgili sayfanın kod bölümünde olmalı.
A sütununa giriş saati, B sütununa Çıkış saatinin girildiği ve sonucun C sütununa yazıldığı varsayılmıştır.
Kodları ya da sütunları kendinize göre uyarlayınız. Sonuç saatinin yazıldığı sütunun biçimini saat olarak ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:B]) Is Nothing Or Target.Row < 2 Then Exit Sub
   
    Target.Offset(0, 1) = (Target.Value + (Target.Value < Target.Offset(0, -1)) - Target.Offset(0, -1))
   
End Sub

hocam kodu nereye yazcaz yapıştırcaz

 

[Seceren]

Sayın leguminosea' nın kodları ile uyarlamaya çalıştım.
Burada

 

[Rkaya38]

Sayın leguminosea' nın kodları ile uyarlamaya çalıştım.
Burada

sağol hocam çok teşekkür ederim

 

[Rkaya38]

Sayın leguminosea' nın kodları ile uyarlamaya çalıştım.
Burada

hocam bir sorun var makrolar devre dışı bırakıldı diyor seçeneklerden düzeltim fakat her açtığımda aynısı diyor bunu düzeltebilirmiyim

 

[Seceren]

Sağda üstte mavi soru işaretine tıkla, oradaki arama kutucuğuna MAKROLARI ETKİNLEŞTİRME diye yazıp çıkanları oku...
Bir şeyleri eksik veya yanlış yapıyorsun oralardan düzeltirsin... Birazcık ders çalışmış olursun...

 

[Rkaya38]

Sağda üstte mavi soru işaretine tıkla, oradaki arama kutucuğuna MAKROLARI ETKİNLEŞTİRME diye yazıp çıkanları oku...
Bir şeyleri eksik veya yanlış yapıyorsun oralardan düzeltirsin... Birazcık ders çalışmış olursun...

YAPTIM HOCAM TEŞEKKÜRLER

 

[Rkaya38]

Sağda üstte mavi soru işaretine tıkla, oradaki arama kutucuğuna MAKROLARI ETKİNLEŞTİRME diye yazıp çıkanları oku...
Bir şeyleri eksik veya yanlış yapıyorsun oralardan düzeltirsin... Birazcık ders çalışmış olursun...

hocam dosyayı flaşa attım tablo oluşturdum kaydete basıyorum değişiklikleriniz paylaşım ihlali nedeniyle kaydedilmiyor diyor nasıl düzeltirim

 

[Seceren]

Bilemiyorum, her ne işlem yapacaksan pc de yap. Taşıman gerekiyorsa da mail adresi veya başka bir şeyler ile taşı...