Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Son İletiler

Sayfa: 1 [2] 3 4 ... 10
11
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bülent Öztürk 23 Aralık 2023, 13:20:39 »
Ekli dosyayı dener misini?
12
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bülent Öztürk 23 Aralık 2023, 12:35:53 »
Kodu şu şekilde değiştirdim:

Kod: [Seç]
Sub cari_mirac()
 Application.ScreenUpdating = False
    For i = Range("a65536").End(3).Row To 2 Step -1
      If Range("a" & i).Value <> Range("a" & i - 1).Value Then
        'Range("a" & i & ":a" & i + 2).EntireRow.Insert
        If i = 2 Then i = 0 Else Range("a" & i & ":a" & i + 1).EntireRow.Insert
        sat = IIf(Application.CountBlank(Range(Range("c" & i + 3), Range("c" & i + 3).End(4))) > 0, 1, Range("c" & i + 3).End(4).Row - i - 2)
       
        If sat = 1 Then
           Range("c" & i + 2).Offset(sat, 0).Formula = "=SUM(R[-" & sat & "]C:R[-1]C)"
           Range("b" & i + 2).Offset(sat, 0).Value = "TOPLAM : "
           Range("b" & i + 2).Offset(sat, 0).HorizontalAlignment = xlRight
           
           Range("E" & i + 2).Offset(sat, 0).Formula = "=SUM(RC[-2]+RC[-2]*20%)"
       
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Bold = True
       
       
           Range("c" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("c" & i + 2).End(4).Offset(0, 0).Font.Bold = True
           
           Range("B" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("B" & i + 2).End(4).Offset(0, 0).Font.Bold = True
           
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 2).End(4).Offset(0, 0).Font.Bold = True
           Range("E" & i + 2).End(4).Offset(0, 0).NumberFormat = "#,##0.00"

        Else
           Range("c" & i + 3).Offset(sat, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
           Range("b" & i + 3).Offset(sat, 0).Value = "TOPLAM : "
           Range("b" & i + 3).Offset(sat, 0).HorizontalAlignment = xlRight
           
           Range("E" & i + 3).Offset(sat, 0).Formula = "=SUM(RC[-2]+RC[-2]*20%)"
       
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Bold = True
       
       
           Range("c" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("c" & i + 3).End(4).Offset(0, 0).Font.Bold = True
           
           Range("B" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("B" & i + 3).End(4).Offset(0, 0).Font.Bold = True
           
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
           Range("E" & i + 3).End(4).Offset(0, 0).Font.Bold = True
           Range("E" & i + 3).End(4).Offset(0, 0).NumberFormat = "#,##0.00"
       
        End If
      End If
    Next
   
'Call ALT_TOPLAM_AL
 
  Application.ScreenUpdating = True
 
End Sub
13
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bedrettin 23 Aralık 2023, 12:33:16 »
dosya bende açılmıyor
hasarlı diye uyarı veriyor Bülent bey
14
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bülent Öztürk 23 Aralık 2023, 11:16:57 »
Ekli dosyayı kontrol eder misiniz?
15
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bedrettin 23 Aralık 2023, 09:06:18 »
ÖRNEK DOSYAYI YÜKLEDİM
16
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bülent Öztürk 22 Aralık 2023, 23:58:26 »
Merhaba Bedrettin Bey,

Ekran görüntüsü veya örnek dosya üzerinde anlatabilir misiniz yapılmak istenen işlemi?

Teşekkürler.
17
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Puantaj hesaplama
« Son İleti Gönderen: metin315 21 Aralık 2023, 17:50:20 »
Merhaba arkadaşlar

Mesai hesaplaması bir türlü oturtamadım

İndir HAFTALIK xlsx
Dosyayı indir HAFTALIK xlsx
dosya.co

başlama ve bitiş saatlerine göre çalışlanların çalışma saatlerini yazdım. sonda 1., 2. hafta diye hesapladım.

örneğin 1. hafta 3 gün var 3 günde 15 saat çalışması gerekiyor diğer hafta 7 günde 45 saat bu şekilde hafta hafta hesapladım

buna göre 1. haftada çalışması gereken 15 saat diğer haftalarda 45 saat aylık 195 saat çalışması gerekiyor

haftalık olarak hesapladığımda haftalık çalışma saatini doldurmayan personelin toplam mesai saatinden eksik olan saati çıkartıyor. sadece haftalık fazla çalışması olan personelin saatini excele yazdırmak istiyorum.

ayrıca 1. haftada çalışması gereken saat 15 saat mi yoksa pazar gününü de hesaplayacak mıyız 22,5 mi olucak.

yardım ederseniz sevinirim.
18
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum
« Son İleti Gönderen: Bedrettin 21 Aralık 2023, 16:45:58 »
Eğer Excel örnek dosya isterseniz paylaşabilirim
19
Microsoft Excel, Vba, Makro, Formül vb. Soruları / Yardım rica ediyorum
« Son İleti Gönderen: Bedrettin 21 Aralık 2023, 16:44:51 »
Merhaba Arkadaşlar
Aşağıdaki konu hakkında yardımcı olursanız çok memnun olurum

Aşağıdaki kod grup toplam alıyor
2 satır ve fazlasında doğru toplam alıyor fakat  tek satır varsa toplamayı iki satırdan yapıyor
tek satır olabilir mi ?


Sub cari_mirac()
  Application.ScreenUpdating = False
    For i = Range("a65").End(3).Row To 2 Step -1
      If Range("a" & i).Value <> Range("a" & i - 1).Value Then
        If i = 2 Then i = -1 Else Range("a" & i & ":a" & i + 1).EntireRow.Insert
        sat = IIf(Application.CountBlank(Range(Range("c" & i + 3), Range("c" & i + 3).End(4))) > 0, 1, Range("c" & i + 3).End(4).Row - i - 2)
       
        Range("c" & i + 3).Offset(sat, 0).Formula = "=SUM(R[-" & sat + 1 & "]C:R[-1]C)"
        Range("b" & i + 3).Offset(sat, 0).Value = "TOPLAM : "
        Range("b" & i + 3).Offset(sat, 0).HorizontalAlignment = xlRight
         Range("c" & i + 3).End(4).Offset(0, 0).Font.Color = 12458
         Range("c" & i + 3).End(4).Offset(0, 0).Font.Bold = True
      End If
    Next
  Application.ScreenUpdating = True
 
End Sub
20
Merhaba Bülent Bey ,

Ben crm den Mehmet Ekmekci  iletişim bilginizi kaybettim.  benim ile iletişime geçebilir misiniz

Merhaba Mehmet Bey,

Ahmet Bey ile iletişime geçtim. Yardımcı olacağım.

Bilgilerinize.
Sayfa: 1 [2] 3 4 ... 10