cataksu
Yeni Üye
- Katılım
- 11 Kas 2022
- Mesajlar
- 68
- Çözümler
- 1
- Aldığı beğeni
- 19
- Excel V
- Office 2016 TR
Konu Sahibi
Sevgili forum üyesi arkadaş ve ustalarım merhabalar. İyi çalışmalar dilerim. Sorunumu kısaca anllatım.
SUSKUN kullanıcısının çözdüğü bir puantajı inceledim. Benim puantajımla uyumlu hale getirmek için yaptığım yöntemi şimdi yapamıyorum.
Ekli dosyanın VBA kodlarında şöyle bir komut var.
For Each Veri In Tarihler
If Weekday(Cells(8, Veri.Column), vbMonday) > 5 Then
Cells(9, Veri.Column).Resize(100) = "HT"
End If
_____________________________________________________________
Ben; Cumartesi için kodu aşağıdaki gibi değiştirdim.
For Each Veri In Tarihler
If Weekday(Cells(8, Veri.Column), vbMonday) > 5 Then
Cells(9, Veri.Column).Resize(100) = "CT"
Pazarlar için ise;
For Each Veri In Tarihler
If Weekday(Cells(8, Veri.Column), vbMonday) > 6 Then
Cells(9, Veri.Column).Resize(100) = "HT"
komutunu eklemek istiyorum. Fakat satırı yukarıdaki ekleyince hata alıyorum.
Yardımcı olursanız çok sevinirim. İlgilenecek arkadaşlara şimdiden teşekkür ederim.
SUSKUN kullanıcısının çözdüğü bir puantajı inceledim. Benim puantajımla uyumlu hale getirmek için yaptığım yöntemi şimdi yapamıyorum.
Ekli dosyanın VBA kodlarında şöyle bir komut var.
For Each Veri In Tarihler
If Weekday(Cells(8, Veri.Column), vbMonday) > 5 Then
Cells(9, Veri.Column).Resize(100) = "HT"
End If
_____________________________________________________________
Ben; Cumartesi için kodu aşağıdaki gibi değiştirdim.
For Each Veri In Tarihler
If Weekday(Cells(8, Veri.Column), vbMonday) > 5 Then
Cells(9, Veri.Column).Resize(100) = "CT"
Pazarlar için ise;
For Each Veri In Tarihler
If Weekday(Cells(8, Veri.Column), vbMonday) > 6 Then
Cells(9, Veri.Column).Resize(100) = "HT"
komutunu eklemek istiyorum. Fakat satırı yukarıdaki ekleyince hata alıyorum.
Yardımcı olursanız çok sevinirim. İlgilenecek arkadaşlara şimdiden teşekkür ederim.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
