DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
merhabaTşk ama bunun ingilizce yazılımı var mı ??