Soru Makro ile Hücrelere Veri Yazma

[okan32]

Merhaba Arkadaşlar
Örnek dosyamda yapmak istediğimi açıkladım yardımlarınız için şimdiden teşekkür ederim.

 

[Murat OSMA]

Merhabalar,
Bu kodu kullanabilirsiniz..

Sub Osma()
    Dim i&, son&
    son = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To son
        If Cells(i, "A") <> "" Then Cells(i, "B").Resize(, 3).Value = Array(5, 1, 0)
    Next i
    son = Empty: i = Empty
End Sub

 

[okan32]

Murat bey çok teşekkür ederim. Yalnız B-C ve D sütunlarında da son dolu satır kontrolü yapacak şekilde nasıl düzenleyebiliriz.

 

[Murat OSMA]

İşin genel amacını tam olarak belirtebilirseniz yardımcı olayım Sn. okan32

 

[okan32]

Murat Bey birkaç kapalı dosyadan veri çekiyorum. A sütununa personelin Ad ve Soyadı geliyor B sütununa derecesi C sütununa kademesi ve D sütununa ek göstergesi geliyor. Bazı Personel sözleşmeli personel olduğu için adı soyadı geldiği halde derecesi kademesi ve ek göstergesi yok dolayısıyla boş geliyor. bu sebeple Adı soyadı olup B-C ve D sütunlarında da son dolu satır kontrolü yaparak boş olan satırlara B sütunundaki son dolu satıra 5 C sütunundaki son dolu satıra 1 D sütunundaki son dolu satıra 0 yazacak.

 

[Murat OSMA]

Gönderdiğim kodu denemiş miydiniz?
Amaç A sütunundaki dolu olan hücrelere göre yan taraflarına 5-1-0 yazdırmak olmalı gibi anlıyorum ama son mesajınızda, A sütununun hiçbir fonksiyonu kalmıyor gibi, A 'ya baksın ama yine de B-C-D sütunlarındaki dolu olan son satırlara yazsın demek pek mantıklı gelmedi açıkçası, normalde hemen yan sütunlara yazdırılmak istenir.

 

[okan32]

Denedim Murat bey kusura bakmayın ben anlatamadım yukarıdaki kod veri çekilen tüm personelin derece kademe ve ek göstergesini 5 1 0 yapıyor. halbuki bazı personellerin derece kademe ve ek göstergeleri var ve farklı mesela 7 3 1100 buraları bozmayacak Sadece A sütununda ismi bulunan ve B C D sütunlarında boş olan yerlere 5 1 0 yazacaktır.

 

[YUSUF44]

Sanıyorum arkadaş A sütununda son dolu satıra kadar kontrol etsin, A sütunu dolu olup da B sütunu boş olan satırlara 5, 1 ve 0 yazsın istiyor. B sütunu dolu olanlarda zaten o kişilerin derece kademe ve göstergeleri var, ama sözleşmeli olanlarda bu bilgileri olmadığından o kişilerin B, C ve D sütunları boş geliyor.

Kodu aşağıdaki şekilde değiştirmek yeterli olur sanıyorum:

Sub Osma()
    Dim i&, son&
    son = Cells(Rows.Count, "A").End(3).Row
    For i = 1 To son
        If Cells(i, "A") <> "" And Cells(i, "B") = "" Then Cells(i, "B").Resize(, 3).Value = Array(5, 1, 0)
    Next i
    son = Empty: i = Empty
End Sub

 

[okan32]

Teşekkür ederim yusuf bey anlatmak istediğim buydu. kod istediğim gibi çalışıyor. Murat bey yapmak istediğimi tam olarak anlatamayarak sizi de yordum kusura bakmayın.