Son İletiler

11

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Puantaj hesaplama

« Son İleti Gönderen: metin315 26 Aralık 2023, 17:36:52 »

yardımcı olabilecek var mı

12

Microsoft Excel, Vba, Makro, Formül vb. Soruları / Ynt: Yardım rica ediyorum

« Son İleti Gönderen: Bedrettin 23 Aralık 2023, 20:26:03 »

Teşekkür ederim
ama hata var
tek satır olduğu zaman hata vermiyor
ama iki satırsa hata veriyor
toplamı ikinci satırın altına yapması gerekirken ikinci satıra yapıyor

13

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?

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, 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

15

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

16

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?

17

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

18

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.

19

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.

20

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