İcmal Sayfasına Aktarma Yapma

Mevcut kodda;
-- kayit = fm.Cells(Rows.Co..... şeklindeki satırının üstündeki Set ...... satırını silin (o tanımlama zaten kodun üst satırlarında var).
-- Aşağıda gösterilen End If satırının üstüne şu 2 satırı ekleyin.

Ömer BARAN' Alıntı:

Mevcut kodda;
-- kayit = fm.Cells(Rows.Co..... şeklindeki satırının üstündeki Set ...... satırını silin (o tanımlama zaten kodun üst satırlarında var).
-- Aşağıda gösterilen End If satırının üstüne şu 2 satırı ekleyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

Genişletmek için tıklayın ...

Ömer BARAN' Alıntı:

Mevcut kodda;
-- kayit = fm.Cells(Rows.Co..... şeklindeki satırının üstündeki Set ...... satırını silin (o tanımlama zaten kodun üst satırlarında var).
-- Aşağıda gösterilen End If satırının üstüne şu 2 satırı ekleyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

Genişletmek için tıklayın ...

Hocam merhaba.
Mevcut kodda;
-- kayit = fm.Cells(Rows.Co..... şeklindeki satırının üstündeki Set ...... satırını silin (o tanımlama zaten kodun üst satırlarında var).
Sildiğimde 1. umaralı resimdeki hatayı verdi.
fm.Range("G7:R7").AutoFill Destination:=Range("G7:R" & fm.Cells(Rows.Count, 1).End(3).Row)
fm.Range("T7:W7").AutoFill Destination:=Range("T7:W" & fm.Cells(Rows.Count, 1).End(3).Row)
Bu kodlarıda eklediğimde 2. nolu resimdeki hatayı verdi

@sedat2161
Satırın başından : işaretine kadar olan kısım silinecek Set fm = Sheets("FAZLA MESAİ") kısmı kalacak idi.
Bir de verdiğim koddaki bir eksikliği fark ettim.

En iyisi kodun olması gereken halini bütün olarak vereyim.

Ömer BARAN' Alıntı:

@sedat2161
Satırın başından : işaretine kadar olan kısım silinecek Set fm = Sheets("FAZLA MESAİ") kısmı kalacak idi.
Bir de verdiğim koddaki bir eksikliği fark ettim.

En iyisi kodun olması gereken halini bütün olarak vereyim.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(42 satır)

Genişletmek için tıklayın ...

Hocam hayırlı sabahlar.
Formüller ve diğer bilgiler geliyor. Emeğinize bilginize sağlık. Allah razı olsun.
--Hocam herhangi bir personelin mesai bilgisi silindiğinde tekrar aktarma yaptığımda en son satırda formül bilgileri kalıyor. O satırın çıkmamasaı mümkün mü acaba.

Ömer BARAN' Alıntı:

Mevcut kodda If kayit > 6 Then fm.Range("A7:F" & kayit).ClearContents satırının altına şu satırı ekleyin.
If kayit > 7 Then fm.Range("G8:W" & Rows.Count).ClearContents

Genişletmek için tıklayın ...

Hocam iyi akşamlar çok teşekkür ederim. Emeğinize sağlık. konu çözüldü.