Çözüldü Cumartesi için ''CT'' Pazar için "HT" yazdıran makro

[cataksu]

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.

 

[Adnan]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[cataksu]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Öncelikle çok teşekkür ederim. Sorun çözüldü emeğinize sağlık. E sütunundan itibaren sütun eklemek ve D sütununa kadar sütun silince makronun bozulmadan çalışmasını sağlayabilirmiyim.

 

[Adnan]

böyle bir şey yapamazsınız. Hata alırsınız çünkü kodda aşağıdaki gibi tanımlamalar var. tanımlar bozulunca kod çalışmaz
Sheets("Kod").Cells(syf.[BA1] + 1, 4): syf.Range("H7:AL8") = ""

 

[cataksu]

böyle bir şey yapamazsınız. Hata alırsınız çünkü kodda aşağıdaki gibi tanımlamalar var. tanımlar bozulunca kod çalışmaz
Sheets("Kod").Cells(syf.[BA1] + 1, 4): syf.Range("H7:AL8") = ""

böyle bir şey yapamazsınız. Hata alırsınız çünkü kodda aşağıdaki gibi tanımlamalar var. tanımlar bozulunca kod çalışmaz
Sheets("Kod").Cells(syf.[BA1] + 1, 4): syf.Range("H7:AL8") = ""

Üstadım peki Puantaj sayfasında Ay değiştirirken ( I8:AL8 ) arasındaki sütunların gizlenmesi değil de; ay değişince önceki veriyi silip, yeni ay değerlerini yazmak mümkün mü. Örneğin31 ,30 günlü aylar ve (29 28 ) gün çeken şubat dahil Sütün sayısı 31 olacak ay seçilince eski veri silinip 31 sütunlu alana yeni değerleri yazacak kod modüle eklenebilir mi? şimdi den çok teşekkür ederim. Sizleri de meşgul ediyorum kusura bakmayın.
Önemli bir sorunda şu mesela arşiv için yüklediğim bir dosyayı incelemek için indiremiyorum. En azından arşive yükleme yapan üyeler kendi dosyasını arşivden indirebilsin. Diğer üyeler için normal prosedür uygulansın.

 

[Adnan]

siz tam olarak ne yapmak istiyorsunuz.Amacınız nedir