Seride pozitif sayının bulunması

[TCBAKINCI]

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

 

[N.Ziya Hiçdurmaz]

yanıt

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

 

[TCBAKINCI]

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]

=İ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.

 

[TCBAKINCI]

Tşk ama bunun ingilizce yazılımı var mı ??

 

[İhsan Tank]

Tşk ama bunun ingilizce yazılımı var mı ??

merhaba
İNDİS ~ INDEX
KAÇINCI ~ MATCH
olarak deneyiniz