hücre rengine göre bir başka sekmede listeleme

[kmlbyrk]

Bir puantaj tablom var. Yeni işe başlayan veya çıkan personelleri puantaj sayfamda hücrelerini renklendireceğim. bir başka sekmede ayrı ayrı listelemek istiyorum. Yani bir sütunda giriş yapanlar, diğer sütunda çıkış yapanlar. ve tüm bunları makro ile değil formülle yapmak istiyorum.

Destekleriniz için şimdiden çok teşekkür ederim.

 

[AdemCan]

Formül ile hücre rengi kontrol edilemez.
Ancak Kullanıcı Tanımlı Fonksiyon ile kontrol edilebilir.
Kullanıcı Tanımlı Fonksiyon da makro ile oluşturulur.

 

[kmlbyrk]

tamam hocam makro ile yapalım. Ekte göndermiş olduğum tabloya uygun olursa sevinirim.

Saygılarımla

 

[kmlbyrk]

tamam hocam makro ile yapalım. Ekte göndermiş olduğum tabloya uygun olursa sevinirim.

Saygılarımla

yardımcı olabilecek kimse var mı? Teşekkürler

 

[kmlbyrk]

MERHABA,

KONU İLE İLGİLENEBİLECEK BİRİ VAR MIDIR? MECBUR DEĞİLSİNİZ BİLİYORUM ANCAK GERÇEKTEN BÜYÜK İHTİYACIM VAR BU KONUYA. YARDIMCI OLURSANIZ SEVİNİRİM.

BENİM DERDİM, PUANTAJDA O AY İÇERİSİNDE GİRİŞ - ÇIKIŞ YAPAN PERSONELLERİN BİR BAŞKA SEKMEDE DOĞRU VERİLER İLE LİSTELENMESİDİR. RENK İLE OLUR VEYA BAŞKA BİR FORMÜLLE OLUR SORUN DEĞİL.

 

[AdemCan]

* Gün bilgisini tarih olarak,
* İşe giriş ve işten çıkış bilgisini ekteki dosyadaki gibi yaparsanız bu dosyayı kullanabilirsiniz.

 

[kmlbyrk]

* Gün bilgisini tarih olarak,
* İşe giriş ve işten çıkış bilgisini ekteki dosyadaki gibi yaparsanız bu dosyayı kullanabilirsiniz.

ADEM BEY MERHABA,

ÖNCELİKLE ÇOK TEŞEKKÜR EDERİM. ANCAK BU MAKROLARDA HER SEFERİNDE GÜNCELLEMESİ İÇİN ÇALIŞTIR MI YAPMAMIZ LAZIM.

 

[kmlbyrk]

BU KONUDA DA YARDIMCI OLABİLİR MİSİNİZ

 

[Korhan Ayhan]

Konuyla alakalı değil ama ben bir forum kuralını hatırlatma ihtiyacı hissettim.

BÜYÜK HARF kullanımı;

Büyük Harf Kısıtlaması:
- Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için yazılarınızı kesinlikle büyük harf kullanarak yazmayınız.

 

[kmlbyrk]

Bu konuda yardımcı olabilir misiniz?

 

[kmlbyrk]

Merhaba,

sorunuma çözüm bulan Adem bey, örnek bir excell sayfası hazırladı. Gönderdiği dosyada kodlar çalışıyor. Ancak başka bir kitapta denediğimde olmuyor. Bunun sebebi ne olabilir.

Teşekkür ederim

 

[AdemCan]

başka bir kitapta denediğimde olmuyor

Örnek dosyanız ile kullanmak istediğiniz dosyanız aynı değilse olmaz. Kullanmak istediğiniz dosyanızı ekleyiniz.

 

[kmlbyrk]

Dosya Özel mesaj olarak tarafınıza gönderilmiştir. Şimdiden teşekkür ederim

 

[AdemCan]

Merhaba, kullandığınız dosyadaki kişisel bilgileri temizledikten sonra dosyayı konu içerisinde paylaşabilirsiniz.

** Kullandığınız dosyada B sütununda sadece isimler olacak şekilde düzenleme yapınız.
** 2. satırdaki gün bilgilerini tarih olarak yazınız.


** 6 numaralı mesajda paylaştığım kodları değiştiriniz.

Sub aktar()
Application.ScreenUpdating = False
Dim renk As Long, s1 As Worksheet, s2 As Worksheet
Dim son1 As Long, son2 As Long, i As Long, s As Long
Set s1 = Sayfa2: Set s2 = Sayfa16
son1 = s1.Cells(Rows.Count, 1).End(3).Row
son2 = s2.Cells(Rows.Count, 2).End(3).Row + s2.Cells(Rows.Count, 7).End(3).Row

s2.Range("A3:I" & son2 + 1).ClearContents

For s = 5 To s1.Cells(2, Columns.Count).End(1).Column
    For i = 4 To son1 Step 4
        If s1.Cells(i, s).Interior.ColorIndex = 43 Then
            son2 = s2.Cells(Rows.Count, 2).End(3).Row + 1
            s2.Cells(son2, 1) = son2 - 2
            s2.Cells(son2, 2) = s1.Cells(i, 2)
            s2.Cells(son2, 3) = s1.Cells(i, 3)
            s2.Cells(son2, 4) = CDate(s1.Cells(2, s))
        End If
        
        If s1.Cells(i, s).Interior.ColorIndex = 3 Then
            son2 = s2.Cells(Rows.Count, 7).End(3).Row + 1
            s2.Cells(son2, 6) = son2 - 2
            s2.Cells(son2, 7) = s1.Cells(i, 2)
            s2.Cells(son2, 8) = s1.Cells(i, 3)
            s2.Cells(son2, 9) = CDate(s1.Cells(2, s))
        End If

    Next i
Next
s2.Columns("A:I").EntireColumn.AutoFit
Set s1 = Nothing: Set s2 = Nothing
son1 = 0: son2 = 0: renk = 0
i = 0: s = 0
Application.ScreenUpdating = True
End Sub

 

[kmlbyrk]

çok teşekkür ederim. inanın çok işimi gördü. Güzel bir puantaj oldu. Ellerinize sağlık

 

[AdemCan]

Rica ederim.

 

[kmlbyrk]

Hocam,

Makro kodları sayfayı yavaşlatıyor mu? yoksa bende mi oluyor. Birde Makro kodları çalıştırmak için her seferinde çalıştır butonu ile aktif mi yapmam gerekiyor. Otomatik olmuyor mu?

Teşekkürler şimdiden

 

[kmlbyrk]

Merhaba,

Makrolar zamanla bozulur mu? Çalışan makro şimdi çalışmıyor sebebi ne olabilir?

Şimdiden çok teşekkür ederim

 

[kmlbyrk]

Merhaba,

Makrolar zamanla bozulur mu? Çalışan makro şimdi çalışmıyor sebebi ne olabilir?

Şimdiden çok teşekkür ederim

Merhaba,

veri aldığı sayfada en üste bir satır eklemiştim. Bu sebeple olmamış . Ancak o satırı eklemem gerekiyor. Yukarıda verilen makro kodlardan nereyi değişmem gerekir.

Şimdiden teşekkür eder
Saygılarımı sunarım

 

[kmlbyrk]

Merhaba,

veri aldığı sayfada en üste bir satır eklemiştim. Bu sebeple olmamış . Ancak o satırı eklemem gerekiyor. Yukarıda verilen makro kodlardan nereyi değişmem gerekir.

Şimdiden teşekkür eder
Saygılarımı sunarım

Merhaba

Bu konuda bana yardımcı olabilecek birileri var mıdır?

Teşekkürler