Çözüldü Makroda kod birleştirme

[Reason01]

iyi günler herkese.
Aşağıdaki gibi kullandığım bir makro kodum var.
Fakat kalın harflerle belirdiğim en alttaki makro kodunu üstteki ile entegre edemedim. yardımcı olur musunuz ? kodda değişiklik olmayacak,sadece IFler ile bağlantısını yapamadım.

- ASIL KOD BU

HTML:

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

ÜSTTEKİ KOD İLE BİRLEŞTİRİLMESİ İSTENEN KOD BU

HTML:

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

Çok teşekkür ederim şimdiden yardımcılarınız için.

 

[Ali ÖZ]

Merhaba,
hata: satırından sonra eklenecek kodları yapıştırıp deneyin.

 

[Patron]

olmazsa;
eklenecek kodları;
arr(1, say) = xx.Value
satırından sonraya ekleyip deneyin.

 

[Reason01]

Merhaba,
hata: satırından sonra eklenecek kodları yapıştırıp deneyin.

olmadı malesef hocam. sizin dediğinizi yapınca bu hata veriyor.

 

[Reason01]

olmazsa;
eklenecek kodları;
arr(1, say) = xx.Value
satırından sonraya ekleyip deneyin.

hocam sizin dediğinizi de yapınca hiç çalışmıyor hafta sonlarındaki değişimleri.

 

[Patron]

örnek dosya yükleyiniz.

 

[Reason01]

örnek dosya yükleyiniz.

Buyrun hocam. şuanki yolladığım tabloda ay 30-31 çekmediğinde oraya yazılan nöbeti siliyor + Haftasonlarını makroda yazdığım gibi değiştiriyor. sadece en üstte belirttiğim koddaki resmi tatil günlerindeki nöbetleri sildiremiyorum. resmi tatil günlerinde S yazılırsa orayı RT olarak değiştirmesini istiyorum. Resmi tatil günleri ek sayfada belirttim ordan çekiyor.

 

[Reason01]

Refaz hocam kolay gelsin. gene ben senin yaptığın makroda bir birleştirme yapmak istiyorum müsait olduğunda ilgilenebilir misin ?

 

[Refaz]

Sağolun abey.Bugün bakarım nasipse.

 

[Refaz]

Resimdeki gibi ayarlayın abey.
Kodda Ş yerine S olarak görüküyor bazı yerler orayı ayarlayın.

 

[Reason01]

Resimdeki gibi ayarlayın abey.
Kodda Ş yerine S olarak görüküyor bazı yerler orayı ayarlayın.

Ekli dosyayı görüntüle 3523

Hocam ilginize teşekkür ederim. Fakat dediğiniz gibi yapınca herhangi bir güne S koyduğumda otomatik resmi tatillere RT atıyor. Üsteki formülde haftasonları S olunca "" boşluk yada S. olarak değiştiriyor. Onun gibi olması gerekiyor hesaplamamda yanlış çıkmaması için. Örneğin Temmuz ayında kaydettim dosyayı. ilk hafta senelik izinde olabilir kişi. ilk haftaya S koyunca otomatik bayram tatiline de RT oluyor bu formülde.

 

[Reason01]

Hocam ilginize teşekkür ederim. Fakat dediğiniz gibi yapınca herhangi bir güne S koyduğumda otomatik resmi tatillere RT atıyor. Üsteki formülde haftasonları S olunca "" boşluk yada S. olarak değiştiriyor. Onun gibi olması gerekiyor hesaplamamda yanlış çıkmaması için. Örneğin Temmuz ayında kaydettim dosyayı. ilk hafta senelik izinde olabilir kişi. ilk haftaya S koyunca otomatik bayram tatiline de RT oluyor bu formülde.

yada şöyle anlatayım oluyormuş aslında ama. çift tıklamak gerekiyor yazılan hücreye makronun çalışması için ben 2 kişi olan dosyayı yeniden ekliyorum. çünkü 100ü geçik personel var. her briinin vardiyasını yada seneliği yazdıktan sonra hücreyi tıklamayı atlayabilirim. onu düzenleneyebilirsek kafii bu kadar hocam Refaz

 

[Refaz]

çift tıklamak gerekiyor yazılan hücreye makronun çalışması için

Abey daha önce sayfada değişiklik olunca kod çalışsın demiştiniz konunun birinde.
Bundan dolayı Worksheet_Change kodu içine yapılmıştı zten.

 

[Refaz]

Eğer haftasonları ile çakışmasın diyorsanız If haftaSon <> 6 And haftaSon <> 7 Then ekledim koda sadece.

HTML:

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

 

[Reason01]

Abey daha önce sayfada değişiklik olunca kod çalışsın demiştiniz konunun birinde.
Bundan dolayı Worksheet_Change kodu içine yapılmıştı zten.

evet değişiklik olunca kod direk çalışssın demiştim de bunda çalışmıyor işte 2 kere gir çık yapmak gerekiyor hücreye onu dedim direk çalışmıyor

 

[Refaz]

evet değişiklik olunca kod direk çalışssın demiştim de bunda çalışmıyor işte 2 kere gir çık yapmak gerekiyor hücreye onu dedim direk çalışmıyor

Bende hücrede değişiklik yapınca çalışıyor abey.Birazdan gif eklerim.

 

[Refaz]

Gif ekledim.
Birde buton ekledim toplucada değiştirebilirsiniz istiyorsanız.

 

[Refaz]

Select Case Target.Value yerine alttaki kod ile değişti önceki mesajdaki dosya güncellenerek abey.
Select Case xx.Value

 

[Reason01]

Select Case Target.Value yerine alttaki kod ile değişti önceki mesajdaki dosya güncellenerek abey.
Select Case xx.Value

Hocam allah razı olsun süper ötesisin. peki sana birşey danışsam, AH6 hücresi boş olduğunda o sütunu otomatik gizleme gibi bir özellik varmı excel de ? yani ay 31 çektiğinde o hücre açılsın, 29 veya 30 çektiğinde gizlenmesi gibi ?

 

[Refaz]

Sizdende abey.
Eve gidince bugün hallederim abey,koda bir iki satır eklenecek sanıyorum çünkü kodda zaten var ayın kaç çektiği.