Tarih bulma ile ilgili makro

[erkanfun]

Personel yoklaması hazırlamak istiyorum. A sütununda yazılı tarih personelin İZİNLİ olduğu tarihleri göstermektedir. Ben C sütununa personelin ne zaman katılış yapacağını gösterir bir makro yapmak istiyorum. Katılıştan maksat; iznin biteceği tarihtir. Zaten C sütununda yazılı tarihler makronun otomatik yazması gereken tarihlerdir.

 

[suleyman242]

Personel yoklaması hazırlamak istiyorum. A sütununda yazılı tarih personelin bulunmayacağı zamanları göstermektedir. Ben C sütununa personelin ne zaman katılış yapacağını gösterir bir makro yapmak istiyorum.

Dünde baktım bu mesaja, tam olarak ne yapacağımı anlıyamadım; dosyaya göre C9 hücresine (08.05.2013) tarihinin karşısına bir değermi yazdıracağız Daha ayrıntılı izah edebilirmisin soruyu ?

 

[Necdet]

Merhaba,

Ben "katılış yapmak" olayını da anlamadım

 

[suleyman242]

Ben "katılış yapmak" olayını da anlamadım

Haklısın bende

 

[erkanfun]

Dünde baktım bu mesaja, tam olarak ne yapacağımı anlıyamadım; dosyaya göre C9 hücresine (08.05.2013) tarihinin karşısına bir değermi yazdıracağız Daha ayrıntılı izah edebilirmisin soruyu ?

Ben "katılış yapmak" olayını da anlamadım

Soru ve dosya güncellenmiştir.

 

[suleyman242]

Soru ve dosya güncellenmiştir.

Dosyayı ekledim incelermisin.

 

[erkanfun]

Dosyayı ekledim incelermisin.

Evet söylediğim buydu. Ancak, C sütununda boş satır olmasını istemiyorum. Personel izinden dönene kadar katılış tarihi hizasında yazılı olması lazım. Gene de teşekkür ederim.

 

[suleyman242]

Evet söylediğim buydu. Ancak, C sütununda boş satır olmasını istemiyorum. Personel izinden dönene kadar katılış tarihi hizasında yazılı olması lazım. Gene de teşekkür ederim.

Yapmışken tam yapalım işi değilmi
if not satırının üstüne kırmızı kodu ekle

[COLOR="Red"][B]doldur = d.Row[/B][/COLOR]
    If Not d Is Nothing Then

birde
son 4 satırı şu şekilde yap

[COLOR="Red"][B]For i = doldur To sat - 1[/B][/COLOR]
Cells([COLOR="Red"][B][SIZE="2"]i[/SIZE][/B][/COLOR], "C").Value = Format(Cells(sat - 1, "A").Value + 1, "dd.mm.yyyy")
[COLOR="Red"][B]Next[/B][/COLOR]
Loop While Not d Is Nothing And Cells(sat, "B").Value <> ""