herkese kolay gelsin.
arkadaşlar excel'de sayılardan oluşan listem var. Bu listedeki sayıları tek ve çift oluşunsa bakarak listelemek istiyorum. Tek sayılar ayrı. çiftler ayrı şeklinde. Ama nasıl yapılacağını bir türlü yapamadım. Yardımlarınızı bekliyorum. Şimdiden teşşekürler
Bu işlem için şu tarz bir yordam kullanıabilir:
Sub TekCift()
Dim int1 As Integer
For int1 = 1 To 1000
If int1 Mod 2 = 0 Then
Range("A" & int1) = int1
Else
Range("B" & int1) = int1
End If
Next int1
End Sub
Önceki mesajımda hatırlatmayı unuttum. Listelemeyi ben yaptırmak istiyorum. İstediğim listede
teşekkür ederim Suzan Köprü arkadaş. sayıyı çift ve tek oluşuna göre ben yaptırmak istiyorum. buna göre nasıl yapabilirim. Şimdiden teşekkürler
Yasmış olduğum makroyu modül sayfasına kopyalayın. (Nickim: suzunkopru Yani; Süleyman UZUNKÖPRÜ'dür)
Excelde iken Alt ile beraber F11, Alt ile beraber I, Alt ile beraber M ile açılan sayfaya bu makroyu kopyalayınız. Sonra bu F5 tuşuna basarak makroyu çalıştırınız.
Eğer çalışmaz ise Güvenlik ayarlarınızı düşürünüz: Excel menüsünden - Araçlar - Makro - Güvenlik -Orta seçeneğini tıklatın, Excel i kapatıp tekrar açınız, (Eğer bir soru ile karşılaşırsanız Makroları Etkinleştir seçeneğini tıklatınız) Alt F11 ile makro sayfasına gelip yordamı tekrar çalıştırınız (F5 ile)
Adımları aynen tekrarlamalısınız.
Öncelikle Özür dilerim Süleymen Bey. Yapmak istediklerimi tam olarak anlatamadığım için aşağıda örnek olarak verdiğim küşük liste gibi bir listem var. bu listede 550-901-250-503 rakamlarının sütünun tek ve çift sayılarına göre farklı sayfalarda listeleme yapmak istiyorum. (Satır bütünlüğü bozulmadan)Şimdiden teşekkür ederim. Galiba fazla uğraştırdım. Şimdiden teşekkürler
7 72 0 62 550 Basın Yayın Enfermasyon Müd. 1.430.491.563
7 67 0 4 901 Başbakanlık 8.150.082.567
7 85 0 61 250 Devlet İstatistik Enstitüsü 2.940.235.451
7 84 0 4 503 Diyarbakır Gümrük Muh.Kısım Amirliği 3.010.424.090