İşgünü ile hesaplama

[king kobra]

Arkadaşlar merhaba,

-2 İŞGÜNÜ fonksiyonuyla bulduğum değerlerden BUGÜN 'den küçük olanların BUGÜN olarak değişmesini sağlayan bir koda ihtiyacım var detaylarını ekli dosyada yazdım, ilgilenecek tüm arkadaşlara peşin teşekkürlerimle.

Sevgiler.

 

[Recep İpek]

Ekli dosyanızı inceleyiniz.


.....

 

[king kobra]

Sevgili Ripek,

İşlem tamamdır ellerinize sağlık...

Sevgiler.

 

[Recep İpek]

Doğru olduğuna sevindim. :uyku:

 

[king kobra]

Yaptığımız makronun arka arkaya çalışmasını engellemek için kontrol konulabilirmi acaba ? mesela ikinci kez çalıştırıyorsunuz Eminmisiniz ? şeklinden bir mesaj Evet ise devam etsin Hayır ise makro çalışmasın?

Ekli dosyanızı inceleyiniz.


.....

 

[Recep İpek]

Kodları aşağıdaki şekilde değiştiriniz.

Sub Düzenle()
If MsgBox("Makroyu İkinci Kez Çalıştırıyorsunuz.Eminmisiniz?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbYes Then
Set s1 = Sheets("Sayfa1")
For i = 2 To s1.[d65536].End(3).Row
gün = İşGünüÖzel(s1.Cells(i, "d").Value)
If g&#252;n < Date Then
s1.Cells(i, "f").Value = Date
Else
s1.Cells(i, "f").Value = g&#252;n
End If
Next i
s1.Range("a2:f100").Sort Key1:=Range("f2")
Set s1 = Nothing
End If
End Sub


Function &#304;&#351;G&#252;n&#252;&#214;zel(veri As Date)
a = WorksheetFunction.Weekday(veri, vbMonday)
Select Case a
Case Is = 1
b = veri - 4
Case Is = 2
b = veri - 4
Case Is = 3
b = veri - 2
Case Is = 4
b = veri - 2
Case Is = 5
b = veri - 2
Case Is = 6
b = veri - 2
Case Is = 7
b = veri - 3
End Select
&#304;&#351;G&#252;n&#252;&#214;zel = b
End Function

 

[king kobra]

Subscript out of range

hatası veriyor...

 

[Recep İpek]

Bende hatasız çalışıyor.

Dosyayı inceleyiniz.

 

[king kobra]

Pardon, hata benden kaynaklanıyormuş, kitap adını değiştirmeyi unutmuşum, işlem tamamdır.

TŞK.

Subscript out of range

hatası veriyor...

 

[king kobra]

Sevgili Ripek,
ayni çalışma kapsamında yeni bir koda ihtiyacım doğdu, makro yapıyorum ancak, satır sayısını kontrol ettiremediğim için hatalı sonuç alıyorum isteğim şu şekilde ;
kitap1 B2 hücresinden itibaren A kolonunu kitap2'nin A ve B kolonlarında DÜŞEYARA ile aratıp B kolonundaki değeri kitap1'in B kolonuna yazdırmak yoksa YANLIŞ yazmalı, son olarak kitap1 B kolonunu kopyala özel yapıştır işlemi yapmalı, umarım anlatabilmişimdir.

 

[Recep İpek]

Kapalı dosyada DÜŞEYARA fonksiyonunu kullanmak için aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=864

 

[king kobra]

Slm Ripek,
Verdiğiniz linki daha önce incelemiştim yine okudum fakat benim sorunumla ilgili bir konu değil veya ben anlamadım ,benim sorunum kapalı dosyadan düşeyara ile veri almak değil, düşey ara yaptığım tablo 2-3 günde bir yenileniyor hem aradağım hemde arattığım satırların sayısı her seferinde değişiyor, düşey ara işlemini makroya bağladığımda satır sayısı bir öncekine göre olması gerekenden eksik olduğunda , o aramada boş olan satırlara da düşey ara sonuçları geliyor, benim isteğim satır sayısı bittiğinde düşey aramanın sonlanması ve hücreye bir şey yazılmaması, bu iş sanırım makroyla olmaz veya ben yöntemini bilemedim, umarım yardımınız olur.
Sevgiler.