Çözüldü Kayıt sayısını artıramıyorum.

[cataksu]

Değerli ustalardan yardım bekliyorum. Ekli dosyada ki makromun
Set hedefRange = wsPuantaj.Range("D13:AH15") satırında 3 kişilik kayıt yapmakta.
("D13:AH15") değerini beş kişi için ("D13:AH18") olarak değiştiriyorum. Fakat makrom yine üç kişilik satır açıyor. Kullanıcı arttıkça manuel olarak sayıyı ayarlamak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[excelcan]

Dosyayı görmeden net bir şey yazmak zor.
Ama yine de aşağıdaki gibi deneyin.
' Hedef aralığını belirle
HTML:

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

 

[cataksu]

D13:AH15 satırını D13:AH17 yapınca 2 sütunluk fark için
hedefRange.Cells(4, sütun).Value = "HT"
hedefRange.Cells(5, sütun).Value = "HT"

hedefRange.Cells(4, sütun).Value = "Cİ"
hedefRange.Cells(5, sütun).Value = "Cİ

yapınca sorun çözüldü. Fakat şimdide "RT" için "Type Mismatch" hatası alıyorum. Bu kodlar ChatGP tarafından oluşturuldu.

Eğe başarabilirsem B3 B30(örnek verildi) . B3 ten itibaren her isim için hücre doluysa makroyu çalıştırmasını istiyorum.
Dosyam ektedir. İlginiz için teşekkür ederim.

 

[Kuşdili]

Satır ve sütun bilgisini otomatikleştirmek için değişkenler atadım. Gereksiz olan satırları pasif yaptım.

HTML:

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

 

[cataksu]

Satır ve sütun bilgisini otomatikleştirmek için değişkenler atadım. Gereksiz olan satırları pasif yaptım.

HTML:

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

Sayın kuşdili kodu çalıştırınca Overflow hatası alıyorum. Benim dosyamda (Şubat ve 30) çeken aylarda "Type Mismatch" uyarısı almaktayım. Benim dosyamdaki bu hata kodunu nasıl düzeltebilirim. çok teşekkür ederim.

 

[Refaz]

HTML:

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

Yukardaki kodun altına attaki kodu ekleyin.
HTML:

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

 

[Kuşdili]

"Type Mismatch" muhtemelen ayın gün adetleri farklı olduğu için formül hataya düşüyor. Bu yüzden otomatik olarak belirleme yapıldı.
"Overflow" hatasını görmemiz iyi oldu. Satır sayısını devamlı dolu olan "B" sütunundan belirleyince problem kalmıyor.

HTML:

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

 

[excelcan]

İlgili satırıları kod tagındaki gibi yapın.

HTML:

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

 

[cataksu]

"Type Mismatch" muhtemelen ayın gün adetleri farklı olduğu için formül hataya düşüyor. Bu yüzden otomatik olarak belirleme yapıldı.
"Overflow" hatasını görmemiz iyi oldu. Satır sayısını devamlı dolu olan "B" sütunundan belirleyince problem kalmıyor.

HTML:

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

Öncelikle teşekkür ederim. sayın refaz ve excelcan ustaların verdiği kodu; kullandım.

For sütun = 1 To tarihRange.Columns.Count satırının altına
If Trim(tarihRange.Cells(1, sütun).Value) = "" Then Exit For kodunu ekleyince sizin yazdığınız kodda sorunsuz çalıştı. s

HTML:

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

Yukardaki kodun altına attaki kodu ekleyin.
HTML:

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

 

[cataksu]

For sütun = 1 To tarihRange.Columns.Count satırının altına
If Trim(tarihRange.Cells(1, sütun).Value) = "" Then Exit For kodunu ekleyince sizin yazdığınız kodda sorunsuz çalıştı. s

Emeğiniz ve İlginize çok teşekkür ederim.

 

[cataksu]

"Type Mismatch" muhtemelen ayın gün adetleri farklı olduğu için formül hataya düşüyor. Bu yüzden otomatik olarak belirleme yapıldı.
"Overflow" hatasını görmemiz iyi oldu. Satır sayısını devamlı dolu olan "B" sütunundan belirleyince problem kalmıyor.

