İzin Bildirimi

[yabanci26]

Merhabalar.
İzin listesi çalışmam var.
1. Sayfada bulunan isimleri 2.sayfadaki çizelgeye yerleştiriyorum.
2 Sayfada izin çizelgesinde bulunan isimleri makro ile 3 ncü sayfaya atıp, 2. Sayfada tekrar isimler oluşturduğunda boş satırlar haricinde 3.sayfaya eklenerek yılda kullanılan izin günlerini hesaplanmasını istiyorum. Teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
Dim s2 As Worksheet, s3 As Worksheet
Dim s As Long, ss As Long
Set s2 = Sheets("2")
Set s3 = Sheets("3")
s = s2.Cells(Rows.Count, "I").End(3).Row
If s > 2 Then
    s2.Range("B3:H" & s).Copy
    ss = s3.Cells(Rows.Count, "B").End(3).Row + 1
    s3.Range("B" & ss).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    's2.Range("I3:I" & s).ClearContents
    MsgBox "Aktarıldı."
End If
End Sub

 

[yabanci26]

Teşekkürler ellerinize sağlık

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...