Fazla mesai yapan çalışanları sıralama isimli içerikte, ilgili ihtiyaçlara göre hazırlanan bir makro kodu bulunan dosya yer almakadır.
Çalışanları Fazla Mesaiye Göre Sıralama
Dosyada, üç sütunlu bir tabloya göre fazla mesai yapan çalışanları sıralayacak bir VBA makrosu bulunmaktadır:1. VBA Editörünü Açın: Alt + F11 tuşlarına basarak VBA editörünü açın.
2. Yeni Modül Ekleyin: Insert > Module yolunu izleyerek yeni bir modül ekleyin.
3. Aşağıdaki Kodu Yapıştırın:
VBA:
Sub FazlaMesaiSirala()
Dim ws As Worksheet
Dim lastRow As Long
Dim tblRange As Range
Dim sortRange As Range
Set ws = Sayfa1
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Set tblRange = ws.Range("A1:C" & lastRow)
Set sortRange = ws.Range("C2:C" & lastRow)
tblRange.Sort Key1:=sortRange, Order1:=xlDescending, Header:=xlYes
MsgBox "Fazla mesaiye göre sıralama tamamlandı.", vbInformation
End SubAçıklamalar
Çalışma Sayfasını Ayarla: Set ws = Sayfa1 satırında "Sayfa1" yerine tabloyu oluşturmak istediğiniz çalışma kendi sayfanızın adını yazın.Son Satırı Bul: lastRow değişkeni, A sütunundaki son dolu satırı bulur.
Tablo Aralığını Belirle: tblRange değişkeni, sıralanacak veri aralığını belirler.
Sıralama Aralığını Belirle: sortRange değişkeni, sıralama yapılacak "Fazla Mesai" sütununu belirler.
Sıralama İşlemi: tblRange.Sort ile, belirlenen tablo aralığını "Fazla Mesai" sütununa göre azalan şekilde sıralar.
Kullanım
Makroyu Çalıştırma: VBA editöründen F5 tuşuna basarak veya Excel'de makroyu çalıştırarak çalışanları fazla mesai saatlerine göre sıralayabilirsiniz.Bu kod, çalışanların fazla mesai saatlerine göre sıralanmasını sağlamaktadır. Örnek dosyayı indirerek, direk hazır haline ulaşabilirsiniz.
Yararlanmanız temennisiyle.
Excel VBA ile Detaylı Maaş Hesaplama
2024-01-09