Selamlar, Instagram hesabım @info.bekiryildirim

"Dim a As Integer a = Application.Sum((Sheets("Sayfa1").Range("c2:f2"))) Range("b2") = a " şeklinde yapabilirsin.

Mak formülü yerine büyük formülünü kullanarak bulabiliriz.

Merhaba, Düzenlemek istediğin sayfadayken, sağ üst köşede bulunan dikey 3 noktaya tıklayın açılan menüden kod düzenleyiciyi seçebilir veya kısayol tuş kombinasyonu ( Ctrl + Shift+ Alt + M) nu kullanabilirsiniz. Bahsettiğim iki yöntemde yeni sürümler için geçerlidir. eski Sürümlerde metin seçeneğini kullanmanız gerekmektedir.

@@bekir.yildirim kaç saattir uğraşıyordum allah razı olsun çok sağolun:)

@@emreocal8947 cümlemizden, rica ederim 🌿

merhaba, ilk aklıma gelen bu oldu =749&","&RASTGELEARADA(20;90) umarım işinizi görür.

@@bekir.yildirimçok teşekkürler :)

hücreye yazdığınız formülü gönderin bakalım nerede hata var yardımcı olurum.

@@bekir.yildirim =((D2*50/100)+(G2*50/100)) bu formülün yanına yuvarlama formülünü nasıl yazabilirim

@@emirtrofi =YUVARLA((D2*50/100)+(G2*50/100);0)

@@bekir.yildirim Çok teşekkür ederim abone oldum :)

@@emirtrofi rica ederim:) teşekkür ederim:)

ekleyeceğin bir buton içerisine aşağıdaki kodları yazabilirsiniz. sayi = 1309200073 i = 0 toplam = 0 Do While True i = i + 1 If Int(sayi / 10 ^ i) = 0 Then b_s = i Exit Do End If Loop ReDim basamaklar(b_s) For i = 1 To b_s basamaklar(i) = Int(sayi / 10 ^ (b_s - i)) sayi = sayi - basamaklar(i) * 10 ^ (b_s - i) Next i For t = 1 To b_s toplam = toplam + basamaklar(t) Next t MsgBox toplam

@@bekir.yildirim Öğrenci no nun rakamları toplamı 10dan küçükse 10 a kadar olan tej sayıların faktöriyelini tek tek hesaplayan. Eğer rakamları toplamı 25 den büyükse 25 e kadar olan tek sayıların faktöriyelini tek tek hesaplayan kodu nasıl yazabilirim ben şöyle bir ley yaptım ama olmadı Dim sayı(10) As Integer Dim a, b, c, d As Double c = Cells(1, 1) sayı(1) = Mid(c, 1, 1) sayı(2) = Mid(c, 2, 1) sayı(3) = Mid(c, 3, 1) sayı(4) = Mid(c, 4, 1) sayı(5) = Mid(c, 5, 1) sayı(6) = Mid(c, 6, 1) sayı(7) = Mid(c, 7, 1) sayı(8) = Mid(c, 8, 1) sayı(9) = Mid(c, 9, 1) sayı(10) = Mid(c, 10, 1) d = sayı(1) + sayı(2) + sayı(3) + sayı(4) + sayı(5) + sayı(6) + sayı(7) + sayı(8) + sayı(9) + sayı(10) If d < 10 Then b = 1 For a = 1 To 10 b = b * a Next sonuç = b End If If d > 25 Then b = 1 For a = 1 To 25 b = b * a Next sonuç = b End If MsgBox "sonuç"

@@CANEFE145 aşağıfaki kod işini görürmü ? Dim i As Byte Dim topla As Integer Dim sonuc As Double sayi = Range("A1").Value For i = 1 To 10 topla = topla + Val(Mid(sayi, i, 1)) Next i If topla > 25 Then fak = 25 ElseIf topla > 10 Then fak = topla Else fak = 10 End If sonuc = 1 For i = 1 To fak sonuc = sonuc * i If (-1) ^ i = -(-1) ^ sayi Then msg = msg & vbCr & i & "!= " & Format(sonuc, "#,##0") Next i MsgBox "Rakamlar toplami = " & topla & vbCr & msg

@@bekir.yildirim Abi Allah razı olsun çok sağ ol yaptığın kod efsane de 2 ricam var senden senin kod faktöriyeli 2 şer 2 şer veriyor yani 2! , 4! şeklinde bana 1! , 3! şeklinde lazım birde bu tarz meseleler hakkında video çeker misin detaylı anlatım olsun çünkü youtube da kimse böyle konuları anlatmamış.

@@bekir.yildirim Abone sayın +1 oldu.

İkisi de gerekli herkes ihtiyacı olanı izlesin 🍀🌿😉

Merhaba Yağmur Hanım, Dosya menüsünden seçenekler > şeridi özelleştir > geliştirici seçeneği seçime dahil edilerek tamam butonu tıklanır.

Çok teşekkür ederim cevabınız için .Buldum.Sağ olun.Saygılarımla.

Eyvallah Osmanım