Satırdaki boş hücrelere d veya y yazdırma?

Kodla Büyü

DotCom

Hiperaktif Üye
Hiperaktif
Mesajlar
2,918
Merhaba Arkadaşlar ,

Excel'de Sınav analizi yapıyorum.
Soruların doğru ya da yanlış yazılmasına göre d veya y ile giriş yapıyorum.
veri girişini kolaylaştırmak için bu işlemin en azından bir kısmını makro ile yaptırmayı deniyorum.

Ekteki dosyada d12-x12 arasına veri girişi yapıyorum. Sadece d veya y leri yazıp boş kalan hücreleri de ters olarak (ben d leri girdiysem makro y leri yazcak) şeklinde düzenlemeye çalışıyorum.

20 tane y veya 20 tane d yazdıracak makroyu kaydettim ama benim girdiğim veriye göre tersini bulup kalan yerleri nasıl doldurtabilirim?
 

Ekli dosyalar

  • sınav analizi YENİ Makrolu.rar
    14.8 KB · Görüntüleme: 33
Hocam Excelde Range diye bir obje var bu belli bir hücre gurubunu seçmeye yarıyor.
d12-x36 (tüm d-y aralığı) range değişkene al.

aşağıda atmasyon kodlar sana fikir verisin

for each ile aralıktaki her bir cell in valuesine

Dim aralik as Range 'Range için örnek bul incele
Dim hucre as Cell

aralik =(d12:x36)


for each hucre in aralik
'eğer hecre boş ise d yaz
if hucre.value="" then
hucre.value="d"
end if

end for
 
ben her öğrenci için toplam 20 tane d veya y giriyorum
kimi öğrencilerde d yazıp y leri boş bırakırken , kimilerinde y yazıp d leri boş bırakıyorum. hangisi daha azsa onu yazarak veri girişinden kaçıyorum açıkcası.

eğer y girdiysem boş hücrelere d , d girdiysem boş kalan hücrelere y girişi otomatik olarak yaptırmak istiyorum
 
Hocam daha önce VBA ile ilgilendinizmi ?
girş seviyesinden iyimi durumuz?
Visual basis ile ilgilendinizmi ?

Eğer sadece d girişi ile ilgili başarılı kodlar yazarsanız zaten y için olanını yapmak kolay olur. hucrelerden biri d ise boş olanları y ile doldur deriz olur biter.
macro yazmayalı 3-4 yıl oldu kabaca hatırladıklarım ilk mesajımda
 
Bunu incele bakalım . Canım sıkılıyor dur boş durmayayımd edim.
 

Ekli dosyalar

  • sınav analiz alpaygunes ten.rar
    17.6 KB · Görüntüleme: 23
Biraz makro , biraz excel'in püf noktaları derken sorunu çözdüm.

Kod:
F5 
Özel 
Boşluklar 
Tamam 
Y 
Ctrl+Enter

İlginiz ve öneriniz için teşekkür ederim Alpay hocam.

İyi çalışmalar
 
Geri
Üst