kosullu matematik islemi

[w.allen]

Arkadaşlar Merhaba ;
Sayilardan olusan bir tablom var. bu tablodaki cift sayilari 2 ile carpmak, tek sayilara ise 4 eklemek istiyorum. ayrica 2 rakamlilara 1, 3 rakamlilara 2, 3 rakamlilari da 4 eklemek istiyorum.

bu konuda yardımcı olursanız sevinirim. Saygılar.

 

[Murat OSMA]

Dosyanızı ekleyiniz...

 

[Murat OSMA]

Siz dosyayı ekleyene kadar 3. dünya savaşı başlar herhalde...
Mesajınızın sonunda bir hata var sanırım. Tekrar bir bakın isterseniz...


Dilerseniz şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Long
    For i = 1 To Range("A65536").End(3).Row
        Select Case Len(Cells(i, 1))
            Case Is = 2
                Cells(i, 1) = Cells(i, 1) + 1
            Case Is = 3
                Cells(i, 1) = Cells(i, 1) + 2
            Case Is = 4
                Cells(i, 1) = Cells(i, 1) + 3
        End Select
         If Cells(i, 1) Mod 2 = 0 Then
            Cells(i, 2) = "Çift"
            Cells(i, 1) = Cells(i, 1) * 2
                Else
            Cells(i, 2) = "Tek"
            Cells(i, 1) = Cells(i, 1) + 4
        End If
    Next i
    i = Empty
End Sub

 

[w.allen]

dosya bu, teşekkürler.

 

[w.allen]

bunu excel formülü ile yapabilir miyiz?

 

[Murat OSMA]

Ben yapamam.

 

[w.allen]

Çok teşekkürler Murat OSMA. Harika çalışıyor!

 

[Murat OSMA]

Rica ederim, iyi günler...