folder Tahribat.com Forumları
linefolder Müzik & Sinema & Tiyatro & Kitap & Televizyon & Seminerler & Edebiyat
linefolder Excelde Makro Yardim



Excelde Makro Yardim

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cindoan
    cindoan's avatar
    Banlanmış Üye
    Kayıt Tarihi: 04/Ağustos/2009
    Erkek

    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 

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    444
    444's avatar
    Kayıt Tarihi: 29/Temmuz/2002
    Erkek

    vba olarak istiyorsun degil mi?

    nox...!
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    444
    444's avatar
    Kayıt Tarihi: 29/Temmuz/2002
    Erkek 
    '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(Rows.Count, "B").End(3).Row + 1
Sayfa1.Range("B" & k) = i

Else
'tek ise A sütununa yazdır
k = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
Sayfa1.Range("A" & k) = 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 bölümde bilgin olsun ;)

     

    444 tarafından 24/Ara/13 15:16 tarihinde düzenlenmiştir
    nox...!
    Reply With Quote Alıntı yap
Toplam Hit: 713 Toplam Mesaj: 3