saat kontrol

[metalik]

Merhaba,

Ekteki dosyada belirtilen saatlerde yapılan giriş/çıkış işlemi bilgisi mevcuttur. C sütunundaki saat bilgileri arasında 10 dk'nın üzerinde yapılan dışarı çıkışları bulmamız gerekiyor. 10 dk'nın altında olan giriş/çıkış işlemlerinde ,o satırın silinmesi gerekiyor.
Bu konuda yardımcı olabilirmisiniz ?

Teşekkürler,

 

[metalik]

Merhaba,

Bu konuda yardımcı olabilecek bir arkadaş var mı ?

Teşekkürler,

 

[Korhan Ayhan]

Merhaba,

Eklediğiniz dosyada giriş-çıkış bilgileri düzenli değil. Mesela 5-8 satırlar arasındaki bilgileri nasıl ayırt edeceğiz.

 

[metalik]

Korhan Bey merhaba,

işin o tarafını ben makro ile hallettim..ard arda gelen düzensiz G ve Ç leri sildim, farklı günleri ayırdım... ama takıldığım nokta 10 dk 'dan az olan çıkış işlemlerini silmek.. Bu konuda yardım etme imkanınız var mıdır ?

Elimdeki makronun çalışan hali aşağıdadır.. Teşekkürler,

Sub per()
Dim LRow As Long
Dim i As Long

LRow = Cells(Rows.Count, 9).End(xlUp).Row
For i = LRow To 3 Step -1
If Cells(i, 9) = "G" And Cells(i - 1, 9) = "G" Then
Rows(i).Delete
End If
Next

For i = LRow To 3 Step -1
If Cells(i, 9) = "Ç" And Cells(i - 1, 9) = "Ç" Then
Rows(i - 1).Delete
End If
Next

For i = LRow To 3 Step -1
If Cells(i, 7) <> Cells(i - 1, 7) Then
Rows(i).Delete
End If
Next

For i = 3 To LRow Step 1
If Cells(i, 7) <> Cells(i + 1, 7) Then
Rows(i).Delete
End If
Next

For i = LRow To 3 Step -1
If Cells(i, 7) <> Cells(i - 1, 7) Then
Rows(i).Insert
End If
Next
End Sub

 

[metalik]

Korhan Bey , gönderdiğim deneme.xlsx dosyası makronun çalıştığı dosyadan farklılıklar gösteriyor..Sütun sayısı/yerleri aynı değil..İhtiyacınız olursa ben orjinal halini yollarım.

Teşekkürler,

 

[Necdet]

Merhaba,

Fonksiyonlarla çözüm ürettim, doğru çalışıp çalışmadığını belirtirseniz silecek makro da yapılabilir.

E3

=EĞER(A3<>A2;"";EĞER(B3<>B2;"";EĞER(VE(D3="G";D2="Ç");EĞER(DAKİKA(C3-C2)>9;DAKİKA(C3-C2);"");"")))

 

[Necdet]

ohoo geç kalmışım

 

[metalik]

ohoo geç kalmışım

Necdet Bey ilginiz için teşekkürler..gönderdiğiniz fonksiyonu inceliyorum.. Bunu bahsettiğim süre silme işlemi için kullanabilirmiyim ?

Pardon, silmenin ayrıca olabileceğini belirtmişsiniz zaten. Dediğiniz gibi gayet iyi çalışıyor.
Teşekkürler,

 

[Necdet]

Merhaba,

Silmekten sözediyorsunuz ama hangi kayıtlar silinecek? örneğin birbiri ile ilişkili 2 satırdan ilki de silinecek mi?

 

[metalik]

Merhaba,

Silmekten sözediyorsunuz ama hangi kayıtlar silinecek? örneğin birbiri ile ilişkili 2 satırdan ilki de silinecek mi?

Necdet Bey merhaba,
Sizin gönderdiğiniz dosyada bulduğunuz ilk cevap (21) 11.satırda iken 3-9 arası tüm satırlar silinmesi gerek. Sadece 10-11 kalmalı..

Diğer ayıklamalarda aynı mantıkla ilerlemeli..


Teşekkürler,

 

[metalik]

Merhaba,

Fonksiyonlarla çözüm ürettim, doğru çalışıp çalışmadığını belirtirseniz silecek makro da yapılabilir.

E3

=EĞER(A3<>A2;"";EĞER(B3<>B2;"";EĞER(VE(D3="G";D2="Ç");EĞER(DAKİKA(C3-C2)>9;DAKİKA(C3-C2);"");"")))

Necdet Bey merhaba,

Bu fonksiyonu VBA koda çevirme imkanınız var mı ?

Teşekkürler,

 

[Necdet]

Necdet Bey merhaba,

Bu fonksiyonu VBA koda çevirme imkanınız var mı ?

Teşekkürler,

Merhaba,

Aşağıdaki kodları deneyiniz. Hem saat farkını bulur hemde diğer satırları siler.

Not : C sütunundaki veriler saat görünümlü olmalarına rağmen hata verdi. Başka bir hücreye 1 yazıp bu hücreyi kopyaladım ve Tüm C sütununa özel yapıştır - Çarp dedikten sonra düzeldi.

Sub Duzenle()
    
    Dim i           As Long, _
        sAdSoyad    As String, _
        dTarih      As Date, _
        iDakika     As Integer
    
    Application.ScreenUpdating = False
    
    i = 4
    
    Do While Cells(i, "A") > ""
         If Not Cells(i, "A") = sAdSoyad Then
            sAdSoyad = Cells(i, "A")
        ElseIf Not Cells(i, "B") = dTarih Then
            dTarih = Cells(i, "B")
        ElseIf Cells(i, "D") = "G" And Cells(i - 1, "D") = "Ç" Then
            iDakika = Minute(Cells(i, "C") - Cells(i - 1, "C"))
            If iDakika > 9 Then
                Cells(i, "E") = iDakika
                Cells(i - 1, "E") = "Necdet"
            End If
        End If
         i = i + 1
    Loop
    Range("E3:E" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("E:E").Replace What:="Necdet", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    Application.ScreenUpdating = True
    
    MsgBox "DÜZENLEME BİTMİŞTİR...", vbInformation, "N. YEŞERTENER"
    
End Sub

 

[hayrettinoner]

Koşullu biçimlendirmede tüm satırı renklendirme

Sayın Üstadlar,

Ekteki tabloda yapmak istediğim E sütunundaki koşullu biçimlendirmenin(Vadesinde öder) ayarladığım rengin tün satırda olmasını istiyorum.
Bana yardımcı olursanız sevinirim.
Saygılarımla,

 

[Necdet]

Sayın Üstadlar,

Ekteki tabloda yapmak istediğim E sütunundaki koşullu biçimlendirmenin(Vadesinde öder) ayarladığım rengin tün satırda olmasını istiyorum.
Bana yardımcı olursanız sevinirim.
Saygılarımla,

Lütfen ilgisi olmayan yerde konu açmayınız. Sizin sorunuzla buradaki sorun aynı mı?

 

[metalik]

Necdet Bey yardımınız için teşekkürler, kodu inceleyip bilgi vereceğim.