• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

liste oluşturmak

  • Konbuyu başlatan Konbuyu başlatan ozcanya
  • Başlangıç tarihi Başlangıç tarihi
Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

Not: 3. satırdan itibaren yazdırdığım için bir veri gözükmüyordu (düzelttim)
sayın m uygun ekli listeye göre hafta içi 08.16:(8 saat) nöbet tutanların listesi nasıl alabilirim acaba. sadece 08:16 olanlar. saat olarak hesaplayacak ama.
 

Ekli dosyalar

Merhaba;
Bunu Yeni bir soru başlığı altında siteye yönlendirin. (Üstteki dosya ile ilişkilendiremedim.)
İyi çalışmalar.
 
Mrb lar
AŞAĞIDAKİ MAKROYA ŞUNU EKLEMEK İSTİYORUM : kıdem sayfalarındaki B sutununda yazılan ismin karşısında , c sutunundaki "EVET" ve "HAYIR" a göre ; evet ise eklesin değilse eklemesin istiyorum.

makro koduna bu kuralı eklemek için yardımcı olabilecek biri var mı




MAKRO ŞU ŞEKİLDE ;

Sub getir()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("nöbet listesi")
s1.Range("s4:s65536").ClearContents
sat = 4
For i = 1 To s1.Range("v65536").End(xlUp).Row
If s1.Cells(i, "v") <> "" Then
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, "v").Value)

For k = 3 To s2.Range("b65536").End(xlUp).Row
If s2.Cells(k, "b") <> "" Then
s1.Cells(sat, "s") = s2.Cells(k, "b")
sat = sat + 1
End If
Next k
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
 

Ekli dosyalar

Geri
Üst