İcmal Sayfasına Aktarma Yapma

[sedat2161]

Excel Versiyonu

Excel 2019

Excel Sürümü

32 Bit

Excel Dili

İngilizce

Hayırlı günler sayın hocalarım.
İcmal sayfasındaki aktar butonuna basığımda İcmal sayfasına ve Fazla mesai sayfasına personel bilgileri aktarılıyor.
Fazla mesai bordrosuna aktarılan bilgiler ile 1. Personel bilgilerinde bulunan hesaplamanın en son personele kadar hesaplama yapması mümkünmü.
Yardımlarınızı bekliyorum.

 

Comboboxta Seçili Satırlara İşaret Koyma

Veri Girişi Yapıldığında Tarihi Otomatik Yazdırma

[Ömer BARAN]

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.

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

 

[sedat2161]

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.

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

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.

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

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

 

[Ömer BARAN]

@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.

Görüntülemek için giriş yapmanız gerekmektedir.
(42 satır)

 

[sedat2161]

@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.

Görüntülemek için giriş yapmanız gerekmektedir.
(42 satır)

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]

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

 

[sedat2161]

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

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