Seride pozitif sayının bulunması

Katılım
3 Ağustos 2006
Mesajlar
79
Merhabalar

Seride ki pozitif değeri görecek ve pozitif değerin karşısındaki değerini basıcak.
Tam olarak ne yapmak istediğim örnek excelin içinde yazılı

Yardımlarınız için teşekkürler
 

Ekli dosyalar

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
yanıt

Kod:
Sub pozitifbul()
Dim sut As Integer
    For sut = 2 To 11
        If Not Cells(5, sut) Like "*" & "-" & "*" Then
            Cells(5, sut).Interior.ColorIndex = 7
            Cells(5, sut).Offset(-1, 0).Font.Bold = True
            Exit For
        End If
    Next
End Sub
 
Katılım
3 Ağustos 2006
Mesajlar
79
Teşekkürler ama bunu excelde hücre içinde formül olarak yazdırmak mümkün mü
örnek excelim de ilk pozitif değer 3 ve 3 ün karşısında ki 5 değerini yazdırmak istiyorum
 

lark

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2004
Mesajlar
322
Excel Vers. ve Dili
Excel 2021 / Türkçe
=İNDİS(B4:K4;1;KAÇINCI(DOĞRU;B5:K5>0;0))

Yalnız bu dizi formülüdür. Yani edit modunda Ctrl+Shift basılı iken Enter'a basacaksınız.

Kolay gelsin.
 
Son düzenleme:
Üst