Hücrelerdeki sayıyı bulma

[memduh]

Merhaba Arkadaşlar.

Excel Tablosunda G8 veya I8 veya L8 hücresinde sadece birisinde sayı olur.
hangi hücrede sayı varsa o sayıyı B8 hücresine yazdırmak ve döngüyü B8 den B30 a kadar devam ettirmek istiyorum. Makro ve fonksiyonlarla. teşekkürler.

 

[Haluk]

B8 hücresine şunu girin;

=G8+I8+L8

formülü aşağıya doğru sürükleyip diğer hücrelere için çoğaltın...

veya;

=topla(G8;I8;L8)

.

 

[memduh]

Sayın Haluk Bey Cevabınız için Teşekkür ederim. Yalnız Şunu ayrıntıyı kaçırmışım. Hücreler G8, I8 ve L8 hücreleri eğer boş işe B8 hücresi boş geçecek, eğer boş değilse hücrelerden sadece birinde sayı var öbürlerinde "-" işareti olacak. o yüzden bu hücrelerden sadece sayı olanı B8 e almak istiyorum.

 

[Orion1]

Sub sayilar()
Dim i As Byte
Range("B8:B30").ClearContents
For i = 8 To 30
    If Cells(i, "G").Value <> "" And IsNumeric(Cells(i, "G").Value) Then
        Cells(i, "B").Value = Cells(i, "G").Value
        ElseIf Cells(i, "I").Value <> "" And IsNumeric(Cells(i, "I").Value) Then
        Cells(i, "B").Value = Cells(i, "I").Value
        ElseIf Cells(i, "L").Value <> "" And IsNumeric(Cells(i, "L").Value) Then
        Cells(i, "B").Value = Cells(i, "L").Value
    End If
Next i
MsgBox "İşlem Tamam"
End Sub