HTML:

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

Sayın Kuşdili, "Type Mismatch" hatasını yine alıyorum. Fakat Destek ekibinden Refaz ve excelcan ustaların
;For sütun = 1 To tarihRange.Columns.Count satırının altına
If Trim(tarihRange.Cells(1, sütun).Value) = "" Then Exit For kodunu ekleme çözümünü uygulayınca sorun çözüldü.

If Trim(tarihRange.Cells(1, sütun).Value) = "" Then Exit For kodunu sizin çalışmanıza uygulayınca "Type Mismatch" hatasını artık almıyorum. Sizin yazdığınız kod ile "B sütunu"na istedeğim kadar kişi eklesem de kodkusursuz çalışyor. Aynı kodun içine Cumartesi, Pazar ve Resmi Tatil günleri dışında kalan günler için "X" yazan bir kod ekleme durumunuz olabilirmi?
Emeğiniz ve İlginize çok teşekkür ederim.

 

[Refaz]

Emeğiniz ve İlginize çok teşekkür ederim.

Rica ederim.Aslında o kod çalışırken tarihler arasında boşluk varsa sona kadar çalışmaz dikkat edin.Resim eklemiştim sildim yanlışlıkla.Resimde goto 1 vardı 1 de next in önündeydi.Neyse boş tarih olmazsa sorun olmaz.Kısaca dosyanızda son tarih sütununa kadar döngü çalışıyordu ve sonda tatig olmadığı için hata vermişti.Yada isdate koduda eklenebilirdi esasen.
Kolay gelsin.

 

[cataksu]

İlgili satırıları kod tagındaki gibi yapın.

HTML:

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

Sayın excelcan üstadım dediğinizi yapınca "Type Mismatch" hatasını almıyorum. Fakat (30) çeken ayların son günleri
Cumartesi, pazar ve resmi tatile denk gelince kod ayı(31) gün algılayıp 31.güne sonuç yazıyor. Sağ olun.
Emeğiniz ve İlginize çok teşekkür ederim.

 

[cataksu]

Rica ederim.Aslında o kod çalışırken tarihler arasında boşluk varsa sona kadar çalışmaz dikkat edin.Resim eklemiştim sildim yanlışlıkla.Resimde goto 1 vardı 1 de next in önündeydi.Neyse boş tarih olmazsa sorun olmaz.Kısaca dosyanızda son tarih sütununa kadar döngü çalışıyordu ve sonda tatig olmadığı için hata vermişti.Yada isdate koduda eklenebilirdi esasen.
Kolay gelsin.

HTML:

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

Yukardaki kodun altına attaki kodu ekleyin.
HTML:

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

Üstadım, VBA bilgim yok. ChatGP den satır satır sorgulayıp vba kodu oluşturmasını istiyorum her satırdaki kodu tek tek inceleyip vba öğrenmeye çalışıyorum. Adım adım olumlu çözüm alınca sıkıntı olmuyor. Fakat sorgu çok olunca işler karışıyor. İşin içinden çıkamayınca siz değerli ustalardan yardım almak çok güzel.

Üsatdım bu çalışmayı sonlandırmak istiyorum. Fakat, Cumartesi için (ci), Pazar için (HT), Resmi Tatiller için(RT) yazdırmayı başarmama rağmen Seçili ayın içindeki Cumartesi, Pazar ve Resmi Tatil günleri dışında kalan günler için "X" yazan bir kod eklemeyi başaramadım.
Bana "x" yazan kod içinde yardımcı oluranız çok sevinirim. Emeğiniz ve ilginiz için gerçekten sonnsuz teşekkürlerimi borç biliyorum. Selametle


Şuana kadar çalışan kodum aşağıda.

HTML:

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

 

[Refaz]

Kendi adıma müsait olunca bakarım abey.Eğer anlayabilirsem kod eklerim.

 

[Kuşdili]

HTML:

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

 

[cataksu]

Ellerinize sağlık çok teşekkür ederim. Emeğinize sağlık üstadım.