Alternatif olarak mod ile çözmek isterseniz şöyle olacaktır(Sayfa1 ismini değiştirmeniz gerekebilir.): Sub tekciftmod() For i = 1 To 15 sayi = Sayfa1.Cells(i, 1).Value If sayi Mod 2 = 0 Then Sayfa3.Cells(i, 2) = "Çift" Else Sayfa3.Cells(i, 2) = "Tek" End If Next i End Sub
Kardeşim, ders nasıl anlatılır; konuşma, diksiyon, içerik, sunuş, empati, bilgi vb. örnek alınacak birisisin. Çalışmalarına devam et, takdir ediliyorsun.
İlk 8 dersi dikkatle takip ettim ve çok kısa sürede kapsamlı ve özet bilgiler aktardınız. Yalnız kafama takılan birşey var. İlk 9 derse kadar anlattığınız formüller, ekstra bir yazılıma ihtiyaç duymadan zaten excelde hazır formüller olarak yer almakta. VBA nın excel kullanıcılarına ek olarak katkısı nedir? Örneğin bir gecikme faizi hesaplama yazılımını kendi kendimize amatörce yapabilirmiyiz? Yani amacımız excel de mevcut formüllerle yapamadığımız işlemler içn VBA ile ekstra yazılım hazırlamak mı olmalı?
Emeğinize sağlık, ben bir şey ormak istiyorum. Bende Ofis 2016 kullanıyorum fakat değişkenleri dim ile tanımlamak zorunda kalıyorum. Siz tanımlamıyorsunuz. Bunun bir yolu varmıdır. Şimdiden teşekkür ederim.
aradan 1 yıl geçmiş ama komut ekranında tools-options kısımlarına girip "Require Variable Declaration" butonundaki tiki kaldırmanız lazım bilmeyen arkadaşlar için söyleyeim
Ekrem Emre Karadina , şuanda Excel, İngilizce ve Almanca derslerinin ders dosyaları kanalımızda bulunmaktadır. VBA derslerinin dosyalarını ise en kısa sürede siteden paylaşacağım , takipte kalınız, başarlar dilerim 🙌 (Hakan Erdeş)
Alternatif olarak mod ile çözmek isterseniz şöyle olacaktır(Sayfa1 ismini değiştirmeniz gerekebilir.):
Sub tekciftmod()
For i = 1 To 15
sayi = Sayfa1.Cells(i, 1).Value
If sayi Mod 2 = 0 Then
Sayfa3.Cells(i, 2) = "Çift"
Else
Sayfa3.Cells(i, 2) = "Tek"
End If
Next i
End Sub
olay buu abii
Kardeşim, ders nasıl anlatılır; konuşma, diksiyon, içerik, sunuş, empati, bilgi vb. örnek alınacak birisisin. Çalışmalarına devam et, takdir ediliyorsun.
Çok iyi gidiyorsun kardeşim hep böyle devam et
yasuominhesoyam M güzel yorumlariniz ve güzel destekleriniz için cok teşekkür ediyorum kardeşim , sonsuz başarılar dilerim 🙌🙌
çok iyi anlatım
teşekkürler
Tarihçi I , rica ederim efenim ne demek , asil ben ilginiz için tesekkur ederim , iyi çalışmalar 🙏🙏 😊 (Hakan Erdeş)
İlk 8 dersi dikkatle takip ettim ve çok kısa sürede kapsamlı ve özet bilgiler aktardınız. Yalnız kafama takılan birşey var. İlk 9 derse kadar anlattığınız formüller, ekstra bir yazılıma ihtiyaç duymadan zaten excelde hazır formüller olarak yer almakta. VBA nın excel kullanıcılarına ek olarak katkısı nedir? Örneğin bir gecikme faizi hesaplama yazılımını kendi kendimize amatörce yapabilirmiyiz? Yani amacımız excel de mevcut formüllerle yapamadığımız işlemler içn VBA ile ekstra yazılım hazırlamak mı olmalı?
Emeğinize sağlık, ben bir şey ormak istiyorum. Bende Ofis 2016 kullanıyorum fakat değişkenleri dim ile tanımlamak zorunda kalıyorum. Siz tanımlamıyorsunuz. Bunun bir yolu varmıdır. Şimdiden teşekkür ederim.
aradan 1 yıl geçmiş ama komut ekranında tools-options kısımlarına girip "Require Variable Declaration" butonundaki tiki kaldırmanız lazım bilmeyen arkadaşlar için söyleyeim
örneklerin linkini atarmisin
Ekrem Emre Karadina , şuanda Excel, İngilizce ve Almanca derslerinin ders dosyaları kanalımızda bulunmaktadır. VBA derslerinin dosyalarını ise en kısa sürede siteden paylaşacağım , takipte kalınız, başarlar dilerim 🙌 (Hakan Erdeş)
For i = 1 To 10
sayi = Me.Cells(i, 1)
If sayi Mod 2 = 0 Then
Me.Cells(i, 2) = "ÇİFT"
Else
Me.Cells(i, 2) = "TEK"
End If
Next i
B ravo
Teşekkürler ! :)