Personel İzin Listesi İçin

[JacCKaLL]

Selam arkadaşlar personel izin listesi için yardıma ihtiyacım var.Açıklama ekli dosyada mevcut.Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Kodları module kopyalarak üretim sayfasında butona bağlayınız. Yalnız ücretli yada ücretsiz ibraresini hangi hücreden alacak belirtmemişsiniz. O kısımı aynı mantıkla siz eklersiniz.

Option Explicit
 
Sub İzinleri_Kaydet()
 
Dim Sk  As Worksheet
Dim son As Long
 
Application.ScreenUpdating = False
 
Set Sk = Sheets("Sayfa1"): son = Sk.[B65536].End(3).Row + 1
 
    Range("H21:H23").Copy
    Sk.Range("B" & son).PasteSpecial xlPasteValues, xlNone, , True
    Range("H30:H32").Copy
    Sk.Range("E" & son).PasteSpecial xlPasteValues, xlNone, , True
 
    Application.CutCopyMode = False
 
Range("H21:J23").ClearContents: Range("H30:J32").ClearContents
Range("A38:L39").ClearContents
 
Application.ScreenUpdating = True
 
End Sub

 

[JacCKaLL]

tek kelime ile süpersiniz.Çok teşekkür ederim.Ellerinize sağlık. saygılar

 

[format]

şimdiden teşekkür ederim

modulde yazılan o kodu buton olarak nasıl ekleniyor excel sayfasına.

kolay gelsin

 

[Ömer]

Merhaba,

Linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)

.

 

[format]

teşekkürler kardeşim