Sütunda DÜŞEYARA ve Aynı Olanları Toplama isimli içerikte, bir tabloda bulunan değerlere ait değerlerin nasıl bulunacağını öğreten örnek yer almaktadır.
Excel'de Benzersiz Çalışan İsimleri ve Toplam Çalışma Süresi Hesaplama
Excel'de bazen benzersiz çalışan isimlerini ve onların toplam çalışma sürelerini hesaplamamız gerekebilir. Bu makalede, bu işlemi nasıl yapabileceğinizi anlatan bir VBA makrosunu paylaşacağız.VBA Makrosu: Benzersiz Çalışan İsimleri ve Toplam Çalışma Süresi
Aşağıda, Excel'deki benzersiz çalışan isimlerini kopyalayıp yapıştıran ve her bir çalışanın toplam çalışma süresini hesaplayan VBA kodunu bulabilirsiniz. Bu kodu Excel'de kullanarak işlemlerinizi otomatikleştirebilirsiniz.
VBA:
Sub OTOMATIK_DOLDUR()
Dim sonSatir As Long
sonSatir = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2:B" & sonSatir).Copy
Range("L2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("L1:L" & sonSatir).RemoveDuplicates Columns:=1, Header:=xlNo
Dim isim As Range
For Each isim In Range("L2:L" & sonSatir)
If isim.Value <> "" Then
Dim toplamSure As Double
toplamSure = WorksheetFunction.SumIf(Range("B2:B" & sonSatir), isim.Value, Range("E2:E" & sonSatir))
isim.Offset(, 2).Value = Format(Int(toplamSure) & ":" & Format((toplamSure - Int(toplamSure)) * 60, "00"), "hh:mm")
End If
Next isim
Range("L1").Value = "ADI SOYADI"
Range("N1").Value = "TOPLAM ÇALIŞMA SÜRESİ"
Range("L:N").Columns.AutoFit
End SubMakro Kullanımı
1. Excel'de VBA penceresini açmak için Alt + F11 tuşlarına basın.2. Insert menüsünden Module seçeneğine tıklayın.
3. Açılan modül penceresine yukarıdaki kodu yapıştırın.
4. VBA penceresini kapatın ve Excel'e geri dönün.
5. Makroyu çalıştırmak için Alt + F8 tuşlarına basarak OTOMATIK_DOLDUR makrosunu seçin ve Run butonuna tıklayın.
Sonuç
Bu makro, benzersiz çalışan isimlerini ve her bir çalışanın toplam çalışma süresini hızlı ve etkili bir şekilde hesaplamanızı sağlar. Makro çalıştırıldığında, Excel'de otomatik olarak gerekli hesaplamalar yapılır ve sonuçlar belirtilen hücrelere yapıştırılır. Bu yöntem, manuel işlem yapmadan işlemlerinizi otomatikleştirerek zamandan tasarruf etmenizi sağlar.Dosyada, bir puantaj tablosundaki çalışma süreleri içinden seçilmiş bazı çalışanların isimlerinin olduğu tabloya göre arama yapılmaktadır. Eğer isimler bulunması istenen isimler içerisinde yer alıyorsa, bu isimlerin toplam çalışma süreleri makro ile bulunmaktadır.
Faydalanılması temennisiyle.
