Sorgu için arama sonuçları: puantaj

merhaba ekteki dosyamda günlük olarak giriş ve çıkış yapan personelleri elle giriyorum. girmiş olduğum saate göre mesaisi ve gece farkı ve sekmede bulunan çizelgeye çalıştığı günlere x hafta tatili yazan günler ht yazmasını istiyorum gerekli acıklama ekteki dosyamda var. yardımlarınız icin çok...

Merhaba önceki mesajımda bir güncelleme yaptım. Lütfen ona tekrar bakınız.

Merhaba puantaj tablosu diyebiliriz.

Merhaba, bu tablo bir puantaj tablosu mu? yada performans ölçme gibi birşey mi? bu tabloyu ne amaçla kullanıyorsunuz yada kullanacaksınız bilmiyorum fakat Excelde yatay giden tablolar ile çözüm oluşturmak excelin hesaplama ve diğer yetenekleri açısından pek bir kolaylık arz etmiyor. Benim...

Merhabalar, Ekteki gibi puantaj dosyam var. Aşağıda yazdıklarımı yapmak istiyorum. Şimdiden herkese çok teşekkür ederim. İyi akşamlar dilerim. 1) Ay seçildiği zaman altındaki satırda gün ay ve yılın otomatik olarak gelmesini, 2) Örneğin; ocak ayında personellerin girişlerini işaretledim ve...

Hocam çok teşekkür ederim harika oldu.

...= "Kayıt Edilecek Klasör Yolunu Buraya Yazın" uzanti = ".pdf" sayi = ListBox1.ListCount soru = MsgBox("Listede bulunan " & sayi & " kişi için puantaj oluşturulsun mu?", vbQuestion + vbYesNo, "") If soru = vbYes Then s2.Range("A3:AJ" & son2 + 1).Clear For x = 0 To ListBox1.ListCount -...

ekteki belgede sarı olan hücrelere ve karşılığı olan günlerin otomatik gelmesi. şimdiden teşekkür ederim

Gönderilen dosya eksik ve hata vermektedir. diğer puantaj kısmındaki Kut puantaj_13.12.2023.xlsx yoktur bilginize.

...kodun size işe yarayabilir denermisiniz. İnfo olarak üstlerine yazdım. Sub VeriCekVeOzetteGoster() Dim ozetSayfa As Worksheet Dim puantajSayfa As Worksheet Dim tarihSutunu As Integer Dim hedefTarih As Date Dim sonSatir As Long Dim i As Long ' Özet sayfasını...

Sayfalardan formül çekerken satır sabitleyip sütun değiştirmek istiyorum. Şöyle izah edeyim puantaj tuttuğumuz dosyada hergün sütunlara verileri giriyoruz. En son özet kısmı var orada da sayfalardan verileri çekiyor. Ben istiyorum ki orada yazan tarihe göre o tarihin verilerini çekip özette...

Merhabalar, Aşağıdaki konuyu açtım fakat sanırım zor bir istek oluşundan dolayı hiç bir dönüş alamadım. https://www.excel.web.tr/threads/puantaj-verilerini-listeleme-hk.210213/ Ekli örnek çalışmayı sadeleştirerek tekrar açmak istedim. Ekli örnekteki "Excel" sayfası K2:BS2 arasındaki...

Merhabalar, Ekteki dosyada yaptığım örnek çalışmaya göre bana destek olabilir misiniz? Excel sayfasındaki K:BT tarih aralığındaki veriler SAP Akarım sayfasında tüm eşleştirmeler yapılarak hücredeki formülleri de kapsayacak şekilde makro hazırlamak. Desteklerinizden dolayı şimdiden teşekkür...

...Worksheet Dim sS1 As Integer, sS2 As Integer Dim Son As Long Set s1 = ThisWorkbook.Worksheets("Personel") Set S2 = ThisWorkbook.Worksheets("Puantaj") sS1 = s1.Range("A" & Rows.Count).End(xlUp).Row sS2 = S2.Range("A" & Rows.Count).End(xlUp).Row veri = 0 For i = 2 To sS1 If...

...Worksheet Dim sS1 As Integer, sS2 As Integer Dim Son As Long Set s1 = ThisWorkbook.Worksheets("Personel") Set S2 = ThisWorkbook.Worksheets("Puantaj") sS1 = s1.Range("A" & Rows.Count).End(xlUp).Row sS2 = S2.Range("A" & Rows.Count).End(xlUp).Row veri = 0 For i = 2 To sS1 If...

Aşağıdaki gibi dener misiniz? If IsNumeric(Sheets("Puantaj").Range("M" & i).Value) Then Dim toplam As Double Dim sonuc As Double toplam = Sheets("Puantaj").Range("M" & i).Value sonuc = toplam / 7.5 If sonuc > 0.5...

If IsNumeric(Sheets("Puantaj").Range("M" & i).Value) Then Dim toplam As Double Dim sonuc As Double toplam = Sheets("Puantaj").Range("M" & i).Value sonuc = toplam / 7.5 If sonuc > 0.5 Then sonuc =...

Dim personel, puantaj As Worksheet Dim PSatir, PtSatir As Long Set personel = ThisWorkbook.Worksheets("Personel") Set puantaj = ThisWorkbook.Worksheets("Puantaj") PSatir = 3 PtSatir = 10 Do While personel.Cells(PSatir, "C").Value <> "" puantaj.Range("C" & PtSatir &...

Dim syf As Worksheet Dim syf1 As Worksheet Dim i As Integer Set syf = Sheets("Personel") Set syf1 = Sheets("Puantaj") syf1.Range("C10:F10").Value = syf.Range("C10:F10").Value If IsNumeric(syf1.Range("G10").Value) Then i = 10 Do While syf1.Range("G" & i).Value <> "" i...

Dim syf As Worksheet Dim syf1 As Worksheet Dim i As Integer Set syf = Sheets("Personel") Set syf1 = Sheets("Puantaj") syf1.Range("C10:F10").Value = syf.Range("C10:F10").Value If IsNumeric(syf1.Range("G10").Value) Then i = 10 Do While syf1.Range("G" & i).Value <> "" i...