Istatisti dersinde odev olarak excelde makroda program yazmayla ilgili basit bi program verdi hoca 100e kadar sayilari tek ve ciftleri ayirarak ayri ayri sutunlara yazdirma programi yardimci olacak var mi

'Başlık kısmı Sayfa1. Range("A1") = "Tek Sayılar" Sayfa1. Range("B1") = "Çift Sayılar" '1den 100e kadar say For i = 1 To 100 'eger cift ise B sütununa yazdır If i Mod 2 = 0 Then k = Sheets("Sayfa1"). Cells . End(3). Row + 1 Sayfa1. Range = i Else 'tek ise A sütununa yazdır k = Sheets("Sayfa1"). Cells . End(3). Row + 1 Sayfa1. Range = i End If Kod olarak yukarıda aciklamaya calistim. Dosyayıda aşağıya yükledim, kolay gelsin. http://www.dosya.tc/server21/YEZmqP/Kitap1. rar.html Not: Ayrıca konu biraz alakasız blümde bilgin olsun ;) 444 tarafından 24/Ara/13 15:16 tarihinde düzenlenmiştir nox...!

vba olarak istiyorsun degil mi? nox...!